[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
* slime.el (slime-beginning-of-symbol): Skip over #., #-, and #+.
([test] symbol-at-point.15 .. 17): Test it.

--- /project/slime/cvsroot/slime/ChangeLog	2009/06/25 04:06:15	1.1793
+++ /project/slime/cvsroot/slime/ChangeLog	2009/06/27 15:10:29	1.1794
@@ -2,6 +2,11 @@
 
 	* swank-ecl.lisp: Profiling support by Marko Kocić
 
+2009-06-27  Helmut Eller  <heller at common-lisp.net>
+
+	* slime.el (slime-beginning-of-symbol): Skip over #., #-, and #+.
+	([test] symbol-at-point.15 .. 17): Test it.
+
 2009-06-24  Nikodemus Siivola <nikodemus at random-state.net>
 
 	Add :WAIT keyword argument to support blocking in
--- /project/slime/cvsroot/slime/slime.el	2009/06/24 15:33:20	1.1190
+++ /project/slime/cvsroot/slime/slime.el	2009/06/27 15:10:29	1.1191
@@ -7427,6 +7427,21 @@
   slime-test-symbols
   (slime-check-symbol-at-point "\" )))(( \"" sym ""))
 
+(def-slime-test symbol-at-point.15 (sym)
+  "symbol-at-point after #."
+  slime-test-symbols
+  (slime-check-symbol-at-point "#." sym ""))
+
+(def-slime-test symbol-at-point.16 (sym)
+  "symbol-at-point after #+"
+  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 narrowing ()
     "Check that narrowing is properly sustained."
     '()
@@ -8292,7 +8307,7 @@
   "Move to the beginning of the CL-style symbol at point."
   (while (re-search-backward "\\(\\sw\\|\\s_\\|\\s\\.\\|\\s\\\\|[#@|]\\)\\=" 
                              nil t))
-  (re-search-forward "\\=#[<|]" nil t)
+  (re-search-forward "\\=#[-+.<|]" nil t)
   (when (and (looking-at "@") (eq (char-before) ?\,))
     (forward-char)))