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

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

(byte-code "\300\301!\210\302\303!\210\304\303\305\306\307\310\311\312\313\314&	\207" [require edebug provide testcover custom-declare-group nil "Code-coverage tester." :group lisp :prefix "testcover-" :version "21.1"] 10)
#@108 Variables whose values never change.  No brown splotch is shown for
these.  This list is quite incomplete!
(custom-declare-variable 'testcover-constants ''(nil t emacs-build-time emacs-version emacs-major-version emacs-minor-version) '(#$ . 844) :group 'testcover :type '(repeat variable))
#@309 Functions that always return the same value.  No brown splotch is shown
for these.  This list is quite incomplete!  Notes: Nobody ever changes the
current global map.  The macro `lambda' is self-evaluating, hence always
returns the same value (the function it defines may return varying values
when called).
(custom-declare-variable 'testcover-1value-functions ''(backward-char barf-if-buffer-read-only beginning-of-line buffer-disable-undo buffer-enable-undo current-global-map deactivate-mark delete-backward-char delete-char delete-region ding forward-char function* insert insert-and-inherit kill-all-local-variables kill-line kill-paragraph kill-region kill-sexp lambda minibuffer-complete-and-exit narrow-to-region next-line push-mark put-text-property run-hooks set-match-data signal substitute-key-definition suppress-keymap undo use-local-map while widen yank) '(#$ . 1141) :group 'testcover :type 'hook)
#@126 Subset of `testcover-1value-functions' -- these never return.  We mark
them as having returned nil just before calling them.
(custom-declare-variable 'testcover-noreturn-functions ''(error noreturn throw signal) '(#$ . 2062) :group 'testcover :type 'hook)
#@262 Functions that are 1-valued if all their args are either constants or
calls to one of the `testcover-1value-functions', so if that's true then no
brown splotch is shown for these.  This list is quite incomplete!  Most
side-effect-free functions should be here.
(custom-declare-variable 'testcover-compose-functions ''(+ - * / = append length list make-keymap make-sparse-keymap mapcar message propertize replace-regexp-in-string run-with-idle-timer set-buffer-modified-p) '(#$ . 2325) :group 'testcover :type 'hook)
#@227 Functions whose return value is the same as their last argument.  No
brown splotch is shown for these if the last argument is a constant or a
call to one of the `testcover-1value-functions'.  This list is probably
incomplete!
(custom-declare-variable 'testcover-progn-functions ''(define-key fset function goto-char mapc overlay-put progn save-current-buffer save-excursion save-match-data save-restriction save-selected-window save-window-excursion set set-default set-marker-insertion-type setq setq-default with-current-buffer with-output-to-temp-buffer with-syntax-table with-temp-buffer with-temp-file with-temp-message with-timeout) '(#$ . 2848) :group 'testcover :type 'hook)
#@194 Functions whose return value is the same as their first argument.  No
brown splotch is shown for these if the first argument is a constant or a
call to one of the `testcover-1value-functions'.
(custom-declare-variable 'testcover-prog1-functions ''(prog1 unwind-protect) '(#$ . 3538) :group 'testcover :type 'hook)
#@117 Functions that are potentially 1-valued.  No brown splotch if actually
1-valued, no error if actually multi-valued.
(custom-declare-variable 'testcover-potentially-1value-functions ''(add-hook and beep or remove-hook unless when) '(#$ . 3859) :group 'testcover)
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\207" [custom-declare-face testcover-nohits ((t (:background "DeepPink2"))) "Face for forms that had no hits during coverage test" :group testcover testcover-1value ((t (:background "Wheat2"))) "Face for forms that always produced the same value during coverage test"] 6)
#@81 Symbols declared with defconst in the last file processed by
`testcover-start'.
(defvar testcover-module-constants nil (#$ . 4465))
#@131 Symbols declared with defun in the last file processed by
`testcover-start', whose functions should always return the same value.
(defvar testcover-module-1value-functions nil (#$ . 4604))
#@130 Symbols declared with defun in the last file processed by
`testcover-start', whose functions might always return the same value.
(defvar testcover-module-potentially-1value-functions nil (#$ . 4800))
#@60 Locally bound to coverage vector for function in progress.
(defvar testcover-vector nil (#$ . 5006))
#@270 Uses edebug to instrument all macros and functions in FILENAME, then
changes the instrumentation from edebug to testcover--much faster, no
problems with type-ahead or post-command-hook, etc.  If BYTE-COMPILE is
non-nil, byte-compiles each function after instrumenting.
(defalias 'testcover-start #[(filename &optional byte-compile) "\306!\307\310\311\211\311\312!\210+\205J�\313\f!\311\211\205I�@\314@!\203?�\315\316@\"\210\317@!\210A\211\204%�\311*\207" [filename edebug-all-defs load-read-function buf edebug-form-data testcover-module-constants find-file testcover-read t nil eval-buffer reverse fboundp message "Compiling %s..." byte-compile testcover-module-1value-functions x --dolist-tail--] 4 (#$ . 5114) "fStart covering file: "])
#@41 Start coverage on function under point.
(defalias 'testcover-this-defun #[nil "\302\303\304!K\305	!\210	*\207" [edebug-all-defs x t eval-defun nil testcover-reinstrument] 2 (#$ . 5889) nil])
#@77 Read a form using edebug, changing edebug callbacks to testcover callbacks.
(defalias 'testcover-read #[(&optional stream) "\302!\303	!\210	)\207" [stream x edebug-read testcover-reinstrument] 2 (#$ . 6088)])
#@233 Reinstruments FORM to use testcover instead of edebug.  This
function modifies the list that FORM points to.  Result is nil if
FORM should return multiple vlues, t if should always return same
value, 'maybe if either is acceptable.
(defalias 'testcover-reinstrument #[(form) "\242\306\211\211\204 �9\203�\f>\204�
>\205\307\202:\2032�\310!\210\311A!\210\306\202*>\204@�+>\203I�\311A!\210\307\202,>\204W�->\203`�\311A!\210\312\202.>\203n�\311A!\202/>\203\213�\311\2110AA)!\210\310\2110A@)!\2021>\203\232�\313A\310\"\202\314=\203\315�\315\240\210A\316\233\241\210\2110A@)\2110A@)\317N2\311\3208\2110A@)AA!)\202\321=\203X\2110A@)\322=\204\361�2\2110A@)\2110A@)\323I\210\3208\211AA\241\210\310\3208!\211\307=\203\324\240\210\202\325\240\210	\2032\n\326I\210\3208\2423>\203?A@\n\327BB\240\210\330\240\2102\n\326I\210\307\202T\3208\242\326=\203T\3072\n\326I\210\324\240\210	\202\331=\203\214\311\316\233!\211\307=\203v\2110A@)+B+	\312=\205\2110A@)-B\211-\202\332>\203\250\2110A@)
B\311\2110AA)!\202\333>\203\326\311\2110AA)!\210\311\2110A@)!\320\2110A@)8\203\322	\202\307\202\334>\203\363\335\311\2110A@)\"\210\311\2110AA)!\202\336=\203\310\2110A@)!\210\310\3208!\311\316\233!4\2115\2054\205\312*\202\337=\2031\313A\311\"\205\312\202\340=\203W\310\3208!\313\341\342\316\233\"\311\"6\2117\205S6\205S\312*\202\343=\203a\307\202\344=\203z\343*B*\310\2110A@)!)\202\345=\203\224\346\343*\"*\310\2110A@)!)\202\326=\203$\2110A@)9\203\251\307\202\2110A@)@\321=\203\355\316\2110A@)89\203\3552\320\2110A@)8\326I\210A\324\320\2110A@)8\316\2110A@)8E\240\210\307\202\2110A@)@\321=\203\316\2110A@)8@\202\2110A@)@\n*B*\310\2110A@)!)\202\347=\203\270\2110A@)9\2039\312\202\2110A@)@\321=\203\201\316\2110A@)89\203\2012\320\2110A@)8\326I\210A\330\325\320\2110A@)8\350BB\316\2110A@)8E\240\210\312\202\2110A@)@\321=\203\234\316\2110A@)8@\202\245\2110A@)@\n3B3\310\2110A@)!)\202\351=\203�\2110A@)\242\343=\203�\2110A@)\2110A@)9\203�\2110A@)\2110A@)\2110AA)B\310!AA\241\210	\202\311A!\210\306+\207" [form val id fun testcover-constants testcover-module-constants nil t testcover-reinstrument testcover-reinstrument-list maybe testcover-reinstrument-compose edebug-enter testcover-enter 3 edebug-coverage 2 edebug-after 0 ok-coverage testcover-1value testcover-after 1value (nil) progn defun (defconst defcustom) (dotimes dolist) (let let*) mapc if cond condition-case mapcar cdr quote \` \, remq noreturn (nil) apply testcover-1value-functions testcover-module-1value-functions testcover-potentially-1value-functions testcover-module-potentially-1value-functions testcover-progn-functions testcover-prog1-functions x testcover-compose-functions testcover-vector testcover-noreturn-functions else then errs body] 7 (#$ . 6306)])
#@268 Reinstruments each form in LIST to use testcover instead of edebug.
This function modifies the forms in LIST.  Result is `testcover-reinstrument's
value for the last form in LIST.  If the LIST is empty, its evaluation will
always be nil, so we return t for 1-valued.
(defalias 'testcover-reinstrument-list #[(list) "\302	:\203�\303	\211A@!\202�)\207" [result list t testcover-reinstrument] 3 (#$ . 9316)])
#@314 For a compositional function, the result is 1-valued if all
arguments are, potentially 1-valued if all arguments are either
definitely or potentially 1-valued, and multi-valued otherwise.
FUN should be `testcover-reinstrument' for compositional functions,
  `testcover-reinstrument-list' for clauses in a `cond'.
(defalias 'testcover-reinstrument-compose #[(list fun) "\302\303\304	\"\210)\207" [result list t mapc #[(x) "	!\n\303=\203�	\211\207\n\304=\205�	?\205�\305\211\207" [fun x result t maybe nil] 2]] 3 (#$ . 9735)])
#@67 Turn off instrumentation of all macros and functions in FILENAME.
(defalias 'testcover-end #[(filename) "\302!\303	\304\")\207" [filename buf find-file-noselect eval-buffer t] 3 (#$ . 10275) "fStop covering file: "])
#@179 Internal function for coverage testing.  Invokes TESTCOVER-FUN while
binding `testcover-vector' to the code-coverage vector for TESTCOVER-SYM
(the name of the current function).
(defalias 'testcover-enter #[(testcover-sym testcover-fun) "\303N\n )\207" [testcover-sym testcover-vector testcover-fun edebug-coverage] 2 (#$ . 10501)])
#@111 Internal function for coverage testing.  Returns VAL after installing it in
`testcover-vector' at offset IDX.
(defalias 'testcover-after #[(idx val) "	H\303=\203�	\nI\210\202�	H\n\232\204�	\304I\210\n\207" [testcover-vector idx val unknown ok-coverage] 3 (#$ . 10843)])
#@189 Internal function for coverage testing.  Returns VAL after installing it in
`testcover-vector' at offset IDX.  Error if FORM does not always return the
same value during coverage testing.
(defalias 'testcover-1value #[(idx val) "	H\303=\203�	\303\nBI\210\202)�	H\242\303=\203$�	HA\n\232\204)�\304\305\n\"\210\n\207" [testcover-vector idx val 1value error "Value of form marked with `1value' does vary: %s"] 4 (#$ . 11127)])
#@616 Marks one DEF (a function or macro symbol) to highlight its contained forms
that did not get completely tested during coverage tests.
  A marking with the face `testcover-nohits' (default = red) indicates that the
form was never evaluated.  A marking using the `testcover-1value' face
(default = tan) indicates that the form always evaluated to the same value.
  The forms throw, error, and signal are not marked.  They do not return and
would always get a red mark.  Some forms that always return the same
value (e.g., setq of a constant), always get a tan mark that can't be
eliminated by adding more test cases.
(defalias 'testcover-mark #[(def) "\306N\211@\307	8\211G\310 \311N\312\211\312 \n\203,�\203,�\2041�\313\314\"\210\f\315V\205\221�\316\n!q\210\317\320\321\n\322\n\fSH\323#\"\"\210\f\315V\203\216�\fS\fH\211\324=\204K�	\242\325=\204K�\n\fH\\\211\203K�\326S\"\327\330	\331>\203\210�\332\202\211�\333#\210\202K�\334
!.	\207" [def data def-mark points len changed edebug 2 buffer-modified-p edebug-coverage nil error "Missing edebug data for function %s" 0 marker-buffer mapc delete-overlay overlays-in + 1 ok-coverage 1value make-overlay overlay-put face (unknown 1value) testcover-nohits testcover-1value set-buffer-modified-p coverage ov j item] 9 (#$ . 11563)])
#@122 Mark all forms in BUFFER that did not get completley tested during
coverage tests.  This function creates many overlays.
(defalias 'testcover-mark-all #[(&optional buffer) "\203�\304!\210\305b\210	\306\211\205*�@\211@\307N\203\"�\310\n@!\210A\211\204�\306*\207" [buffer edebug-form-data x --dolist-tail-- switch-to-buffer 1 nil edebug testcover-mark] 3 (#$ . 12879) "bMark forms in buffer: "])
#@36 Remove all overlays from FILENAME.
(defalias 'testcover-unmark-all #[(buffer) "\300\301\302\217\207" [nil (byte-code "q\210\301\302\303\304\305 \"\"\207" [buffer mapc delete-overlay overlays-in 1 buffer-size] 5) ((error))] 3 (#$ . 13289) "bUnmark forms in buffer: "])
#@64 Moves point to next line in current buffer that has a splotch.
(defalias 'testcover-next-mark #[nil "\300`!b\210\301\207" [next-overlay-change nil] 2 (#$ . 13564) nil])

${this.title}

Code Editor : testcover.elc