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 : check-declare.elc

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

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`check-declare.el' was compiled for Emacs 19.29 or later"))

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

#@62 Name of buffer used to display any `check-declare' warnings.
(defconst check-declare-warning-buffer "*Check Declarations Warnings*" (#$ . 628))
#@316 Return the full path of FILE.
Expands files with a ".c" or ".m" extension relative to the Emacs
"src/" directory.  Otherwise, `locate-library' searches for FILE.
If that fails, expands FILE relative to BASEFILE's directory part.
The returned file might not exist.  If FILE has an "ext:" prefix, so does
the result.
(defalias 'check-declare-locate #[(file basefile) "\305\306\"\307\211\203�\310\307O\311!\312\235\203\"�\313\313\314\"\"\202e�\315\316!!\211\203J�\317\320\321	#\322	!\204F�\322	\323P!\203F�	\323P\202e�	\202e�\313\324\f!\"\322	!\204^�\305\325	\"\203b�	\202e�	\321P\n\203p�\326P\202q�*\207" [file tfile ext source-directory basefile string-match "^ext:" nil 4 file-name-extension ("c" "m") expand-file-name "src" locate-library file-name-nondirectory replace-regexp-in-string "\\.elc\\'" ".el" file-exists-p ".gz" file-name-directory "\\.el\\'" "ext:"] 6 (#$ . 779)])
#@382 Scan FILE for `declare-function' calls.
Return a list with elements of the form (FNFILE FN ARGLIST FILEONLY),
where only the first two elements need be present.  This claims that FNFILE
defines FN, with ARGLIST.  FILEONLY non-nil means only check that FNFILE
exists, not that it defines FN.  This is for function definitions that we
don't know how to recognize (e.g. some macros).
(defalias 'check-declare-scan #[(file) "\306\307\"\310\211\211\211\211\311\312\"\210\313\314!rq\210\315\216\316!\210\317\320\310\321#\203h�\322\323!\322\324!\325\f\326!\"\327\310w\210\330\331!\203M�\332p!\202N�\321\327\310w\210\330\333!\205\\�\322\323!\f\n	F
B\202&�+\311\334\"\210
.\207" [file fileonly arglist fn fnfile alist format "Scanning %s..." nil message "%s" generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "^[ 	]*(declare-function[ 	]+\$\\S-+\$[ 	]+\"\$\\S-+\$\"" t match-string 1 2 check-declare-locate expand-file-name " 	\n" looking-at "\$(\\|nil\\|t\$" read "\$t\\|'\\sw+\$" "%sdone" m #1#] 6 (#$ . 1683)])
#@193 Return a string with the number of errors in ERRLIST, if any.
Normally just counts the number of elements in ERRLIST.
With optional argument FULL, sums the number of elements in each element.
(defalias 'check-declare-errmsg #[(errlist &optional full) "\2037�G\n\203&�\305\306\211\203%�\f@	GS\\\fA\211\204�*\307\310	\211\311U\2033�\312\2024�\313#)\207\314\207" [errlist l full e --dolist-tail-- 0 nil format "%d problem%s found" 1 "" "s" "OK"] 6 (#$ . 2841)])
(autoload 'byte-compile-arglist-signature "bytecomp")
#@520 Check that FNFILE contains function definitions matching FNLIST.
Each element of FNLIST has the form (FILE FN ARGLIST FILEONLY), where
only the first two elements need be present.  This means FILE claimed FN
was defined in FNFILE with the specified ARGLIST.  FILEONLY non-nil means
to only check that FNFILE exists, not that it actually defines FN.

Returns nil if all claims are found to be true, otherwise a list
of errors with elements of the form (FILE FN TYPE), where TYPE
is a string giving details of the error.
(defalias 'check-declare-verify #[(fnfile fnlist) "\306\307\"\310!\311\235\312\313\"\314\211\211\211\211\211\211\211\211:;<=>?@\315\316@\"\210>\2039�\317\314O\320!\203\374�\321\322!ArAq\210\323\216\324!\210\306?\203Y�\325\202Z�\326\327\330\331B\"\332\"\"=\333=\314\332#\203\373�\334\314w\210\335\336!<\335\337!?\203\261�\333\340\314\332\341$\203\255�\334\314w\210\342\343!\203\255�\344\335\337!!\335\336!\n\312\345	\"?\205\251�\344	!B\206\354�\346\202\354�\312\347\f\"\203\274�\350\202\354�\312\351\f\"\203\307�\352\202\354�\312\353\f\"\203\322�\354\202\354�\312\355\f\"\203\335�\332\202\354�\342\356!\203\353�\357\360p!!\202\354�\346;<;B:B:\202e�+B\314C\211D\203\220D@C\336C8=\204\361\202r\362C\211EA@):\"\211;\2048\341C8?\205r\363\202r;A\211;\354=\203G\364\202r
\332=\203Q\314\202r;\332=\203\\\314\202r;\346=\203g\365\202r\357
!;\232?\205r\366\211\203\207C@C\211EA@)\fEBDA\211D\204*\315\367@=\204\237>\204\245\370!\202\250\314\371#\210.\f\207" [fnfile maxargs minargs errlist type arglist format "Checking %s..." file-name-extension ("c" "m") string-match "^ext:" nil message "%s" 4 file-exists-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents "^[ 	]*\$DEFUN\$[ 	]*([ 	]*\"%s\"" "^[ 	]*(\$fset[ 	]+'\\|def\\(?:un\\|subst\\|foo\\|ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\$?-\\)?minor\\)-mode\\|\$?:ine-obsolete-function-\$?alias[ 	]+'\\)\\)[ 	]*%s\$[ 	;]+\\|$\$" regexp-opt mapcar cadr t re-search-forward " 	\n" match-string 2 1 "," 3 looking-at "\$[0-9]+\$[ 	]*,[ 	]*\$[0-9]+\\|MANY\\|UNEVALLED\$" string-to-number "[^0-9]" err "\\`define-\$derived\\|generic\$-mode\\'" (0 . 0) "\\`define\$-global\\(ized\$?\\)?-minor-mode\\'" (0 . 1) "\\`define-obsolete-function-alias\\>" obsolete "\\`\$defalias\\|fset\$\\>" "\$(\\|nil\$" byte-compile-arglist-signature read "file not found" assoc "function not found" "obsolete alias" "arglist not found" "arglist mismatch" "%s%s" check-declare-errmsg "skipping external file" siglist sig fn re ext cflag m #1# fnlist e --dolist-tail-- x] 13 (#$ . 3373)])
#@92 Sort a list with elements FILE (FNFILE ...).
Returned list has elements FNFILE (FILE ...).
(defalias 'check-declare-sort #[(alist) "\306\211\211\211\211
\306	\211\n\203f�\n@\211	@	A\306\211\n\203\\�\n@\211@A\307	\"\211\203K�\310A\f\nBC\"\241\210\202S�\f\nBD	B\nA\211\n\204(�*\nA\211\n\204�*	-\207" [a sort rest fnfile file alist nil assoc append e --dolist-tail-- f] 6 (#$ . 6111)])
#@161 Warn that FILE made a false claim about FN in FNFILE.
TYPE is a string giving the nature of the error.  Warning is displayed in
`check-declare-warning-buffer'.
(defalias 'check-declare-warn #[(file fn fnfile type) "\305\306\307\310\311!	\311\n!%\312\f$\207" [file fn fnfile type check-declare-warning-buffer display-warning check-declare format "%s said `%s' was defined in %s: %s" file-name-nondirectory nil] 8 (#$ . 6533)])
#@98 Check veracity of all `declare-function' statements in FILES.
Return a list of any errors found.
(defalias 'check-declare-files #[(&rest files) "\306\211\211\306\211\203 �
@\211\307\f!B\nB
A\211\204�*\310\n!\306\211\203L�
@\311@A\"\211\203E�@	BB
A\211\204,�*\312!\203Y�\313!\210\310!\306\211\203\232�
@\211A\306\211\203\222�
@\314@\211A@)@\3158$\210
A\211\204r�*
A\211\204d�*+\207" [errlist err alist files file --dolist-tail-- nil check-declare-scan check-declare-sort check-declare-verify get-buffer kill-buffer check-declare-warn 2 e check-declare-warning-buffer f x] 7 (#$ . 6967)])
#@114 Check veracity of all `declare-function' statements in FILE.
See `check-declare-directory' for more information.
(defalias 'check-declare-file #[(file) "\303!\204�\304\305\"\210\306\307\"\310\311\312\n\"\210\313!\311\314\n\315	!#\210	*\207" [file errlist m file-exists-p error "File `%s' not found" format "Checking %s..." nil message "%s" check-declare-files "%s%s" check-declare-errmsg] 5 (#$ . 7614) "fFile to check: "])
#@250 Check veracity of all `declare-function' statements under directory ROOT.
Returns non-nil if any false statements are found.  For this to
work correctly, the statements must adhere to the format
described in the documentation of `declare-function'.
(defalias 'check-declare-directory #[(root) "\306\307!\211!\204�\310\311\"\210\312\313\314\211\315\316\f\"\210\315\316\"\210\317
\320\321\322\323\324\325\326&\n\315\327	G#\210	\205J�\330\331	\"\315\332\f\333\n\334\"#\210\n,\207" [root files errlist m2 m find-program file-directory-p expand-file-name error "Directory `%s' not found" "Checking `declare-function' statements..." "Finding files with declarations..." nil message "%s" process-lines "-name" "*.el" "-exec" "-l" "^[ 	]*(declare-function" "{}" ";" "%s%d found" apply check-declare-files "%s%s" check-declare-errmsg t grep-program] 11 (#$ . 8053) "DDirectory to check: "])
(provide 'check-declare)

${this.title}

Code Editor : check-declare.elc