[slime-devel] Suggestion: slime-symbol-at-point

[Jan Rychter]

I found it confusing that slime-symbol-at-point doesn't really return
the symbol at point. An example:

  (defun install-package (source system packagename)...

Placing the point on the first "i" in the function name and pressing C-c
C-d returns the decription for defun, not install-package.

The following fixes it, but I keep scratching my head to understand why
the (skip-syntax-backward "-") was originally there -- I can't find a
purpose for it.

--J.

diff -c /home/jwr/Mail/.software/slime/slime.el /home/jwr/Mail/.software/slime/slime.el.original
--- /home/jwr/Mail/.software/slime/slime.el	2004-02-25 03:48:33.000000000 -0800
+++ /home/jwr/Mail/.software/slime/slime.el.original	2004-02-25 03:48:33.000000000 -0800
@@ -769,7 +769,6 @@
 (defun slime-symbol-at-point ()
   "Return the symbol at point, otherwise nil."
   (save-excursion
-    (skip-syntax-backward "-")
     (let ((string (thing-at-point 'symbol)))
       (if string (intern (substring-no-properties string)) nil))))
 
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 188 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/slime-devel/attachments/20040225/1c35493f/attachment.sig>