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

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

(byte-code "\300\301!\210\302\303\304\305\306\307\310\311&\207" [require advice custom-declare-group trace nil "Tracing facility for Emacs Lisp functions." :prefix "trace-" :group lisp] 8)
#@50 *Trace output will by default go to that buffer.
(custom-declare-variable 'trace-buffer '"*trace-output*" '(#$ . -802) :type 'string :group 'trace)
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\306\"\210\307B\302\307!\2043�\303\307\310\311\312\313\314\"\"\"\210\301\207" [current-load-list trace-level default-boundp set-default 0 trace-advice-name trace-function\  trace-separator format "%s\n" make-string 70 61] 7)
#@51 If non-nil, all tracing is temporarily inhibited.
(defvar inhibit-trace nil (#$ . 1265))
(defalias 'trace-entry-message #[(function level argument-bindings) "\304\305\306\307\310S\311\"\312#\313V\203�\312\202�\314	\315\306\316\312#)&\207" [level function print-circle argument-bindings format "%s%s%d -> %s: %s\n" mapconcat char-to-string make-string 124 " " 1 "" t #[(binding) "\301\302\303\"!\304\305\302\306\"!Q\207" [binding symbol-name ad-arg-binding-field name "=" prin1-to-string value] 6]] 10])
(defalias 'trace-exit-message #[(function level value) "\304\305\306\307\310S\311\"\312#\313V\203�\312\202�\314	\315\316!)&\207" [level function print-circle value format "%s%s%d <- %s: %s\n" mapconcat char-to-string make-string 124 " " 1 "" t prin1-to-string] 8])
(defalias 'trace-make-advice #[(function buffer background) "\304\305\306\307\310\305\311\312\313\314	DDD\315\316\317\313\320\n?\205�\321\322\323\324\325\326D\327BBD\257E\330\315\316\317\313\n?\2053�\331\332\324\333\326D\334BBD\257E\257F$\207" [trace-advice-name buffer background function ad-make-advice nil t advice lambda let (trace-level (1+ trace-level)) trace-buffer get-buffer-create unless inhibit-trace with-current-buffer (set (make-local-variable 'window-point-insertion-type) t) (display-buffer trace-buffer) (goto-char (point-max)) (if (= trace-level 1) (insert trace-separator)) insert trace-entry-message quote (trace-level ad-arg-bindings) ad-do-it (display-buffer trace-buffer) (goto-char (point-max)) trace-exit-message (trace-level ad-return-value)] 21])
(defalias 'trace-function-internal #[(function buffer background) "\304\305	\206	�\n#\306\307$\210\310\311\"\207" [function buffer trace-buffer background ad-add-advice trace-make-advice around last ad-activate nil] 6])
(defalias 'trace-is-traced #[(function) "\302	\303N\236A\236\207" [trace-advice-name function around ad-advice-info] 4])
#@488 Traces FUNCTION with trace output going to BUFFER.
For every call of FUNCTION Lisp-style trace messages that display argument
and return values will be inserted into BUFFER.  This function generates the
trace advice for FUNCTION and activates it together with any other advice
there might be!! The trace BUFFER will popup whenever FUNCTION is called.
Do not use this to trace functions that switch buffers or do any other
display oriented stuff, use `trace-function-background' instead.
(defalias 'trace-function #[(function &optional buffer) "\302	\303#\207" [function buffer trace-function-internal nil] 4 (#$ . 3185) (list (intern (completing-read "Trace function: " obarray 'fboundp t)) (read-buffer "Output to buffer: " trace-buffer))])
#@445 Traces FUNCTION with trace output going quietly to BUFFER.
When this tracing is enabled, every call to FUNCTION writes
a Lisp-style trace message (showing the arguments and return value)
into BUFFER.  This function generates advice to trace FUNCTION
and activates it together with any other advice there might be.
The trace output goes to BUFFER quietly, without changing
the window or buffer configuration.

BUFFER defaults to `trace-buffer'.
(defalias 'trace-function-background #[(function &optional buffer) "\302	\303#\207" [function buffer trace-function-internal t] 4 (#$ . 3935) (list (intern (completing-read "Trace function in background: " obarray 'fboundp t)) (read-buffer "Output to buffer: " trace-buffer))])
#@244 Untraces FUNCTION and possibly activates all remaining advice.
Activation is performed with `ad-update', hence remaining advice will get
activated only if the advice of FUNCTION is currently active.  If FUNCTION
was not traced this is a noop.
(defalias 'untrace-function #[(function) "\302!\205�\303\304	#\210\305!\207" [function trace-advice-name trace-is-traced ad-remove-advice around ad-update] 4 (#$ . 4665) (list (ad-read-advised-function "Untrace function: " 'trace-is-traced))])
#@42 Untraces all currently traced functions.
(defalias 'untrace-all #[nil "\303\211\203�\n@\304	@!\305	!\210\nA\211\204�*\303\207" [ad-advised-functions function ad-dO-vAr nil intern untrace-function] 3 (#$ . 5162) nil])
(provide 'trace)

${this.title}

Code Editor : trace.elc