Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : copyright.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:54 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/copyright.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters
;;; and therefore cannot be loaded into Emacs 21 or earlier.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "23")))
    (error "`copyright.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-declare-group 'copyright nil "Update the copyright notice in current buffer." :group 'tools)
#@117 Don't try to update copyright beyond this position unless interactive.
A value of nil means to search whole buffer.
(custom-declare-variable 'copyright-limit '2000 '(#$ . 722) :group 'copyright :type '(choice (integer :tag "Limit") (const :tag "No limit")))
#@108 Non-nil means to search backwards from the end of the buffer for copyright.
This is useful for ChangeLogs.
(custom-declare-variable 'copyright-at-end-flag 'nil '(#$ . 987) :group 'copyright :type 'boolean :version "23.1")
#@89 What your copyright notice looks like.
The second  construct must match the years.
(custom-declare-variable 'copyright-regexp '"\$©\\|@copyright{}\\|[Cc]opyright\\s *:?\\s *\\(?:(C)\$?\\|[Cc]opyright\\s *:?\\s *©\\)\\s *\$?:[^0-9\n]*\\s *\$?\$[1-9]\\([-0-9, ';/*%#\n	]\\|\\s<\\|\\s>\$*[0-9]+\\)" '(#$ . 1215) :group 'copyright :type 'regexp)
#@257 Regexp matching the names which correspond to the user.
Only copyright lines where the name matches this regexp will be updated.
This allows you to avoid adding years to a copyright notice belonging to
someone else or to a group for which you do not work.
(custom-declare-variable 'copyright-names-regexp '"" '(#$ . 1577) :group 'copyright :type 'regexp)
#@91 Match additional copyright notice years.
The second  construct must match the years.
(custom-declare-variable 'copyright-years-regexp '"\$\\s *\$\$[1-9]\\([-0-9, ';/*%#\n	]\\|\\s<\\|\\s>\$*[0-9]+\\)" '(#$ . 1938) :group 'copyright :type 'regexp)
#@114 If non-nil, ask user before changing copyright.
When this is `function', only ask when called non-interactively.
(custom-declare-variable 'copyright-query ''function '(#$ . 2200) :group 'copyright :type '(choice (const :tag "Do not ask") (const :tag "Ask unless interactive" function) (other :tag "Ask" t)))
#@60 String representing the current version of the GPL or nil.
(defconst copyright-current-gpl-version "3" (#$ . 2514))
#@75 The function `copyright-update' sets this to nil after updating a buffer.
(defvar copyright-update t (#$ . 2636))
#@39 String representing the current year.
(defvar copyright-current-year (byte-code "\300 \301\302O\207" [current-time-string -4 nil] 3) (#$ . 2756))
(defalias 'copyright-limit #[nil "\205�	\203\f�`Z\207`\\\207" [copyright-limit copyright-at-end-flag] 2])
(put 'copyright-limit 'byte-optimizer 'byte-compile-inline-expand)
#@69 Re-search forward or backward depending on `copyright-at-end-flag'.
(defalias 'copyright-re-search #[(regexp &optional bound noerror count) "\203�\305	\n\f$\207\306	\n\f$\207" [copyright-at-end-flag regexp bound noerror count re-search-backward re-search-forward] 5 (#$ . 3085)])
#@70 Return point-min or point-max, depending on `copyright-at-end-flag'.
(defalias 'copyright-start-point #[nil "\203�d\207e\207" [copyright-at-end-flag] 1 (#$ . 3375)])
#@65 Return non-nil if point is too far from the edge of the buffer.
(defalias 'copyright-offset-too-large-p #[nil "\205�	\203�`dZW\207`e\\V\207" [copyright-limit copyright-at-end-flag] 3 (#$ . 3549)])
(defalias 'copyright-update-year #[(replace noquery) "\306\307\310\217\205\366�\311\225b\210\212g\312=\205>�\311u\210\313\314w\210l\205>�\205>�\315 \316\216\311y\210\317!\2052�\320\225b*\205>�\n\321\317!*)\203S�\311y\210\322!\210\322\323\324\n\"!\210\202�\325 \326\314O\327\225\330Z\327\225{
\331\314O\230?\205\366�.\204\205�\212\332/\203|�\333
\334Q\202\200�\335
\336Q!)\205\366�/\203\222�\337
\321\211\314\327%\207\212\340\314x)0\341
!\341`0\\`{!Z\342\246\311=\203\314�\343`0\344#f\345=\204\304�\343`0\331#f\345=\203\314�\3460!\210\202\357�\212\347\350\351 \321#\203\334�\352\311!\202\335�\353)c\210\343`0\354#f\355=\203\357�\355c\210
0\314Oc)\207" [comment-start-skip save-match-data-internal copyright-years-regexp regexp inhibit-changing-match-data copyright-current-year err (byte-code "\304\305\306	\307\260\n\205�\203�`\nZ\202�`\n\\\310#\207" [copyright-regexp copyright-names-regexp copyright-limit copyright-at-end-flag copyright-re-search "\$" "\$\$[ 	]*\n\$?.*\$?:" "\$" t] 6) ((error (message "Can't update copyright: %s" err) nil)) 1 44 " 	" nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at 0 t re-search-forward format "\$%s\$" current-time-string -4 3 2 -2 y-or-n-p "Replace copyright year(s) by " "? " "Add " " to copyright? " replace-match "0-9" string-to-number 100 + -1 45 delete-char re-search-backward "[0-9]\$ *, *\$[0-9]" line-beginning-position match-string ", " -3 39 noquery replace size] 6])
#@369 Update copyright notice to indicate the current year.
With prefix ARG, replace the years in the notice rather than adding
the current year after them.  If necessary, and
`copyright-current-gpl-version' is set, any copying permissions
following the copyright are updated as well.
If non-nil, INTERACTIVEP tells the function to behave as when it's called
interactively.
(defalias 'copyright-update #[(&optional arg interactivep) "\204�	\205}�\n?\206�\n\306=\205�	\212\214~\210\307 b\210\310\f\"\210\307 b\210
\203t�\311\312\205A�\203=�`Z\202A�`\\\313#\203t�\314\315\316!!\314
!W\203t�\204_�\317\320\321
\"!\203t�\322\225\203l�\323
\313\211\324\322%\210\323
\313\211\324\316%\210)\325\300!\210\324*\324\207" [copyright-update interactivep copyright-query noquery arg copyright-current-gpl-version function copyright-start-point copyright-update-year copyright-re-search "\$the Free Software Foundation; either \\|; a\\^u eldono \\([0-9]+\$a, ? a\\^u (la\\^u via	 \\)version \$[0-9]+\$, or (at" t string-to-number match-string 3 y-or-n-p format "Replace GPL version by %s? " 2 replace-match nil make-local-variable copyright-limit copyright-at-end-flag] 6 (#$ . 5276) "*P\nd"])
#@97 Convert 2 digit years to 4 digit years.
Uses heuristic: year >= 50 means 19xx, < 50 means 20xx.
(defalias 'copyright-fix-years #[nil "~\210\306 b\210\307	\205�\n\203�`	Z\202�`	\\\310#\203\254�\311\224\312\311\225T!\313 \314\211b\210\315\316
\310#\203\201�\f`\314\223\210\317\224b\210`Sf\320\321\317!! \211!\203c�!z\322U\204c�!\323U\204c�\324c\210 \325W\203x� \326Y\203u�\327\202v�\330c\210*\fb\210\f\2020�\203\234�b\210\331\314x\210\214\306 `}\210\332\"\333\"\210*
\314\211\223\210\f\314\211\223\210\334\314\310\",\207\335\336!\207" [copyright-regexp copyright-limit copyright-at-end-flag last p e copyright-start-point copyright-re-search t 2 copy-marker make-marker nil re-search-forward "[0-9]+" 0 string-to-number match-string 32 45 " " 100 50 "19" "20" " 	" "     " fill-region copyright-update message "No copyright message" s year sep fill-prefix] 5 (#$ . 6476) nil])
(put 'copyright 'no-self-insert t)
#@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 (copyright-offset-too-large-p) (message "Copyright extends beyond `copyright-limit' and won't be updated automatically.")) comment-end n)] 4 (#$ . 7415) "*P\nP"])
#@68 Update copyright notice for all files in DIRECTORY matching MATCH.
(defalias 'copyright-update-directory #[(directory match) "\305\306	\307$\307\211\205.�@\310\311\n\"\210\312\n!\210\307\313 \210)\314 \210\315p!\210A\211\204
�\307*\207" [directory match file --dolist-tail-- copyright-query directory-files t nil message "Updating file `%s'" find-file copyright-update save-buffer kill-buffer] 6 (#$ . 8357) "DDirectory: \nMFilenames matching (regexp): "])
(provide 'copyright)

${this.title}

Code Editor : copyright.elc