branch: elpa/popup
commit d70cff916adb18903bc73f9cc2ef381b075d2969
Merge: becfbdd 1510820
Author: Syohei YOSHIDA <syo...@gmail.com>
Commit: Syohei YOSHIDA <syo...@gmail.com>
Merge pull request #64 from aki2o/cascade-isearch
activate isearch in cascade menu
---
popup.el | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/popup.el b/popup.el
index 43262e8..877fbfc 100644
--- a/popup.el
+++ b/popup.el
@@ -887,6 +887,8 @@ Pages up through POPUP."
(let ((map (make-sparse-keymap)))
;(define-key map "\r" 'popup-isearch-done)
(define-key map "\C-g" 'popup-isearch-cancel)
+ (define-key map "\C-b" 'popup-isearch-close)
+ (define-key map [left] 'popup-isearch-close)
(define-key map "\C-h" 'popup-isearch-delete)
(define-key map (kbd "DEL") 'popup-isearch-delete)
map))
@@ -980,6 +982,11 @@ HELP-DELAY is a delay of displaying helps."
((eq binding 'popup-isearch-cancel)
(popup-isearch-update popup "" callback)
(cl-return t))
+ ((eq binding 'popup-isearch-close)
+ (popup-isearch-update popup "" callback)
+ (setq unread-command-events
+ (append (listify-key-sequence key)
unread-command-events))
+ (cl-return nil))
((eq binding 'popup-isearch-delete)
(if (> (length pattern) 0)
(setq pattern (substring pattern 0 (1- (length
pattern))))))
@@ -1219,7 +1226,11 @@ PROMPT is a prompt string when reading events during
event loop."
:scroll-bar (popup-scroll-bar
menu)
:parent menu
:parent-offset index
- :help-delay help-delay))
+ :help-delay help-delay
+ :isearch isearch
+ :isearch-cursor-color
isearch-cursor-color
+ :isearch-keymap isearch-keymap
+ :isearch-callback
isearch-callback))
(and it (cl-return it)))
(if (eq binding 'popup-select)
(cl-return (popup-item-value-or-self item))))))
