[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	slime.el ChangeLog 
Log Message:
	* slime.el ([test] fancy-symbol-names): Add cases involving #|
	... |# style comments. Currently failing.

	Reported by Madhu.


--- /project/slime/cvsroot/slime/slime.el	2009/05/24 12:45:07	1.1179
+++ /project/slime/cvsroot/slime/slime.el	2009/05/24 12:58:47	1.1180
@@ -7359,6 +7359,53 @@
     (insert "#<") (insert symbol-name) (insert " {DEADBEEF}>")
     (slime-check-fancy-symbol-name (+ (point-min) 2) symbol-name)
     (erase-buffer)
+
+    (slime-test-message "*** fancy symbol-name wrapped in #<>:")
+    (insert "#<") (insert symbol-name) (insert " {DEADBEEF}>")
+    (slime-check-fancy-symbol-name (+ (point-min) 2) symbol-name)
+    (erase-buffer)
+
+    (slime-test-message "*** fancy symbol-name wrapped in #| ... |#:")
+    (insert "#|\n") (insert symbol-name) (insert "\n|#")
+    (slime-check-fancy-symbol-name (+ (point-min) 4) symbol-name)
+    (erase-buffer)
+
+    (slime-test-message "*** fancy symbol-name after #| )))(( |# (1):")
+    (let ((pre-content "#| )))(( #|\n"))
+      (insert pre-content)
+      (insert symbol-name) 
+      (slime-check-fancy-symbol-name (+ (point-min) (length pre-content))
+                                     symbol-name)
+      (erase-buffer))
+
+    (slime-test-message "*** fancy symbol-name after #| )))(( |# (2):")
+    (let ((pre-content "#| )))(( #|"))  ; no newline
+      (insert pre-content)
+      (insert symbol-name) 
+      (slime-check-fancy-symbol-name (+ (point-min) (length pre-content))
+                                     symbol-name)
+      (erase-buffer))
+
+    (slime-test-message "*** fancy symbol-name wrapped in \"...\":")
+    (insert "\"\n") (insert symbol-name) (insert "\n\"")
+    (slime-check-fancy-symbol-name (+ (point-min) 3) symbol-name)
+    (erase-buffer)
+
+    (slime-test-message "*** fancy symbol-name after \" )))(( \" (1):")
+    (let ((pre-content "\" )))(( \"\n"))
+      (insert pre-content)
+      (insert symbol-name) 
+      (slime-check-fancy-symbol-name (+ (point-min) (length pre-content))
+                                     symbol-name)
+      (erase-buffer))
+
+    (slime-test-message "*** fancy symbol-name after \" )))(( \" (2):")
+    (let ((pre-content "\" )))(( \"")) ; no newline
+      (insert pre-content)
+      (insert symbol-name) 
+      (slime-check-fancy-symbol-name (+ (point-min) (length pre-content))
+                                     symbol-name)
+      (erase-buffer))
     ))
 
 (defun* slime-initialize-lisp-buffer-for-test-suite 
--- /project/slime/cvsroot/slime/ChangeLog	2009/05/24 12:24:04	1.1771
+++ /project/slime/cvsroot/slime/ChangeLog	2009/05/24 12:58:50	1.1772
@@ -1,6 +1,13 @@
 2009-05-24  Tobias C. Rittweiler  <tcr at freebits.de>
 
-	(slime-goto-location-position): Only go to match-beginning if
+	* slime.el ([test] fancy-symbol-names): Add cases involving #|
+	... |# style comments. Currently failing.
+
+	Reported by Madhu.
+
+2009-05-24  Tobias C. Rittweiler  <tcr at freebits.de>
+
+	* slime.el (slime-goto-location-position): Only go to match-beginning if
 	search succeeded.
 
 	Patch by Madhu.