changeset 888:44ce50dadb7f

entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Tue, 28 Jul 1992 02:14:03 +0000
parents 72870fa245ce
children b2fef2e0c761
files lisp/=isearch-old.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=isearch-old.el	Mon Jul 27 21:23:12 1992 +0000
+++ b/lisp/=isearch-old.el	Tue Jul 28 02:14:03 1992 +0000
@@ -449,7 +449,7 @@
 	      (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