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 : tcover-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/tcover-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 "`tcover-unsafep.el' was compiled for Emacs 19.29 or later"))

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

(require 'testcover)
#@54 List of forms that `unsafep' should decide are safe.
(defconst testcover-unsafep-safe '(((lambda (x) (* x 2)) 14) (apply 'cdr (mapcar '(lambda (x) (car x)) y)) (cond ((= x 4) 5) (t 27)) (condition-case x (car y) (error (car x))) (dolist (x y) (message "here: %s" x)) (dotimes (x 14 (* x 2)) (message "here: %d" x)) (let (x) (dolist (y '(1 2 3) (1+ y)) (push y x))) (let (x) (apply '(lambda (x) (* x 2)) 14)) (let ((x '(2))) (push 1 x) (pop x) (add-to-list 'x 2)) (let ((x 1) (y 2)) (setq x (+ x y))) (let ((x 1)) (let ((y (+ x 3))) (* x y))) (let* nil (current-time)) (let* ((x 1) (y (+ x 3))) (* x y)) (mapcar (lambda (x &optional y &rest z) (setq y (+ x 2)) (* y 3)) '(1 2 3)) (mapconcat #'(lambda (var) (propertize var 'face 'bold)) '("1" "2") ", ") (setq buffer-display-count 14 mark-active t) (propertize "x" 'display '(height (progn (delete-file "x") 1)))) (#$ . 651))
#@70 A-list of (FORM . REASON)... that`unsafep' should decide are unsafe.
(defconst testcover-unsafep-unsafe '(((add-to-list x y) unquoted x) ((add-to-list y x) unquoted y) ((add-to-list 'y x) global-variable y) ((not (delete-file "unsafep.el")) function delete-file) ((cond (t (aset local-abbrev-table 0 0))) function aset) ((cond (t (setq unsafep-vars #1=""))) risky-local-variable unsafep-vars) ((condition-case format-alist 1) risky-local-variable format-alist) ((condition-case x 1 (error (setq format-alist #1#))) risky-local-variable format-alist) ((dolist (x (sort globalvar 'car)) (princ x)) function sort) ((dotimes (x 14) (delete-file "x")) function delete-file) ((let ((post-command-hook "/tmp/")) 1) risky-local-variable post-command-hook) ((let ((x (delete-file "x"))) 2) function delete-file) ((let (x) (add-to-list 'x (delete-file "x"))) function delete-file) ((let (x) (condition-case y (setq x 1 z 2))) global-variable z) ((let (x) (condition-case z 1 (error (delete-file "x")))) function delete-file) ((let (x) (mapc (lambda (x) (setcar x 1)) '((1 . 2) (3 . 4)))) function setcar) ((let (y) (push (delete-file "x") y)) function delete-file) ((let* ((x 1)) (setq y 14)) global-variable y) ((mapc 'car (list '(1 . 2) (cons 3 4) (kill-buffer "unsafep.el"))) function kill-buffer) ((mapcar x y) unquoted x) ((mapcar '(lambda (x) (rename-file x "x")) '("unsafep.el")) function rename-file) ((mapconcat x1 x2 " ") unquoted x1) ((pop format-alist) risky-local-variable format-alist) ((push 1 format-alist) risky-local-variable format-alist) ((setq buffer-display-count (delete-file "x")) function delete-file) ((apply '(x) '(1 2 3)) function (x)) ((let (((x))) 1) variable (x)) ((let (1) 2) variable 1)) (#$ . 1532))
#@63 Executes all unsafep tests and displays the coverage results.
(defalias 'testcover-unsafep #[nil "\306\307!\210\310\307!\210\311	\311\211\203'�@\312\n!\203 �\313\314\n\"\210A\211\204�*\f\311\211\203L�@\312\n@!\nA\232\204E�\313\315\n@\nA#\210A\211\2040�*\316\312\317!\204[�\320\321!\203_�\313\322!\210\323\312\324!\203k�\313\325!\210\312\326!\204u�\313\327!\210)\330\307!\210\331\307!\210\332\333!\207" [save-functions testcover-unsafep-safe x --dolist-tail-- testcover-unsafep-unsafe safe-functions testcover-unmark-all "unsafep.el" testcover-start nil unsafep error "%S should be safe" "%S should be unsafe: %s" t (delete-file "x") unsafep-function delete-file "safe-functions=t should allow delete-file" (setcar) (setcar x 1) "safe-functions=(setcar) should allow setcar" (setcdr x 1) "safe-functions=(setcar) should not allow setcdr" testcover-mark-all testcover-end message "Done"] 5 (#$ . 3262) nil])

${this.title}

Code Editor : tcover-unsafep.elc