Write a named function

* lisp/comint.el (comint-nonblank-p): New function.
(comint-input-filter): Use it.

diff --git a/lisp/comint.el b/lisp/comint.el
index 7bac30598f4278c634ca3862720c3fc5f246c723..a01ecd3dbf79b4b208f723369e20ce864abe16a1 100644 (file)
--- 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