From: Glenn Morris <rgm@gnu.org>
Date: Tue, 20 Mar 2018 21:15:39 +0000 (-0400)
Subject: * lisp/isearch.el (isearch-pre-command-hook): Replace cl-lib function.
X-Git-Tag: emacs-27.0.90~5445
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=20db48089b660a27c04d05b3d3931d5af65e404f;p=emacs.git

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

As a preloaded file, isearch.el cannot require cl-lib at runtime.
---

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'."
       (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.