From 775b81c9be65b71a1d3090d5b80398a82ffc54f2 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-doc.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'elisp/geiser-doc.el') diff --git a/elisp/geiser-doc.el b/elisp/geiser-doc.el index 19e2075..e975484 100644 --- a/elisp/geiser-doc.el +++ b/elisp/geiser-doc.el @@ -310,9 +310,9 @@ help (e.g. browse an HTML page) implementing this method.") "Get docstring for symbol at point. With prefix argument, ask for symbol (with completion)." (interactive "P") - (let ((symbol (or (and (not arg) (symbol-at-point)) - (geiser-completion--read-symbol "Symbol: " - (symbol-at-point))))) + (let ((symbol (or (and (not arg) (geiser--symbol-at-point)) + (geiser-completion--read-symbol + "Symbol: " (geiser--symbol-at-point))))) (when symbol (geiser-doc-symbol symbol)))) (defun geiser-doc-look-up-manual (&optional arg) @@ -321,7 +321,7 @@ With prefix argument, ask for the lookup symbol (with completion)." (interactive "P") (unless (geiser-doc--manual-available-p) (error "No manual available")) - (let ((symbol (or (and (not arg) (symbol-at-point)) + (let ((symbol (or (and (not arg) (geiser--symbol-at-point)) (geiser-completion--read-symbol "Symbol: ")))) (geiser-doc--external-help geiser-impl--implementation symbol @@ -453,7 +453,7 @@ With prefix, the current page is deleted from history." ("Refresh" ("g" "r") geiser-doc-refresh "Refresh current page") -- ("Edit symbol" ("." "\M-.") geiser-doc-edit-symbol-at-point - :enable (symbol-at-point)) + :enable (geiser--symbol-at-point)) -- ("Kill item" "k" geiser-doc-kill-page "Kill this page") ("Clear history" "c" geiser-doc-clean-history) -- cgit v1.2.3