1 files changed, 5 insertions, 1 deletions

diff --git a/lisp/isearch.el b/lisp/isearch.el
index c115193d394..036a0acf373 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1055,7 +1055,11 @@ If first char entered is \\[isearch-yank-word-or-char], then do word search inst
                        (isearch-message-prefix nil nil isearch-nonincremental)
                        isearch-string
                        minibuffer-local-isearch-map nil
-                       (if isearch-regexp 'regexp-search-ring 'search-ring)
+                       (if isearch-regexp
+                           (cons 'regexp-search-ring
+                                 (1+ (or regexp-search-ring-yank-pointer -1)))
+                         (cons 'search-ring
+                               (1+ (or search-ring-yank-pointer -1))))
                        nil t)
                       isearch-new-message
                       (mapconcat 'isearch-text-char-description