[slime-cvs] CVS slime

[alendvai]

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

Modified Files:
	slime.el 
Log Message:
FIX: slime-sexp-at-point for foo::|bar::baz|


--- /project/slime/cvsroot/slime/slime.el	2006/12/19 10:36:49	1.715
+++ /project/slime/cvsroot/slime/slime.el	2006/12/19 10:38:24	1.716
@@ -10769,7 +10769,8 @@
 
 (defun slime-sexp-at-point ()
   "Return the sexp at point as a string, otherwise nil."
-  (let ((string (thing-at-point 'sexp)))
+  (let ((string (or (slime-symbol-name-at-point)
+                    (thing-at-point 'sexp))))
     (if string (substring-no-properties string) nil)))
 
 (defun slime-sexp-at-point-or-error ()