From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 9 Nov 1994 05:46:01 +0000 (+0000)
Subject: (update-copyright): Set help-mode in *Help* buffer.
X-Git-Tag: emacs-19.34~6011
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c759701d7672d4666fe37e813e1980e2d321fb6f;p=emacs.git

(update-copyright): Set help-mode in *Help* buffer.
---

diff --git a/lisp/emacs-lisp/copyright.el b/lisp/emacs-lisp/copyright.el
index 1ebebc3247f..8527c68378b 100644
--- a/lisp/emacs-lisp/copyright.el
+++ b/lisp/emacs-lisp/copyright.el
@@ -120,6 +120,9 @@ than adding to it."
 			  (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 @@ Put point there and hit \\[exit-recursive-edit]."))
 			    (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))