branch: elpa/popup
commit 1f817d66640e579026b1e54078be644d068aec9d
Author: Hiroaki Otsu <[email protected]>
Commit: Hiroaki Otsu <[email protected]>
fixed deficient help-delay
---
popup.el | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/popup.el b/popup.el
index 7767cb0..1fb2511 100644
--- a/popup.el
+++ b/popup.el
@@ -1192,7 +1192,7 @@ PROMPT is a prompt string when reading events during
event loop."
:help-delay help-delay)
(keyboard-quit))
(setq key (popup-menu-read-key-sequence keymap prompt help-delay))
- (setq binding (lookup-key keymap key))
+ (setq binding (ignore-errors (lookup-key keymap key)))
(cond
((or (null key) (zerop (length key)))
(unless (funcall popup-menu-show-quick-help-function menu nil :prompt
prompt)
@@ -1218,7 +1218,8 @@ PROMPT is a prompt string when reading events during
event loop."
:margin-right
(popup-margin-right menu)
:scroll-bar (popup-scroll-bar
menu)
:parent menu
- :parent-offset index))
+ :parent-offset index
+ :help-delay help-delay))
(and it (cl-return it)))
(if (eq binding 'popup-select)
(cl-return (popup-item-value-or-self item))))))
