Fix paren bug.

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 6babf7887abaa4524ecd583fa59e961d064a9afa..de6b7f6321f951c9fb1d4fcdd1538c2436c16fb9 100644 (file)
--- 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