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-repl.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'elisp/geiser-repl.el') 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)) -- cgit v1.2.3