summaryrefslogtreecommitdiff
path: root/elisp/geiser-edit.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-edit.el
parent41d54012368ca33461fe3e8668c2b0e3052af3b8 (diff)
downloadgeiser-guile-6e89d965f1b0a8329ddc012feb36fd43c591acbf.tar.gz
geiser-guile-6e89d965f1b0a8329ddc012feb36fd43c591acbf.tar.bz2
Separate commands for evaluation and compilation.
Diffstat (limited to 'elisp/geiser-edit.el')
-rw-r--r--elisp/geiser-edit.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-edit.el b/elisp/geiser-edit.el
index 5d6ca46..fad08b6 100644
--- a/elisp/geiser-edit.el
+++ b/elisp/geiser-edit.el
@@ -95,7 +95,7 @@
(let* ((symbol (geiser-completion--read-symbol "Edit symbol: "
nil
geiser-edit--symbol-history))
- (cmd `(:gs ((:ge symbol-location) ',symbol))))
+ (cmd `(:eval ((:ge symbol-location) ',symbol))))
(geiser-edit--try-edit symbol (geiser-eval--send/wait cmd))))
(defun geiser-edit-symbol-at-point (&optional arg)
@@ -104,7 +104,7 @@ With prefix, asks for the symbol to edit."
(interactive "P")
(let* ((symbol (or (and (not arg) (symbol-at-point))
(geiser-completion--read-symbol "Edit symbol: ")))
- (cmd `(:gs ((:ge symbol-location) ',symbol)))
+ (cmd `(:eval ((:ge symbol-location) ',symbol)))
(marker (point-marker)))
(geiser-edit--try-edit symbol (geiser-eval--send/wait cmd))
(when marker (ring-insert find-tag-marker-ring marker))))
@@ -119,7 +119,7 @@ With prefix, asks for the symbol to edit."
(defun geiser-edit-module (module)
"Asks for a module and opens it in a new buffer."
(interactive (list (geiser-completion--read-module)))
- (let ((cmd `(:gs ((:ge module-location) (quote (:scm ,module))))))
+ (let ((cmd `(:eval ((:ge module-location) (quote (:scm ,module))))))
(geiser-edit--try-edit module (geiser-eval--send/wait cmd))))