From: Mark Oteiza <mvoteiza@udel.edu>
Date: Wed, 15 Mar 2017 05:12:48 +0000 (-0400)
Subject: Write a named function
X-Git-Tag: emacs-26.0.90~566
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0cfe3ee457e010816f5f85ee9d4a362f8b9f045c;p=emacs.git

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 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