branch: externals/poke
commit 5e9582effac80f43400c5c5c77ccfcdc6246997f
Author: Jose E. Marchesi <[email protected]>
Commit: Jose E. Marchesi <[email protected]>
poke.el: make a keymap for poke-settings
2022-03-31 Jose E. Marchesi <[email protected]>
* emacs/poke.el (poke-settings-map): Define.
(poke-settings-create-widgets): Use poke-settings-map.
---
poke.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/poke.el b/poke.el
index 397162be5e..c639b6ab4d 100644
--- a/poke.el
+++ b/poke.el
@@ -1361,6 +1361,12 @@ Expected 2, 8, 10 or 16."))
(poke-setting-set-pretty-print poke-setting-pretty-print)
(poke-setting-set-omode poke-setting-omode))
+(defvar poke-settings-map
+ (let ((map (make-sparse-keymap)))
+ (set-keymap-parent map widget-keymap)
+ (define-key map (kbd "q") 'quit-window)
+ map))
+
(defun poke-settings-create-widgets ()
(kill-all-local-variables)
(let ((inhibit-read-only t))
@@ -1398,7 +1404,7 @@ Expected 2, 8, 10 or 16."))
(setq poke-setting-omaps (widget-value widget)))
'(item "yes") '(item "no"))
(widget-insert "\n")
- (use-local-map widget-keymap)
+ (use-local-map poke-settings-map)
(widget-setup))
(defun poke-settings ()
