From b30cc842ed1a0cab0b6e68375133820478ba12bd Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Fri, 26 Nov 2010 21:52:31 +0100 Subject: Remove unnecessary calls to symbol-at-point ... which interns the symbol in the global obarray: rather unfriendly. We still need to remove a few calls to that beast, and avoid intern in the scheme reader. --- elisp/geiser-base.el | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'elisp/geiser-base.el') diff --git a/elisp/geiser-base.el b/elisp/geiser-base.el index 41fb6fc..65ab061 100644 --- a/elisp/geiser-base.el +++ b/elisp/geiser-base.el @@ -70,6 +70,10 @@ (dolist (e lst (nreverse result)) (unless (member e result) (push e result))))) +(defsubst geiser--symbol-at-point () + (let ((thing (thing-at-point 'symbol))) + (and thing (make-symbol thing)))) + (provide 'geiser-base) ;;; geiser-base.el ends here -- cgit v1.2.3