summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-07 04:26:08 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-03-07 04:26:08 +0100
commitc60416ef24f5d97feba85674198932ffda5fdba5 (patch)
tree81b4d42e41cdc336142fb230d2af8f469538e04f
parent1492336888d8eb9bf959b36e5e84190b8f1ec79d (diff)
downloadgeiser-chez-c60416ef24f5d97feba85674198932ffda5fdba5.tar.gz
geiser-chez-c60416ef24f5d97feba85674198932ffda5fdba5.tar.bz2
Bug fix: remember debugger settings in geiser-repl-nuke.
-rw-r--r--elisp/geiser-impl.el9
-rw-r--r--elisp/geiser-repl.el3
2 files changed, 8 insertions, 4 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index 3902b09..e5bff0a 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -143,7 +143,8 @@ determine its scheme flavour."
(let ((runner (intern (format "run-%s" name)))
(switcher (intern (format "switch-to-%s" name)))
(runner-doc (format "Start a new %s REPL." name))
- (switcher-doc (format "Switch to a running %s REPL, or start one." name))
+ (switcher-doc (format "Switch to a running %s REPL, or start one."
+ name))
(impl-rx (format "\\.\\(%s\\)\\.s\\(l?s|cm\\)$" name))
(ask (make-symbol "ask")))
`(progn
@@ -161,7 +162,8 @@ determine its scheme flavour."
(provide ',(geiser-impl--feature name))))))
(defun geiser-impl--add-to-alist (kind what impl &optional append)
- (add-to-list 'geiser-implementations-alist (list (list kind what) impl) append))
+ (add-to-list 'geiser-implementations-alist
+ (list (list kind what) impl) append))
;;; Trying to guess the scheme implementation:
@@ -215,7 +217,8 @@ buffer contains Scheme code of the given implementation.")
(defsubst geiser-impl--registered-method (impl method fallback)
(let ((m (geiser-impl--method method impl)))
(if (fboundp m) m
- (or fallback (error "%s not defined for %s implementation" method impl)))))
+ (or fallback (error "%s not defined for %s implementation"
+ method impl)))))
(defsubst geiser-impl--registered-value (impl method fallback)
(let ((m (geiser-impl--method method impl)))
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 4be3ce5..2afdcef 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -234,7 +234,8 @@ If no REPL is running, execute `run-geiser' to start a fresh one."
(comint-kill-region comint-last-input-start (point))
(comint-redirect-cleanup)
(geiser-con--setup-connection (current-buffer)
- comint-prompt-regexp))
+ comint-prompt-regexp
+ geiser-con--debugging-prompt-regexp))
;;; REPL history and clean-up: