;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:39:05 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/emacs-lisp/copyright.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file contains multibyte non-ASCII characters ;;; and therefore cannot be loaded into Emacs 19. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "20"))) (error "`copyright.el' was compiled for Emacs 20 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (custom-declare-group 'copyright nil "Update the copyright notice in current buffer." :group 'tools) #@109 *Don't try to update copyright beyond this position unless interactive. `nil' means to search whole buffer. (custom-declare-variable 'copyright-limit '2000 '(#$ . -733) :group 'copyright :type '(choice (integer :tag "Limit") (const :tag "No limit"))) #@90 *What your copyright notice looks like. The second \( \) construct must match the years. (custom-declare-variable 'copyright-regexp '"\\([\251©]\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *(C)\\|[Cc]opyright\\s *:?\\s *[\251©]\\)\\s *\\([1-9][-0-9, ']*[0-9]+\\)" '(#$ . -990) :group 'copyright :type 'regexp) #@117 *If non-`nil', ask user before changing copyright. When this is `function', only ask when called non-interactively. (custom-declare-variable 'copyright-query ''function '(#$ . -1305) :group 'copyright :type '(choice (const :tag "Do not ask") (const :tag "Ask unless interactive" function) (other :tag "Ask" t))) #@62 String representing the current version of the GPL or `nil'. (defconst copyright-current-gpl-version "2" (#$ . 1623)) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list copyright-update boundp t] 2) #@39 String representing the current year. (defvar copyright-current-year "2001" (#$ . 1846)) #@339 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. (defalias 'copyright-update #[(&optional arg) "\203\212\214~\210eb\210\306 \307\310O\311\n \312#\203\261\313\225\313Z\313\225{ \314\310O\230\204\261\f\203M\f\315=\2038 \300=\204M\316!\203E\317 \320Q\202I\321 \322Q!\203\261!\203^\323\224\323\225|\210 c\210\202\261\212\324\310x)!\325 !\325`!\\`{!Z\326\246\323=\203\230`!\\\327\\f\330=\204\220`!\\\314\\f\330=\203\230\331!!\210\202\252\332c\210`!\\\333\\f\334=\203\252\334c\210 !\310Oc\210eb\210\"\203\311\335 \312#\203\336\224\336\225{\"\230\204\f\203\346\f\315=\203\334 \300=\204\346\316\337\"\320Q!\203\313\225\203\371\313\224\313\225|\210\313\224b\210\"c\210\336\224\336\225|\210\336\224b\210\"c\210)\340\300!\310L\210)\310\207" [copyright-update copyright-current-year copyright-regexp copyright-limit copyright-query this-command current-time-string -4 nil re-search-forward t 2 -2 function y-or-n-p "Replace copyright year(s) by " "? " "Add " " to copyright? " 1 "0-9" string-to-number 100 -1 45 delete-char ", " -3 39 "\\(the Free Software Foundation; either \\|; a\\^u eldono \\([0-9]+\\)a, ? a\\^u (la\\^u via \\)version \\([0-9]+\\), or (at" 3 "Replace GPL version by " make-local-variable arg copyright-current-gpl-version] 4 (#$ . 1942) "*P"]) #@558 Insert a copyright by $ORGANIZATION notice at cursor. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'copyright #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("Company: " comment-start "Copyright (C) " `(substring (current-time-string) -4) " by " (or (getenv "ORGANIZATION") str) '(if (> (point) copyright-limit) (message "Copyright extends beyond `copyright-limit' and won't be updated automatically.")) comment-end)] 4 (#$ . 3538) "*P\nP"]) (provide 'copyright)