# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 770300590 0
# Node ID 4f68024e4fb0e1e69d480a23ba12cd7d8d538fd5
# Parent  6191acd134b65b1465bad9c031b8ba3480041a7e
(comint-read-input-ring): Make regexp stricter.

diff -r 6191acd134b6 -r 4f68024e4fb0 lisp/comint.el
--- a/lisp/comint.el	Mon May 30 11:55:22 1994 +0000
+++ b/lisp/comint.el	Mon May 30 12:23:10 1994 +0000
@@ -627,7 +627,7 @@
 	       (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)