diff options
author | Richard M. Stallman <[email protected]> | 1995-04-24 15:27:35 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1995-04-24 15:27:35 +0000 |
commit | fd89878d165082779c227e68b7a25e93f6882efc (patch) | |
tree | 1df055a19cc2834ce268d87ec64fbaae56fa7561 /lisp/isearch.el | |
parent | 1f50590a16da70a29fd97ea684112aa82a1e2673 (diff) |
(isearch-update-ring): Use STRING arg, not isearch-ring.
Diffstat (limited to 'lisp/isearch.el')
-rw-r--r-- | lisp/isearch.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 8e593d80d7..cab2d090b7 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <[email protected]> -;; |$Date: 1995/04/07 01:23:30 $|$Revision: 1.87 $ +;; |$Date: 1995/04/14 17:59:59 $|$Revision: 1.88 $ ;; This file is part of GNU Emacs. @@ -595,17 +595,17 @@ is treated as a regexp. See \\[isearch-forward] for more info." REGEXP says which ring to use." (if regexp (if (or (null regexp-search-ring) - (not (string= isearch-string (car regexp-search-ring)))) + (not (string= string (car regexp-search-ring)))) (progn (setq regexp-search-ring - (cons isearch-string regexp-search-ring)) + (cons string regexp-search-ring)) (if (> (length regexp-search-ring) regexp-search-ring-max) (setcdr (nthcdr (1- search-ring-max) regexp-search-ring) nil)))) (if (or (null search-ring) - (not (string= isearch-string (car search-ring)))) + (not (string= string (car search-ring)))) (progn - (setq search-ring (cons isearch-string search-ring)) + (setq search-ring (cons string search-ring)) (if (> (length search-ring) search-ring-max) (setcdr (nthcdr (1- search-ring-max) search-ring) nil)))))) |