From 887cefb5cec2a8f86907339158431514c1e519e1 Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Fri, 2 Oct 2020 15:07:00 +0200 Subject: Declare keymaps using defvar explicitly This makes it possible to re-evaluate the containing buffers without user customizations being clobbered. --- elisp/geiser-log.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-log.el') diff --git a/elisp/geiser-log.el b/elisp/geiser-log.el index e542042..6444335 100644 --- a/elisp/geiser-log.el +++ b/elisp/geiser-log.el @@ -53,6 +53,12 @@ ;;; Log buffer and mode: +(defvar geiser-messages-mode-map + (let ((map (make-sparse-keymap))) + (define-key map "c" 'geiser-log-clear) + (define-key map "Q" 'geiser-log--deactivate) + map)) + (define-derived-mode geiser-messages-mode fundamental-mode "Geiser Messages" "Simple mode for Geiser log messages buffer." (buffer-disable-undo) @@ -126,8 +132,5 @@ With prefix, activates all logging levels." (setq geiser-log-verbose-p nil) (when (eq (current-buffer) (geiser-log--buffer)) (View-quit))) -(define-key geiser-messages-mode-map "c" 'geiser-log-clear) -(define-key geiser-messages-mode-map "Q" 'geiser-log--deactivate) - (provide 'geiser-log) -- cgit v1.2.3