summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.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-repl.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-repl.el')
-rw-r--r--elisp/geiser-repl.el10
1 files changed, 5 insertions, 5 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 7c89df2..b9c47f5 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -520,11 +520,11 @@ buffer."
(geiser-menu--defmenu repl geiser-repl-mode-map
("Complete symbol" ((kbd "M-TAB"))
- geiser-repl--tab :enable (symbol-at-point))
+ geiser-repl--tab :enable (geiser--symbol-at-point))
("Complete module name" ((kbd "C-.") (kbd "M-`"))
- geiser-completion--complete-module :enable (symbol-at-point))
+ geiser-completion--complete-module :enable (geiser--symbol-at-point))
("Edit symbol" "\M-." geiser-edit-symbol-at-point
- :enable (symbol-at-point))
+ :enable (geiser--symbol-at-point))
--
("Switch to module..." "\C-c\C-m" switch-to-geiser-module)
("Import module..." "\C-c\C-i" geiser-repl-import-module)
@@ -539,9 +539,9 @@ buffer."
(mode "Autodoc mode" ("\C-c\C-da" "\C-c\C-d\C-a") geiser-autodoc-mode)
("Symbol documentation" ("\C-c\C-dd" "\C-c\C-d\C-d")
geiser-doc-symbol-at-point
- "Documentation for symbol at point" :enable (symbol-at-point))
+ "Documentation for symbol at point" :enable (geiser--symbol-at-point))
("Module documentation" ("\C-c\C-dm" "\C-c\C-d\C-m") geiser-repl--doc-module
- "Documentation for module at point" :enable (symbol-at-point))
+ "Documentation for module at point" :enable (geiser--symbol-at-point))
--
("Kill Scheme interpreter" "\C-c\C-q" geiser-repl-exit
:enable (geiser-repl--live-p))