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 : elint.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:55 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/elint.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 "`elint.el' was compiled for Emacs 19.29 or later"))

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

#@41 *The buffer to insert lint messages in.
(defvar elint-log-buffer "*Elint*" (#$ . -612))
#@29 Standard buffer local vars.
(defconst elint-standard-variables '(abbrev-mode auto-fill-function buffer-auto-save-file-name buffer-backed-up buffer-display-count buffer-display-table buffer-display-time buffer-file-coding-system buffer-file-format buffer-file-name buffer-file-number buffer-file-truename buffer-file-type buffer-invisibility-spec buffer-offer-save buffer-read-only buffer-saved-size buffer-undo-list cache-long-line-scans case-fold-search ctl-arrow cursor-type comment-column default-directory defun-prompt-regexp desktop-save-buffer enable-multibyte-characters fill-column fringes-outside-margins goal-column header-line-format indicate-buffer-boundaries indicate-empty-lines left-fringe-width left-margin left-margin-width line-spacing local-abbrev-table local-write-file-hooks major-mode mark-active mark-ring mode-line-buffer-identification mode-line-format mode-line-modified mode-line-process mode-name overwrite-mode point-before-scroll right-fringe-width right-margin-width scroll-bar-width scroll-down-aggressively scroll-up-aggressively selective-display selective-display-ellipses tab-width truncate-lines vc-mode vertical-scroll-bar) (#$ . 706))
#@52 Those built-ins for which we can't find arguments.
(defconst elint-unknown-builtin-args '((while test &rest forms) (insert-before-markers-and-inherit &rest text) (catch tag &rest body) (and &rest args) (funcall func &rest args) (insert &rest args) (vconcat &rest args) (run-hook-with-args hook &rest args) (message-or-box string &rest args) (save-window-excursion &rest body) (append &rest args) (logior &rest args) (progn &rest body) (insert-and-inherit &rest args) (message-box string &rest args) (prog2 x y &rest body) (prog1 first &rest body) (insert-before-markers &rest args) (call-process-region start end program &optional delete destination display &rest args) (concat &rest args) (vector &rest args) (run-hook-with-args-until-success hook &rest args) (track-mouse &rest body) (unwind-protect bodyform &rest unwindforms) (save-restriction &rest body) 'arg (make-byte-code &rest args) (or &rest args) (cond &rest clauses) (start-process name buffer program &rest args) (run-hook-with-args-until-failure hook &rest args) (if cond then &rest else) (apply function &rest args) (format string &rest args) (encode-time second minute hour day month year &optional zone) (min &rest args) (logand &rest args) (logxor &rest args) (max &rest args) (list &rest args) (message string &rest args) (defvar symbol init doc) (call-process program &optional infile destination display &rest args) (with-output-to-temp-buffer bufname &rest body) (nconc &rest args) (save-excursion &rest body) (run-hooks &rest hooks) (/ x y &rest zs) (- x &rest y) (+ &rest args) (* &rest args) (interactive &optional args)) (#$ . 1886))
#@90 Create a top form.
FORM is the form, and POS is the point where it starts in the buffer.
(defalias 'elint-make-top-form #[(form pos) "	B\207" [form pos] 2 (#$ . 3503)])
(put 'elint-make-top-form 'byte-optimizer 'byte-compile-inline-expand)
#@35 Extract the form from a TOP-FORM.
(defalias 'elint-top-form-form #[(top-form) "@\207" [top-form] 1 (#$ . 3750)])
(put 'elint-top-form-form 'byte-optimizer 'byte-compile-inline-expand)
#@39 Extract the position from a TOP-FORM.
(defalias 'elint-top-form-pos #[(top-form) "A\207" [top-form] 1 (#$ . 3941)])
(put 'elint-top-form-pos 'byte-optimizer 'byte-compile-inline-expand)
#@30 Create an empty environment.
(defalias 'elint-make-env #[nil "\300C\300\211E\207" [nil] 3 (#$ . 4134)])
(put 'elint-make-env 'byte-optimizer 'byte-compile-inline-expand)
#@81 Augment ENV with NEWENV.
None of them is modified, and the new env is returned.
(defalias 'elint-env-add-env #[(env newenv) "\302@	@\"\302A@	A@\"\302AA@	AA@\"E\207" [env newenv append] 5 (#$ . 4310)])
(put 'elint-env-add-env 'byte-optimizer 'byte-compile-inline-expand)
#@92 Augment ENV with the variable VAR.
The new environment is returned, the old is unmodified.
(defalias 'elint-env-add-var #[(env var) "C	@B	AB\207" [var env] 2 (#$ . 4589)])
(put 'elint-env-add-var 'byte-optimizer 'byte-compile-inline-expand)
#@96 Augment ENV with the variable VAR.
ENV is modified so VAR is seen everywhere.
ENV is returned.
(defalias 'elint-env-add-global-var #[(env var) "@	CC\244\210\207" [env var] 2 (#$ . 4837)])
(put 'elint-env-add-global-var 'byte-optimizer 'byte-compile-inline-expand)
#@102 Non-nil if ENV contains the variable VAR.
Actually, a list with VAR as a single element is returned.
(defalias 'elint-env-find-var #[(env var) "	@\236\207" [var env] 2 (#$ . 5110)])
(put 'elint-env-find-var 'byte-optimizer 'byte-compile-inline-expand)
#@123 Augment ENV with the function FUNC, which has the arguments ARGS.
The new environment is returned, the old is unmodified.
(defalias 'elint-env-add-func #[(env func args) "@	\nDA@BAA@E\207" [env func args] 3 (#$ . 5370)])
(put 'elint-env-add-func 'byte-optimizer 'byte-compile-inline-expand)
#@89 Non-nil if ENV contains the function FUNC.
Actually, a list of (FUNC ARGS) is returned.
(defalias 'elint-env-find-func #[(env func) "	A@\236\207" [func env] 2 (#$ . 5670)])
(put 'elint-env-find-func 'byte-optimizer 'byte-compile-inline-expand)
#@159 Augment ENV with the macro named MACRO.
DEF is the macro definition (a lambda expression or similar).
The new environment is returned, the old is unmodified.
(defalias 'elint-env-add-macro #[(env macro def) "@A@	\nBAA@BE\207" [env macro def] 4 (#$ . 5922)])
(put 'elint-env-add-macro 'byte-optimizer 'byte-compile-inline-expand)
#@87 Return the macro environment of ENV.
This environment can be passed to `macroexpand'.
(defalias 'elint-env-macro-env #[(env) "AA@\207" [env] 1 (#$ . 6260)])
(put 'elint-env-macro-env 'byte-optimizer 'byte-compile-inline-expand)
#@32 Non-nil if ENV contains MACRO.
(defalias 'elint-env-macrop #[(env macro) "	\211AA@)\236\207" [macro env] 3 (#$ . 6495)])
(put 'elint-env-macrop 'byte-optimizer 'byte-compile-inline-expand)
#@26 Lint the current buffer.
(defalias 'elint-current-buffer #[nil "\301\302\303\304 \203
�\304 \202�\305 \"!\210\306 \210\307\310\311 \"\210\312\313\314!)\207" [elint-top-form-logged elint-clear-log format "Linting %s" buffer-file-name buffer-name elint-display-log mapc elint-top-form elint-update-env t elint-log-message "\nLinting complete.\n"] 4 (#$ . 6692) nil])
#@29 Lint the function at point.
(defalias 'elint-defun #[nil "\212\303 \204\n�\304\305!\210`\306p!\307 \210\310 \210\311	\211	*B!+\207" [def pos form beginning-of-defun error "Lint what?" read elint-display-log elint-update-env elint-top-form] 4 (#$ . 7065) nil])
#@69 The environment of a elisp buffer.
Will be local in linted buffers.
(defvar elint-buffer-env nil (#$ . 7336))
#@61 The top forms in a buffer.
Will be local in linted buffers.
(defvar elint-buffer-forms nil (#$ . 7452))
#@113 The last time the buffers env was updated.
Is measured in buffer-modified-ticks and is local in linted buffers.
(defvar elint-last-env-time nil (#$ . 7563))
#@170 Update the elint environment in the current buffer.
Don't do anything if the buffer hasn't been changed since this
function was called the last time.
Returns the forms.
(defalias 'elint-update-env #[nil "\303\302p\"\203�\303\301p\"\203�\303\300p\"\203�\304 U\203�	\207\305\301!\210\306 \305\302!\210\307	!\305\300!\210\304 	\207" [elint-last-env-time elint-buffer-forms elint-buffer-env local-variable-p buffer-modified-tick make-local-variable elint-get-top-forms elint-init-env] 3 (#$ . 7727)])
#@50 Collect all the top forms in the current buffer.
(defalias 'elint-get-top-forms #[nil "\212\302eb\210\303 \203�`\302\304\305\217\210)\202�\237*\207" [tops pos nil elint-find-next-top-form (byte-code "\303p!\211*B\nB\303\207" [pos form tops read] 3) ((end-of-file (byte-code "b\210\301\210\302\303`{\"\207" [pos nil error "Missing ')' in top form: %s"] 4)))] 3 (#$ . 8238)])
#@88 Find the next top form from point.
Return nil if there are no more forms, t otherwise.
(defalias 'elint-find-next-top-form #[nil "\300`d\301\302$\210m?\207" [parse-partial-sexp nil t] 5 (#$ . 8631)])
#@40 Initialize the environment from FORMS.
(defalias 'elint-init-env #[(forms) "\306C\306\211E\306\n\203\300�\n@\211@)\nA@\307>\2030�	A@\fC	@B	A*B\202�@\310>\203W�	A@AA@\211@
D	A@B	AA@E+\202�@\311=\203\236�	A@\312AAB\211@	A@B	AA@BE+\211A@AA@\211@
D	A@B	AA@E+\202�@\313=\203�\314A@!\314AA@!\315	#*\202�	*\207" [form env forms top-form var args nil (defvar defconst defcustom) (defun defsubst) defmacro lambda require eval elint-add-required-env func def macro file name] 5 (#$ . 8837)])
#@66 Augment ENV with the variables definied by feature NAME in FILE.
(defalias 'elint-add-required-env #[(env name file) "\301\302\303\217\210\207" [env nil (byte-code ";\203	�\202\f�\306	!\307\n\310P\311\"\211\203�\202 �\307\n\311\"\312\313!\210\f\203Z�\212\314\f!q\210\315 \210
\316
@@\"\316
A@A@\"\316
AA@AA@\"E*)\202^�\317\320!\210+\313\207" [file name libname lib1 lib env symbol-name locate-library ".el" t message nil find-file-noselect elint-update-env append error "dummy error..." elint-buffer-env newenv] 6) ((error (byte-code "\301 \210\302\303\"\207" [name ding message "Can't get variables from require'd library %s"] 3)))] 3 (#$ . 9384)])
#@44 Search for a key matching REGEXP in ALIST.
(defalias 'regexp-assoc #[(regexp alist) "\303	\203'�\204'�	@@;\203 �\304\n	@@\"\203 �	@\202�	A\211\204�)\207" [res alist regexp nil string-match] 4 (#$ . 10061)])
#@40 The currently linted top form, or nil.
(defvar elint-top-form nil (#$ . 10281))
#@74 T if the currently linted top form has been mentioned in the log buffer.
(defvar elint-top-form-logged nil (#$ . 10367))
#@18 Lint a top FORM.
(defalias 'elint-top-form #[(form) "\305\306\211@)\f\"*\207" [form elint-top-form-logged elint-top-form top-form elint-buffer-env nil elint-form] 4 (#$ . 10494)])
#@60 Functions to call when some special form should be linted.
(defconst elint-special-forms '((let . elint-check-let-form) (let* . elint-check-let-form) (setq . elint-check-setq-form) (quote . elint-check-quote-form) (cond . elint-check-cond-form) (lambda . elint-check-defun-form) (function . elint-check-function-form) (setq-default . elint-check-setq-form) (defun . elint-check-defun-form) (defsubst . elint-check-defun-form) (defmacro . elint-check-defun-form) (defvar . elint-check-defvar-form) (defconst . elint-check-defvar-form) (defcustom . elint-check-defcustom-form) (macro . elint-check-macro-form) (condition-case . elint-check-condition-case-form)) (#$ . 10685))
#@84 Lint FORM in the environment ENV.
The environment created by the form is returned.
(defalias 'elint-form #[(form env) ":\203\241�@	\236A\211\203�\n\"\202\237�@\306\n\"\307\f\310=\2030�\311\312\313\"\210\202;�\f\314=\204;�\315\f\"\n\211AA@)\236*\203f�
\203b�\316\317\211AA@)\"\"\202\236�\202\236�\n9\203w�\320\n!\205x�\321\n!\202x�\n\211<\203\230�@\322=\203\230�
\203\224�\316\317!\"\202\235�\202\235�\323A\")+)\2079\203\276�\324!\325H\326U\204\274�\327\"\203\274�\330\331\"\210\207\207" [form elint-special-forms func env args argsok elint-get-args t undefined nil elint-error "Call to undefined function: %s" unknown elint-match-args elint-form macroexpand fboundp indirect-function macro elint-forms symbol-name 0 58 elint-unbound-variable elint-warning "Reference to unbound symbol: %s" fcode] 5 (#$ . 11365)])
#@65 Lint the FORMS, accumulating an environment, starting with ENV.
(defalias 'elint-forms #[(forms env) "\203�\302@	\"A\211\204�	\207" [forms env elint-form] 4 (#$ . 12229)])
#@29 T if VAR is unbound in ENV.
(defalias 'elint-unbound-variable #[(var env) "\303=\206�\304=\206�		@\236*\206�\n>?\207" [var env elint-standard-variables nil t] 2 (#$ . 12414)])
#@35 Match ARGLIST against ARGPATTERN.
(defalias 'elint-match-args #[(arglist argpattern) "\306A	\307\f\204�\203a�@\310=\203 �\311A\202	�@\312=\204a�
\306=\2035�\f\203C�\203C�
\311=\203N�\f\203N�\204N�\313\314	#\210\315\202a�
\311=\203X�\f\203a�\fAA\202	�\n,\207" [arglist argpattern ok ap al state all t &optional optional &rest elint-error "Wrong number of args: %s, %s" nil] 4 (#$ . 12606)])
#@80 Find the args of FUNC in ENV.
Returns `unknown' if we couldn't find arguments.
(defalias 'elint-get-args #[(func env) "		A@\236*\211\203�\nA@\202I�	9\203F�\305	!\203B�\306	!\307!\203;�	\310N\211\2036�\f\2027�\311)\202>�\312!)\202I�\313\202I�\312	!)\207" [env func f fcode args fboundp indirect-function subrp elint-args unknown elint-find-args-in-code undefined] 3 (#$ . 13021)])
#@99 Extract the arguments from CODE.
CODE can be a lambda expression, a macro, or byte-compiled code.
(defalias 'elint-find-args-in-code #[(code) "\301!\203\n�\302H\207<\203�@\303=\203�A@\207<\203+�@\304=\203+�\305A!\207\306\207" [code byte-code-function-p 0 lambda macro elint-find-args-in-code unknown] 2 (#$ . 13417)])
#@26 Lint a cond FORM in ENV.
(defalias 'elint-check-cond-form #[(form env) "A\211\203#�@:\203�\302@	\"\210\202�\303\304@\"\210A\211\204�	\207" [form env elint-forms elint-error "cond clause should be a list: %s"] 4 (#$ . 13751)])
#@43 Lint a defun/defmacro/lambda FORM in ENV.
(defalias 'elint-check-defun-form #[(form env) "@\302=\203\f�A\202�AA\303\304@\"\210\305A	\"\207" [form env lambda mapc #[(p) "\303>\206�	\nC	@B	A*B\211\207" [p env var (&optional &rest)] 2] elint-forms] 3 (#$ . 13993)])
#@32 Lint the let/let* FORM in ENV.
(defalias 'elint-check-let-form #[(form env) "A@\211\204�\304\305\"\210\n\202A�	G\306U\2033�	@9\2033�	A@<\2033�\307	A@@!\2033�\310\311\"\210\n\312\313	\"\210\314AA\"))\207" [form varlist env newenv elint-error "Missing varlist in let: %s" 2 fboundp elint-warning "Suspect varlist: %s" mapc #[(s) "9\203�	\nC@BA*B\211\207:\203D�G\305X\203D�\306A@\f@\307=\2030�\2021�	\"\210	@\nC@BA*B\211\207\310\311\"\207" [s newenv var env form 2 elint-form let elint-error "Malformed `let' declaration: %s"] 4] elint-forms] 4 (#$ . 14275)])
#@28 Lint the setq FORM in ENV.
(defalias 'elint-check-setq-form #[(form env) "\306G\307\"\310U\204�\311\312\"\210	\313\211A\203[�@A@AA9\203;�\314\f\"\203@�\315\316\"\210\202@�\311\317\"\210\320\n\f\"\2109\203�\f
C	@B	A*B\202�\f+\207" [form env val sym newenv var mod 2 1 elint-error "Missing value in setq: %s" nil elint-unbound-variable elint-warning "Setting previously unbound symbol: %s" "Setting non-symbol in setq: %s" elint-form] 3 (#$ . 14865)])
#@39 Lint the defvar/defconst FORM in ENV.
(defalias 'elint-check-defvar-form #[(form env) "G\303U\204�G\304U\204�G\305U\2031�\3048;\2031�\306\3038	\"A@\211@\nCC\244\210	*\207\307\310\"\210	\207" [form env var 2 3 4 elint-form elint-error "Malformed variable declaration: %s"] 4 (#$ . 15347)])
#@33 Lint the defcustom FORM in ENV.
(defalias 'elint-check-defcustom-form #[(form env) "G\303V\203&�\304\305G\306\"!\203&�\307\3108	\"A@\211@\nCC\244\210	*\207\311\312\"\210	\207" [form env var 3 zerop logand 1 elint-form 2 elint-error "Malformed variable declaration: %s"] 5 (#$ . 15653)])
#@32 Lint the function FORM in ENV.
(defalias 'elint-check-function-form #[(form env) "\243@\2119\203%�\n		\nA@\236*\204!�\303	!\204!�\304\305\"\210\n\202G�	:\2038�	@\306>\2038�\307	\n\"\202G�	;\203A�\n\202G�\310\311\"\210\n)\207" [form func env fboundp elint-warning "Reference to undefined function: %s" (lambda macro) elint-form elint-error "Not a function object: %s"] 4 (#$ . 15953)])
#@29 Lint the quote FORM in ENV.
(defalias 'elint-check-quote-form #[(form env) "\207" [env] 1 (#$ . 16350)])
#@30 Check the macro FORM in ENV.
(defalias 'elint-check-macro-form #[(form env) "\302@AD	\"\207" [form env elint-check-function-form] 3 (#$ . 16462)])
#@39 Check the condition-case FORM in ENV.
(defalias 'elint-check-condition-case-form #[(form env) "\nG\306W\203�\307\310\n\"\210\202p�\nA@9\204�\311\312\n\"\210\313\314\n8\"\nA@C@BA*B\306\n\233\315
\203o�
@@\316\317\f9\203O�\fC\202^�\f<\203X�\f\202^�\307\320\f\"\210\315\"\210\321
@A\"\210
A\211\204?�+	)\207" [env resenv form var errlist errforms 3 elint-error "Malformed condition-case: %s" elint-warning "First parameter should be a symbol: %s" elint-form 2 nil mapc #[(s) "\301N\206�\302N\206�\303\304\"\207" [s error-conditions error-message elint-warning "Not an error symbol in error handler: %s"] 3] "Bad error list in error handler: %s" elint-forms newenv] 6 (#$ . 16617)])
#@84 Report a linting error.
STRING and ARGS are thrown on `format' to get the message.
(defalias 'elint-error #[(string &rest args) "\303\304	#\305\n!)\207" [string args errstr apply format elint-log-message] 4 (#$ . 17327)])
#@86 Report a linting warning.
STRING and ARGS are thrown on `format' to get the message.
(defalias 'elint-warning #[(string &rest args) "\303\304	#\305\n!)\207" [string args errstr apply format elint-log-message] 4 (#$ . 17557)])
#@44 Insert ERRSTR last in the lint log buffer.
(defalias 'elint-log-message #[(errstr) "\212\306 q\210db\210n\204�\307 \210\204O�	\211@)\211@\211\310>\203+�\311\312A@\"\202J�\f\313=\203:�\311\314A@\"\202J�\f\315>\203I�\311\316A@\"\202J�\317*c\210\320
c\210\307 )\207" [elint-top-form-logged elint-top-form top-form form top errstr elint-get-log-buffer newline (defun defsubst) format "\n** function %s **\n" defmacro "\n** macro %s **\n" (defvar defconst) "\n** variable %s **\n" "\n** top level expression **\n" t] 4 (#$ . 17791)])
#@79 Clear the lint log buffer.
Insert HEADER followed by a blank line if non-nil.
(defalias 'elint-clear-log #[(&optional header) "\212\301 q\210\302 \210\205�c\210\303 )\207" [header elint-get-log-buffer erase-buffer newline] 1 (#$ . 18335)])
#@30 Display the lint log buffer.
(defalias 'elint-display-log #[nil "\301\302\303 !\210\304\305!)\207" [pop-up-windows t display-buffer elint-get-log-buffer sit-for 0] 2 (#$ . 18584)])
#@32 Return a log buffer for elint.
(defalias 'elint-get-log-buffer #[nil "\304!\211\203\f�	\202�p\305!q\306\nq\210))\207" [elint-log-buffer buf oldbuf truncate-lines get-buffer get-buffer-create t] 3 (#$ . 18772)])
#@19 Initialize elint.
(defalias 'elint-initialize #[nil "\301\302\303 \"\210\304\305\"\207" [elint-unknown-builtin-args mapc #[(x) "@9?\206�A\301=\206�\302@\303A#\207" [x unknown put elint-args] 4] elint-find-builtin-args mapcar #[(x) "\301@\302A#\207" [x put elint-args] 4]] 3 (#$ . 18995) nil])
#@43 Returns a list of all built-in functions.
(defalias 'elint-find-builtins #[nil "\301\302\303!\210)\207" [subrs nil mapatoms #[(s) "\302!\205�\303K!\205�	B\211\207" [s subrs fboundp subrp] 2]] 2 (#$ . 19303)])
#@299 Returns a list of the built-in functions and their arguments.

If LIST is nil, call `elint-find-builtins' to get a list of all built-in
functions, otherwise use LIST.

Each functions is represented by a cons cell:
(function-symbol . args)
If no documentation could be found args will be `unknown'.
(defalias 'elint-find-builtin-args #[(&optional list) "\301\302\206�\303 \"\207" [list mapcar #[(f) "\302\303\"\211\203�\304\305	\"\203�\306\307\310\217\206�\311B)\207" [f doc documentation t string-match "\n\n(fn\$.*)\$\\'" nil (byte-code "\302\303\304\305\306	\"#!\207" [f doc read format "(%s %s" match-string 1] 7) ((error)) unknown] 4] elint-find-builtins] 3 (#$ . 19527)])
(provide 'elint)

${this.title}

Code Editor : elint.elc