Jonas Bernoulli <jo...@bernoul.li> writes: > Key bindings should not be defined at the top-level but inside > a `defvar' form. Doing it at the top-level makes it harder to > reliably customize key bindings. > --- > emacs/notmuch-mua.el | 14 +++++++++----- > 1 file changed, 9 insertions(+), 5 deletions(-) > > diff --git a/emacs/notmuch-mua.el b/emacs/notmuch-mua.el > index 03c7cc97..616b625c 100644 > --- a/emacs/notmuch-mua.el > +++ b/emacs/notmuch-mua.el > @@ -324,17 +324,21 @@ (defun notmuch-mua-reply (query-string &optional sender > reply-all) > (message-goto-body) > (set-buffer-modified-p nil)) > > +(defvar notmuch-message-mode-map > + (let ((map (make-sparse-keymap))) > + (define-key map (kbd "C-c C-c") #'notmuch-mua-send-and-exit) > + (define-key map (kbd "C-c C-s") #'notmuch-mua-send) > + (define-key map (kbd "C-c C-p") #'notmuch-draft-postpone) > + (define-key map (kbd "C-x C-s") #'notmuch-draft-save) > + map) > + "Keymap for `notmuch-message-mode'.") > + > (define-derived-mode notmuch-message-mode message-mode "Message[Notmuch]" > "Notmuch message composition mode. Mostly like `message-mode'." > (notmuch-address-setup)) > > (put 'notmuch-message-mode 'flyspell-mode-predicate > 'mail-mode-flyspell-verify) > > -(define-key notmuch-message-mode-map (kbd "C-c C-c") > #'notmuch-mua-send-and-exit) > -(define-key notmuch-message-mode-map (kbd "C-c C-s") #'notmuch-mua-send) > -(define-key notmuch-message-mode-map (kbd "C-c C-p") > #'notmuch-draft-postpone) > -(define-key notmuch-message-mode-map (kbd "C-x C-s") #'notmuch-draft-save) > - > (defun notmuch-mua-pop-to-buffer (name switch-function) > "Pop to buffer NAME, and warn if it already exists and is > modified. This function is notmuch adaptation of
Tested-by: William Casarin <j...@jb55.com> _______________________________________________ notmuch mailing list -- notmuch@notmuchmail.org To unsubscribe send an email to notmuch-le...@notmuchmail.org
