master 2e94903116: Add meta navigation keys to outline-minor-mode-cycle-map

[Lars Ingebrigtsen]

branch: master
commit 2e949031160d769bbac941c064b825a5c578afc5
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Add meta navigation keys to outline-minor-mode-cycle-map
    
    * lisp/outline.el (outline-minor-mode-cycle-map): Add meta
    navigate keys (bug#41129).
---
 lisp/outline.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/outline.el b/lisp/outline.el
index 7fd43195cc..81e312ee01 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'.")