diff options
| -rw-r--r-- | lisp/isearch.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index ee5660309df..f753a5377ca 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -2844,7 +2844,8 @@ The command accepts Unicode names like \"smiling face\" or | |||
| 2844 | (isearch-search) | 2844 | (isearch-search) |
| 2845 | (when (and (memq isearch-wrap-pause '(no no-ding)) | 2845 | (when (and (memq isearch-wrap-pause '(no no-ding)) |
| 2846 | (not isearch-success)) | 2846 | (not isearch-success)) |
| 2847 | (isearch-repeat (if isearch-forward 'forward 'backward))))) | 2847 | (let ((isearch-cmds isearch-cmds)) |
| 2848 | (isearch-repeat (if isearch-forward 'forward 'backward)))))) | ||
| 2848 | (isearch-push-state) | 2849 | (isearch-push-state) |
| 2849 | (if isearch-op-fun (funcall isearch-op-fun)) | 2850 | (if isearch-op-fun (funcall isearch-op-fun)) |
| 2850 | (isearch-update)) | 2851 | (isearch-update)) |