From d695bd172e89b29d811d42b227f30e4db29abf54 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 23 Feb 2007 19:22:09 +0000 Subject: [PATCH] (comint-read-input-ring): Use comint-input-ring-size from the comint buffer instead of the temporary one. --- lisp/ChangeLog | 5 +++++ lisp/comint.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * 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 * 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) -- 2.39.5