Re: Proposal for an improved `help-for-help'

[Stefan Kangas]

Dmitry Gutov <dgutov@yandex.ru> writes:

> So I think you just need to define that binding in the local map. The
> below works for me (only in graphical Emacs, though).

Actually, based on yours and Stefan M's comments, an even simpler patch
worked here.  So I have now installed it on master (commit fb44f897d9).

Please verify that it works for you.  (As usual, "touch lisp/help.el"
first to make sure the macro is re-expanded.)

diff --git a/lisp/help-macro.el b/lisp/help-macro.el
index 132530deb3..9461579a99 100644
--- a/lisp/help-macro.el
+++ b/lisp/help-macro.el
@@ -142,7 +142,7 @@ make-help-screen
                    (setq new-minor-mode-map-alist minor-mode-map-alist))
                  (goto-char (point-min))
                  (while (or (memq char (append help-event-list
-                                               (cons help-char '( ??
?\C-v ?\s ?\177 deletechar backspace vertical-scroll-bar ?\M-v
+                                               (cons help-char '( ??
?\C-v ?\s ?\177 deletechar backspace vertical-scroll-bar ?\M-v ?\S-\s

next prior up down))))
                             (eq (car-safe char) 'switch-frame)
                             (equal key "\M-v"))
@@ -152,7 +152,7 @@ make-help-screen
                          (handle-switch-frame char))
                         ((memq char '(?\C-v ?\s next))
                          (scroll-up))
-                        ((or (memq char '(?\177 ?\M-v deletechar
backspace prior))
+                        ((or (memq char '(?\177 ?\M-v deletechar
backspace prior ?\S-\s))
                              (equal key "\M-v"))
                          (scroll-down))
                         ((memq char '(down))