diff options
| author | Artur Malabarba | 2016-03-03 19:03:16 -0300 |
|---|---|---|
| committer | Artur Malabarba | 2016-03-03 19:03:16 -0300 |
| commit | 2e78353fabe11c768627c50e48375de5693ce7ee (patch) | |
| tree | da9933f9e6cff9c75230af13f692af0624dc49d1 | |
| parent | 66d2717888f83d07067a131d9ef5c2b7a702bf82 (diff) | |
| download | emacs-2e78353fabe11c768627c50e48375de5693ce7ee.tar.gz emacs-2e78353fabe11c768627c50e48375de5693ce7ee.zip | |
* lisp/isearch.el (isearch-define-mode-toggle): Fix toggling logic
| -rw-r--r-- | lisp/isearch.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 2efa4c7e8ef..c91ccfad27d 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -1528,7 +1528,9 @@ The command then executes BODY and updates the isearch prompt." | |||
| 1528 | (if docstring (concat "\n" docstring) "")) | 1528 | (if docstring (concat "\n" docstring) "")) |
| 1529 | (interactive) | 1529 | (interactive) |
| 1530 | ,@(when function | 1530 | ,@(when function |
| 1531 | `((setq isearch-regexp-function #',function) | 1531 | `((setq isearch-regexp-function |
| 1532 | (unless (eq isearch-regexp-function #',function) | ||
| 1533 | #',function)) | ||
| 1532 | (setq isearch-regexp nil))) | 1534 | (setq isearch-regexp nil))) |
| 1533 | ,@body | 1535 | ,@body |
| 1534 | (setq isearch-success t isearch-adjusted t) | 1536 | (setq isearch-success t isearch-adjusted t) |