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

instead of the temporary one.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 33a52985550af72a0e4bce1a8f6cb3475f32f2fb..670175f419439392ecf122478ef8b0f95bfffad3 100644 (file)
--- 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 eeb3e720d060ec409c6fc4b2c8d4be1fc5218c7c..19ce168a02e6c2e26248d05e13b84e559df0cd04 100644 (file)
--- 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)