diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-09 12:37:11 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-05-09 12:37:11 +0200 |
commit | 2e949031160d769bbac941c064b825a5c578afc5 (patch) | |
tree | fcf05817a3b4b846b794822fa7b4aeb05efb0b8b | |
parent | 6b6b2c11edc46517a3a1ac9f869bdd40adf8a3df (diff) | |
download | emacs-2e949031160d769bbac941c064b825a5c578afc5.tar.gz |
Add meta navigation keys to outline-minor-mode-cycle-map
* lisp/outline.el (outline-minor-mode-cycle-map): Add meta
navigate keys (bug#41129).
-rw-r--r-- | lisp/outline.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/outline.el b/lisp/outline.el index 7fd43195cc0..81e312ee019 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -215,6 +215,10 @@ This option is only in effect when `outline-minor-mode-cycle' is non-nil." (let ((map (make-sparse-keymap))) (outline-minor-mode-cycle--bind map (kbd "TAB") #'outline-cycle) (outline-minor-mode-cycle--bind map (kbd "<backtab>") #'outline-cycle-buffer) + (outline-minor-mode-cycle--bind map (kbd "M-<left>") #'outline-promote) + (outline-minor-mode-cycle--bind map (kbd "M-<right>") #'outline-demote) + (outline-minor-mode-cycle--bind map (kbd "M-<up>") #'outline-move-subtree-up) + (outline-minor-mode-cycle--bind map (kbd "M-<down>") #'outline-move-subtree-down) map) "Keymap used by `outline-minor-mode-cycle'.") |