From 2e949031160d769bbac941c064b825a5c578afc5 Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 9 May 2022 12:37:11 +0200
Subject: [PATCH] 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 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'.")
 
-- 
2.39.2