From 8912e3036d224c29d2ab8beb3946bbc9e13167ba Mon Sep 17 00:00:00 2001 From: Mitchel Humpherys Date: Fri, 1 Apr 2016 21:56:26 -0400 Subject: [PATCH] packages/excorporate/excorporate-org.el: Allow quitting window * packages/excorporate/excorporate-org.el (exco-org-initialize-buffer): Use a copy of org-mode-map as the local keymap. Bind q to quit-window. Copyright-paperwork-exempt: yes --- packages/excorporate/excorporate-org.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/packages/excorporate/excorporate-org.el b/packages/excorporate/excorporate-org.el index 73aaa52b6..a06057a13 100644 --- a/packages/excorporate/excorporate-org.el +++ b/packages/excorporate/excorporate-org.el @@ -35,6 +35,8 @@ (with-current-buffer (get-buffer-create excorporate-org-buffer-name) (setq buffer-read-only t) (org-mode) + (use-local-map (copy-keymap org-mode-map)) + (local-set-key "q" 'quit-window) (display-buffer (current-buffer)) (let ((inhibit-read-only t)) (delete-region (point-min) (point-max)) -- 2.39.2