diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-10-23 01:09:27 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-10-23 01:09:27 +0200 |
| commit | e72f7afb5fd8758cd0518d8c9b3a0dd966a9ef23 (patch) | |
| tree | 8eddc04cdb6db7c0c3f9c042e99b1da9256376e6 /elisp | |
| parent | b5d77afab8fe99a4ff4b1e3658d678bf36d0a6b2 (diff) | |
| download | geiser-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.el | 12 |
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)))) |