[slime-cvs] CVS slime

[CVS User trittweiler]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-end-of-symbol): Make sure not to move on #'foo.
		([test] sexp-at-point.1): New test case.


--- /project/slime/cvsroot/slime/ChangeLog	2009/11/02 09:20:33	1.1906
+++ /project/slime/cvsroot/slime/ChangeLog	2009/11/02 16:17:48	1.1907
@@ -1,3 +1,8 @@
+2009-11-02  Tobias C. Rittweiler <tcr at freebits.de>
+
+	* slime.el (slime-end-of-symbol): Make sure not to move on #'foo.
+	([test] sexp-at-point.1): New test case.
+
 2009-11-02  Helmut Eller  <heller at common-lisp.net>
 
 	* swank.lisp (without-interrupts): Removed. No longer used.
--- /project/slime/cvsroot/slime/slime.el	2009/10/31 22:41:03	1.1245
+++ /project/slime/cvsroot/slime/slime.el	2009/11/02 16:17:48	1.1246
@@ -7470,10 +7470,26 @@
   slime-test-symbols
   (slime-check-symbol-at-point "#+" sym ""))
 
-(def-slime-test symbol-at-point.17 (sym)
-  "symbol-at-point after #-"
-  slime-test-symbols
-  (slime-check-symbol-at-point "#-" sym ""))
+
+(def-slime-test sexp-at-point.1 (string)
+  "symbol-at-point after #'"
+  '(("foo")
+    ("#:foo")
+    ("#'foo")
+    ("#'(lambda (x) x)")
+    ("#\\space")
+    ("#\\(")
+    ("#\\)"))
+  (with-temp-buffer
+    (lisp-mode)
+    (insert string)
+    (goto-char (point-min))
+    (slime-test-expect (format "Check sexp `%s' (at %d)..."
+                               (buffer-string) (point))
+                       string
+                       (slime-sexp-at-point)
+                       #'equal)))
+
 
 (def-slime-test narrowing ()
     "Check that narrowing is properly sustained."
@@ -8363,7 +8379,7 @@
 
 (defun slime-end-of-symbol ()
   "Move to the end of the CL-style symbol at point."
-  (re-search-forward "\\=\\(\\sw\\|\\s_\\|\\s\\.\\|[#@|]\\)*"))
+  (re-search-forward "\\=\\(\\sw\\|\\s_\\|\\s\\.\\|#:\\|[@|]\\)*"))
 
 (put 'slime-symbol 'end-op 'slime-end-of-symbol)
 (put 'slime-symbol 'beginning-op 'slime-beginning-of-symbol)