# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784360135 0
# Node ID 62c0e8317ce258d09456d6618588b866886afc95
# Parent  430b8cf0951557a22c016fb081068762c58223bf
(map-y-or-n-p): Set help-mode in *Help* buffer.

diff -r 430b8cf09515 -r 62c0e8317ce2 lisp/map-ynp.el
--- a/lisp/map-ynp.el	Wed Nov 09 05:48:50 1994 +0000
+++ b/lisp/map-ynp.el	Wed Nov 09 05:48:55 1994 +0000
@@ -202,7 +202,10 @@
 			       (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))