From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 30 May 1994 12:23:10 +0000 (+0000)
Subject: (comint-read-input-ring): Make regexp stricter.
X-Git-Tag: emacs-19.34~8097
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e485515b07b6284866689373db654007b631b6e2;p=emacs.git

(comint-read-input-ring): Make regexp stricter.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index cdf94394d4e..46a4be86c26 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -627,7 +627,7 @@ See also `comint-input-ignoredups' and `comint-write-input-ring'."
 	       (save-restriction
 		 (widen)
 		 (goto-char (point-min))
-		 (while (re-search-forward "^\\s *\\([^#].*\\)\\s *$" nil t)
+		 (while (re-search-forward "^[ \t]*\\([^#\n].*\\)[ \t]*$" nil t)
 		   (let ((history (buffer-substring (match-beginning 1)
 						    (match-end 1))))
 		     (if (or (null comint-input-ignoredups)