From 50f4e7e349693dfb72e4dba23ec69efdb90b7eab Mon Sep 17 00:00:00 2001 From: Liu Hui Date: Tue, 16 Jul 2024 18:05:46 +0800 Subject: [PATCH] * lisp/comint.el (comint-read-input-ring): Fix ring size. --- lisp/comint.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/comint.el b/lisp/comint.el index 29d2c429717..35b18edec66 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -1060,6 +1060,7 @@ comint-read-input-ring (ring-size (min 1500 comint-input-ring-size)) (ring (make-ring ring-size)) ;; Use possibly buffer-local values of these variables. + (ring-max-size comint-input-ring-size) (ring-separator comint-input-ring-separator) (ring-file-prefix comint-input-ring-file-prefix) (history-ignore comint-input-history-ignore) @@ -1070,7 +1071,7 @@ comint-read-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 ring-max-size) (re-search-backward ring-separator nil t) (setq end (match-beginning 0))) (goto-char (if (re-search-backward ring-separator nil t) @@ -1088,7 +1089,7 @@ comint-read-input-ring (not (string-equal (ring-ref ring 0) history)))) (when (= count ring-size) - (ring-extend ring (min (- comint-input-ring-size ring-size) + (ring-extend ring (min (- ring-max-size ring-size) ring-size)) (setq ring-size (ring-size ring))) (ring-insert-at-beginning ring history) -- 2.25.1