[slime-cvs] CVS slime

[alendvai]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv30005

Modified Files:
	slime.el 
Log Message:
FIX: slime-symbol-name-at-point for symbols like foo::|bar::baz|


--- /project/slime/cvsroot/slime/slime.el	2006/12/11 12:38:50	1.701
+++ /project/slime/cvsroot/slime/slime.el	2006/12/11 12:50:50	1.702
@@ -10657,7 +10657,7 @@
           (while (slime-point-moves-p 
                    (skip-syntax-backward "w_")
                    (when (eq (char-before) ?|)
-                     (backward-sexp)))))
+                     (backward-char)))))
     (when (eq (char-before) ?#) ; special case for things like "#<foo"
       (forward-char))))
 
@@ -10668,7 +10668,7 @@
            ;; | has the syntax as ", so we need to 
            ;; treat it manually rather than via syntax. 
            (when (looking-at "|")
-             (forward-sexp)))))
+             (forward-char)))))
 
 (put 'slime-symbol 'end-op 'slime-end-of-symbol)
 (put 'slime-symbol 'beginning-op 'slime-beginning-of-symbol)