Comint bug

[Andreas Seltenreich]

Hi,

comint-read-input-ring uses the default value of comint-input-ring-size
instead of the buffer-local one when reading the ring from disk.

Patch attached.

Thanks,
andreas

Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.10710
diff -c -0 -r1.10710 ChangeLog
*** ChangeLog   19 Feb 2007 19:42:10 -0000      1.10710
--- ChangeLog   20 Feb 2007 22:29:56 -0000
***************
*** 0 ****
--- 1,5 ----
+ 2007-02-20  Andreas Seltenreich  <address@hidden>
+ 
+       * comint.el (comint-read-input-ring): Use comint-input-ring-size
+       from the comint buffer instead of the temporary one.
+ 
Index: comint.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/comint.el,v
retrieving revision 1.357
diff -c -r1.357 comint.el
*** comint.el   31 Jan 2007 13:20:52 -0000      1.357
--- comint.el   20 Feb 2007 22:30:53 -0000
***************
*** 896,902 ****
                 ;; Watch for those date stamps in history files!
                 (goto-char (point-max))
                 (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)
--- 896,902 ----
                 ;; Watch for those date stamps in history files!
                 (goto-char (point-max))
                 (let (start end history)
!                  (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)