Add meta navigation keys to outline-minor-mode-cycle-map

* lisp/outline.el (outline-minor-mode-cycle-map): Add meta
navigate keys (bug#41129).

diff --git a/lisp/outline.el b/lisp/outline.el
index 7fd43195cc0e0be66e67cfb59e140e06003eb0a0..81e312ee019f6577f6d6a916f190e808e6e82fea 100644 (file)
--- 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'.")