alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e-compose: rework mu4e-compose-goto-(bottom|top)

Browse Source 
For backward compat.
This commit is contained in:
Dirk-Jan C. Binnema
2024-03-15 20:31:44 +02:00
parent f3d823617e
commit ecca83528c
2 changed files with 7 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
mu4e/mu4e-compose.el
View File

@ -611,8 +611,13 @@ buffers; lets remap its faces so it uses the ones for mu4e."
(define-key map (kbd "C-c C-u") #'mu4e-update-mail-and-index) (define-key map (kbd "C-c C-u") #'mu4e-update-mail-and-index)
(define-key map (kbd "C-c ;") #'mu4e-compose-context-switch) (define-key map (kbd "C-c ;") #'mu4e-compose-context-switch)
(mu4e-keymap-set map "<remap> <beginning-of-buffer>" #'mu4e-compose-goto-top) ;; emacs 29
(mu4e-keymap-set map "<remap> <end-of-buffer>" #'mu4e-compose-goto-bottom) ;;(keymap-set map "<remap> <beginning-of-buffer>" #'mu4e-compose-goto-top)
;;(keymap-set map "<remap> <end-of-buffer>" #'mu4e-compose-goto-bottom)
(define-key map (vector 'remap #'beginning-of-buffer)
#'mu4e-compose-goto-top)
(define-key map (vector 'remap #'end-of-buffer)
#'mu4e-compose-goto-bottom)
;; remove some unsupported commands... [remap ..] does not work here ;; remove some unsupported commands... [remap ..] does not work here
;; XXX remove from menu, too. ;; XXX remove from menu, too.

9
mu4e/mu4e-helpers.el
View File

@ -600,14 +600,5 @@ shorter keys in some cases where there are multiple bindings."
(seq-map #'key-description (seq-map #'key-description
(where-is-internal cmd))))) (where-is-internal cmd)))))
(defun mu4e-keymap-set (keymap key definition)
"Set KEY to DEFINITION in KEYMAP.
Temporary version, from Emacs 29."
(when (fboundp 'key-valid-p) (cl-assert (key-valid-p key)))
(when (stringp definition)
(when (or (not (fboundp 'key-valid-p)) (cl-assert (key-valid-p definition)))
(setq definition (key-parse definition))))
(define-key keymap (key-parse key) definition))
(provide 'mu4e-helpers) (provide 'mu4e-helpers)
;;; mu4e-helpers.el ends here ;;; mu4e-helpers.el ends here