From fd89878d165082779c227e68b7a25e93f6882efc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 24 Apr 1995 15:27:35 +0000 Subject: [PATCH] (isearch-update-ring): Use STRING arg, not isearch-ring. --- lisp/isearch.el | 10 +++++----- 1 file 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 -;; |$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)))))) -- 2.39.5