]> code.delx.au - gnu-emacs/blobdiff - lisp/isearch-old.el
(help-make-xrefs): Delete extraneous newlines at the end of the docstring.
[gnu-emacs] / lisp / isearch-old.el
index 570ddc1c973610f12cdb74da57518d913afe1332..ee7a1b0447610e07de6ead9af45fc3fadbad55fc 100644 (file)
@@ -1,10 +1,9 @@
 ;;; isearch.el --- incremental search commands
 
-;; Maintainer: FSF
-;; Last-Modified: 30 Jun 1992
-
 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc.
 
+;; Maintainer: FSF
+
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -450,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