diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-07 04:26:08 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-03-07 04:26:08 +0100 |
| commit | c60416ef24f5d97feba85674198932ffda5fdba5 (patch) | |
| tree | 81b4d42e41cdc336142fb230d2af8f469538e04f /elisp | |
| parent | 1492336888d8eb9bf959b36e5e84190b8f1ec79d (diff) | |
| download | geiser-chez-c60416ef24f5d97feba85674198932ffda5fdba5.tar.gz geiser-chez-c60416ef24f5d97feba85674198932ffda5fdba5.tar.bz2 | |
Bug fix: remember debugger settings in geiser-repl-nuke.
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-impl.el | 9 | ||||
| -rw-r--r-- | elisp/geiser-repl.el | 3 |
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: |