diff options
| author | Karl Heuer <kwzh@gnu.org> | 1994-11-09 05:46:01 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1994-11-09 05:46:01 +0000 |
| commit | c759701d7672d4666fe37e813e1980e2d321fb6f (patch) | |
| tree | 88fca96e7721407fbdf64339674234df1456dcc7 /lisp/emacs-lisp | |
| parent | 0dc07483effb3b81aff45ae9744df256e33b22b5 (diff) | |
| download | emacs-c759701d7672d4666fe37e813e1980e2d321fb6f.tar.gz emacs-c759701d7672d4666fe37e813e1980e2d321fb6f.tar.bz2 emacs-c759701d7672d4666fe37e813e1980e2d321fb6f.zip | |
(update-copyright): Set help-mode in *Help* buffer.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/copyright.el | 6 |
1 files changed, 6 insertions, 0 deletions
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)) |