diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-04-24 15:27:35 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-04-24 15:27:35 +0000 |
commit | cf4df3713ef1d6f406bcdb9db71fdfe5579eca2a (patch) | |
tree | c0eebd395e72fb244608b77c91d6531660bfe91b /lisp/isearch.el | |
parent | cc16ef145678951a2c9f6a2318e6ebec5ede2462 (diff) | |
download | emacs-cf4df3713ef1d6f406bcdb9db71fdfe5579eca2a.tar.gz |
(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 8e593d80d73..cab2d090b73 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -4,7 +4,7 @@ ;; Author: Daniel LaLiberte <liberte@cs.uiuc.edu> -;; |$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)))))) |