(map-y-or-n-p): Set help-mode in *Help* buffer.

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index a96f72f..99e081b 100644 (file)
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -202,7 +202,10 @@ ESC or `q' to exit;\n"
                               (if action-alist ";\n")
                               (format "or . (period) to %s \
 the current %s and exit."
-                                      action object)))))
+                                      action object))))
+                          (save-excursion
+                            (set-buffer standard-output)
+                            (help-mode)))
 
                         (setq next (` (lambda ()
                                         (setq next '(, next))