# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 712289643 0
# Node ID 44ce50dadb7f9d12351d31315771121f9fd7a878
# Parent  72870fa245ce344f1d6347dfa3f7f05239ef487e
entered into RCS

diff -r 72870fa245ce -r 44ce50dadb7f lisp/=isearch-old.el
--- 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