procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1992-04-14 22:02:55 +00:00
parent 3c701376e9
commit 2b79d7330d
1 changed files with 29 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -82,41 +82,40 @@ than adding to it."
(insert current-year) (insert current-year)
(message "Copyright updated to %s%s." (message "Copyright updated to %s%s."
(if replace "" "include ") current-year) (if replace "" "include ") current-year)
(if replace-copying-with (if replace-copying-with
(let ((case-fold-search t) (let ((case-fold-search t)
beg) beg)
(goto-char (point-min)) (goto-char (point-min))
;; Find the beginning of the copyright. ;; Find the beginning of the copyright.
(if (search-forward "copyright" nil t) (if (search-forward "copyright" nil t)
(progn (progn
;; Look for a blank line or a line ;; Look for a blank line or a line
;; containing only comment chars. ;; containing only comment chars.
(if (re-search-forward "^\\(\\s \\s<\\|\\s>\\)*$" (if (re-search-forward "^\\(\\s \\s<\\|\\s>\\)*$" nil t)
nil t) (forward-line 1)
(forward-line 1) (with-output-to-temp-buffer "*Help*"
(with-output-to-temp-buffer "*Help*" (princ (substitute-command-keys "\
(princ (substitute-command-keys "\
I don't know where the copying notice begins. I don't know where the copying notice begins.
Put point there and hit \\[exit-recursive-edit].")) Put point there and hit \\[exit-recursive-edit]."))
(recursive-edit))) (recursive-edit)))
(setq beg (point)) (setq beg (point))
(or (search-forward "02139, USA." nil t) (or (search-forward "02139, USA." nil t)
(with-output-to-temp-buffer "*Help*" (with-output-to-temp-buffer "*Help*"
(princ (substitute-command-keys "\ (princ (substitute-command-keys "\
I don't know where the copying notice ends. I don't know where the copying notice ends.
Put point there and hit \\[exit-recursive-edit].")) Put point there and hit \\[exit-recursive-edit]."))
(recursive-edit))) (recursive-edit)))
(delete-region beg (point)))) (delete-region beg (point))))
(insert-file replace-copying-with)) (insert-file replace-copying-with))
(if (re-search-forward (if (re-search-forward
"; either version \\(.+\\), or (at your option)" "; either version \\(.+\\), or (at your option)"
nil t) nil t)
(progn (progn
(goto-char (match-beginning 1)) (goto-char (match-beginning 1))
(delete-region (point) (match-end 1)) (delete-region (point) (match-end 1))
(insert current-gpl-version))))) (insert current-gpl-version))))
(or ask-upd (or ask-upd
(error "This buffer contains no copyright notice!"))))))) (error "This buffer contains no copyright notice!"))))))))
;;;###autoload ;;;###autoload
(defun ask-to-update-copyright () (defun ask-to-update-copyright ()