Add hideshow bindings analogous to outline mode

* lisp/progmodes/hideshow.el (hs-minor-mode-map): Add bindings
analogous to outline mode bindings (bug#15324).

Copyright-paperwork-exempt: yes

2 files changed, 8 insertions, 0 deletions

diff --git a/etc/NEWS b/etc/NEWS
index ce84b48e9ab..679532b89c7 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1547,6 +1547,10 @@ Use the INSIDE_EMACS environment variable instead.
 mode to send the same escape sequences that xterm does.  This makes
 things like forward-word in readline work.
 
+---
+** hideshow mode got four key bindings that are analogous to outline
+mode bindings: `C-c @ C-a',  `C-c @ C-t',  `C-c @ C-d', and `C-c @ C-e.'
+
 +++
 ** `save-excursion' does not save&restore the mark any more.
 Use `save-mark-and-excursion' if you want the old behavior.
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index e5460009a56..cabdf45458a 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -351,6 +351,10 @@ Use the command `hs-minor-mode' to toggle or set this variable.")
     (define-key map "\C-c@\C-\M-s"    'hs-show-all)
     (define-key map "\C-c@\C-l"       'hs-hide-level)
     (define-key map "\C-c@\C-c"       'hs-toggle-hiding)
+    (define-key map "\C-c@\C-a"       'hs-show-all)
+    (define-key map "\C-c@\C-t"       'hs-hide-all)
+    (define-key map "\C-c@\C-d"       'hs-hide-block)
+    (define-key map "\C-c@\C-e"       'hs-toggle-hiding)
     (define-key map [(shift mouse-2)] 'hs-mouse-toggle-hiding)
     map)
   "Keymap for hideshow minor mode.")