mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

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

Browse Source 
* lisp/outline.el (outline-minor-mode-cycle-map): Add meta
navigate keys (bug#41129).
This commit is contained in:
Lars Ingebrigtsen 2022-05-09 12:37:11 +02:00
parent 6b6b2c11ed
commit 2e94903116
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/outline.el
View File

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