Commit e485515b authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 47d105b0
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment