# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 971880158 0
# Node ID 69b2744032ceb38c88dcc5e7facc61c77a6cb291
# Parent  1025b13bfe711331c8cb12371f95307d74c17975
(comint-read-input-ring): Bugfix such that the first
and the last entry of the input ring file are not lost.

diff -r 1025b13bfe71 -r 69b2744032ce lisp/comint.el
--- a/lisp/comint.el	Wed Oct 18 14:38:55 2000 +0000
+++ b/lisp/comint.el	Wed Oct 18 14:42:38 2000 +0000
@@ -838,22 +838,21 @@
 		 ;; Save restriction in case file is already visited...
 		 ;; Watch for those date stamps in history files!
 		 (goto-char (point-max))
-		 (while (and (< count size)
-			     (re-search-backward "^[ \t]*\\([^#\n].*\\)[ \t]*$"
-						 nil t))
-	       (let (start end history)
-		 (while (and (< count comint-input-ring-size)
-			     (re-search-backward comint-input-ring-separator nil t)
-			     (setq end (match-beginning 0))
-			     (re-search-backward comint-input-ring-separator nil t)
-			     (setq start (match-end 0))
-			     (setq history (buffer-substring start end))
-			     (goto-char start))
-		   (if (or (null comint-input-ignoredups)
-			   (ring-empty-p ring)
-			   (not (string-equal (ring-ref ring 0) history)))
-		       (ring-insert-at-beginning ring history)))
-		 (setq count (1+ count)))))
+		 (let (start end history)
+		   (while (and (< count comint-input-ring-size)
+			       (re-search-backward comint-input-ring-separator nil t)
+			       (setq end (match-beginning 0)))
+		     (if (re-search-backward comint-input-ring-separator nil t)
+			 (setq start (match-end 0))
+		       (setq start (point-min)))
+		     (setq history (buffer-substring start end))
+		     (goto-char start)
+		     (if (or (null comint-input-ignoredups)
+			     (ring-empty-p ring)
+			     (not (string-equal (ring-ref ring 0) history)))
+			 (progn
+			   (ring-insert-at-beginning ring history)
+			   (setq count (1+ count)))))))
 	     (kill-buffer history-buf))
 	   (setq comint-input-ring ring
 		 comint-input-ring-index nil)))))