[slime-cvs] CVS slime/contrib

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv23721/contrib

Modified Files:
	slime-parse.el ChangeLog 
Log Message:
	* slime-parse.el (form-up-to-point.1 [test]): Fix test case.


--- /project/slime/cvsroot/slime/contrib/slime-parse.el	2009/12/21 16:03:41	1.32
+++ /project/slime/cvsroot/slime/contrib/slime-parse.el	2009/12/23 08:55:40	1.33
@@ -115,14 +115,12 @@
    (slime-parse-form-upto-point 10)))
 
 (def-slime-test form-up-to-point.1
-    (buffer-sexpr result-form)
+    (buffer-sexpr result-form &optional skip-trailing-test-p)
     ""
     '(("(char= #\\(*HERE*"            ("char=" "#\\(" swank::%cursor-marker%))
       ("(char= #\\( *HERE*"           ("char=" "#\\(" "" swank::%cursor-marker%))
       ("(char= #\\) *HERE*"           ("char=" "#\\)" "" swank::%cursor-marker%))
-                                      ;; The #\) here is an accident of 
-                                      ;; the implementation.
-      ("(char= #\\*HERE*"             ("char=" "#\\)" swank::%cursor-marker%))
+      ("(char= #\\*HERE*"             ("char=" "#\\" swank::%cursor-marker%) t)
       ("(defun*HERE*"                 ("defun" swank::%cursor-marker%))
       ("(defun foo*HERE*"             ("defun" "foo" swank::%cursor-marker%))
       ("(defun foo (x y)*HERE*"       ("defun" "foo" ("x" "y") swank::%cursor-marker%))
@@ -141,8 +139,9 @@
     (search-backward "*HERE*")
     (delete-region (match-beginning 0) (match-end 0))
     (slime-check-buffer-form result-form)
-    (insert ")") (backward-char)
-    (slime-check-buffer-form result-form)      
+    (unless skip-trailing-test-p
+      (insert ")") (backward-char)
+      (slime-check-buffer-form result-form))
     ))
 
 (provide 'slime-parse)
--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/23 08:52:01	1.317
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/23 08:55:41	1.318
@@ -1,5 +1,9 @@
 2009-12-23  Tobias C. Rittweiler  <tcr at freebits.de>
 
+	* slime-parse.el (form-up-to-point.1 [test]): Fix test case.
+
+2009-12-23  Tobias C. Rittweiler  <tcr at freebits.de>
+
 	* slime-c-p-c.el (complete-symbol* [test]): Fix test case.
 
 2009-12-23  Tobias C. Rittweiler  <tcr at freebits.de>