From 0cfe3ee457e010816f5f85ee9d4a362f8b9f045c Mon Sep 17 00:00:00 2001
From: Mark Oteiza <mvoteiza@udel.edu>
Date: Wed, 15 Mar 2017 01:12:48 -0400
Subject: Write a named function

* lisp/comint.el (comint-nonblank-p): New function.
(comint-input-filter): Use it.
---
 lisp/comint.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lisp/comint.el')

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
-- 
cgit v1.2.3