branch: elpa/popup
commit e452399db8bb0a8906c627f598eb8f0dcfca5572
Author: kostafey <kosta...@gmail.com>
Commit: Syohei YOSHIDA <syo...@gmail.com>
Add popup-isearch-yank.
---
popup.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/popup.el b/popup.el
index 0cf1756..b67a777 100644
--- a/popup.el
+++ b/popup.el
@@ -882,6 +882,7 @@ Pages up through POPUP."
(define-key map [left] 'popup-isearch-close)
(define-key map "\C-h" 'popup-isearch-delete)
(define-key map (kbd "DEL") 'popup-isearch-delete)
+ (define-key map (kbd "C-y") 'popup-isearch-yank)
map))
(defvar popup-menu-show-quick-help-function 'popup-menu-show-quick-help
@@ -990,6 +991,9 @@ HELP-DELAY is a delay of displaying helps."
((eq binding 'popup-isearch-delete)
(if (> (length pattern) 0)
(setq pattern (substring pattern 0 (1- (length
pattern))))))
+ ((eq binding 'popup-isearch-yank)
+ (popup-isearch-update popup filter (car kill-ring) callback)
+ (cl-return nil))
(t
(setq unread-command-events
(append (listify-key-sequence key)
unread-command-events))
