From 56dc48ff27aead1d92b44293bcffacb1d429c36a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 28 Jul 1992 02:14:03 +0000 Subject: entered into RCS --- lisp/isearch-old.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/isearch-old.el b/lisp/isearch-old.el index a030ba4f4c9..ee7a1b04476 100644 --- a/lisp/isearch-old.el +++ b/lisp/isearch-old.el @@ -449,7 +449,7 @@ is treated as a regexp. See \\[isearch-forward] for more info." (setq regexp-search-ring (cons (cons search-string uppercase-flag) regexp-search-ring) regexp-search-ring-yank-pointer regexp-search-ring) - (if (> (length regexp-search-ring) regexp-search-ring-max) + (if (> (length regexp-search-ring) search-ring-max) (setcdr (nthcdr (1- search-ring-max) regexp-search-ring) nil))) (if (not (member search-string search-ring)) (progn -- cgit v1.2.1