Mercurial > emacs
comparison lisp/emacs-lisp/copyright.el @ 291:7baca7c86dc1
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Wed, 12 Jun 1991 18:00:32 +0000 |
| parents | 56fa777d299a |
| children | e7dd969ff98b |
comparison
equal
deleted
inserted
replaced
| 290:56fa777d299a | 291:7baca7c86dc1 |
|---|---|
| 69 (recursive-edit))) | 69 (recursive-edit))) |
| 70 (setq beg (point)) | 70 (setq beg (point)) |
| 71 (or (search-forward "02139, USA." nil t) | 71 (or (search-forward "02139, USA." nil t) |
| 72 (with-output-to-temp-buffer "*Help*" | 72 (with-output-to-temp-buffer "*Help*" |
| 73 (princ (substitute-command-keys "\ | 73 (princ (substitute-command-keys "\ |
| 74 I don't know where the copying notie ends. | 74 I don't know where the copying notice ends. |
| 75 Put point there and hit \\[exit-recursive-edit].")) | 75 Put point there and hit \\[exit-recursive-edit].")) |
| 76 (recursive-edit))) | 76 (recursive-edit))) |
| 77 (delete-region beg (point)) | 77 (delete-region beg (point)) |
| 78 (insert-file replace-copying-with)) | 78 (insert-file replace-copying-with)) |
| 79 (if (re-search-forward "; either version \\(.+\\), or (at your option)" | 79 (if (re-search-forward "; either version \\(.+\\), or (at your option)" |