# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 784359961 0
# Node ID 089ea68c1fdb92a5ccd600bd5d69d6916d7f08a8
# Parent  f96b7683e3c5428c8b8053469999dcc7a3d8a3a2
(update-copyright): Set help-mode in *Help* buffer.

diff -r f96b7683e3c5 -r 089ea68c1fdb lisp/emacs-lisp/copyright.el
--- a/lisp/emacs-lisp/copyright.el	Wed Nov 09 05:45:49 1994 +0000
+++ b/lisp/emacs-lisp/copyright.el	Wed Nov 09 05:46:01 1994 +0000
@@ -120,6 +120,9 @@
 			  (princ (substitute-command-keys "\
 I don't know where the copying notice begins.
 Put point there and hit \\[exit-recursive-edit]."))
+			  (save-excursion
+			    (set-buffer standard-output)
+			    (help-mode))
 			  (recursive-edit)))
 		      (setq beg (point))
 		      (or (search-forward "02139, USA." nil t)
@@ -127,6 +130,9 @@
 			    (princ (substitute-command-keys "\
 I don't know where the copying notice ends.
 Put point there and hit \\[exit-recursive-edit]."))
+			    (save-excursion
+			      (set-buffer standard-output)
+			      (help-mode))
 			    (recursive-edit)))
 		      (delete-region beg (point))))
 		(insert-file replace-copying-with))