summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-10-23 01:09:27 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-10-23 01:09:27 +0200
commite72f7afb5fd8758cd0518d8c9b3a0dd966a9ef23 (patch)
tree8eddc04cdb6db7c0c3f9c042e99b1da9256376e6 /elisp
parentb5d77afab8fe99a4ff4b1e3658d678bf36d0a6b2 (diff)
downloadgeiser-e72f7afb5fd8758cd0518d8c9b3a0dd966a9ef23.tar.gz
geiser-e72f7afb5fd8758cd0518d8c9b3a0dd966a9ef23.tar.bz2
New custom var `geiser-repl-save-debugging-history-p'
This variable controls whether REPL command history should contain inputs during the debugger sessions (for schemes with such a thing, that is, for Guile).
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-repl.el12
1 files changed, 11 insertions, 1 deletions
diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index b586efa..449a136 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -65,6 +65,15 @@ implementation name gets appended to it."
:type 'boolean
:group 'geiser-repl)
+(geiser-custom--defcustom geiser-repl-save-debugging-history-p nil
+ "Whether to skip debugging input in REPL history.
+
+By default, REPL interactions while scheme is in the debugger are
+not added to the REPL command history. Set this variable to t to
+change that."
+ :type 'boolean
+ :group 'geiser-repl)
+
(geiser-custom--defcustom geiser-repl-autodoc-p t
"Whether to enable `geiser-autodoc-mode' in the REPL by default."
:type 'boolean
@@ -441,7 +450,8 @@ module command as a string")
(remove (current-buffer) geiser-repl--closed-repls)))
(defun geiser-repl--input-filter (str)
- (not (or (geiser-repl--is-debugging)
+ (not (or (and (not geiser-repl-save-debugging-history-p)
+ (geiser-repl--is-debugging))
(string-match "^\\s *$" str)
(string-match "^,quit *$" str))))