(comint-read-input-ring): Use comint-input-ring-size from the comint buffer

instead of the temporary one.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33a52985550..670175f4194 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-23  Andreas Seltenreich  <uwi7@rz.uni-karlsruhe.de>
+
+        * comint.el (comint-read-input-ring): Use comint-input-ring-size
+        from the comint buffer instead of the temporary one.
+
 2007-02-23  David Reitter <david.reitter@gmail.com>
 
         * cus-edit.el (custom-save-all): Canonicalize custom-file before
diff --git a/lisp/comint.el b/lisp/comint.el
index eeb3e720d06..19ce168a02e 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -896,7 +896,7 @@ See also `comint-input-ignoredups' and `comint-write-input-ring'."
                  ;; Watch for those date stamps in history files!
                  (goto-char (point-max))
                  (let (start end history)
-                   (while (and (< count comint-input-ring-size)
+                   (while (and (< count 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)