summaryrefslogtreecommitdiff
path: root/elisp/geiser-doc.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-26 21:52:31 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-26 21:52:31 +0100
commit775b81c9be65b71a1d3090d5b80398a82ffc54f2 (patch)
tree48024b94444baf6edaaab5d1ffc4e862c0e6ddfb /elisp/geiser-doc.el
parent0233627d20dd483745c8386b2eb5ff26b355f854 (diff)
downloadgeiser-chez-775b81c9be65b71a1d3090d5b80398a82ffc54f2.tar.gz
geiser-chez-775b81c9be65b71a1d3090d5b80398a82ffc54f2.tar.bz2
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.
Diffstat (limited to 'elisp/geiser-doc.el')
-rw-r--r--elisp/geiser-doc.el10
1 files changed, 5 insertions, 5 deletions
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)