diff options
Diffstat (limited to 'keymap-popup.el')
| -rw-r--r-- | keymap-popup.el | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/keymap-popup.el b/keymap-popup.el index 0610799..f549258 100644 --- a/keymap-popup.el +++ b/keymap-popup.el @@ -688,14 +688,16 @@ Drops entries whose command has no binding." "Return a keep-pred for `set-transient-map'. Reads state from BUF. Consumes the reentering flag on read." (lambda () - (or (when (buffer-local-value 'keymap-popup--reentering buf) - (with-current-buffer buf - (setq-local keymap-popup--reentering nil)) - t) - (and-let* ((keys (this-command-keys-vector)) - (key-str (key-description keys)) - (descs (buffer-local-value 'keymap-popup--active-descriptions buf))) - (keymap-popup--keep-popup-p descs key-str))))) + (and (buffer-live-p buf) + (or (when (buffer-local-value 'keymap-popup--reentering buf) + (with-current-buffer buf + (setq-local keymap-popup--reentering nil)) + t) + (and-let* ((keys (this-command-keys-vector)) + (key-str (key-description keys)) + (descs (buffer-local-value 'keymap-popup--active-descriptions buf))) + (keymap-popup--keep-popup-p descs key-str)))))) + (defun keymap-popup--make-post-command-fn (buf) "Return a post-command-hook function that refreshes BUF. |