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-xref.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'elisp/geiser-xref.el') diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el index a93b7a8..661c625 100644 --- a/elisp/geiser-xref.el +++ b/elisp/geiser-xref.el @@ -104,8 +104,8 @@ (goto-char (point-min))) (defun geiser-xref--read-name (ask prompt) - (let ((name (or (and (not ask) (symbol-at-point)) - (read-string prompt nil nil (symbol-at-point))))) + (let ((name (or (and (not ask) (geiser--symbol-at-point)) + (read-string prompt nil nil (geiser--symbol-at-point))))) (and name (format "%s" name)))) (defun geiser-xref--fetch-xrefs (ask kind rkind proc) -- cgit v1.2.3