From 31acd4251cff40489a56ad34585b27599711ef18 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 4 Oct 2001 14:19:07 +0000 Subject: [PATCH] Fix paren bug. --- lisp/isearch.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 6babf7887ab..de6b7f6321f 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -943,17 +943,17 @@ Use `isearch-exit' to quit without signaling." ;; Utility for isearch-repeat-forward and -backward. (if (eq isearch-forward (eq direction 'forward)) ;; C-s in forward or C-r in reverse. - (when (equal isearch-string "") + (if (equal isearch-string "") ;; If search string is empty, use last one. - (setq isearch-string - (or (if isearch-regexp - (car regexp-search-ring) - (car search-ring)) - "") - isearch-message - (mapconcat 'isearch-text-char-description - isearch-string "") - isearch-case-fold-search isearch-last-case-fold-search) + (setq isearch-string + (or (if isearch-regexp + (car regexp-search-ring) + (car search-ring)) + "") + isearch-message + (mapconcat 'isearch-text-char-description + isearch-string "") + isearch-case-fold-search isearch-last-case-fold-search) ;; If already have what to search for, repeat it. (or isearch-success (progn -- 2.39.5