Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleanup last commit

Browse Source
This commit is contained in:
Alexander Rosenberg
2026-06-04 21:50:17 -07:00
parent 5eaf81d9fe
commit f3b4087f7e
1 changed files with 11 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
elisp/org-mu4e-compose.el
+11 -17
View File
@@ -578,35 +578,29 @@ This is derived from `org-mode', but it also essentially runs
;; ######################## ;; ########################
;; # Global override mode # ;; # Global override mode #
;; ######################## ;; ########################
(defun org-mu4e--make-override-keymap (parent) (defvar-keymap org-mu4e--override-keymap
"Create and return new override keymap for PARENT. :doc "Keymap used by org-mu4e override modes."
An override keymap is the same as PARENT except that it remaps certain mu4e "<remap> <mu4e-compose-new>" #'org-mu4e-compose-new
functions to their org-mu4e equivalents." "<remap> <mu4e-compose-forward>" #'org-mu4e-compose-forward
(let ((map (make-sparse-keymap))) "<remap> <mu4e-compose-reply>" #'org-mu4e-compose-reply
(set-keymap-parent map parent) "<remap> <mu4e-compose-reply-to>" #'org-mu4e-compose-reply-to
(define-key map [remap mu4e-compose-new] #'org-mu4e-compose-new) "<remap> <mu4e-compose-wide-reply>" #'org-mu4e-compose-wide-reply
(define-key map [remap mu4e-compose-forward] #'org-mu4e-compose-forward) "<remap> <mu4e-compose-edit>" #'org-mu4e-compose-edit)
(define-key map [remap mu4e-compose-reply] #'org-mu4e-compose-reply)
(define-key map [remap mu4e-compose-reply-to] #'org-mu4e-compose-reply-to)
(define-key map [remap mu4e-compose-wide-reply]
#'org-mu4e-compose-wide-reply)
(define-key map [remap mu4e-compose-edit] #'org-mu4e-compose-edit)
map))
(define-minor-mode org-mu4e--main-override-mode (define-minor-mode org-mu4e--main-override-mode
"Minor mode to replace key bindings in `mu4e-headers-mode'." "Minor mode to replace key bindings in `mu4e-headers-mode'."
:interactive nil :interactive nil
:keymap (org-mu4e--make-override-keymap mu4e-main-mode-map)) :keymap org-mu4e--override-keymap)
(define-minor-mode org-mu4e--headers-override-mode (define-minor-mode org-mu4e--headers-override-mode
"Minor mode to replace key bindings in `mu4e-headers-mode'." "Minor mode to replace key bindings in `mu4e-headers-mode'."
:interactive nil :interactive nil
:keymap (org-mu4e--make-override-keymap mu4e-headers-mode-map)) :keymap org-mu4e--override-keymap)
(define-minor-mode org-mu4e--view-override-mode (define-minor-mode org-mu4e--view-override-mode
"Minor mode to replace key bindings in `mu4e-headers-mode'." "Minor mode to replace key bindings in `mu4e-headers-mode'."
:interactive nil :interactive nil
:keymap (org-mu4e--make-override-keymap mu4e-view-mode-map)) :keymap org-mu4e--override-keymap)
(defun org-mu4e--enable-override-mode () (defun org-mu4e--enable-override-mode ()
"Enable `org-mu4e-override-mode'." "Enable `org-mu4e-override-mode'."