diff options
| -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." | |||
| 120 | (princ (substitute-command-keys "\ | 120 | (princ (substitute-command-keys "\ |
| 121 | I don't know where the copying notice begins. | 121 | I don't know where the copying notice begins. |
| 122 | Put point there and hit \\[exit-recursive-edit].")) | 122 | Put point there and hit \\[exit-recursive-edit].")) |
| 123 | (save-excursion | ||
| 124 | (set-buffer standard-output) | ||
| 125 | (help-mode)) | ||
| 123 | (recursive-edit))) | 126 | (recursive-edit))) |
| 124 | (setq beg (point)) | 127 | (setq beg (point)) |
| 125 | (or (search-forward "02139, USA." nil t) | 128 | (or (search-forward "02139, USA." nil t) |
| @@ -127,6 +130,9 @@ Put point there and hit \\[exit-recursive-edit].")) | |||
| 127 | (princ (substitute-command-keys "\ | 130 | (princ (substitute-command-keys "\ |
| 128 | I don't know where the copying notice ends. | 131 | I don't know where the copying notice ends. |
| 129 | Put point there and hit \\[exit-recursive-edit].")) | 132 | Put point there and hit \\[exit-recursive-edit].")) |
| 133 | (save-excursion | ||
| 134 | (set-buffer standard-output) | ||
| 135 | (help-mode)) | ||
| 130 | (recursive-edit))) | 136 | (recursive-edit))) |
| 131 | (delete-region beg (point)))) | 137 | (delete-region beg (point)))) |
| 132 | (insert-file replace-copying-with)) | 138 | (insert-file replace-copying-with)) |