aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorGlenn Morris2018-03-20 17:15:39 -0400
committerGlenn Morris2018-03-20 17:15:39 -0400
commit20db48089b660a27c04d05b3d3931d5af65e404f (patch)
tree44167596a3e2f95b3701fad801914fd3ab0d7aa0
parent16559146f9db1b36d5e8b6c92edb5bb36fafdb85 (diff)
downloademacs-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.el2
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.