mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-28 08:11:05 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Karl Heuer 1994-11-09 05:46:01 +00:00
parent 0dc07483ef
commit c759701d76
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/copyright.el
View file

@ -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))