key 'q' to kill archive file buffer

mschuldt · May 7, 2018 · c27508a · c27508a
1 parent 26e97cf
commit c27508a
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/code-archive.el b/code-archive.el
@@ -210,6 +210,11 @@ The point must be on the first line." ;;TODO: jump from anywhere in the source b
                                      (goto-char 1)
                                      (forward-line line))
                                  (message "Original file does not exist"))
+                               ))
+              (local-set-key (kbd "q")
+                             (lambda ()
+                               (interactive)
+                               (kill-buffer)
                                ))))
         (message "Error: no link info for codeblock id: %s" id)))))