From: Mitchel Humpherys <mitch.special@gmail.com>
Date: Sat, 2 Apr 2016 01:56:26 +0000 (-0400)
Subject: packages/excorporate/excorporate-org.el: Allow quitting window
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/8912e3036d224c29d2ab8beb3946bbc9e13167ba

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
---

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))