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

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

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

(byte-code "\300\301!\210\302\303!\207" [provide unsafep require byte-opt] 2)
#@62 A list of assumed-safe functions, or t to disable `unsafep'.
(custom-declare-variable 'safe-functions 'nil '(#$ . 694) :group 'lisp :type '(choice (const :tag "No" nil) (const :tag "Yes" t) hook))
#@87 Dynamically-bound list of variables with lexical bindings at this point
in the parse.
(defvar unsafep-vars nil (#$ . 897))
(byte-code "\302\303\304\305#\210\306\307\211\203�	@\302\310\305#\210	A\211\204�*\311\307\211\2037�	@\302\312\305#\210	A\211\204'�*\307\207" [x --dolist-tail-- put unsafep-vars risky-local-variable t (assoc-default assoc-ignore-case butlast last match-string match-string-no-properties member-ignore-case remove remq) nil side-effect-free (and catch if or prog1 prog2 progn while unwind-protect ding error message minibuffer-message random read-minibuffer signal sleep-for string-match throw y-or-n-p yes-or-no-p caar cadr cdar cddr save-match-data unless when with-temp-message read-passwd split-string replace-regexp-in-string play-sound-file) safe-function] 5)
#@166 Return nil if evaluating FORM couldn't possibly do any harm.
Otherwise result is a reason why FORM is unsafe.
UNSAFEP-VARS is a list of symbols with local bindings.
(defalias 'unsafep #[(form &optional unsafep-vars) "\300\301\215\207" [unsafep (byte-code "\306=\204�	:\204�\307\310\311\"\210	@\312\n!\311\204$�\313	A!\202\n\314=\203.�\311\202\n\315>\203q�	\211A@)\211\242\316>\203N�\312\f\211A@)!\202b�\f\242\317=\203^�\310\f!\"\202b�\320\fD\206\313	\211AA)!\202\n\317=\203\214�\321\322	\211A@)\"\210\313	\211AA)!\202\n\323=\203\253�\324\325	\211A@)\"!\244!\313	\211AA)!\202\n\326=\203\340�	\211A@)\311\211\"\203\324�\"@\325
!!B!\"A\211\"\204\277�*\313	\211AA)!\202\n\327=\203	A\211\205\330\f@\311\"\206\377�\310\f\211A@)!\"\211\203	\307\310\"\210\f\211AA)\211\202\352�\n\331=\203&\330	\211A@)\311\"\202\n\332=\203B\310	\211A@)!\"\206\330\333	8\311\"\202\n\334=\203s	\211A@)\211\242\314=\204\\\320\fD\202\330\f\211A@)\311\"\206\313	\211AA)!\202\n\335=\203\242	A\311\211\"\205\236\"@\313
!\211\203\224\307\310\"\210\"A\211\"\204\203\311*\202\n\336>\203\311	\211A@)\313\fA!\206\f@!B!\313	\211AA)!)\202\n\337=\203\330	\211A@)\306\"\206\310\333	8!\"\206	\211A@)!B!\340	\233\311\211\"\205\"@\313
A!\211\203
\307\310\"\210\"A\211\"\204\373\311+\202+\207" [safe-functions form fun reason arg x t throw unsafep nil unsafep-function unsafep-progn quote (apply mapc mapcar mapconcat) 'function lambda unquoted mapc #[(x) "\303>\206�\304\305\"\211\203�\306\307	\"\210\nB\211)\207" [x y unsafep-vars (&optional &rest) unsafep-variable t throw unsafep] 4] let mapcar unsafep-let let* setq unsafep-variable pop push 2 add-to-list cond (dolist dotimes) condition-case 3 unsafep-vars --dolist-tail--] 4)] 2 (#$ . 1703)])
#@137 Return nil if FUN is a safe function.
(Either a safe lambda or a symbol that names a safe function).
Otherwise result is a reason code.
(defalias 'unsafep-function #[(fun) "\242\303=\203\f�\304	\"\2079\205(�\305N\206(�\306N\307=\206(�\n\307=\206(�\n>?\205/�\310D\207" [fun unsafep-vars safe-functions lambda unsafep side-effect-free safe-function t function] 3 (#$ . 3553)])
#@94 Return nil if all forms in LIST are safe.
Else, return the reason for the first unsafe form.
(defalias 'unsafep-progn #[(list) "\300\301\215\207" [unsafep-progn (byte-code "\305	\305\211\205#�@\306\n\f\"\211\203�\307\310\"\210A\211\204\n�\305+\207" [reason list x --dolist-tail-- unsafep-vars nil unsafep throw unsafep-progn] 4)] 2 (#$ . 3941)])
#@160 Check the safety of a let binding.
CLAUSE is a let-binding, either SYM or (SYM) or (SYM VAL).
Check VAL and throw a reason to `unsafep' if unsafe.
Return SYM.
(defalias 'unsafep-let #[(clause) "\305\211\n:\204�\n\202�\n@\306\n\211A@)\f\"\307\310\"\206#�	\211\203-�\311\306	\"\210*\207" [sym reason clause x unsafep-vars nil unsafep unsafep-variable t throw] 4 (#$ . 4304)])
#@169 Return nil if SYM is safe to set or bind, or a reason why not.
If TO-BIND is nil, check whether SYM is safe to set.
If TO-BIND is t, check whether SYM is safe to bind.
(defalias 'unsafep-variable #[(sym to-bind) "9\204	�\303D\207\304\305\"\203�\306D\207	\206!�\n>\206!�\307!?\205(�\310D\207" [sym to-bind unsafep-vars variable risky-local-variable-p nil risky-local-variable local-variable-p global-variable] 3 (#$ . 4696)])

${this.title}

Code Editor : unsafep.elc