summaryrefslogtreecommitdiff
path: root/elisp/geiser-completion.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-17 00:44:11 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-17 00:44:11 +0100
commit6e89d965f1b0a8329ddc012feb36fd43c591acbf (patch)
treefe01c5fd6bc286dc3f360ec5a90338619a5f6c1d /elisp/geiser-completion.el
parent41d54012368ca33461fe3e8668c2b0e3052af3b8 (diff)
downloadgeiser-chez-6e89d965f1b0a8329ddc012feb36fd43c591acbf.tar.gz
geiser-chez-6e89d965f1b0a8329ddc012feb36fd43c591acbf.tar.bz2
Separate commands for evaluation and compilation.
Diffstat (limited to 'elisp/geiser-completion.el')
-rw-r--r--elisp/geiser-completion.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 22b36a1..fd22044 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -145,10 +145,10 @@ terminates a current completion."
;;; Completion functionality:
(defsubst geiser-completion--symbol-list (prefix)
- (geiser-eval--send/result `(:gs ((:ge completions) ,prefix))))
+ (geiser-eval--send/result `(:eval ((:ge completions) ,prefix))))
(defsubst geiser-completion--module-list ()
- (geiser-eval--send/result '(:gs ((:ge all-modules)))))
+ (geiser-eval--send/result '(:eval ((:ge all-modules)))))
(defvar geiser-completion--symbol-list-func
(completion-table-dynamic 'geiser-completion--symbol-list))
@@ -178,7 +178,7 @@ terminates a current completion."
(completing-read (or prompt "Module name: ")
(geiser-completion--module-list)
nil nil
- (or default (geiser-syntax--buffer-module))
+ (or default (format "%s" (or (geiser-syntax--buffer-module) "(")))
(or history geiser-completion--module-history))))
(defun geiser--respecting-message (format &rest format-args)