Fix: (helm-org-ql-map) Use make-composed-keymap

Fixes #99.  Thanks to Akira Komamura (@akirak).
This commit is contained in:
Adam Porter 2020-03-02 00:45:27 -06:00
parent 20f3ce747c
commit 11a0466f92

View file

@ -56,13 +56,13 @@
;;;; Variables ;;;; Variables
(defvar helm-org-ql-map (defvar helm-org-ql-map
(let ((map (copy-keymap helm-map)) (let ((map (make-sparse-keymap))
(mappings '( (mappings '(
"C-x C-s" helm-org-ql-save "C-x C-s" helm-org-ql-save
))) )))
(cl-loop for (key fn) on mappings by #'cddr (cl-loop for (key fn) on mappings by #'cddr
do (define-key map (kbd key) fn)) do (define-key map (kbd key) fn))
map) (make-composed-keymap map helm-map))
"Keymap for `helm-org-ql' sessions. "Keymap for `helm-org-ql' sessions.
Based on `helm-map'.") Based on `helm-map'.")