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 : byte-run.elc

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

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

#@276 Process a declaration found in a macro definition.
This is set as the value of the variable `macro-declaration-function'.
MACRO is the name of the macro being defined.
DECL is a list `(declare ...)' containing the declarations.
The return value of this function is not used.
(defalias 'macro-declaration-function #[(macro decl) "\303	A\211\205c�	@\211:\203[�A<\203[�AA\204[�@\304=\203/�\305\n\306A@#\210\202�@\307=\203A�\305\n\310A@#\210\202�@\311=\203S�\305\n\312A@#\210\202�\313\314\"\210\202�\313\315\"\210\202�)\207" [d decl macro nil indent put lisp-indent-function debug edebug-form-spec doc-string doc-string-elt message "Unknown declaration %s" "Invalid declaration %s"] 5 (#$ . 617)])(if macro-declaration-function (funcall macro-declaration-function (quote defsubst) (quote (declare (debug defun)))))
(byte-code "\300\301\302M\210\303\301\304\305#\207" [macro-declaration-function inline progn put lisp-indent-function 0] 4)
#@70 Define an inline function.  The syntax is just like that of `defun'.
(defalias 'defsubst '(macro . #[(name arglist &rest body) "\303N\304>\204
�\305\306\"\210\307\310	\nBBB\311\312\313D\314BBDE\207" [name arglist body byte-optimizer (nil byte-compile-inline-expand) error "`%s' is a primitive" prog1 defun eval-and-compile put quote ('byte-optimizer 'byte-compile-inline-expand)] 6 (#$ . 1577)]))
#@379 Make the byte-compiler warn that OBSOLETE-NAME is obsolete.
The warning will say that CURRENT-NAME should be used instead.
If CURRENT-NAME is a string, that is the `use instead' message
(it should end with a period, and not start with a capital).
If provided, WHEN should be a string indicating when the function
was first made obsolete, for example a date or a release number.
(defalias 'make-obsolete #[(obsolete-name current-name &optional when) "\304N\211\305=\203�\306NA@\202�\307\304\305#\210\307\306\n	E#\210)\207" [obsolete-name handler current-name when byte-compile byte-compile-obsolete byte-obsolete-info put] 7 (#$ . 1985) "aMake function obsolete: \nxObsoletion replacement: "])(if macro-declaration-function (funcall macro-declaration-function (quote define-obsolete-function-alias) (quote (declare (doc-string 4)))))
#@366 Set OBSOLETE-NAME's function definition to CURRENT-NAME and mark it obsolete.

(define-obsolete-function-alias 'old-fun 'new-fun "22.1" "old-fun's doc.")

is equivalent to the following two lines of code:

(defalias 'old-fun 'new-fun "old-fun's doc.")
(make-obsolete 'old-fun 'new-fun "22.1")

See the docstrings of `defalias' and `make-obsolete' for more details.
(defalias 'define-obsolete-function-alias '(macro . #[(obsolete-name current-name &optional when docstring) "\304\305	\nF\306	FE\207" [obsolete-name current-name docstring when progn defalias make-obsolete] 6 (#$ . 2835)]))
#@319 Make the byte-compiler warn that OBSOLETE-NAME is obsolete.
The warning will say that CURRENT-NAME should be used instead.
If CURRENT-NAME is a string, that is the `use instead' message.
If provided, WHEN should be a string indicating when the variable
was first made obsolete, for example a date or a release number.
(defalias 'make-obsolete-variable #[(obsolete-name current-name &optional when) "\303\304	\nB#\210\207" [obsolete-name current-name when put byte-obsolete-variable] 5 (#$ . 3434) (list (let ((str (completing-read "Make variable obsolete: " obarray 'boundp t))) (if (equal str #1="") (error #1#)) (intern str)) (car (read-from-string (read-string "Obsoletion replacement: "))))])(if macro-declaration-function (funcall macro-declaration-function (quote define-obsolete-variable-alias) (quote (declare (doc-string 4)))))
#@943 Make OBSOLETE-NAME a variable alias for CURRENT-NAME and mark it obsolete.

(define-obsolete-variable-alias 'old-var 'new-var "22.1" "old-var's doc.")

is equivalent to the following two lines of code:

(defvaralias 'old-var 'new-var "old-var's doc.")
(make-obsolete-variable 'old-var 'new-var "22.1")

If CURRENT-NAME is a defcustom (more generally, any variable
where OBSOLETE-NAME may be set, e.g. in a .emacs file, before the
alias is defined), then the define-obsolete-variable-alias
statement should be placed before the defcustom.  This is so that
any user customizations are applied before the defcustom tries to
initialize the variable (this is due to the way `defvaralias' works).
Exceptions to this rule occur for define-obsolete-variable-alias
statements that are autoloaded, or in files dumped with Emacs.

See the docstrings of `defvaralias' and `make-obsolete-variable' or
Info node `(elisp)Variable Aliases' for more details.
(defalias 'define-obsolete-variable-alias '(macro . #[(obsolete-name current-name &optional when docstring) "\304\305	\nF\306	FE\207" [obsolete-name current-name docstring when progn defvaralias make-obsolete-variable] 6 (#$ . 4280)]))(if macro-declaration-function (funcall macro-declaration-function (quote dont-compile) (quote (declare (debug t) (indent 0)))))
#@140 Like `progn', but the body always runs interpreted (not compiled).
If you think you need this, you're probably making a mistake somewhere.
(defalias 'dont-compile '(macro . #[(&rest body) "\301\302A\203
�\303B\202�@DD\207" [body eval quote progn] 4 (#$ . 5596)]))(if macro-declaration-function (funcall macro-declaration-function (quote eval-when-compile) (quote (declare (debug t) (indent 0)))))
#@211 Like `progn', but evaluates the body at compile time if you're compiling.
Thus, the result of the body appears to the compiler as a quoted constant.
In interpreted code, this is entirely equivalent to `progn'.
(defalias 'eval-when-compile '(macro . #[(&rest body) "\301B\207" [body progn] 2 (#$ . 6004)]))(if macro-declaration-function (funcall macro-declaration-function (quote eval-and-compile) (quote (declare (debug t) (indent 0)))))
#@72 Like `progn', but evaluates the body at compile time and at load time.
(defalias 'eval-and-compile '(macro . #[(&rest body) "\301B\207" [body progn] 2 (#$ . 6449)]))
(put 'with-no-warnings 'lisp-indent-function 0)
#@59 Like `progn', but prevents compiler warnings in the body.
(defalias 'with-no-warnings #[(&rest body) "\301!@\207" [body last] 2 (#$ . 6670)])

${this.title}

Code Editor : byte-run.elc