mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-24 07:20:37 +00:00
144 lines
5.2 KiB
EmacsLisp
144 lines
5.2 KiB
EmacsLisp
;;; copyright.el --- update the copyright notice in current buffer
|
|
|
|
;; Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
|
|
|
|
;; Author: Daniel.Pfeiffer@Informatik.START.dbp.de, fax (+49 69) 7588-2389
|
|
;; Keywords: maint, tools
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software; you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
|
;; any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs; see the file COPYING. If not, write to the
|
|
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
;; Boston, MA 02111-1307, USA.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Allows updating the copyright year and above mentioned GPL version manually
|
|
;; or when saving a file. Do (add-hook 'write-file-hooks 'copyright-update).
|
|
|
|
;;; Code:
|
|
|
|
(defvar copyright-limit 2000
|
|
"*Don't try to update copyright beyond this position unless interactive.
|
|
`nil' means to search whole buffer.")
|
|
|
|
|
|
(defvar copyright-regexp
|
|
"\\(\251\\|[Cc]opyright\\s *:?\\s *(C)\\)\\s *\\([1-9][-0-9, ']*[0-9]+\\) "
|
|
"*What your copyright notice looks like.
|
|
The second \\( \\) construct must match the years.")
|
|
|
|
|
|
(defvar copyright-query 'function
|
|
"*If non-`nil', ask user before changing copyright.
|
|
When this is `function', only ask when called non-interactively.")
|
|
|
|
|
|
(defconst copyright-current-year (substring (current-time-string) -4)
|
|
"String representing the current year.")
|
|
|
|
|
|
;; when modifying this, also modify the comment generated by autoinsert.el
|
|
(defconst copyright-current-gpl-version "2"
|
|
"String representing the current version of the GPL or `nil'.")
|
|
|
|
(defvar copyright-update t)
|
|
|
|
;;;###autoload
|
|
(defun copyright-update (&optional arg)
|
|
"Update the copyright notice at the beginning of the buffer to indicate
|
|
the current year. If optional prefix ARG is given replace the years in the
|
|
notice rather than adding the current year after them. If necessary and
|
|
`copyright-current-gpl-version' is set, the copying permissions following the
|
|
copyright, if any, are updated as well."
|
|
(interactive "*P")
|
|
(if copyright-update
|
|
(save-excursion
|
|
(save-restriction
|
|
(widen)
|
|
(goto-char (point-min))
|
|
(if (re-search-forward copyright-regexp copyright-limit t)
|
|
(if (string= (buffer-substring (- (match-end 2) 2) (match-end 2))
|
|
(substring copyright-current-year -2))
|
|
()
|
|
(backward-char 1)
|
|
(if (or (not copyright-query)
|
|
(and (eq copyright-query 'function)
|
|
(eq this-command 'copyright-update))
|
|
(y-or-n-p (if arg
|
|
(concat "Replace copyright year(s) by "
|
|
copyright-current-year "? ")
|
|
(concat "Add " copyright-current-year
|
|
" to copyright? "))))
|
|
(if arg
|
|
(progn
|
|
(delete-region (match-beginning 1) (match-end 1))
|
|
(insert copyright-current-year))
|
|
(setq arg (save-excursion (skip-chars-backward "0-9")))
|
|
(if (and (eq (% (- (string-to-number
|
|
copyright-current-year)
|
|
(string-to-number (buffer-substring
|
|
(+ (point) arg)
|
|
(point))))
|
|
100)
|
|
1)
|
|
(or (eq (char-after (+ (point) arg -1)) ?-)
|
|
(eq (char-after (+ (point) arg -2)) ?-)))
|
|
(delete-char arg)
|
|
(insert ", ")
|
|
(if (eq (char-after (+ (point) arg -3)) ?')
|
|
(insert ?')))
|
|
(insert (substring copyright-current-year arg))))))
|
|
(goto-char (point-min))
|
|
(and copyright-current-gpl-version
|
|
;; match the GPL version comment in .el files, including the
|
|
;; bilingual Esperanto one in two-column, and in texinfo.tex
|
|
(re-search-forward "\\(the Free Software Foundation; either \\|; a\\^u eldono \\([0-9]+\\)a, ? a\\^u (la\\^u via \\)version \\([0-9]+\\), or (at"
|
|
copyright-limit t)
|
|
(not (string= (buffer-substring (match-beginning 3) (match-end 3))
|
|
copyright-current-gpl-version))
|
|
(or (not copyright-query)
|
|
(and (eq copyright-query 'function)
|
|
(eq this-command 'copyright-update))
|
|
(y-or-n-p (concat "Replace GPL version by "
|
|
copyright-current-gpl-version "? ")))
|
|
(progn
|
|
(if (match-end 2)
|
|
;; Esperanto bilingual comment in two-column.el
|
|
(progn
|
|
(delete-region (match-beginning 2) (match-end 2))
|
|
(goto-char (match-beginning 2))
|
|
(insert copyright-current-gpl-version)))
|
|
(delete-region (match-beginning 3) (match-end 3))
|
|
(goto-char (match-beginning 3))
|
|
(insert copyright-current-gpl-version))))
|
|
(set (make-local-variable 'copyright-update) nil)))
|
|
;; If a write-file-hook returns non-nil, the file is presumed to be written.
|
|
nil)
|
|
|
|
|
|
;;;###autoload
|
|
(define-skeleton copyright
|
|
"Insert a copyright by $ORGANIZATION notice at cursor."
|
|
"Company: "
|
|
comment-start
|
|
"Copyright (C) " copyright-current-year " by "
|
|
(or (getenv "ORGANIZATION")
|
|
str)
|
|
'(if (> (point) copyright-limit)
|
|
(message "Copyright extends beyond `copyright-limit' and won't be updated automatically."))
|
|
comment-end)
|
|
|
|
;; copyright.el ends here
|