Mercurial > emacs
changeset 9844:089ea68c1fdb
(update-copyright): Set help-mode in *Help* buffer.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 09 Nov 1994 05:46:01 +0000 |
| parents | f96b7683e3c5 |
| children | 17734f1247d0 |
| files | lisp/emacs-lisp/copyright.el |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))