Fix: (org-ql-view-map) Use set-keymap-parent

This commit is contained in:
Adam Porter 2020-03-08 11:05:20 -05:00
parent 0648196076
commit 8aac3b6100

View file

@ -70,7 +70,8 @@ Includes `org-ql-search'. Helpful when passing a buffer argument
down a chain of function calls would be awkward.") down a chain of function calls would be awkward.")
(defvar org-ql-view-map (defvar org-ql-view-map
(let ((map (copy-keymap org-agenda-mode-map))) (let ((map (make-sparse-keymap)))
(set-keymap-parent map org-agenda-mode-map)
(define-key map "r" #'org-ql-view-refresh) (define-key map "r" #'org-ql-view-refresh)
(define-key map "v" #'org-ql-view-dispatch) (define-key map "v" #'org-ql-view-dispatch)
(define-key map (kbd "C-x C-s") #'org-ql-view-save) (define-key map (kbd "C-x C-s") #'org-ql-view-save)