[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 20db480: * lisp/isearch.el (isearch-pre-command-hoo
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master 20db480: * lisp/isearch.el (isearch-pre-command-hook): Replace cl-lib function. |
Date: |
Tue, 20 Mar 2018 17:15:47 -0400 (EDT) |
branch: master
commit 20db48089b660a27c04d05b3d3931d5af65e404f
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
* lisp/isearch.el (isearch-pre-command-hook): Replace cl-lib function.
As a preloaded file, isearch.el cannot require cl-lib at runtime.
---
lisp/isearch.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/isearch.el b/lisp/isearch.el
index 84b121a..aa6acfd 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 20db480: * lisp/isearch.el (isearch-pre-command-hook): Replace cl-lib function.,
Glenn Morris <=