[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 2e94903116: Add meta navigation keys to outline-minor-mode-cycle-
From: |
Lars Ingebrigtsen |
Subject: |
master 2e94903116: Add meta navigation keys to outline-minor-mode-cycle-map |
Date: |
Mon, 9 May 2022 06:38:23 -0400 (EDT) |
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'.")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 2e94903116: Add meta navigation keys to outline-minor-mode-cycle-map,
Lars Ingebrigtsen <=