Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

hideshow: Define new keymap for all the commands.

Browse source 
bug#79569

* lisp/progmodes/hideshow.el (hs-prefix-map): New keymap.
(hs-minor-mode-map): Use the new keymap.
This commit is contained in:
Elías Gabriel Pérez 2025-10-02 19:41:40 -06:00 committed by Juri Linkov
parent c513224fa3
commit 1c8fc379b8
1 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lisp/progmodes/hideshow.el
View file

@ -471,20 +471,25 @@ info node `(elisp)Overlays'."
"Non-nil if using hideshow mode as a minor mode of some other mode.
Use the command `hs-minor-mode' to toggle or set this variable.")
(defvar-keymap hs-prefix-map
:doc "Keymap for hideshow commands."
:prefix t
;; These bindings roughly imitate those used by Outline mode.
"C-h" #'hs-hide-block
"C-s" #'hs-show-block
"C-M-h" #'hs-hide-all
"C-M-s" #'hs-show-all
"C-l" #'hs-hide-level
"C-c" #'hs-toggle-hiding
"C-a" #'hs-show-all
"C-t" #'hs-hide-all
"C-d" #'hs-hide-block
"C-e" #'hs-toggle-hiding)
(defvar-keymap hs-minor-mode-map
:doc "Keymap for hideshow minor mode."
;; These bindings roughly imitate those used by Outline mode.
"C-c @ C-h" #'hs-hide-block
"C-c @ C-s" #'hs-show-block
"C-c @ C-M-h" #'hs-hide-all
"C-c @ C-M-s" #'hs-show-all
"C-c @ C-l" #'hs-hide-level
"C-c @ C-c" #'hs-toggle-hiding
"C-c @ C-a" #'hs-show-all
"C-c @ C-t" #'hs-hide-all
"C-c @ C-d" #'hs-hide-block
"C-c @ C-e" #'hs-toggle-hiding
"S-<mouse-2>" #'hs-toggle-hiding
"C-c @" hs-prefix-map
"<left-fringe> <mouse-1>" #'hs-indicator-mouse-toggle-hidding)
(defvar-keymap hs-indicators-map