diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/comint.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 7bac30598f4..a01ecd3dbf7 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -387,8 +387,7 @@ See also `completion-at-point'. This is a good thing to set in mode hooks.") -(defvar comint-input-filter - (function (lambda (str) (not (string-match "\\`\\s *\\'" str)))) +(defvar comint-input-filter #'comint-nonblank-p "Predicate for filtering additions to input history. Takes one argument, the input. If non-nil, the input may be saved on the input history list. Default is to save anything that isn't all whitespace.") @@ -857,6 +856,10 @@ series of processes in the same Comint buffer. The hook (set-process-coding-system proc decoding encoding)) proc)) +(defun comint-nonblank-p (str) + "Return non-nil if STR contains non-whitespace syntax." + (not (string-match "\\`\\s *\\'" str))) + (defun comint-insert-input (event) "In a Comint buffer, set the current input to the previous input at point. If there is no previous input at point, run the command specified |