diff options
| author | Glenn Morris | 2018-03-20 17:15:39 -0400 |
|---|---|---|
| committer | Glenn Morris | 2018-03-20 17:15:39 -0400 |
| commit | 20db48089b660a27c04d05b3d3931d5af65e404f (patch) | |
| tree | 44167596a3e2f95b3701fad801914fd3ab0d7aa0 | |
| parent | 16559146f9db1b36d5e8b6c92edb5bb36fafdb85 (diff) | |
| download | emacs-20db48089b660a27c04d05b3d3931d5af65e404f.tar.gz emacs-20db48089b660a27c04d05b3d3931d5af65e404f.zip | |
* lisp/isearch.el (isearch-pre-command-hook): Replace cl-lib function.
As a preloaded file, isearch.el cannot require cl-lib at runtime.
| -rw-r--r-- | lisp/isearch.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index 84b121af9ef..aa6acfd0c82 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -2441,7 +2441,7 @@ See more for options in `search-exit-option'." | |||
| 2441 | (setq isearch-pre-move-point (point))) | 2441 | (setq isearch-pre-move-point (point))) |
| 2442 | ;; Append control characters to the search string | 2442 | ;; Append control characters to the search string |
| 2443 | ((eq search-exit-option 'append) | 2443 | ((eq search-exit-option 'append) |
| 2444 | (when (cl-every #'characterp key) | 2444 | (unless (memq nil (mapcar (lambda (k) (characterp k)) key)) |
| 2445 | (isearch-process-search-string key key)) | 2445 | (isearch-process-search-string key key)) |
| 2446 | (setq this-command 'ignore)) | 2446 | (setq this-command 'ignore)) |
| 2447 | ;; Other characters terminate the search and are then executed normally. | 2447 | ;; Other characters terminate the search and are then executed normally. |