* lisp/isearch.el (isearch-pre-command-hook): Replace cl-lib function.

As a preloaded file, isearch.el cannot require cl-lib at runtime.
This commit is contained in:
Glenn Morris 2018-03-20 17:15:39 -04:00
parent 16559146f9
commit 20db48089b

View file

@ -2441,7 +2441,7 @@ See more for options in `search-exit-option'."
(setq isearch-pre-move-point (point)))
;; Append control characters to the search string
((eq search-exit-option 'append)
(when (cl-every #'characterp key)
(unless (memq nil (mapcar (lambda (k) (characterp k)) key))
(isearch-process-search-string key key))
(setq this-command 'ignore))
;; Other characters terminate the search and are then executed normally.