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

1994-11-09 05:48:55 +00:00 · 1994-11-09 05:48:55 +00:00 · 228899a5b2
commit 228899a5b2
parent ea1650729f
1 changed files with 4 additions and 1 deletions
--- 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))