[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/excorporate f35c2f1 13/93: packages/excorporate/excorpo

From: Stefan Monnier
Subject: [elpa] externals/excorporate f35c2f1 13/93: packages/excorporate/excorporate-org.el: Allow quitting window
Date: Sun, 29 Nov 2020 15:42:58 -0500 (EST)

branch: externals/excorporate
commit f35c2f111d90324c4d7a3143a36cc226ce9c47a8
Author: Mitchel Humpherys <mitch.special@gmail.com>
Commit: Thomas Fitzsimmons <fitzsim@fitzsim.org>

    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
 excorporate-org.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/excorporate-org.el b/excorporate-org.el
index 73aaa52..a06057a 100644
--- a/excorporate-org.el
+++ b/excorporate-org.el
@@ -35,6 +35,8 @@
   (with-current-buffer (get-buffer-create excorporate-org-buffer-name)
       (setq buffer-read-only t)
+      (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))

reply via email to

[Prev in Thread] Current Thread [Next in Thread]