diff options
| author | Jonas Bernoulli <jonas@bernoul.li> | 2020-10-02 15:07:00 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-12-02 19:27:20 +0000 |
| commit | 887cefb5cec2a8f86907339158431514c1e519e1 (patch) | |
| tree | 40979c6f3642e30bbc3bbd0ad48ddb01d03fb5bc /elisp/geiser-log.el | |
| parent | 701aab2db64690e1f42725d6163291e4e0878ad2 (diff) | |
| download | geiser-887cefb5cec2a8f86907339158431514c1e519e1.tar.gz geiser-887cefb5cec2a8f86907339158431514c1e519e1.tar.bz2 | |
Declare keymaps using defvar explicitly
This makes it possible to re-evaluate the containing
buffers without user customizations being clobbered.
Diffstat (limited to 'elisp/geiser-log.el')
| -rw-r--r-- | elisp/geiser-log.el | 9 |
1 files changed, 6 insertions, 3 deletions
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) |