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))))
Jan Rychter jan@rychter.com writes:
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.
It was there to skip backwards across whitespace. I think that's quite useful, C-h f does that to. But of course it failed if point was immediately before a symbol. Should be fixed in CVS. Thanks for the report.
Helmut.
"Helmut" == Helmut Eller e9626484@stud3.tuwien.ac.at writes:
Helmut> Jan Rychter jan@rychter.com writes:
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.
Helmut> It was there to skip backwards across whitespace. I think Helmut> that's quite useful, C-h f does that to.
Well, I couldn't quite figure out why that's helpful.
Helmut> But of course it failed if point was immediately before a Helmut> symbol. Should be fixed in CVS. Thanks for the report.
Works much better now, thanks!
--J.
-
Helmut Eller -
Jan Rychter