(vc-cvs-checkout): Fix bug that broke C-x v ~-style checkouts.

[bpt/emacs.git] / lisp / isearch-old.el

diff --git a/lisp/isearch-old.el b/lisp/isearch-old.el
index 1661979..ee7a1b0 100644 (file)
--- a/lisp/isearch-old.el
+++ b/lisp/isearch-old.el
@@ -2,11 +2,13 @@
 
 ;; 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
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +20,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 (defvar search-last-string "" "\
 Last string search for by a non-regexp search command.
 This does not include direct calls to the primitive search functions,
@@ -445,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