From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 9 May 2022 10:37:11 +0000 (+0200)
Subject: Add meta navigation keys to outline-minor-mode-cycle-map
X-Git-Tag: emacs-29.0.90~1910^2~882
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2e949031160d769bbac941c064b825a5c578afc5;p=emacs.git

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 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'.")