summaryrefslogtreecommitdiff
path: root/elisp/geiser-repl.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-09-08 23:15:36 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-09-08 23:15:36 +0200
commitffd2cea60f6e7d8d0cf9a1fda6912b2003b92855 (patch)
tree0373cf5dba20305a604b01057d8f5ee225a354f7 /elisp/geiser-repl.el
parentd708438236cac2ee3c0a63f06eded5d9a6f38a9f (diff)
downloadgeiser-chez-ffd2cea60f6e7d8d0cf9a1fda6912b2003b92855.tar.gz
geiser-chez-ffd2cea60f6e7d8d0cf9a1fda6912b2003b92855.tar.bz2
bug fix: make C-c C-z behave with run-geiser
The nice go-back-to-previous-scheme-buffer behaviour of C-c C-z wasn't working when the jump from a scheme file to the REPL was initiated via run-geiser. Thanks, Marijn.
Diffstat (limited to 'elisp/geiser-repl.el')
-rw-r--r--elisp/geiser-repl.el19
1 files changed, 14 insertions, 5 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index d2249ae..7ffd1be 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -598,7 +598,9 @@ buffer."
"Start a new Geiser REPL."
(interactive
(list (geiser-repl--get-impl "Start Geiser for scheme implementation: ")))
- (geiser-repl--start-repl impl nil))
+ (let ((buffer (current-buffer)))
+ (geiser-repl--start-repl impl nil)
+ (geiser-repl--maybe-remember-scm-buffer buffer)))
(defalias 'geiser 'run-geiser)
@@ -606,12 +608,20 @@ buffer."
"Start a new Geiser REPL connected to a remote Scheme process."
(interactive
(list (geiser-repl--get-impl "Connect to Scheme implementation: ")))
- (geiser-repl--start-repl impl
- (geiser-repl--read-address host port)))
+ (let ((buffer (current-buffer)))
+ (geiser-repl--start-repl impl
+ (geiser-repl--read-address host port))
+ (geiser-repl--maybe-remember-scm-buffer buffer)))
(make-variable-buffer-local
(defvar geiser-repl--last-scm-buffer nil))
+(defun geiser-repl--maybe-remember-scm-buffer (buffer)
+ (when (and buffer
+ (eq 'scheme-mode (with-current-buffer buffer major-mode))
+ (eq major-mode 'geiser-repl-mode))
+ (setq geiser-repl--last-scm-buffer buffer)))
+
(defun switch-to-geiser (&optional ask impl buffer)
"Switch to running Geiser REPL.
With prefix argument, ask for which one if more than one is running.
@@ -635,8 +645,7 @@ If no REPL is running, execute `run-geiser' to start a fresh one."
(repl (geiser-repl--switch-to-buffer repl))
((geiser-repl--remote-p) (geiser-connect impl))
(t (run-geiser impl)))
- (when (and buffer (eq major-mode 'geiser-repl-mode))
- (setq geiser-repl--last-scm-buffer buffer))))
+ (geiser-repl--maybe-remember-scm-buffer buffer)))
(defun switch-to-geiser-module (&optional module buffer)
"Switch to running Geiser REPL and try to enter a given module."