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

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

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

(byte-code "\300\301!\210\302\303!\204�\304\305!\210\300\207" [require backquote fboundp defsubst load "byte-run"] 2)
(defalias 'byte-compile-single-version '(macro . #[nil "\300\207" [nil] 1]))
(defalias 'byte-compile-version-cond '(macro . #[(cond) "\207" [cond] 1]))
(custom-declare-group 'bytecomp nil "Emacs Lisp byte-compiler." :group 'lisp)
#@139 Regexp which matches Emacs Lisp source files.
You may want to redefine the function `byte-compile-dest-file'
if you change this variable.
(custom-declare-variable 'emacs-lisp-file-regexp '"\\.el\\'" '(#$ . 967) :group 'bytecomp :type 'regexp)
(defalias 'byte-compiler-base-file-name #[(filename) "\302\303\"\211\203�	\303\"\202�)\207" [filename handler find-file-name-handler byte-compiler-base-file-name] 4])
(byte-code "\300\301!\204�\302\301\303\"\210\304\305\306\"\210\304\307\306\"\210\304\310\306\"\210\304\311\306\"\210\304\312\306\"\207" [fboundp byte-compile-dest-file defalias #[(filename) "\302!\303!\304	\"\203�\305\211\224O\306P\207\306P\207" [filename emacs-lisp-file-regexp byte-compiler-base-file-name file-name-sans-versions string-match 0 ".elc"] 3 "Convert an Emacs Lisp source file name to a compiled file name.\nIf FILENAME matches `emacs-lisp-file-regexp' (by default, files\nwith the extension `.el'), add `c' to it; otherwise add `.elc'."] autoload byte-compile-inline-expand "byte-opt" byte-optimize-form byte-optimize-lapcode byte-compile-unfold-lambda byte-decompile-bytecode] 3)
#@68 Non-nil means print messages describing progress of byte-compiler.
(custom-declare-variable 'byte-compile-verbose '(and (not noninteractive) (> baud-rate search-slow-speed)) '(#$ . 2095) :group 'bytecomp :type 'boolean)
#@172 Non-nil means generate output that can run in Emacs 18.
This only means that it can run in principle, if it doesn't require
facilities that have been added more recently.
(custom-declare-variable 'byte-compile-compatibility 'nil '(#$ . 2322) :group 'bytecomp :type 'boolean)
#@212 Enable optimization in the byte compiler.
Possible values are:
  nil      - no optimization
  t        - all optimizations
  `source' - source-level optimizations only
  `byte'   - code-level optimizations only
(custom-declare-variable 'byte-optimize 't '(#$ . 2604) :group 'bytecomp :type '(choice (const :tag "none" nil) (const :tag "all" t) (const :tag "source-level" source) (const :tag "byte-level" byte)))
#@142 If non-nil, the optimizer may delete forms that may signal an error.
This includes variable references and calls to functions such as `car'.
(custom-declare-variable 'byte-compile-delete-errors 'nil '(#$ . 3023) :group 'bytecomp :type 'boolean)
#@462 If non-nil, compile function bodies so they load lazily.
They are hidden in comments in the compiled file,
and each one is brought into core when the
function is called.

To enable this option, make it a file-local variable
in the source file you want it to apply to.
For example, add  -*-byte-compile-dynamic: t;-*- on the first line.

When this option is true, if you load the compiled file and then move it,
the functions you loaded will not be able to run.
(defvar byte-compile-dynamic nil (#$ . 3275))
#@70 If non-nil, disable `print-circle' on printing a byte-compiled code.
(defvar byte-compile-disable-print-circle nil (#$ . 3788))
#@631 If non-nil, compile doc strings for lazy access.
We bury the doc strings of functions and variables inside comments in
the file, and bring them into core only when they are actually needed.

When this option is true, if you load the compiled file and then move it,
you won't be able to find the documentation of anything in that file.

To disable this option for a certain file, make it a file-local variable
in the source file.  For example, add this to the first line:
  -*-byte-compile-dynamic-docstrings:nil;-*-
You can also set the variable globally.

This option is enabled by default because it reduces Emacs memory usage.
(custom-declare-variable 'byte-compile-dynamic-docstrings 't '(#$ . 3923) :group 'bytecomp :type 'boolean)
#@215 If true, the byte-compiler will log its optimizations into *Compile-Log*.
If this is 'source, then only source-level optimizations will be logged.
If it is 'byte, then only byte-level optimizations will be logged.
(custom-declare-variable 'byte-optimize-log 'nil '(#$ . 4667) :group 'bytecomp :type '(choice (const :tag "none" nil) (const :tag "all" t) (const :tag "source-level" source) (const :tag "byte-level" byte)))
#@59 If true, the byte-compiler reports warnings with `error'.
(custom-declare-variable 'byte-compile-error-on-warn 'nil '(#$ . 5094) :group 'bytecomp :type 'boolean)
#@67 The list of warning types used when `byte-compile-warnings' is t.
(defconst byte-compile-warning-types '(redefine callargs free-vars unresolved obsolete noruntime cl-functions interactive-only make-local mapcar) (#$ . 5262))
#@1077 List of warnings that the byte-compiler should issue (t for all).

Elements of the list may be:

free-vars   references to variables not in the current lexical scope.
  unresolved  calls to unknown functions.
  callargs    function calls with args that don't match the definition.
  redefine    function name redefined from a macro to ordinary function or vice
              versa, or redefined to take a different number of arguments.
  obsolete    obsolete variables and functions.
  noruntime   functions that may not be defined at runtime (typically
              defined only under `eval-when-compile').
  cl-functions    calls to runtime functions from the CL package (as
		  distinguished from macros and aliases).
  interactive-only
	      commands that normally shouldn't be called from Lisp code.
  make-local  calls to make-variable-buffer-local that may be incorrect.
  mapcar      mapcar called for effect.

If the list begins with `not', then the remaining elements specify warnings to
suppress.  For example, (not mapcar) will suppress warnings about mapcar.
(custom-declare-variable 'byte-compile-warnings 't '(#$ . 5495) :group 'bytecomp :type '(choice (const :tag "All" t) (set :menu-tag "Some" (const free-vars) (const unresolved) (const callargs) (const redefine) (const obsolete) (const noruntime) (const cl-functions) (const interactive-only) (const make-local) (const mapcar))))
#@69 Return non-nil if X is valid as a value of `byte-compile-warnings'.
(defalias 'byte-compile-warnings-safe-p #[(x) "\301!\206#�<\205#�@\302=\203�A\211\202�\303\205#�\304\305\"\232\207" [x booleanp not t mapcar #[(e) "	>\205�\207" [e byte-compile-warning-types] 2]] 3 (#$ . 6905)])
#@77 Return non-nil if WARNING is enabled, according to `byte-compile-warnings'.
(defalias 'byte-compile-warning-enabled-p #[(warning) "\302=\206�@\303=\203�	>?\207	>\207" [byte-compile-warnings warning t not] 2 (#$ . 7203)])
#@297 Change `byte-compile-warnings' to disable WARNING.
If `byte-compile-warnings' is t, set it to `(not WARNING)'.
Otherwise, if the first element is `not', add WARNING, else remove it.
Normally you should let-bind `byte-compile-warnings' before calling this,
else the global value will be modified.
(defalias 'byte-compile-disable-warning #[(warning) "\302=\203\f�\303	D\202)�@\303=\203%�	>\203�\202)�\304	C\"\202)�\305	\"\211\207" [byte-compile-warnings warning t not append delq] 3 (#$ . 7437)])
#@284 Change `byte-compile-warnings' to enable WARNING.
If `byte-compile-warnings' is `t', do nothing.  Otherwise, if the
first element is `not', remove WARNING, else add it.
Normally you should let-bind `byte-compile-warnings' before calling this,
else the global value will be modified.
(defalias 'byte-compile-enable-warning #[(warning) "\302=\206%�@\303=\203�\304	\"\202#�	>\203�\202#�\305	C\"\211\207" [byte-compile-warnings warning t not delq append] 3 (#$ . 7947)])
#@61 List of commands that are not meant to be called from Lisp.
(defvar byte-compile-interactive-only-functions '(beginning-of-buffer end-of-buffer replace-string replace-regexp insert-file insert-buffer insert-file-literally previous-line next-line) (#$ . 8429))
#@72 If non-nil, this is a variable that shouldn't be reported as obsolete.
(defvar byte-compile-not-obsolete-var nil (#$ . 8695))
#@642 Non-nil means collect call-graph information when compiling.
This records which functions were called and from where.
If the value is t, compilation displays the call graph when it finishes.
If the value is neither t nor nil, compilation asks you whether to display
the graph.

The call tree only lists functions called, not macros used. Those functions
which the byte-code interpreter knows about directly (eq, cons, etc.) are
not reported.

The call tree also lists those functions which are not known to be called
(that is, to which no calls have been compiled).  Functions which can be
invoked interactively are excluded from this list.
(custom-declare-variable 'byte-compile-generate-call-tree 'nil '(#$ . 8828) :group 'bytecomp :type '(choice (const :tag "Yes" t) (const :tag "No" nil) (other :tag "Ask" lambda)))
#@241 Alist of functions and their call tree.
Each element looks like

(FUNCTION CALLERS CALLS)

where CALLERS is a list of functions that call FUNCTION, and CALLS
is a list of functions for which calls were generated while compiling
FUNCTION.
(defvar byte-compile-call-tree nil (#$ . 9655))
#@125 If non-nil, sort the call tree.
The values `name', `callers', `calls', `calls+callers'
specify different fields to sort on.
(custom-declare-variable 'byte-compile-call-tree-sort ''name '(#$ . 9950) :group 'bytecomp :type '(choice (const name) (const callers) (const calls) (const calls+callers) (const nil)))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list byte-compile-debug default-boundp set-default nil] 3)
#@68 List of all constants encountered during compilation of this form.
(defvar byte-compile-constants nil (#$ . 10400))
#@68 List of all variables encountered during compilation of this form.
(defvar byte-compile-variables nil (#$ . 10522))
#@98 List of variables bound in the context of the current form.
This list lives partly on the stack.
(defvar byte-compile-bound-variables nil (#$ . 10644))
#@74 List of variables declared as constants during compilation of this file.
(defvar byte-compile-const-variables nil (#$ . 10802))
#@205 The default macro-environment passed to macroexpand by the compiler.
Placing a macro here will cause a macro to have different semantics when
expanded by the compiler as when expanded by the interpreter.
(defconst byte-compile-initial-macro-environment '((eval-when-compile lambda (&rest body) (list 'quote (byte-compile-eval (byte-compile-top-level (cons 'progn body))))) (eval-and-compile lambda (&rest body) (byte-compile-eval-before-compile (cons 'progn body)) (cons 'progn body))) (#$ . 10937))
#@169 Alist of macros defined in the file being compiled.
Each element looks like (MACRONAME . DEFINITION).  It is
(MACRONAME . nil) when a macro is redefined as a function.
(defvar byte-compile-macro-environment byte-compile-initial-macro-environment (#$ . 11444))
#@324 Alist of functions defined in the file being compiled.
This is so we can inline them when necessary.
Each element looks like (FUNCTIONNAME . DEFINITION).  It is
(FUNCTIONNAME . nil) when a function is redefined as a macro.
It is (FUNCTIONNAME . t) when all we know is that it was defined,
and we don't know the definition.
(defvar byte-compile-function-environment nil (#$ . 11711))
#@236 Alist of undefined functions to which calls have been compiled.
This variable is only significant whilst compiling an entire buffer.
Used for warnings when a function is not known to be defined or is later
defined with incorrect args.
(defvar byte-compile-unresolved-functions nil (#$ . 12101))
#@227 Alist of functions called that may not be defined when the compiled code is run.
Used for warnings about calling a function that is defined during compilation
but won't necessarily be defined when the compiled file is loaded.
(defvar byte-compile-noruntime-functions nil (#$ . 12403))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\301\207" [current-load-list byte-compile-tag-number default-boundp set-default 0] 3)
#@87 Alist describing contents to put in byte code string.
Each element is (INDEX . VALUE)
(defvar byte-compile-output nil (#$ . 12832))
#@35 Current depth of execution stack.
(defvar byte-compile-depth 0 (#$ . 12970))
#@35 Maximum depth of execution stack.
(defvar byte-compile-maxdepth 0 (#$ . 13053))
#@66 An array containing byte-code names indexed by byte-code values.
(defvar byte-code-vector nil (#$ . 13139))
#@56 An array with the stack adjustment for each byte-code.
(defvar byte-stack+-info nil (#$ . 13253))
(defalias 'byte-defop '(macro . #[(opcode stack-adjust opname &optional docstring) "\306\307N\206�\310\306\307\311\312\313\"#\314\307N\206�\310\314\307\311\312\313\"#\211\nI\210\n\fI\210*
\2036�\315\n\316
\317QF\207\315\nE\207" [v2 v1 opcode opname stack-adjust docstring byte-code-vector tmp-compile-time-value put make-vector 256 nil byte-stack+-info defconst "Byte code opcode " "."] 8]))
(defalias 'byte-extrude-byte-code-vectors '(macro . #[nil "\300\301\211\302N\303\211\302N\257\304\301\302\305#\210\304\303\302\305#\210\207" [setq byte-code-vector tmp-compile-time-value byte-stack+-info put nil] 6]))
#@42 Byte code opcode for variable reference.
(defconst byte-varref 8 (#$ . 13976))
#@42 Byte code opcode for setting a variable.
(defconst byte-varset 16 (#$ . 14061))
#@42 Byte code opcode for binding a variable.
(defconst byte-varbind 24 (#$ . 14147))
#@42 Byte code opcode for calling a function.
(defconst byte-call 32 (#$ . 14234))
#@50 Byte code opcode for unbinding special bindings.
(defconst byte-unbind 40 (#$ . 14318))
(byte-code "\301B\302\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\210\320B\321\322!\210\323B\324\325!\210\326B\327\330!\210\331B\332\333!\210\334B\335\336!\210\337B\340\341!\210\342B\343\344!\210\345B\346\347!\210\350B\351\352!\210\353B\354\355!\210\356B\357\360!\210\361B\362\363!\210\364B\365\366!\210\367B\370\371!\210\372B\373\374!\210\375B\376\377!\210\201@�B\201A�\201B�!\210\201C�B\201D�\201E�!\210\201F�B\201G�\201H�!\210\201I�B\201J�\201K�!\210\201L�B\201M�\201N�!\210\201O�B\201P�\201Q�!\210\201R�B\201S�\201T�!\210\201U�B\201V�\201W�!\210\201X�B\201Y�\201Z�!\210\201[�B\201\\�\201]�!\210\201^�B\201_�\201`�!\210\201a�B\201b�\201c�!\210\201d�B\201e�\201f�!\210\201g�B\201h�\201i�!\210\201j�B\201k�\201l�!\210\201m�B\201n�\201o�!\210\201p�B\201q�\201r�!\210\201s�B\201t�\201u�!\210\201v�B\201w�\201x�!\210\201y�B\201z�\201{�!\210\201|�B\201}�\201~�!\210\201�B\201\200�\201\201�!\210\201\202�B\201\203�\201\204�!\210\201\205�B\201\206�\201\207�!\210\201\210�B\201\211�\201\212�!\210\201\213�B\201\214�\201\215�!\210\201\216�B\201\217�\201\220�!\210\201\221�B\201\222�\201\223�!\210\201\224�B\201\225�\201\226�!\210\201\227�B\201\230�\201\231�!\210\201\232�B\201\233�\201\234�!\210\201\235�B\201\236�\201\237�!\210\201\240�B\201\241�\201\242�!\210\201\243�B\201\244�\201\245�!\210\201\246�B\201\247�\201\250�!\210\201\251�B\201\252�\201\253�!\207" [current-load-list byte-nth (lambda (#1=#:defconst-tmp-var) (defconst byte-nth #1#)) 56 byte-symbolp (lambda (#2=#:defconst-tmp-var) (defconst byte-symbolp #2#)) 57 byte-consp (lambda (#3=#:defconst-tmp-var) (defconst byte-consp #3#)) 58 byte-stringp (lambda (#4=#:defconst-tmp-var) (defconst byte-stringp #4#)) 59 byte-listp (lambda (#5=#:defconst-tmp-var) (defconst byte-listp #5#)) 60 byte-eq (lambda (#6=#:defconst-tmp-var) (defconst byte-eq #6#)) 61 byte-memq (lambda (#7=#:defconst-tmp-var) (defconst byte-memq #7#)) 62 byte-not (lambda (#8=#:defconst-tmp-var) (defconst byte-not #8#)) 63 byte-car (lambda (#9=#:defconst-tmp-var) (defconst byte-car #9#)) 64 byte-cdr (lambda (#10=#:defconst-tmp-var) (defconst byte-cdr #10#)) 65 byte-cons (lambda (#11=#:defconst-tmp-var) (defconst byte-cons #11#)) 66 byte-list1 (lambda (#12=#:defconst-tmp-var) (defconst byte-list1 #12#)) 67 byte-list2 (lambda (#13=#:defconst-tmp-var) (defconst byte-list2 #13#)) 68 byte-list3 (lambda (#14=#:defconst-tmp-var) (defconst byte-list3 #14#)) 69 byte-list4 (lambda (#15=#:defconst-tmp-var) (defconst byte-list4 #15#)) 70 byte-length (lambda (#16=#:defconst-tmp-var) (defconst byte-length #16#)) 71 byte-aref (lambda (#17=#:defconst-tmp-var) (defconst byte-aref #17#)) 72 byte-aset (lambda (#18=#:defconst-tmp-var) (defconst byte-aset #18#)) 73 byte-symbol-value (lambda (#19=#:defconst-tmp-var) (defconst byte-symbol-value #19#)) 74 byte-symbol-function (lambda (#20=#:defconst-tmp-var) (defconst byte-symbol-function #20#)) 75 byte-set (lambda (#21=#:defconst-tmp-var) (defconst byte-set #21#)) 76 byte-fset (lambda (#22=#:defconst-tmp-var) (defconst byte-fset #22#)) 77 byte-get (lambda (#23=#:defconst-tmp-var) (defconst byte-get #23#)) 78 byte-substring (lambda (#24=#:defconst-tmp-var) (defconst byte-substring #24#)) 79 byte-concat2 (lambda (#25=#:defconst-tmp-var) (defconst byte-concat2 #25#)) 80 byte-concat3 (lambda (#26=#:defconst-tmp-var) (defconst byte-concat3 #26#)) 81 byte-concat4 (lambda (#27=#:defconst-tmp-var) (defconst byte-concat4 #27#)) 82 byte-sub1 (lambda (#28=#:defconst-tmp-var) (defconst byte-sub1 #28#)) 83 byte-add1 (lambda (#29=#:defconst-tmp-var) (defconst byte-add1 #29#)) 84 byte-eqlsign (lambda (#30=#:defconst-tmp-var) (defconst byte-eqlsign #30#)) 85 byte-gtr (lambda (#31=#:defconst-tmp-var) (defconst byte-gtr #31#)) 86 byte-lss (lambda (#32=#:defconst-tmp-var) (defconst byte-lss #32#)) 87 byte-leq (lambda (#33=#:defconst-tmp-var) (defconst byte-leq #33#)) 88 byte-geq (lambda (#34=#:defconst-tmp-var) (defconst byte-geq #34#)) 89 byte-diff (lambda (#35=#:defconst-tmp-var) (defconst byte-diff #35#)) 90 byte-negate (lambda (#36=#:defconst-tmp-var) (defconst byte-negate #36#)) 91 byte-plus (lambda (#37=#:defconst-tmp-var) (defconst byte-plus #37#)) 92 byte-max (lambda (#38=#:defconst-tmp-var) (defconst byte-max #38#)) 93 byte-min (lambda (#39=#:defconst-tmp-var) (defconst byte-min #39#)) 94 byte-mult (lambda (#40=#:defconst-tmp-var) (defconst byte-mult #40#)) 95 byte-point (lambda (#41=#:defconst-tmp-var) (defconst byte-point #41#)) 96 byte-goto-char (lambda (#42=#:defconst-tmp-var) (defconst byte-goto-char #42#)) 98 byte-insert (lambda (#43=#:defconst-tmp-var) (defconst byte-insert #43#)) 99 byte-point-max (lambda (#44=#:defconst-tmp-var) (defconst byte-point-max #44#)) 100 byte-point-min (lambda (#45=#:defconst-tmp-var) (defconst byte-point-min #45#)) 101 byte-char-after (lambda (#46=#:defconst-tmp-var) (defconst byte-char-after #46#)) 102 byte-following-char (lambda (#47=#:defconst-tmp-var) (defconst byte-following-char #47#)) 103 byte-preceding-char (lambda (#48=#:defconst-tmp-var) (defconst byte-preceding-char #48#)) 104 byte-current-column (lambda (#49=#:defconst-tmp-var) (defconst byte-current-column #49#)) 105 byte-indent-to (lambda (#50=#:defconst-tmp-var) (defconst byte-indent-to #50#)) 106 byte-scan-buffer-OBSOLETE (lambda (#51=#:defconst-tmp-var) (defconst byte-scan-buffer-OBSOLETE #51#)) 107 byte-eolp (lambda (#52=#:defconst-tmp-var) (defconst byte-eolp #52#)) 108 byte-eobp (lambda (#53=#:defconst-tmp-var) (defconst byte-eobp #53#)) 109 byte-bolp (lambda (#54=#:defconst-tmp-var) (defconst byte-bolp #54#)) 110 byte-bobp (lambda (#55=#:defconst-tmp-var) (defconst byte-bobp #55#)) 111 byte-current-buffer (lambda (#56=#:defconst-tmp-var) (defconst byte-current-buffer #56#)) 112 byte-set-buffer (lambda (#57=#:defconst-tmp-var) (defconst byte-set-buffer #57#)) 113] 2)
#@66 Byte code opcode To make a binding to record the current buffer.
(defconst byte-save-current-buffer 114 (#$ . 20353))
(byte-code "\301B\302\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\210\320B\321\322!\210\323B\324\325!\210\326B\327\330!\210\331B\332\333!\210\334B\335\336!\210\337B\340\341!\210\342B\343\344!\210\345B\346\347!\207" [current-load-list byte-set-mark-OBSOLETE (lambda (#1=#:defconst-tmp-var) (defconst byte-set-mark-OBSOLETE #1#)) 115 byte-interactive-p (lambda (#2=#:defconst-tmp-var) (defconst byte-interactive-p #2#)) 116 byte-forward-char (lambda (#3=#:defconst-tmp-var) (defconst byte-forward-char #3#)) 117 byte-forward-word (lambda (#4=#:defconst-tmp-var) (defconst byte-forward-word #4#)) 118 byte-skip-chars-forward (lambda (#5=#:defconst-tmp-var) (defconst byte-skip-chars-forward #5#)) 119 byte-skip-chars-backward (lambda (#6=#:defconst-tmp-var) (defconst byte-skip-chars-backward #6#)) 120 byte-forward-line (lambda (#7=#:defconst-tmp-var) (defconst byte-forward-line #7#)) 121 byte-char-syntax (lambda (#8=#:defconst-tmp-var) (defconst byte-char-syntax #8#)) 122 byte-buffer-substring (lambda (#9=#:defconst-tmp-var) (defconst byte-buffer-substring #9#)) 123 byte-delete-region (lambda (#10=#:defconst-tmp-var) (defconst byte-delete-region #10#)) 124 byte-narrow-to-region (lambda (#11=#:defconst-tmp-var) (defconst byte-narrow-to-region #11#)) 125 byte-widen (lambda (#12=#:defconst-tmp-var) (defconst byte-widen #12#)) 126 byte-end-of-line (lambda (#13=#:defconst-tmp-var) (defconst byte-end-of-line #13#)) 127] 2)
#@88 Byte code opcode for reference to a constant with vector index >= byte-constant-limit.
(defconst byte-constant2 129 (#$ . 21964))
#@42 Byte code opcode for unconditional jump.
(defconst byte-goto 130 (#$ . 22100))
#@53 Byte code opcode to pop value and jump if it's nil.
(defconst byte-goto-if-nil 131 (#$ . 22185))
#@57 Byte code opcode to pop value and jump if it's not nil.
(defconst byte-goto-if-not-nil 132 (#$ . 22288))
#@96 Byte code opcode to examine top-of-stack, jump and don't pop it if it's nil,
otherwise pop it.
(defconst byte-goto-if-nil-else-pop 133 (#$ . 22399))
#@100 Byte code opcode to examine top-of-stack, jump and don't pop it if it's non nil,
otherwise pop it.
(defconst byte-goto-if-not-nil-else-pop 134 (#$ . 22555))
#@65 Byte code opcode to pop a value and return it from `byte-code'.
(defconst byte-return 135 (#$ . 22718))
#@51 Byte code opcode to discard one value from stack.
(defconst byte-discard 136 (#$ . 22828))
#@53 Byte code opcode to duplicate the top of the stack.
(defconst byte-dup 137 (#$ . 22925))
#@74 Byte code opcode to make a binding to record the buffer, point and mark.
(defconst byte-save-excursion 138 (#$ . 23020))
#@75 Byte code opcode to make a binding to record entire window configuration.
(defconst byte-save-window-excursion 139 (#$ . 23147))
#@88 Byte code opcode to make a binding to record the current buffer clipping restrictions.
(defconst byte-save-restriction 140 (#$ . 23282))
#@87 Byte code opcode for catch.  Takes, on stack, the tag and an expression for the body.
(defconst byte-catch 141 (#$ . 23425))
#@93 Byte code opcode for unwind-protect.  Takes, on stack, an expression for the unwind-action.
(defconst byte-unwind-protect 142 (#$ . 23556))
(byte-code "\301B\302\303!\210\304B\305\306!\210\307B\310\311!\210\312B\313\314!\210\315B\316\317!\210\320B\321\322!\210\323B\324\325!\210\326B\327\330!\210\331B\332\333!\210\334B\335\336!\210\337B\340\341!\210\342B\343\344!\210\345B\346\347!\210\350B\351\352!\210\353B\354\355!\210\356B\357\360!\210\361B\362\363!\210\364B\365\366!\210\367B\370\371!\210\372B\373\374!\210\375B\376\377!\210\201@�B\201A�\201B�!\210\201C�B\201D�\201E�!\210\201F�B\201G�\201H�!\210\201I�B\201J�\201K�!\210\201L�B\201M�\201N�!\210\201O�B\201P�\201Q�!\210\201R�B\201S�\201T�!\210\201U�B\201V�\201W�!\207" [current-load-list byte-condition-case (lambda (#1=#:defconst-tmp-var) (defconst byte-condition-case #1#)) 143 byte-temp-output-buffer-setup (lambda (#2=#:defconst-tmp-var) (defconst byte-temp-output-buffer-setup #2#)) 144 byte-temp-output-buffer-show (lambda (#3=#:defconst-tmp-var) (defconst byte-temp-output-buffer-show #3#)) 145 byte-unbind-all (lambda (#4=#:defconst-tmp-var) (defconst byte-unbind-all #4#)) 146 byte-set-marker (lambda (#5=#:defconst-tmp-var) (defconst byte-set-marker #5#)) 147 byte-match-beginning (lambda (#6=#:defconst-tmp-var) (defconst byte-match-beginning #6#)) 148 byte-match-end (lambda (#7=#:defconst-tmp-var) (defconst byte-match-end #7#)) 149 byte-upcase (lambda (#8=#:defconst-tmp-var) (defconst byte-upcase #8#)) 150 byte-downcase (lambda (#9=#:defconst-tmp-var) (defconst byte-downcase #9#)) 151 byte-string= (lambda (#10=#:defconst-tmp-var) (defconst byte-string= #10#)) 152 byte-string< (lambda (#11=#:defconst-tmp-var) (defconst byte-string< #11#)) 153 byte-equal (lambda (#12=#:defconst-tmp-var) (defconst byte-equal #12#)) 154 byte-nthcdr (lambda (#13=#:defconst-tmp-var) (defconst byte-nthcdr #13#)) 155 byte-elt (lambda (#14=#:defconst-tmp-var) (defconst byte-elt #14#)) 156 byte-member (lambda (#15=#:defconst-tmp-var) (defconst byte-member #15#)) 157 byte-assq (lambda (#16=#:defconst-tmp-var) (defconst byte-assq #16#)) 158 byte-nreverse (lambda (#17=#:defconst-tmp-var) (defconst byte-nreverse #17#)) 159 byte-setcar (lambda (#18=#:defconst-tmp-var) (defconst byte-setcar #18#)) 160 byte-setcdr (lambda (#19=#:defconst-tmp-var) (defconst byte-setcdr #19#)) 161 byte-car-safe (lambda (#20=#:defconst-tmp-var) (defconst byte-car-safe #20#)) 162 byte-cdr-safe (lambda (#21=#:defconst-tmp-var) (defconst byte-cdr-safe #21#)) 163 byte-nconc (lambda (#22=#:defconst-tmp-var) (defconst byte-nconc #22#)) 164 byte-quo (lambda (#23=#:defconst-tmp-var) (defconst byte-quo #23#)) 165 byte-rem (lambda (#24=#:defconst-tmp-var) (defconst byte-rem #24#)) 166 byte-numberp (lambda (#25=#:defconst-tmp-var) (defconst byte-numberp #25#)) 167 byte-integerp (lambda (#26=#:defconst-tmp-var) (defconst byte-integerp #26#)) 168 byte-listN (lambda (#27=#:defconst-tmp-var) (defconst byte-listN #27#)) 175 byte-concatN (lambda (#28=#:defconst-tmp-var) (defconst byte-concatN #28#)) 176 byte-insertN (lambda (#29=#:defconst-tmp-var) (defconst byte-insertN #29#)) 177] 2)
#@47 Byte code opcode for reference to a constant.
(defconst byte-constant 192 (#$ . 26739))
#@63 Exclusive maximum index usable in the `byte-constant' opcode.
(defconst byte-constant-limit 64 (#$ . 26833))
#@42 List of byte-codes whose offset is a pc.
(defconst byte-goto-ops '(byte-goto byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop) (#$ . 26948))
(byte-code "\303B\304\305!\210\306\307\303\207" [current-load-list byte-code-vector byte-stack+-info byte-goto-always-pop-ops (lambda (#1=#:defconst-tmp-var) (defconst byte-goto-always-pop-ops #1#)) (byte-goto-if-nil byte-goto-if-not-nil) [nil nil nil nil nil nil nil nil byte-varref nil nil nil nil nil nil nil byte-varset nil nil nil nil nil nil nil byte-varbind nil nil nil nil nil nil nil byte-call nil nil nil nil nil nil nil byte-unbind nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil byte-nth byte-symbolp byte-consp byte-stringp byte-listp byte-eq byte-memq byte-not byte-car byte-cdr byte-cons byte-list1 byte-list2 byte-list3 byte-list4 byte-length byte-aref byte-aset byte-symbol-value byte-symbol-function byte-set byte-fset byte-get byte-substring byte-concat2 byte-concat3 byte-concat4 byte-sub1 byte-add1 byte-eqlsign byte-gtr byte-lss byte-leq byte-geq byte-diff byte-negate byte-plus byte-max byte-min byte-mult byte-point nil byte-goto-char byte-insert byte-point-max byte-point-min byte-char-after byte-following-char byte-preceding-char byte-current-column byte-indent-to byte-scan-buffer-OBSOLETE byte-eolp byte-eobp byte-bolp byte-bobp byte-current-buffer byte-set-buffer byte-save-current-buffer byte-set-mark-OBSOLETE byte-interactive-p byte-forward-char byte-forward-word byte-skip-chars-forward byte-skip-chars-backward byte-forward-line byte-char-syntax byte-buffer-substring byte-delete-region byte-narrow-to-region byte-widen byte-end-of-line nil byte-constant2 byte-goto byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop byte-return byte-discard byte-dup byte-save-excursion byte-save-window-excursion byte-save-restriction byte-catch byte-unwind-protect byte-condition-case byte-temp-output-buffer-setup byte-temp-output-buffer-show byte-unbind-all byte-set-marker byte-match-beginning byte-match-end byte-upcase byte-downcase byte-string= byte-string< byte-equal byte-nthcdr byte-elt byte-member byte-assq byte-nreverse byte-setcar byte-setcdr byte-car-safe byte-cdr-safe byte-nconc byte-quo byte-rem byte-numberp byte-integerp nil nil nil nil nil nil byte-listN byte-concatN byte-insertN nil nil nil nil nil nil nil nil nil nil nil nil nil nil byte-constant nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil] [nil nil nil nil nil nil nil nil 1 nil nil nil nil nil nil nil -1 nil nil nil nil nil nil nil -1 nil nil nil nil nil nil nil 0 nil nil nil nil nil nil nil 0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil -1 0 0 0 0 -1 -1 0 0 0 -1 0 -1 -2 -3 0 -1 -2 0 0 -1 -1 -1 -2 -1 -2 -3 0 0 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 1 nil 0 0 1 1 0 1 1 1 0 0 1 1 1 1 1 0 0 0 1 0 0 -1 -1 0 0 -1 -1 -1 1 0 nil 1 0 -1 -1 -1 -1 -1 -1 1 0 0 0 -1 -1 -2 0 -1 0 -2 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 0 0 -1 -1 -1 0 0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil 1 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil]] 2)
#@57 Turns lapcode into bytecode.  The lapcode is destroyed.
(defalias 'byte-compile-lapcode #[(lap) "\306\307\211\211\211
\203\340�
@@
@A9\204#�\310\311\"\210\202\331�\312=\2034�\n\f\240\210\nB\202\331�>\203R�\f\313\\\211\nAB\307J	BBB\211B\202\331�\n:\203\210�\nA\314=\203\210�\nW\203s�\fT\f\n\\	B\202\330�\313\f\\\315\n\316\"\317\n\320\"	BBB\202\330�JX\203\235�\321\f\\\nJ	BB\202\330�\n\322W\203\257�\fTJ\n\\	B\202\330�\n\323W\203\304�\321\f\\\nJ\322\\	BB\202\330�\313\f\\\315\n\316\"\317\n\320\"J\324\\	BBB
A\211\204�\307\203\n@\211@:\203	@A@	A\317\f\320\"\240\210	\315\f\316\"\240\210A\211\204\346�)\325\326	\237\"-\207" [patchlist bytes off op pc lap 0 nil error "Non-symbolic opcode `%s'" TAG 3 byte-constant lsh -8 logand 255 2 6 256 7 apply unibyte-string byte-goto-ops byte-constant-limit byte-constant2 byte-listN] 6 (#$ . 30496)])
#@124 Eval FORM and mark the functions defined therein.
Each function's symbol gets added to `byte-compile-noruntime-functions'.
(defalias 'byte-compile-eval #[(form) "	\306\f!\307\310!\203\342�	\203\237�=\204\237�\211A@\311\312@\"\204\233�@\313\232\204\233�\311\211\203\232�@\2119\203b�>\204\221�B\202\221�:\203{�@\314=\203{�AB\202\221�:\203\221�@\315=\203\221�ABA\211\204F�**\202�\311
\203\341�
\n=\204\341�
\211A@\2119\203\307�>\204\307�B:\203\335�@\314=\203\335�AB)\202\242�+\307\316!\203\203=\204\211A@\211@\313\232\203\312@\"\204\317 \210)\202\353�)*\207" [load-history current-load-list hist-nil-orig hist-orig form hist-nil-new eval byte-compile-warning-enabled-p noruntime nil assoc "cl" t autoload cl-functions byte-compile-find-cl-functions hist-new old-autoloads xs s #1=#:--cl-dolist-temp-- byte-compile-noruntime-functions] 5 (#$ . 31393)])
#@39 Evaluate FORM for `eval-and-compile'.
(defalias 'byte-compile-eval-before-compile #[(form) "\304\n!\211	=\204�@\305\232\203�\306\307!\210A\211\202�*\207" [current-load-list hist-nil-orig form tem eval (require . cl) byte-compile-disable-warning cl-functions] 4 (#$ . 32370)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\306B\302\306!\204-�\303\306\304\"\210\307B\302\307!\204<�\303\307\304\"\210\310B\302\310!\204K�\303\310\304\"\210\304\207" [current-load-list byte-compile-current-form default-boundp set-default nil byte-compile-dest-file byte-compile-current-file byte-compile-current-group byte-compile-current-buffer] 3)
(defalias 'byte-compile-log '(macro . #[(format-string &rest args) "\302\303\304\305\306\307\310\311\312	\"BBDEF\207" [format-string args and byte-optimize (memq byte-optimize-log '(t source)) let ((print-escape-newlines t) (print-level 4) (print-length 4)) byte-compile-log-1 format mapcar #[(x) "9\203	�\301D\207\207" [x prin1-to-string] 2]] 11]))
(defalias 'byte-compile-log-1 #[(string) "r\303q\210\304db\210\305\306\211\"\210	\203�\307\310\n\"\202�\311\312\n\"c*\207" [inhibit-read-only noninteractive string "*Compile-Log*" t byte-compile-warning-prefix nil message " %s" format "%s\n"] 3])
#@51 Character position we began the last `read' from.
(defvar byte-compile-read-position nil (#$ . 33672))
#@45 Last known character position in the input.
(defvar byte-compile-last-position nil (#$ . 33781))
(defalias 'byte-compile-delete-first #[(elt list) "@	=\203\n�A\207A\203#�\211A@)	=\204#�A\211\202
�A\2031�\211\211AA)\241\210\n)\207" [list elt total x] 3])
(put 'byte-compile-delete-first 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'byte-compile-set-symbol-position #[(sym &optional allow-previous) "\205x�\306\211\f
\236\211\203c�	A\\	
@=\203,�A\202a�	A\203M�\211\nA@)=\204M�A\211\2022�A\203^�\211\n\211AA)\241\210	)*\203n�\nU\203�\nV\205w�\202�*\207" [byte-compile-read-position entry last byte-compile-last-position sym read-symbol-positions-list nil list elt total x allow-previous] 4])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list byte-compile-last-warned-form default-boundp set-default nil byte-compile-last-logged-file] 3)
(defalias 'byte-compile-warning-prefix #[(level entry) "\306	;\203�\307\310\311\n\"\"\202#�\312!\203\"�\307\313\314!\"\202#�\315\203M�
\250\203M�rq\210\307\316\212b\210\317e\320 \"T)\212b\210iT)#)\202N�\315\321=\203[�\322\202a�\206a�\323\203n�\232\203{�\203\202�=\204\202�\307\324\"c\210\203\217�\307\325\f#c\210-\207" [inhibit-read-only default-directory dir byte-compile-current-file file byte-compile-read-position t format "%s:" file-relative-name bufferp "Buffer %s:" buffer-name "" "%d:%d:" count-lines point-at-bol :end "end of data" "toplevel form" "\nIn %s:\n" "%s%s" byte-compile-current-buffer byte-compile-last-position pos byte-compile-current-form form byte-compile-last-logged-file byte-compile-last-warned-form level entry] 5])
(defalias 'byte-compile-warning-series #[(&rest ignore) "\300\207" [nil] 1])
(defalias 'byte-compile-log-file #[nil "	\232?\205\214�\n?\205\214�r\306\307!q\210db\210\310\205�\311!
\f\232\312\f\2036�\2046�\313\314
\"c\210n\204=�\315c\210\316 \203`�\317;\203Q�\320P\202V�\321\322!P\323\324 \315\261\210\202g�\325\324 \315\261\210\f\203x�\f\204x�\313\326
\"c\210\312\327\330!\204\206�\330 \210\331 \210-\207" [byte-compile-current-file byte-compile-last-logged-file noninteractive inhibit-read-only dir default-directory get-buffer-create "*Compile-Log*" t file-name-directory nil format "Leaving directory `%s'\n" "\n" point-marker "\f\nCompiling " "file " "buffer " buffer-name " at " current-time-string "\f\nCompiling no file at " "Entering directory `%s'\n" derived-mode-p compilation-mode compilation-forget-errors was-same pt byte-compile-last-warned-form] 5])
(defalias 'byte-compile-log-warning #[(string &optional fill level) "\306\307\205�\310\311\312\313

\314$,\207" [fill inhibit-read-only warning-fill-prefix warning-type-format warning-prefix-function string byte-compile-warning-prefix "" "    " t display-warning bytecomp "*Compile-Log*" level] 5])
#@73 Issue a byte compiler warning; use (format FORMAT ARGS...) for message.
(defalias 'byte-compile-warn #[(format &rest args) "\303\300	#\n\203�\304\305\"\207\306\307\310#\207" [format args byte-compile-error-on-warn apply error "%s" byte-compile-log-warning t :warning] 4 (#$ . 36752)])
#@56 Warn that SYMBOL (a variable or function) is obsolete.
(defalias 'byte-compile-warn-obsolete #[(symbol) "\305\302!\205S�\306N\211\206�\307N\211@	\203�\310\n8\202!�\nA\311\312	\203-�\313\202.�\314\f\2039�\315\f\316Q\202:�\317;\203E�\320P\202Q�\203P�\321\322\"\202Q�\323%,\207" [symbol funcp obsolete instead asof byte-compile-warning-enabled-p byte-obsolete-info byte-obsolete-variable 2 byte-compile-warn "`%s' is an obsolete %s%s%s" "function" "variable" " (as of Emacs " ")" "" "; " format "; use `%s' instead." "."] 9 (#$ . 37048)])
#@66 Report Lisp error in compilation.  ERROR-INFO is the error data.
(defalias 'byte-compile-report-error #[(error-info) "\302\303\304	!\305\306#\207" [byte-compiler-error-flag error-info t byte-compile-log-warning error-message-string nil :error] 4 (#$ . 37603)])
(defalias 'byte-compile-obsolete #[(form) "\302@!\210\303@!\210@\304N\211A@)\206�\305!\207" [form x byte-compile-set-symbol-position byte-compile-warn-obsolete byte-obsolete-info byte-compile-normal-call] 3])
(defalias 'byte-compile-fdefinition #[(name macro-p) "\203�	\202	�\n\f\236A\211\206z�\f\211\n9\203E�\306\n!\203E�\nK9\204<�\nK:\204<�\204E�\307\nK!\203E�\nK\211\n\202�\204U�\307\n!\203U�\n\202y�\n:\205y�\n@\310=\203i�\nA\202y�?\205y�\n@\311=?\205y�\n)*\207" [macro-p byte-compile-macro-environment byte-compile-function-environment list name env fboundp byte-code-function-p macro autoload fn] 3])
(defalias 'byte-compile-arglist-signature #[(arglist) "\304\305\211\203A�@\306=\203�	\204:�\304\202:�@\307=\203-�A\203:�\310\305\202:�	\2037�	T\202:�\nTA\211\204\n�\n?\205R�	\203Q�\n	\\\202R�\n+B\207" [restp opts args arglist 0 nil &optional &rest t] 4])
(defalias 'byte-compile-arglist-signatures-congruent-p #[(old new) "@	@V\206!�	A\204�A\206!�A\205!�	A\205!�A	AW?\207" [new old] 2])
(defalias 'byte-compile-arglist-signature-string #[(signature) "A\204�\301\302@\"\207@AU\203�\301\303@\"\207\301\304@A#\207" [signature format "%d+" "%d" "%d-%d"] 4])
(defalias 'byte-compile-callargs-warn #[(form) "\306@\307\"\206
�\306@\310\"\211\2037�	\310=\2047�\311	\242\312>\203&�	A@\2023�\313	!\2032�	\314H\2023�\315!\202K�\316@!\205K�\317@K!\205K�\320@K!AG\n\243\203_�\nA\247\204_�\n\307\241\210\n\203\235�\n@W\204v�\nA\203\235�\nAV\203\235�\321@!\210\322\323@\211\324U\203\212�\325\202\213�\326\n@W\203\226�\327\202\227�\330\331\n!&\210\332!\210	\204\254�\316@!\203\264�@\f>?\206\354�@
=\206\354�@\236AG\211\203\340�A>\206\353�AB\241\202\353�@DB\211*+\207" [form def sig ncall byte-compile-noruntime-functions byte-compile-current-form byte-compile-fdefinition nil t byte-compile-arglist-signature (declared lambda) byte-code-function-p 0 (&rest def) fboundp subrp subr-arity byte-compile-set-symbol-position byte-compile-warn "%s called with %d argument%s, but %s %s" 1 "" "s" "requires" "accepts only" byte-compile-arglist-signature-string byte-compile-format-warn byte-compile-unresolved-functions n cons] 9])
#@249 Warn if FORM is `format'-like with inconsistent args.
Applies if head of FORM is a symbol with non-nil property
`byte-compile-format-like' and first arg is a constant string.
Then check the number of format fields matches the number of
extra args.
(defalias 'byte-compile-format-warn #[(form) "@9\205V�A@;\205V�@\305N\205V�\306\307!r	q\210\310\216A@c\210eb\210\311\312\313\314\315#\203?�\311\224Tf\316=\204(�\nT\202(�\n,G\317Z\fU?\205U�\320\321@\f$*\207" [form #1=#:temp-buffer n nargs nfields byte-compile-format-like generate-new-buffer " *temp*" ((byte-code "\301!\203\n�\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) 0 re-search-forward "%." nil t 37 2 byte-compile-warn "`%s' called with %d args to fill %d format field(s)"] 5 (#$ . 40091)])
(byte-code "\302\303\211\203�	@\304\305\306#\210	A\211\204�*\303\207" [elt #:--cl-dolist-temp-- (format message error) nil put byte-compile-format-like t] 5)
(defalias 'byte-compile-nogroup-warn #[(form) "@\306>\205�	?\205j�AAAA\211A@)\242\307=\203O�@\310=\203-�\311\232\204O�\312\f\313\"\204O�:\203O�@\307=\203O�\314\315@\316\236A\211A@)#\210
\205i�@\310=\205i�\242\307=\205i�\211A@)\211*\207" [form byte-compile-current-group x name keyword-args byte-compile-current-file (custom-declare-face custom-declare-variable) quote custom-declare-group 'emacs plist-get :group byte-compile-warn "%s for `%s' fails to specify containing group" ((custom-declare-group . defgroup) (custom-declare-face . defface) (custom-declare-variable . defcustom))] 5])
(defalias 'byte-compile-arglist-warn #[(form macrop) "\306A@	\"\211\203j�\n\307=\204j�\310\n\242\311=\203�\nA@\202,�\312\n!\203+�\n\313H\202,�\314!\310\3158!\316\f\"?\205f�\317A@!\210\320\321@\322=\203O�\323\202P�\324A@\325\f!\f\326\232\203`�\327\202a�\330\325!&*\202\340�A@
\236\331\211\211\211\"#$%\211&\205\337�\310\3158!$\332\333&A!\334\"\211%@#%\237@\"#$@W\204\264�$A\203\330�\"$AV\203\330�\317A@!\210\320\335A@\325$!$\336\232\203\316�\337\202\317�\340\325#\"B!%\210\341&
\"\211-)\207" [form macrop old sig2 sig1 byte-compile-unresolved-functions byte-compile-fdefinition t byte-compile-arglist-signature lambda byte-code-function-p 0 (&rest def) 2 byte-compile-arglist-signatures-congruent-p byte-compile-set-symbol-position byte-compile-warn "%s %s used to take %s %s, now takes %s" defun "function" "macro" byte-compile-arglist-signature-string (1 . 1) "argument" "arguments" nil sort copy-sequence < "%s being defined to take %s%s, but was previously called with %s" (1 . 1) " arg" " args" delq max min sig nums calls] 9])
#@34 List of functions defined in CL.
(defvar byte-compile-cl-functions nil (#$ . 42710))
(defalias 'byte-compile-find-cl-functions #[nil "?\205I�	\306\211\203G�@\211@;\203@�\307\310\311\n@!\"\203@�\nA\306\211\203?�
@\211\242\312>\2038�\fAB
A\211\204)�*A\211\204
�*\306\207" [byte-compile-cl-functions load-history elt #1=#:--cl-dolist-temp-- e #2=#:--cl-dolist-temp-- nil string-match "^cl\\>" file-name-nondirectory (autoload defun)] 5])
#@59 Warn if FORM is a call of a function from the CL package.
(defalias 'byte-compile-cl-warn #[(form) "\242\n\203)�	\n>\203)�	\303>\204)�	\304N\305=\203$�\306\307\310	!\"\204)�\311\312	\"\210)\207" [form func byte-compile-cl-functions (cl-block-wrapper cl-block-throw multiple-value-call nth-value copy-seq first second rest endp cl-member cl-defsubst-expand cl-struct-setf-expander macroexpand cl-macroexpand-all cl-compiling-file) byte-compile cl-byte-compile-compiler-macro string-match "\\`c[ad]+r\\'" symbol-name byte-compile-warn "Function `%s' from cl package called at runtime"] 4 (#$ . 43164)])
(defalias 'byte-compile-print-syms #[(str1 strn syms) "\203\n�\306@\307\"\210A\203Z�	\204Z�\n\211G\310\203T�\311\211A@!\312\f
G\313#\211SW\203B�\314
\205=�\315R\202�\316
\205J�\315R
G\317\\\202�\320\321\"+\207A\203i�\320\322\n\323\311\324##\207\205s�\320@\"\207" [syms noninteractive strn str L s byte-compile-set-symbol-position t nil symbol-name + 2 " " "," "\n    " 4 byte-compile-warn "%s" "%s %s" mapconcat ", " fill-column str1] 8])
(defalias 'byte-compile-warn-about-unresolved-functions #[nil "\306\300!\203@�\307\310\211\310\211\2032�
@\211@\311\f!\203'�\f	B\202+�\fB
A\211\204�*\312\313\314	#\210\312\315\316#\210+\310\207" [unresolved noruntime byte-compile-current-form byte-compile-unresolved-functions f #1=#:--cl-dolist-temp-- byte-compile-warning-enabled-p :end nil fboundp byte-compile-print-syms "the function `%s' might not be defined at runtime." "the following functions might not be defined at runtime:" "the function `%s' is not known to be defined." "the following functions are not known to be defined:"] 4])
#@122 Non-nil if SYMBOL is constant.
If ANY-VALUE is nil, only return non-nil if the value of the symbol is the
symbol itself.
(defalias 'byte-compile-const-symbol-p #[(symbol &optional any-value) "\303>\206�\304!\206�	\205�\n>\207" [symbol any-value byte-compile-const-variables (nil t) keywordp] 2 (#$ . 44852)])
(put 'byte-compile-const-symbol-p 'byte-optimizer 'byte-compile-inline-expand)
#@39 Return non-nil if FORM is a constant.
(defalias 'byte-compile-constp '(macro . #[(form) "\301\302D\303\304D\305BBD\306\307DDC\310DCF\207" [form cond consp eq car ('quote) not symbolp byte-compile-const-symbol-p] 5 (#$ . 45252)]))
(defalias 'byte-compile-close-variables '(macro . #[(&rest body) "\301\302BB\207" [body let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-bound-variables nil) (byte-compile-const-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-compatibility byte-compile-compatibility) (byte-compile-dynamic byte-compile-dynamic) (byte-compile-dynamic-docstrings byte-compile-dynamic-docstrings) (byte-compile-warnings byte-compile-warnings))] 3]))
(defalias 'displaying-byte-compile-warnings '(macro . #[(&rest body) "\301\302\303\304BBD\305B\306BB\207" [body let* --displaying-byte-compile-warnings-fn lambda nil ((warning-series-started (and (markerp warning-series) (eq (marker-buffer warning-series) (get-buffer "*Compile-Log*"))))) ((byte-compile-find-cl-functions) (if (or (eq warning-series 'byte-compile-warning-series) warning-series-started) (let (tem) (setq tem (byte-compile-log-file)) (unless warning-series-started (setq warning-series (or tem 'byte-compile-warning-series))) (if byte-compile-debug (funcall --displaying-byte-compile-warnings-fn) (condition-case error-info (funcall --displaying-byte-compile-warnings-fn) (error (byte-compile-report-error error-info))))) (let ((warning-series (or (byte-compile-log-file) 'byte-compile-warning-series))) (if byte-compile-debug (funcall --displaying-byte-compile-warnings-fn) (condition-case error-info (funcall --displaying-byte-compile-warnings-fn) (error (byte-compile-report-error error-info)))))))] 5]))
#@130 Recompile every `.el' file in DIRECTORY that already has a `.elc' file.
Files in subdirectories of DIRECTORY are processed also.
(defalias 'byte-force-recompile #[(directory) "\301\302\303#\207" [directory byte-recompile-directory nil t] 4 (#$ . 47171) "DByte force recompile (directory): "])
#@699 Recompile every `.el' file in BYTECOMP-DIRECTORY that needs recompilation.
This happens when a `.elc' file exists but is older than the `.el' file.
Files in subdirectories of BYTECOMP-DIRECTORY are processed also.

If the `.elc' file does not exist, normally this function *does not*
compile the corresponding `.el' file.  However, if the prefix argument
BYTECOMP-ARG is 0, that means do compile all those files.  A nonzero
BYTECOMP-ARG means ask the user, for each such `.el' file, whether to
compile it.  A nonzero BYTECOMP-ARG also means ask about each subdirectory
before scanning it.

If the third argument BYTECOMP-FORCE is non-nil, recompile every `.el' file
that already has a `.elc' file.
(defalias 'byte-recompile-directory #[(bytecomp-directory &optional bytecomp-arg bytecomp-force) "\203�\306!	\204�\307 \210\310 \210r\311\312!q\210\313\n!\f\314=\204%�\314 \210C\315\211\211\211\316$%&'(\317)\320*!\205K�\321*!\322\312!=+\323 \210*\324=\204\\�+\203\205�\316,\325 ,+\204p�,\206n�\324*-\203|�) \210\202\201�\326\327\330\217\210)\202\237�\325 \206\213�\324*-\203\231�) \210\202\236�\326\331\332\217\210)*\333\334%\211\335U\203\256�\336\202\257�\337&\315V\203\276�\340\341&\"\202\277�\336'\315V\203\316�\340\342'\"\202\317�\336$\335V\203\336�\340\343$\"\202\337�\336&.\207" [bytecomp-arg noninteractive bytecomp-directory default-directory major-mode last-dir prefix-numeric-value save-some-buffers force-mode-line-update get-buffer-create "*Compile-Log*" expand-file-name compilation-mode 0 nil #[nil "\205	@\306\307	\"\210\310	!\311\211\211\311\211\203�@\312
	\"
\313\235\204]�
\314H\315=\204]�\316!\203]�\317!\204]�\203U�\314=\204U�\320\321\322Q!\203\367�C\244\202\367�\323 \"\203\367�\324!\203\367�\325!\204\367�\326!\211\203\367�\327\n!\203\213�!\204\240�\330\n\"\202\235�\203\367�\314=\204\240�\320\331\322Q!\203\367�\"\203\257�#\204\257�\306\332\"\210\333!\211$\334=\203\302�%T%\202\335�$\335=\203\321�&T&\202\335�$\311=\203\335�'T')\"\204\350�\306\307	\"\210(	=\204\367�	()T)A\211\204�-A\211\204�\311\207" [bytecomp-directories bytecomp-directory bytecomp-dest bytecomp-source bytecomp-files bytecomp-file message "Checking %s..." directory-files nil expand-file-name ("RCS" "CVS") 0 46 file-directory-p file-symlink-p y-or-n-p "Check " "? " string-match file-readable-p auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p "Compile " "Compiling %s..." byte-compile-file no-byte-compile t #1=#:--cl-dolist-temp-- bytecomp-arg emacs-lisp-file-regexp bytecomp-force noninteractive byte-compile-verbose bytecomp-res skip-count file-count fail-count last-dir dir-count] 6] markerp marker-buffer get-buffer byte-compile-find-cl-functions byte-compile-warning-series byte-compile-log-file error-info (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info))) (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info))) message "Done (Total of %d file%s compiled%s%s%s)" 1 "" "s" format ", %d failed" ", %d skipped" " in %d directories" dir-count file-count fail-count skip-count bytecomp-directories --displaying-byte-compile-warnings-fn warning-series warning-series-started tem byte-compile-debug] 9 (#$ . 47472) "DByte recompile directory: \nP"])
#@182 Non-nil to prevent byte-compiling of Emacs Lisp code.
This is normally set in local file variables at the end of the elisp file:

;; Local Variables:
;; no-byte-compile: t
;; End: 
(defvar no-byte-compile nil (#$ . 50848))
#@335 Compile a file of Lisp code named BYTECOMP-FILENAME into a file of byte code.
The output file's name is generated by passing BYTECOMP-FILENAME to the
function `byte-compile-dest-file' (which see).
With prefix arg (noninteractively: 2nd arg), LOAD the file after compiling.
The value is non-nil if there were no errors, nil if errors.
(defalias 'byte-compile-file #[(bytecomp-filename &optional load) "\306!	\204,�\307\306!!\211\203+�\310\n!\203+�\311\312\313\314\n!\"!\203+�r\nq\210\315 \210))\316\316\317\316\211\211\21156789\304!\2116r\320\321!\2115q\210\322 \210\316:\323\317!\210\324!\210;\325=\204o�\326;!\327=\203s�\323\316!\210\330\331\316<=>?\332\317!\210?,\333!@)r5q\210!)\203\265�\3346!\203\261�\335\336\3376!\340\3415\"#\210\316\342\343\217\210\341\202SA\203\277�\335\344\"\210\316Br\3455\")B?\205SA\203\332�\335\346\"\210\3475!\210r
q\210db\210\350c\210\3516!\203\325CD\352>\203\375�\317E\3346!\203	\3536!\210\354ed6#\210)\202(\355\356\357\3346!\203\"\360\202#\3616E\"\210\347p!\210)F\203HF\317=\204B\311\312\362\"!\203H\212\363!\210)4\203R\3646!\210\317.\207" [bytecomp-filename noninteractive b byte-compile-last-logged-file byte-compile-dest-file output-buffer expand-file-name get-file-buffer buffer-modified-p y-or-n-p format "Save buffer %s first? " buffer-name save-buffer nil t get-buffer-create " *Compiler Input*" erase-buffer set-buffer-multibyte insert-file-contents no-conversion coding-system-type 5 emacs-lisp-mode :safe normal-mode file-name-directory file-exists-p message "%s deleted because of `no-byte-compile: %s'" file-relative-name buffer-local-value no-byte-compile (delete-file target-file) ((error)) "Compiling %s..." byte-compile-from-buffer "Compiling %s...done" kill-buffer "\n" file-writable-p (ms-dos 'windows-nt) delete-file write-region signal file-error "Opening output file" "cannot overwrite file" "directory not writable or nonexistent" "Report call tree for %s? " display-call-tree load input-buffer target-file set-auto-coding-for-load byte-compile-current-group byte-compile-current-file buffer-file-coding-system last-coding-system-used enable-local-eval enable-local-variables default-major-mode buffer-file-name default-directory byte-compile-verbose byte-compiler-error-flag coding-system-for-write system-type buffer-file-type byte-compile-generate-call-tree] 8 (#$ . 51078) (let ((bytecomp-file buffer-file-name) (bytecomp-file-name nil) (bytecomp-file-dir nil)) (and bytecomp-file (eq (cdr (assq 'major-mode (buffer-local-variables))) 'emacs-lisp-mode) (setq bytecomp-file-name (file-name-nondirectory bytecomp-file) bytecomp-file-dir (file-name-directory bytecomp-file))) (list (read-file-name (if current-prefix-arg "Byte compile and load file: " "Byte compile file: ") bytecomp-file-dir bytecomp-file-name nil) current-prefix-arg))])
#@151 Compile and evaluate the current top-level form.
Print the result in the echo area.
With argument ARG, insert value in current buffer after the form.
(defalias 'compile-defun #[(&optional arg) "\212\306 \210\307 \210\310p`\211\311\312p\310\313\314 !\205)�\315 !\316\317!=!\320 \210 \321=\204:�!\203a�\310\"\322 \"!\204N�\"\206L�\321 #\203Y� \202]�\323\324\325\217)\202y�\322 \206g�\321 #\203t� \202x�\323\326\327\217),!$%\203\221�\330\331!\210\332$p\"\210\333c\202\230�\330\334\335$!\".\207" [byte-compile-current-file byte-compile-current-buffer byte-compile-read-position byte-compile-last-position byte-compile-last-warned-form read-symbol-positions-list end-of-defun beginning-of-defun nil nothing eval #[nil "\300\301p!!\207" [byte-compile-sexp read] 3] markerp marker-buffer get-buffer "*Compile-Log*" byte-compile-find-cl-functions byte-compile-warning-series byte-compile-log-file error-info (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info))) (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info))) message "Compiling from buffer... done." prin1 "\n" "%s" prin1-to-string read-with-symbol-positions --displaying-byte-compile-warnings-fn warning-series warning-series-started tem byte-compile-debug value arg] 5 (#$ . 53954) "P"])
(defalias 'byte-compile-from-buffer #[(inbuffer &optional filename) "\306\306\211\211\211\211\211\211\211\307\211\211\306\306 !\"#$%&\310'!\306\211\211\211\211()*+,--,+*)(./0123r\311\312!\211&q\210\313\314!\210\315 \210\306!\3164)\3175\3206!\205\201�\3216!\322\323!=7\324 \2106\325=\204\222�7\203\273�\3068\326 87\204\246�8\206\244�\32569\203\262�5 \210\202\267�\327\330\331\217\210)\202\325�\326 \206\301�\32569\203\317�5 \210\202\324�\327\332\333\217\210).&.\207" [inbuffer read-symbol-positions-list read-with-symbol-positions byte-compile-output byte-compile-maxdepth byte-compile-depth nil 0 copy-alist get-buffer-create " *Compiler Output*" set-buffer-multibyte t erase-buffer overwrite-mode-binary #[nil "\203\n�\306	\n#\210r	q\210eb\210\307\310\307w\210\311\312!\203#�\313y\210\202�m\204E�`\211\307\314	!\203<�\315\316!\210\317!\210*\202�\320 \210d\321 \210)\205W�\322	\n#\207" [filename inbuffer outbuffer byte-compile-unresolved-functions byte-compile-read-position byte-compile-last-position byte-compile-insert-header nil " 	\n\f" looking-at ";" 1 read byte-compile-warn "!! The file uses old-style backquotes !!\nThis functionality has been obsolete for more than 10 years already\nand will be removed soon.  See (elisp)Backquote in the manual." byte-compile-file-form byte-compile-flush-pending byte-compile-warn-about-unresolved-functions byte-compile-fix-header old-style-backquotes form] 5] markerp marker-buffer get-buffer "*Compile-Log*" byte-compile-find-cl-functions byte-compile-warning-series byte-compile-log-file error-info (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info))) (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info))) byte-compile-tag-number byte-compile-variables byte-compile-constants print-level print-length case-fold-search float-output-format byte-compile-last-position byte-compile-read-position byte-compile-current-buffer outbuffer byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment overwrite-mode --displaying-byte-compile-warnings-fn warning-series warning-series-started tem byte-compile-debug] 16])
(defalias 'byte-compile-fix-header #[(filename inbuffer outbuffer) "rq\210d\304d!W\205a�	\203�\305\306!\210eb\210\307\310!\210\311 \210`d}\210\307\312!\210\311 \210e`}\210`\313eb\210`\314\315!\210\311 \210`|\210\316\317\261\210\314\320!\210\321\322!\210\314\320!\210\321\322!\210dZdb\210~\210\323\n!*)\207" [outbuffer byte-compile-compatibility delta old-header-end position-bytes error "Version-18 compatibility not valid with multibyte characters" search-forward "\n;;; This file" beginning-of-line ";;;;;;;;;;" nil re-search-forward "^(" ";;; This file contains utf-8 non-ASCII characters\n" ";;; and therefore cannot be loaded into Emacs 21 or earlier.\n" "19\$\\.[0-9]+\$" replace-match "23" delete-char] 3])
(defalias 'byte-compile-insert-header #[(filename inbuffer outbuffer) "rq\210	\n
q\210eb\210\3064\203�\307\202�\310\311\261\210\312\313\314!\203)�\f\206/�\315 \316\317 Q\320\321 \3225\323\261\210\3246\323\261\210\3257\326=\203L�\327\202a�7\330=\203W�\331\202a�7\203`�\332\202a�\3334\203j�\334\202k�\335\261\210\203u�\336c\2104\204\264�\337\21189\f\203\215�\3409\3418\202\223�\3429\3438\3239\344\345\346\347\3508\"\351\352\3535!!\354\355O\347\3568\"\357\261\n*\202\310�\f\203\274�\360\361!\210\n\203\304�\360\362!\210\363\323\261+\207" [inbuffer byte-compile-dynamic-docstrings byte-compile-dynamic dynamic dynamic-docstrings outbuffer ";ELC" 18 23 "���\n" ";;; Compiled by " boundp user-mail-address user-login-name "@" system-name " on " current-time-string "\n;;; from file " "\n" ";;; in Emacs version " ";;; " source "with source-level optimization only" byte "with byte-level optimization only" "with all optimizations" "without optimization" "; compiled with Emacs 18 compatibility.\n" ".\n" ";;; Function definitions are lazy-loaded.\n" nil ";;; This file uses dynamic docstrings, first added in Emacs 19.29.\n" "19.29" ";;; This file uses opcodes which do not exist in Emacs 18.\n" "19" "(if (and (boundp 'emacs-version)\n" "	 (< (aref emacs-version (1- (length emacs-version))) ?A)\n" "	 (or (and (boundp 'epoch::version) epoch::version)\n" format "	     (string-lessp emacs-version \"%s\")))\n" "    (error \"`" prin1-to-string file-name-nondirectory 1 -1 "' was compiled for Emacs %s or later\"))\n\n" ";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;\n\n" error "Version-18 compatibility doesn't support dynamic doc strings" "Version-18 compatibility doesn't support dynamic byte code" "(or (boundp 'current-load-list) (setq current-load-list nil))\n" byte-compile-compatibility filename emacs-version byte-optimize minimum-version intro-string] 11])
(defalias 'byte-compile-output-file-form #[(form) "\242\306>\203�\3078;\203�\310\311\211\312\311@\313>&\207\314\311\211\314\211	?\315\316\"\210\317\"\210.\311\207" [form byte-compile-disable-print-circle print-circle print-gensym print-quoted print-level (defun defmacro defvar defconst autoload custom-declare-variable) 3 byte-compile-output-docform nil ("\n(" 3 ")") (autoload custom-declare-variable) t princ "\n" prin1 print-length print-escape-newlines outbuffer] 8])
#@524 Print a form with a doc string.  INFO is (prefix doc-index postfix).
If PREFACE and NAME are non-nil, print them too,
before INFO and the FORM but after the doc string itself.
If SPECINDEX is non-nil, it is the index in FORM
of the function bytecode string.  In that case,
we output that argument and the following argument
(the constants vector) together, for lazy loading.
QUOTED says that we have to put a quote before the
list that represents a doc string reference.
`autoload' and `custom-declare-variable' need that.
(defalias 'byte-compile-output-docform #[(preface name info form specindex quoted) "r\nq\210\306\fA@\307Y\203S�	\203S�
\204S�\310c\210\311\fA@8\306\"\312\313!e\314#\fA@8;\203S�\fA@8G\307V\203S�\fA@8\307H\315=\203S�[\203b�c\210\316\n\"\210\f@c\210\317\211\320?\306\317\306\307 !\"#$\316@\n\"\210A\211\203AT\321c\210%\247\203\376�%U\203\376�\306&G\307'('(W\203\315�'H\203\304�\317&'T\211'\202\263�*&)\204\376�\311@A@B\317\"\312\313!e\314#\322\323\324\"\n\"\210AT)\202\207�\fA@U\2037\203\322\323)\203\325\202\326\"\n\"\210\202\207�\306$`T\316@\n\"\210b\210\327c\210db\210)\202\207�\316@\n\"\210\202\207�.\330\f8c\210+\306\207" [byte-compile-dynamic-docstrings dynamic-docstrings outbuffer position info byte-compile-compatibility nil 0 "\n" byte-compile-output-as-comment - position-bytes -1 42 prin1 t (t) " " princ format "(#$ . %d) nil" "'(#$ . %d)" "(#$ . %d)" "\\\n" 2 form preface name byte-compile-disable-print-circle index print-number-table print-continuous-numbering print-gensym-alist print-circle print-gensym print-quoted print-escape-newlines specindex non-nil i #1=#:--cl-dotimes-temp-- quoted] 8 (#$ . 60973)])
(defalias 'byte-compile-keep-pending #[(form &optional handler) "\305>\203�\306	\307\"\n\2030�\307	\242\310>\203!�\311\f\233\203!�\312 \210\n	!\210\203,�\313 \210)\2025�\314	\307\"\210\315\207" [byte-optimize form handler for-effect byte-compile-output (t source) byte-optimize-form t (fset defalias) 300 byte-compile-flush-pending byte-compile-discard byte-compile-form nil] 3])
(defalias 'byte-compile-flush-pending #[nil "\205-�\306\307\310\"\211\242\311=\203�\312\313	A\"\210\202!�	\203!�\313	!\210\314\211\315\211\314\211)\207" [byte-compile-output form byte-compile-constants byte-compile-variables byte-compile-depth byte-compile-maxdepth byte-compile-out-toplevel t file progn mapc byte-compile-output-file-form nil 0] 4])
(defalias 'byte-compile-file-form #[(form) "\304\211\n:\204�\305\n!\202C�\n@9\203/�\n@\306N\211\203/�\n!\211\205C�\307 \210\310\n!\202C�\n\311\n\"\211=\203@�\305\n!\202C�\312\n!*\207" [handler byte-compile-current-form form byte-compile-macro-environment nil byte-compile-keep-pending byte-hunk-handler byte-compile-flush-pending byte-compile-output-file-form macroexpand byte-compile-file-form] 4])
(put 'defsubst 'byte-hunk-handler 'byte-compile-file-form-defsubst)
(defalias 'byte-compile-file-form-defsubst #[(form) "A@	\236\203�A@\304\305A@\"\210\306\307\"!\210\310\207" [form byte-compile-unresolved-functions byte-compile-current-form byte-compile-macro-environment byte-compile-warn "defsubst `%s' was used before it was defined" byte-compile-file-form macroexpand nil] 4])
(put 'autoload 'byte-hunk-handler 'byte-compile-file-form-autoload)
(defalias 'byte-compile-file-form-autoload #[(form) "A\211\2039�@:\203�@@\305=\2026�@9\203�@\306\211\307>\2065�\310\n!\2065�	\2055�\n>*\204�)\204J�\311\3128!\203J�\311!\210A@:\203y�A@@\305=\203y�A@A:\203y�A@A@9\203y�A@A@\313AABB\fB\3148;\203\202�\207\315\316\"\207" [form any-value symbol byte-compile-const-variables byte-compile-function-environment quote nil (nil t) keywordp eval 5 autoload 3 byte-compile-keep-pending byte-compile-normal-call] 4])
(byte-code "\300\301\302\303#\210\300\304\302\303#\207" [put defvar byte-hunk-handler byte-compile-file-form-defvar defconst] 4)
(defalias 'byte-compile-file-form-defvar #[(form) "\3038\204\n�\304!\207\305\306!\203#�A@	B@\307=\203#�A@\nB\3108:\203:�\311!\211AA\312\3108\313\314#\240\210\207" [form byte-compile-bound-variables byte-compile-const-variables 3 byte-compile-keep-pending byte-compile-warning-enabled-p free-vars defconst 2 copy-sequence byte-compile-top-level nil file] 6])
(put 'define-abbrev-table 'byte-hunk-handler 'byte-compile-file-form-define-abbrev-table)
(defalias 'byte-compile-file-form-define-abbrev-table #[(form) "\303\304!\203�A\242\242\305=\203�\211A@)A\242\nB\306!\207" [form x byte-compile-bound-variables byte-compile-warning-enabled-p free-vars quote byte-compile-keep-pending] 3])
(put 'custom-declare-variable 'byte-hunk-handler 'byte-compile-file-form-custom-declare-variable)
(defalias 'byte-compile-file-form-custom-declare-variable #[(form) "\303\304!\203\n�\305!\210\303\306!\203�A@A@	B\307\233\211\2037�\310\n@!\2040�\n\311\n@\312\313#\240\210\nA\211\204 �)\207" [form byte-compile-bound-variables tail byte-compile-warning-enabled-p callargs byte-compile-nogroup-warn free-vars 4 keywordp byte-compile-top-level nil file] 6])
(put 'require 'byte-hunk-handler 'byte-compile-file-form-require)
(defalias 'byte-compile-file-form-require #[(form) "\302\303A\"\304\305	\"\210	@\306\235\203�\307\310!\210)\311\312\"\207" [form args mapcar eval apply require ("cl" cl) byte-compile-disable-warning cl-functions byte-compile-keep-pending byte-compile-normal-call] 3])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\207" [put progn byte-hunk-handler byte-compile-file-form-progn prog1 prog2] 4)
(defalias 'byte-compile-file-form-progn #[(form) "\301\302A\"\210\303\207" [form mapc byte-compile-file-form nil] 3])
(put 'eval 'byte-hunk-handler 'byte-compile-file-form-eval)
(defalias 'byte-compile-file-form-eval #[(form) "A@\242\301=\203�A@A@\207\302!\207" [form quote byte-compile-keep-pending] 2])
(put 'defun 'byte-hunk-handler 'byte-compile-file-form-defun)
(defalias 'byte-compile-file-form-defun #[(form) "\301\302\"\207" [form byte-compile-file-form-defmumble nil] 3])
(put 'defmacro 'byte-hunk-handler 'byte-compile-file-form-defmacro)
(defalias 'byte-compile-file-form-defmacro #[(form) "\301\302\"\207" [form byte-compile-file-form-defmumble t] 3])
(defalias 'byte-compile-file-form-defmumble #[(form macrop) "A@\n\203\f�\306\202
�\307\n\203�\307\202�\306	J\236	\fJ\2368\310\2119:\311	!\210;\203B�	<\236\204B�	\310\211E<B<	=\312\313!\203P�\314\n\"\210>\203b�\315\316?\206]�\317A@#\2108\203\205�\312\313!\203}�A@@\236\204}�\320\321A@\"\2108\310\241\210\202\351�
\203\253�\312\313!\203\351�A@@\236\204\351�\320\322\n\203\242�\323\202\243�\324A@#\210\202\351�\325	!\203\351�	K\242\n\203\274�\326\202\275�\327=\203\351�\312\313!\203\340�\320\330\n\203\321�\324\202\322�\323A@\n\203\335�\323\202\336�\324$\210	\310BJBL\210\331\233\211A@;\203A\243\2429\203A\243\242\203A\243\243\242;\203\311A@!\210\320\332A@\"\210)\n\203eAA\211BA@;\203/BABBA@:\203dBA@@\333=\203dBA@CB\211AA\241\210\334\335\336\337\336\340	D\340CDFED\"\210)\202/)\341AA\342\"E\343E!F
\203
E\241\210\202\211	EBJBL\210\3318;\203\257F\242\340=\203\257FA@\242\326=\203\257@	FA@ABB\202m\344 \210\3318;\204\345G\203\303\346\202\304\347	F:\204\327\n\203\323\350\202\370\351\202\370F@\340=\203\357EF\n\203\353\352\202\370\353\202\370\n\203\367\354\202\370\355\356F\310\"F:?\205\nH\205\n\357\310&\210\202f\345G\203\346\202\347	F:\204/\n\203+\360\202P\361\202PF@\340=\203GEF\n\203C\362\202P\363\202P\n\203O\364\202P\365\356F\310\"F:?\205bH\205b\357\310&\210\366\367D\"\210\310.	\207" [form name macrop this-kind that-kind this-one byte-compile-macro-environment byte-compile-function-environment nil byte-compile-set-symbol-position byte-compile-warning-enabled-p redefine byte-compile-arglist-warn message "Compiling %s... (%s)" "" byte-compile-warn "`%s' defined multiple times, as both function and macro" "%s `%s' defined multiple times in this file" "macro" "function" fboundp lambda macro "%s `%s' being redefined as a %s" 3 "probable `\"' without `\\' in doc string of %s" declare prin1 if macro-declaration-function funcall quote byte-compile-lambda t byte-compile-byte-code-maker byte-compile-flush-pending byte-compile-output-docform "\n(fset '" "\n(defalias '" (" '(macro . #[" -1 "])") (" #[" -1 "]") (" '(macro " -1 ")") (" '(" -1 ")") (" (cons 'macro (" -1 "))") (" (" -1 ")") append 1 (" '(macro . #[" 4 "])") (" #[" 4 "]") (" '(macro " 2 ")") (" '(" 2 ")") (" (cons 'macro (" 5 "))") (" (" 5 ")") princ ")" that-one byte-compile-free-references byte-compile-free-assignments byte-compile-generate-call-tree byte-compile-call-tree byte-compile-current-form byte-compile-verbose filename byte-compile-initial-macro-environment body tail declaration outbuffer new-one code byte-compile-compatibility byte-compile-dynamic] 9])
(defalias 'byte-compile-output-as-comment #[(exp quoted) "`r	q\210\304c\210\n\203�\305	\"\210\202�\306	\"\210b\210\307\310\311\312#\203.�\313\314\312\211#\210\202�b\210\307\315\311\312#\203B�\313\316\312\211#\210\2021�b\210\307\317\311\312#\203V�\313\320\312\211#\210\202E�db\210\317c\210b\210\321\322\323\324d!\324!Z\"\261\210`db\210))\207" [position outbuffer quoted exp " " prin1 princ search-forward "" nil t replace-match "" "�" "0" "" "_" "#@" format "%d" position-bytes] 6])
#@123 If FORM is a symbol, byte-compile its function definition.
If FORM is a lambda or a macro, byte-compile it as a function.
(defalias 'byte-compile #[(form) "\305\306	!\205�\307	!\310\311!=\312 \210	\313=\204�\n\203=�\314\315 \n\204,�\206+�\313\f\2035� \2029�\316\317\320\217)\202R�\315 \206C�\313\f\203M� \202Q�\316\321\322\217)*\207" [--displaying-byte-compile-warnings-fn warning-series warning-series-started tem byte-compile-debug #[nil "\306!\307\211\211\211\211	\n\f

9\2035�\310!\2057�K\2027�\211\242\311=\211	\203H�A\242\312=\205u�	\203^�\311\313!B\202b�\313!9\203s�\314\"\202u�.\207" [byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings copy-alist nil fboundp macro lambda byte-compile-lambda defalias byte-compile-warnings byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment form fun] 13] markerp marker-buffer get-buffer "*Compile-Log*" byte-compile-find-cl-functions byte-compile-warning-series nil byte-compile-log-file error-info (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info))) (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info)))] 3 (#$ . 70448)])
#@26 Compile and return SEXP.
(defalias 'byte-compile-sexp #[(sexp) "\305\306	!\205�\307	!\310\311!=\312 \210	\313=\204�\n\203=�\314\315 \n\204,�\206+�\313\f\2035� \2029�\316\317\320\217)\202R�\315 \206C�\313\f\203M� \202Q�\316\321\322\217)*\207" [--displaying-byte-compile-warnings-fn warning-series warning-series-started tem byte-compile-debug #[nil "\306!\307\211\211\211\211	\n\f
		\n\f
\310!.\f\207" [byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings copy-alist nil byte-compile-top-level byte-compile-warnings byte-compile-free-assignments byte-compile-free-references byte-compile-const-variables byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment sexp] 12] markerp marker-buffer get-buffer "*Compile-Log*" byte-compile-find-cl-functions byte-compile-warning-series nil byte-compile-log-file error-info (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info))) (funcall --displaying-byte-compile-warnings-fn) ((error (byte-compile-report-error error-info)))] 3 (#$ . 71907)])
(defalias 'byte-compile-byte-code-maker #[(fun) "\203\n�\304\305	!D\207	:\204�	\207\306\307	A\243\236\211\203r�\n	>A\204r�\303	AA\236\310\304	A@D\nA@\311\n8\312\n8\257\311	8;\203I�\311	8C\202O�\205O�\306C\244\205m�A@\203a�A@;\203g�A@\202l�\304A@DC\244)\202u�\304	D)\207" [byte-compile-compatibility fun tmp interactive quote byte-compile-byte-code-unmake nil byte-code make-byte-code 2 3] 6])
(defalias 'byte-compile-byte-code-unmake #[(function) ":\203�\207\301\302\"\303@D\3048\205�\3048C\244\305\233\205-�\306\3058\205+�\305\233BC\244\307A@\3108\3118FC\244\207" [function append nil lambda 4 5 interactive byte-code 2 3] 6])
#@36 Check lambda-list LIST for errors.
(defalias 'byte-compile-check-lambda-list #[(list) "\306	\205\207�	@\2119\203�\307\n!\210\n9\2032�\n\310\211\311>\206.�\312\f!\206.�\205.�\f
>*\203:�\313\314\n\"\210\202~�\n\315=\203Z�	A\204I�\313\316!\210	\211AA)\203~�\313\317!\210\202~�\n\320=\203l�	A\204~�\313\321!\210\202~�\n>\203z�\322\323\n\"\210\202~�\nB)	A\211\204�\306)\207" [vars list arg any-value symbol byte-compile-const-variables nil byte-compile-set-symbol-position t (nil t) keywordp error "Invalid lambda variable %s" &rest "&rest without variable name" "Garbage following &rest VAR in lambda-list" &optional "Variable name missing after &optional" byte-compile-warn "repeated variable %s in lambda-list" x] 4 (#$ . 73764)])
(defalias 'byte-compile-lambda #[(fun &optional add-lambda) "\203�\306	B\202�	\242\306=\204�\307\310	\"\210\311\306!\210\312	A@!\210	A@\313\314!\2054�\315\316\315\317\320\n!\"\"\244	AA\211@;\205K�\f@\fA\203K�\fA\321\f\236\211\203\316�\311\321!\210\f@=\203d�\fAA:\203\300�AA\203z�\322\323\324!\"\210A@\211\242\325>\203\240�A:\203\227�A\211\202\211�@\211\202\201�\242\326=\203\262�\327A@!\210\202\274�\321\327A@!D)\202\316�A\203\316�\322\323\324!\"\210\327\330\fB\331\306#\211 \242\332=\203!\204\333\334\335\nC A
\204\364�\205\366�
C\205�A@C$\"\202G\205
C \242\330=\203 A\202# \205# C\244 \306\nD
\2044 @;\203D
 \206@\f\205@\331CB\202F \244.\207" [add-lambda fun arglist byte-compile-bound-variables body doc lambda error "Not a lambda list: %S" byte-compile-set-symbol-position byte-compile-check-lambda-list byte-compile-warning-enabled-p free-vars delq &rest &optional copy-sequence interactive byte-compile-warn "malformed interactive spec: %s" prin1-to-string (let let* progn save-excursion) list byte-compile-top-level progn nil byte-code apply make-byte-code append int form compiled byte-compile-compatibility] 8])
(defalias 'byte-compile-constants-vector #[nil "\306	\237\237\307\211
\310\307\n\204�\f\203a�@\n\203T�=\204T�\n@@
\236\211
\203@�\n@
A\241\210\202M�\n@T\211\241\210\n@
B\nA\211\204$�A\f\n\211\202�\311\312\313\314
\"\237\".\207" [i byte-compile-variables rest byte-compile-constants other ret -1 nil (5 63 255 65535) apply vector mapcar car tmp limits limit] 6])
(defalias 'byte-compile-top-level #[(form &optional for-effect output-type) "\306\211\307\211\211\306\310>\203�\311\"\242\312=\2034�AA\2044�A@\211\202�\242\313=\203b�\314>\204b�A@;\203b�\315\3168!\203b�\317\3208!\203b�\202o�\321\"\210\322\".\207" [byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants nil 0 (t source) byte-optimize-form progn byte-code (t byte) vectorp 2 natnump 3 byte-compile-form byte-compile-out-toplevel byte-optimize form for-effect output-type] 7])
(defalias 'byte-compile-out-toplevel #[(&optional for-effect output-type) "\203E�	@@\306=\203�	A\202E�\307\310\n\236?\205C�\311\n!\211\203=�\211@@)9\204=�\211@@)\247\204=�A\211\204\"�\211@@*!\210\312\313\314\"\210	\237
\315>\203X�\316	\"\310$\317=?\310\211%&'$\317=\204z$\320=\203y�\321\202z�\322	\233\204z\323	\236\204z\313	\236\211\203z\311	!>A\237\211'@@\324>\203\363�'@A@'@@\325=\203\351�:\204\330�9\203\351�\310(\211)\326>\206\324�\327)!\206\324�(\205\324�)*>*\204\351�&\203u\330D%B\211%\202i%B\211%\202i&\203u\331'\233\204u'@@\332N\211\203u'A\203-$\333>\203u'AA\203u'A@@\306=\203u'A'\310&%\237%\334=\203P%@\242\330=\203P%@A@%AB\202T%BC%$\320=\204l\335\310\336\337%@A\"\"?\203u'A\211'\202\227�'\203\213\340 +\341\342	!+,F)\202\234%A\203\231\343%\237B\202\234%@,\207" [for-effect byte-compile-output byte-compile-constants tmp x byte-optimize byte-discard byte-compile-push-constant nil reverse byte-compile-out byte-return 0 (t byte) byte-optimize-lapcode lambda file 50 8 TAG (byte-varref byte-constant) byte-constant (nil t) keywordp quote 3 byte-opcode-invert (file progn t) funcall delq mapcar consp byte-compile-constants-vector byte-code byte-compile-lapcode progn output-type body maycall rest any-value symbol byte-compile-const-variables byte-compile-vector byte-compile-maxdepth] 6])
(defalias 'byte-compile-top-level-body #[(body &optional for-effect) "\302\303B	\304#\211\242\303=\203�A\207\205�C\207" [body for-effect byte-compile-top-level progn t] 5])
(put 'declare-function 'byte-hunk-handler 'byte-compile-declare-function)
(defalias 'byte-compile-declare-function #[(form) "A@G\303V\203�\3038<\203�\304\3038D\202�\305B	B\306A@\n\"\307\207" [form byte-compile-function-environment byte-compile-noruntime-functions 3 declared t delq nil] 4])
(defalias 'byte-compile-form #[(form &optional for-effect) "\306	\"\211:\204Y�9\203*�\307\211\310>\206&�\311!\206&�\n\205&�\f>*\203:�9\2033�\312!\210\313!\210\202
\203Q�$\203Q�9\203L�\312!\210\307\202\314\315\"\210\202@9\203\356�@\211%\316N&%\307\211\310>\206\200�\311!\206\200�\n\205\200�\f>*\203\212�\317\320%\"\210\321\322!\203\236�%'>\203\236�\317\323%\"\210&\203\307�&\324>\203\261�\325&!\203\307�(\203\277�%\326N\327N\204\307�&!\210\202\340�\321\330!\203\334�%\331>\203\330�\332!\210\333!\210\334!\210\321\335!\203\352�\336!\210*\202\337@!\204\375�@\242\340=\203\341!\211=\204\342
\"\210\307\202\334!\210
\205\343 \207" [form byte-compile-macro-environment any-value symbol byte-compile-const-variables for-effect macroexpand nil (nil t) keywordp byte-compile-set-symbol-position byte-compile-constant byte-compile-variable-ref byte-varref byte-compile byte-compile-warn "`%s' called as a function" byte-compile-warning-enabled-p interactive-only "`%s' used from Lisp code\nThat command is designed for interactive use only" (cl-byte-compile-compiler-macro) functionp byte-opcode emacs19-opcode callargs (custom-declare-group custom-declare-variable custom-declare-face) byte-compile-nogroup-warn byte-compile-callargs-warn byte-compile-normal-call cl-functions byte-compile-cl-warn byte-code-function-p lambda byte-compile-unfold-lambda byte-compile-form byte-compile-discard byte-compile-delete-errors fn handler byte-compile-interactive-only-functions byte-compile-compatibility] 4])
(defalias 'byte-compile-normal-call #[(form) "\203�\303	!\210\n\203!�	@\304=\203!�\305\304!\203!�\306\304!\210\307\310!\210\311	@!\210\312\313	A\"\210\314\315	AG\"\207" [byte-compile-generate-call-tree form for-effect byte-compile-annotate-call-tree mapcar byte-compile-warning-enabled-p byte-compile-set-symbol-position byte-compile-warn "`mapcar' called for effect; use `mapc' or `dolist' instead" byte-compile-push-constant mapc byte-compile-form byte-compile-out byte-call] 3])
(defalias 'byte-compile-variable-ref #[(base-op var) "9\203	�\306!\2109\203,�	\307=?\211\310>\206(�\311!\206(�\n\205(�\f>*\203T�\312	\313=\2037�\314\202B�	\315=\203A�\316\202B�\3179\203K�\320\202L�\321\322!#\210\202\263�\323N\203d�
=\204d�\324!\210\325\326!\203\263�	\313=\203y�B\202\263�\327!\204\263�>\204\263�	\315=\203\241�>\204\263�\312\330\"\210B\202\263�>\204\263�\312\331\"\210B\236\211\204\307�C\211B\332	\")\207" [var base-op any-value symbol byte-compile-const-variables byte-compile-not-obsolete-var byte-compile-set-symbol-position byte-varref (nil t) keywordp byte-compile-warn byte-varbind "attempt to let-bind %s `%s'" byte-varset "variable assignment to %s `%s'" "variable reference to %s `%s'" "constant" "nonvariable" prin1-to-string byte-obsolete-variable byte-compile-warn-obsolete byte-compile-warning-enabled-p free-vars boundp "assignment to free variable `%s'" "reference to free variable `%s'" byte-compile-out byte-compile-bound-variables byte-compile-free-assignments byte-compile-free-references byte-compile-variables tmp] 6])
(defalias 'byte-compile-get-constant '(macro . #[(const) "\301\302\303D\304\305\306\307\302\310\311E\312BBE\313BBB\314\315BBF\316\317\320\321\322D\323BBEDE\207" [const or if stringp let (result) dolist (elt byte-compile-constants) equal-including-properties (car elt) ((setq result elt)) (result) assq (byte-compile-constants) car setq byte-compile-constants cons list (byte-compile-constants)] 11]))
(defalias 'byte-compile-constant #[(const) "\203�\306\211\207	9\203�\307	!\210\310\311	;\203<�\306\306\211\2036�
@\312\f@	\"\203/�\f
A\211\204\"�*\n)\202?�	\236\206I�	CB\211@\"\207" [for-effect const result byte-compile-constants elt #1=#:--cl-dolist-temp-- nil byte-compile-set-symbol-position byte-compile-out byte-constant equal-including-properties] 6])
(defalias 'byte-compile-push-constant #[(const) "\306	\203�\306\211\202P�	9\203�\307	!\210\310\311	;\203B�\306\306\211\203<�
@\312\f@	\"\2035�\f
A\211\204(�*\n)\202E�	\236\206O�	CB\211@\"*\207" [for-effect const result byte-compile-constants elt #1=#:--cl-dolist-temp-- nil byte-compile-set-symbol-position byte-compile-out byte-constant equal-including-properties] 6])
(defalias 'byte-defop-compiler '(macro . #[(function &optional compile-handler) "\304	9\203�\305\306\307	!P!\202�	A@	@\310\311	D\312\311\n\313\236A\2061�\n\2061�\305\314\307	!P!DF\203P�\315\310\311	D\316\311DF\310\311D\317\311	DFF\202Q�*\207" [opcode function compile-handler fnform nil intern "byte-" symbol-name put quote 'byte-compile ((0 . byte-compile-no-args) (1 . byte-compile-one-arg) (2 . byte-compile-two-args) (3 . byte-compile-three-args) (0-1 . byte-compile-zero-or-one-arg) (1-2 . byte-compile-one-or-two-args) (2-3 . byte-compile-two-or-three-args)) "byte-compile-" progn 'byte-opcode 'byte-opcode-invert] 8]))
(defalias 'byte-defop-compiler19 '(macro . #[(function &optional compile-handler) "\302\303\304\243@\206�\305\306\307\242\206�!P!D\310\311F\312	EE\207" [function compile-handler progn put quote intern "byte-" symbol-name 'emacs19-opcode t byte-defop-compiler] 7]))
(defalias 'byte-defop-compiler-1 '(macro . #[(function &optional compile-handler) "\302\303D	E\207" [function compile-handler byte-defop-compiler nil] 3]))
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\305#\210\300\307\302\305#\210\300\310\302\305#\210\300\311\302\305#\210\300\312\302\313#\210\300\314\302\313#\210\300\315\302\313#\210\300\316\302\313#\210\300\317\302\320#\210\300\321\322\323#\210\300\321\324\325#\210\300\325\302\321#\210\300\326\322\323#\210\300\326\324\327#\210\300\327\302\326#\210\300\330\322\323#\210\300\330\324\331#\210\300\331\302\330#\210\300\332\322\323#\210\300\332\324\333#\210\300\333\302\332#\210\300\334\322\323#\210\300\334\324\335#\210\300\335\302\334#\210\300\336\322\323#\210\300\336\324\337#\210\300\337\302\336#\210\300\340\322\323#\210\300\340\324\341#\210\300\341\302\340#\210\300\342\322\323#\210\300\342\324\343#\210\300\343\302\342#\210\300\344\322\323#\210\300\344\324\345#\210\300\345\302\344#\210\300\346\322\323#\210\300\346\324\347#\210\300\347\302\346#\210\300\350\322\323#\210\300\350\324\351#\210\300\351\302\350#\210\300\352\322\323#\210\300\352\324\353#\210\300\353\302\352#\210\300\354\355\356#\210\300\357\322\323#\210\300\357\324\354#\210\300\354\302\357#\210\300\360\355\356#\210\300\361\322\362#\210\300\361\324\360#\210\300\360\302\361#\210\300\363\355\356#\210\300\364\322\362#\210\300\364\324\363#\210\300\363\302\364#\210\300\365\355\356#\210\300\366\322\362#\210\300\366\324\365#\210\300\365\302\366#\210\300\367\322\370#\210\300\367\324\371#\210\300\371\302\367#\210\300\372\322\370#\210\300\372\324\373#\210\300\373\302\372#\210\300\374\322\370#\210\300\374\324\375#\210\300\375\302\374#\210\300\376\322\370#\210\300\376\324\377#\210\300\377\302\376#\210\300\201@�\322\370#\210\300\201@�\324\201A�#\210\300\201A�\302\201@�#\210\300\201B�\322\370#\210\300\201B�\324\201A�#\210\300\201A�\302\201B�#\210\300\201C�\322\370#\210\300\201C�\324\201D�#\210\300\201D�\302\201C�#\210\300\201E�\322\370#\210\300\201E�\324\201F�#\210\300\201F�\302\201E�#\210\300\201G�\322\370#\210\300\201G�\324\201H�#\210\300\201H�\302\201G�#\210\300\201I�\322\370#\210\300\201I�\324\201J�#\210\300\201J�\302\201I�#\210\300\201K�\322\370#\210\300\201K�\324\201L�#\210\300\201L�\302\201K�#\210\300\201M�\322\370#\210\300\201M�\324\201N�#\210\300\201N�\302\201M�#\210\300\201O�\322\370#\210\300\201O�\324\201P�#\210\300\201P�\302\201O�#\210\300\201Q�\322\370#\210\300\201Q�\324\201R�#\210\300\201R�\302\201Q�#\210\300\201S�\322\362#\210\300\201S�\324\201T�#\210\300\201T�\302\201S�#\210\300\201U�\322\370#\210\300\201U�\324\201V�#\210\300\201V�\302\201U�#\210\300\201W�\355\356#\210\300\201X�\322\362#\210\300\201X�\324\201W�#\210\300\201W�\302\201X�#\210\300\201Y�\355\356#\210\300\201Z�\322\370#\210\300\201Z�\324\201Y�#\210\300\201Y�\302\201Z�#\210\300\201[�\355\356#\210\300\201\\�\322\370#\210\300\201\\�\324\201[�#\210\300\201[�\302\201\\�#\210\300\201]�\355\356#\210\300\201^�\322\370#\210\300\201^�\324\201]�#\210\300\201]�\302\201^�#\210\300\201_�\355\356#\210\300\201`�\322\370#\210\300\201`�\324\201_�#\210\300\201_�\302\201`�#\210\300\201a�\355\356#\210\300\201b�\322\370#\210\300\201b�\324\201a�#\210\300\201a�\302\201b�#\210\300\201c�\355\356#\210\300\201d�\322\370#\210\300\201d�\324\201c�#\210\300\201c�\302\201d�#\210\300\201e�\355\356#\210\300\201f�\322\201g�#\210\300\201f�\324\201e�#\210\300\201e�\302\201f�#\210\300\201h�\355\356#\210\300\201i�\322\201g�#\210\300\201i�\324\201h�#\210\300\201h�\302\201i�#\210\300\201j�\322\201k�#\210\300\201j�\324\201l�#\210\300\201l�\302\201j�#\210\300\201m�\322\201k�#\210\300\201m�\324\201n�#\210\300\201n�\302\201m�#\210\300\201o�\322\201k�#\210\300\201o�\324\201p�#\210\300\201p�\302\201o�#\210\300\201q�\322\201k�#\210\300\201q�\324\201r�#\210\300\201r�\302\201q�#\210\300\201s�\322\201k�#\210\300\201s�\324\201t�#\210\300\201t�\302\201s�#\210\300\201u�\322\201k�#\210\300\201u�\324\201v�#\210\300\201v�\302\201u�#\210\300\201w�\322\201k�#\210\300\201w�\324\201x�#\210\300\201x�\302\201w�#\210\300\201y�\322\201k�#\210\300\201y�\324\201z�#\210\300\201z�\302\201y�#\210\300\201{�\322\201k�#\210\300\201{�\324\201|�#\210\300\201|�\302\201{�#\210\300\201}�\322\201k�#\210\300\201}�\324\201~�#\210\300\201~�\302\201}�#\210\300\201�\322\201k�#\210\300\201�\324\201\200�#\210\300\201\200�\302\201�#\210\300\201\201�\322\201k�#\210\300\201\201�\324\201\202�#\210\300\201\202�\302\201\201�#\210\300\201\203�\322\201\204�#\210\300\201\203�\324\201\205�#\210\300\201\205�\302\201\203�#\210\300\201\206�\355\356#\210\300\201\207�\322\201\204�#\210\300\201\207�\324\201\206�#\210\300\201\206�\302\201\207�#\210\300\201\206�\355\356#\210\300\201\210�\322\201\204�#\210\300\201\210�\324\201\206�#\210\300\201\206�\302\201\210�#\210\300\201\211�\355\356#\210\300\201\212�\322\370#\210\300\201\212�\324\201\211�#\210\300\201\211�\302\201\212�#\210\300\201\213�\355\356#\210\300\201\214�\322\370#\210\300\201\214�\324\201\213�#\210\300\201\213�\302\201\214�#\210\300\201\215�\355\356#\210\300\201\216�\322\370#\210\300\201\216�\324\201\215�#\210\300\201\215�\302\201\216�#\210\300\201\217�\355\356#\210\300\201\220�\322\370#\210\300\201\220�\324\201\217�#\210\300\201\217�\302\201\220�#\210\300\201\221�\355\356#\210\300\201\222�\322\201k�#\210\300\201\222�\324\201\221�#\210\300\201\221�\302\201\222�#\210\300\201\223�\355\356#\210\300\201\224�\322\201k�#\210\300\201\224�\324\201\223�#\210\300\201\223�\302\201\224�#\210\300\201\221�\355\356#\210\300\201\225�\322\201k�#\210\300\201\225�\324\201\221�#\210\300\201\221�\302\201\225�#\210\300\201\223�\355\356#\210\300\201\226�\322\201k�#\210\300\201\226�\324\201\223�#\210\300\201\223�\302\201\226�#\210\300\201\227�\355\356#\210\300\201\230�\322\201k�#\210\300\201\230�\324\201\227�#\210\300\201\227�\302\201\230�#\210\300\201\231�\355\356#\210\300\201\232�\322\201k�#\210\300\201\232�\324\201\231�#\210\300\201\231�\302\201\232�#\210\300\201\233�\355\356#\210\300\201\234�\322\201k�#\210\300\201\234�\324\201\233�#\210\300\201\233�\302\201\234�#\210\300\201\235�\355\356#\210\300\201\236�\322\201k�#\210\300\201\236�\324\201\235�#\210\300\201\235�\302\201\236�#\210\300\201\237�\355\356#\210\300\201\240�\322\201k�#\210\300\201\240�\324\201\237�#\210\300\201\237�\302\201\240�#\210\300\201\241�\355\356#\210\300\201\242�\322\201k�#\210\300\201\242�\324\201\241�#\210\300\201\241�\302\201\242�#\210\300\201\243�\355\356#\210\300\201\244�\322\201k�#\210\300\201\244�\324\201\243�#\210\300\201\243�\302\201\244�#\210\300\201\241�\355\356#\210\300\201\245�\322\201k�#\210\300\201\245�\324\201\241�#\210\300\201\241�\302\201\245�#\210\300\201\243�\355\356#\210\300\201\246�\322\201k�#\210\300\201\246�\324\201\243�#\210\300\201\243�\302\201\246�#\210\300\201\247�\355\356#\210\300\201\250�\322\201k�#\210\300\201\250�\324\201\247�#\210\300\201\247�\302\201\250�#\210\300\201\251�\355\356#\210\300\201\252�\322\201k�#\210\300\201\252�\324\201\251�#\210\300\201\251�\302\201\252�#\210\300\201\253�\355\356#\210\300\201\254�\322\201k�#\210\300\201\254�\324\201\253�#\210\300\201\253�\302\201\254�#\210\300\201\255�\355\356#\210\300\201\256�\322\201k�#\210\300\201\256�\324\201\255�#\210\300\201\255�\302\201\256�#\210\300\201\257�\322\201\260�#\210\300\201\257�\324\201\261�#\210\300\201\261�\302\201\257�#\210\300\201\262�\322\201\263�#\210\300\201\262�\324\201\264�#\210\300\201\264�\302\201\262�#\210\300\201\265�\322\201\263�#\210\300\201\265�\324\201\266�#\210\300\201\266�\302\201\265�#\210\300\201\267�\322\201\263�#\210\300\201\267�\324\201\270�#\210\300\201\270�\302\201\267�#\210\300\201\271�\355\356#\210\300\201\272�\322\201\263�#\210\300\201\272�\324\201\271�#\210\300\201\271�\302\201\272�#\210\300\201\273�\322\201\274�#\207" [put byte-call byte-opcode-invert funcall byte-list1 list byte-list2 byte-list3 byte-list4 byte-listN byte-concat2 concat byte-concat3 byte-concat4 byte-concatN byte-insertN insert point byte-compile byte-compile-no-args byte-opcode byte-point point-max byte-point-max point-min byte-point-min following-char byte-following-char preceding-char byte-preceding-char current-column byte-current-column eolp byte-eolp eobp byte-eobp bolp byte-bolp bobp byte-bobp current-buffer byte-current-buffer interactive-p byte-interactive-p byte-widen emacs19-opcode t widen byte-end-of-line end-of-line byte-compile-zero-or-one-arg byte-forward-char forward-char byte-forward-line forward-line symbolp byte-compile-one-arg byte-symbolp consp byte-consp stringp byte-stringp listp byte-listp not byte-not null car byte-car cdr byte-cdr length byte-length symbol-value byte-symbol-value symbol-function byte-symbol-function 1+ byte-add1 1- byte-sub1 goto-char byte-goto-char char-after byte-char-after set-buffer byte-set-buffer byte-forward-word forward-word byte-char-syntax char-syntax byte-nreverse nreverse byte-car-safe car-safe byte-cdr-safe cdr-safe byte-numberp numberp byte-integerp integerp byte-skip-chars-forward skip-chars-forward byte-compile-one-or-two-args byte-skip-chars-backward skip-chars-backward eq byte-compile-two-args byte-eq memq byte-memq cons byte-cons aref byte-aref set byte-set = byte-eqlsign < byte-lss > byte-gtr <= byte-leq >= byte-geq get byte-get nth byte-nth substring byte-compile-two-or-three-args byte-substring byte-set-marker move-marker set-marker byte-match-beginning match-beginning byte-match-end match-end byte-upcase upcase byte-downcase downcase byte-string= string= byte-string< string< string-equal string-lessp byte-equal equal byte-nthcdr nthcdr byte-elt elt byte-member member byte-assq assq byte-setcar rplaca byte-setcdr rplacd setcar setcdr byte-buffer-substring buffer-substring byte-delete-region delete-region byte-narrow-to-region narrow-to-region byte-rem % aset byte-compile-three-args byte-aset max byte-compile-associative byte-max min byte-min + byte-plus byte-mult * interactive byte-compile-noop] 4)
(defalias 'byte-compile-subr-wrong-args #[(form n) "\302@!\210\303\304@AGAG\305U\203�\306\202�\307	%\210\310!\207" [form n byte-compile-set-symbol-position byte-compile-warn "`%s' called with %d arg%s, but requires %s" 1 "" "s" byte-compile-normal-call] 6])
(defalias 'byte-compile-no-args #[(form) "G\301U\204\f�\302\303\"\207\304@\305N\306\"\207" [form 1 byte-compile-subr-wrong-args "none" byte-compile-out byte-opcode 0] 3])
(defalias 'byte-compile-one-arg #[(form) "G\301U\204\f�\302\303\"\207\304A@!\210\305@\306N\307\"\207" [form 2 byte-compile-subr-wrong-args 1 byte-compile-form byte-compile-out byte-opcode 0] 3])
(defalias 'byte-compile-two-args #[(form) "G\301U\204\f�\302\303\"\207\304A@!\210\304\3038!\210\305@\306N\307\"\207" [form 3 byte-compile-subr-wrong-args 2 byte-compile-form byte-compile-out byte-opcode 0] 3])
(defalias 'byte-compile-three-args #[(form) "G\301U\204\f�\302\303\"\207\304A@!\210\304\3058!\210\304\3038!\210\306@\307N\310\"\207" [form 4 byte-compile-subr-wrong-args 3 byte-compile-form 2 byte-compile-out byte-opcode 0] 3])
(defalias 'byte-compile-zero-or-one-arg #[(form) "G\211\302U\203�\303\304\305\"!\202\"�	\306U\203�\303!\202\"�\307\310\")\207" [form len 1 byte-compile-one-arg append (nil) 2 byte-compile-subr-wrong-args "0-1"] 5])
(defalias 'byte-compile-one-or-two-args #[(form) "G\211\302U\203�\303\304\305\"!\202\"�	\306U\203�\303!\202\"�\307\310\")\207" [form len 2 byte-compile-two-args append (nil) 3 byte-compile-subr-wrong-args "1-2"] 5])
(defalias 'byte-compile-two-or-three-args #[(form) "G\211\302U\203�\303\304\305\"!\202\"�	\306U\203�\303!\202\"�\307\310\")\207" [form len 3 byte-compile-three-args append (nil) 4 byte-compile-subr-wrong-args "2-3"] 5])
(defalias 'byte-compile-noop #[(form) "\300\301!\207" [byte-compile-constant nil] 2])
(defalias 'byte-compile-discard #[nil "\300\301\302\"\207" [byte-compile-out byte-discard 0] 3])
(defalias 'byte-compile-associative #[(form) "A\203[�@\305N\306\307GW\203%�\n\310\305N\311\305ND>\203%�\312!\202Y�\313A!\314	@!\210	A\211\204<�\315\310\305N	\306\211\203W�\f@\314!\210\316\n\317\"\210\fA\211\204D�*\306*\207\320\321!!\207" [form args opcode arg #1=#:--cl-dolist-temp-- byte-opcode nil 3 + * byte-compile-normal-call copy-sequence byte-compile-form (0) byte-compile-out 0 byte-compile-constant eval] 5])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\305\306\301#\210\300\307\302\310#\210\300\307\304\311#\210\300\311\306\307#\210\300\312\302\313#\210\300\312\304\314#\210\300\314\306\312#\210\300\315\302\316#\210\300\315\304\317#\210\300\317\306\315#\210\300\320\302\321#\210\300\320\304\322#\210\300\322\306\320#\210\300\323\302\324#\210\300\323\304\325#\210\300\325\306\323#\210\300\326\302\327#\210\300\326\304\330#\210\300\330\306\326#\210\300\331\302\327#\210\300\331\304\330#\210\300\330\306\331#\210\300\332\302\333#\210\300\332\304\334#\210\300\334\306\332#\210\300\335\302\336#\210\300\337\302\340#\210\300\341\342\343#\210\300\344\302\345#\210\300\344\304\341#\210\300\341\306\344#\210\300\346\342\343#\210\300\347\302\350#\210\300\347\304\346#\210\300\346\306\347#\207" [put char-before byte-compile byte-compile-char-before byte-opcode byte-char-before byte-opcode-invert backward-char byte-compile-backward-char byte-backward-char backward-word byte-compile-backward-word byte-backward-word list byte-compile-list byte-list concat byte-compile-concat byte-concat fset byte-compile-fset byte-fset indent-to-column byte-compile-indent-to byte-indent-to indent-to insert byte-compile-insert byte-insert function byte-compile-function-form - byte-compile-minus byte-quo emacs19-opcode t / byte-compile-quo byte-nconc nconc byte-compile-nconc] 4)
(defalias 'byte-compile-char-before #[(form) "G\301U\203�\302\303A@\247\203�A@S\202�\304A@DD!\207G\305U\203*�\302\306!\207\307\310\"\207" [form 2 byte-compile-form char-after 1- 1 (char-after (1- (point))) byte-compile-subr-wrong-args "0-1"] 4])
(defalias 'byte-compile-backward-char #[(form) "G\301U\203�\302\303A@\247\203�A@[\202�\304A@DD!\207G\305U\203*�\302\306!\207\307\310\"\207" [form 2 byte-compile-form forward-char - 1 (forward-char -1) byte-compile-subr-wrong-args "0-1"] 4])
(defalias 'byte-compile-backward-word #[(form) "G\301U\203�\302\303A@\247\203�A@[\202�\304A@DD!\207G\305U\203*�\302\306!\207\307\310\"\207" [form 2 byte-compile-form forward-word - 1 (forward-word -1) byte-compile-subr-wrong-args "0-1"] 4])
(defalias 'byte-compile-list #[(form) "AG\211\303U\203�\304\305!\202@�	\306W\203&�\307\310A\"\210\311\312	SH\303\"\202@�	\313W\203=�\n\204=�\307\310A\"\210\311\314	\"\202@�\315!)\207" [form count byte-compile-compatibility 0 byte-compile-constant nil 5 mapc byte-compile-form byte-compile-out [byte-list1 byte-list2 byte-list3 byte-list4] 256 byte-listN byte-compile-normal-call] 4])
(defalias 'byte-compile-concat #[(form) "AG\303	W\203!�	\304W\203!�\305\306A\"\210\307\310	\311ZH\312\"\202G�	\312U\203-�\306\313!\202G�	\314W\203D�\n\204D�\305\306A\"\210\307\315	\"\202G�\316!)\207" [form count byte-compile-compatibility 1 5 mapc byte-compile-form byte-compile-out [byte-concat2 byte-concat3 byte-concat4] 2 0 "" 256 byte-concatN byte-compile-normal-call] 4])
(defalias 'byte-compile-minus #[(form) "G\211\303U\203�\304\305!\202A�	\306U\203%�\307\211A@)!\210\310\311\305\"\202A�	\312U\203>�\307A@!\210\307\3068!\210\310\313\305\"\202A�\314!)\207" [form len x 1 byte-compile-constant 0 2 byte-compile-form byte-compile-out byte-negate 3 byte-diff byte-compile-normal-call] 4])
(defalias 'byte-compile-quo #[(form) "G\211\302X\203�\303\304\"\202�	\305U\203�\306!\202�\307!)\207" [form len 2 byte-compile-subr-wrong-args "2 or more" 3 byte-compile-two-args byte-compile-normal-call] 4])
(defalias 'byte-compile-nconc #[(form) "G\211\302U\203�\303\304!\2029�	\305U\203�\306A@!\2029�\306A\211@!\210A\211\2059�\306@!\210\307\310\311\"\210\202%�)\207" [form len 1 byte-compile-constant nil 2 byte-compile-form byte-compile-out byte-nconc 0] 4])
(defalias 'byte-compile-fset #[(form) "\3038\304\211\242\305=\203B�\nA@\211\242\306=\203B�\nAA\211@;\203%�	A	@\242\307=\2030�	A	@:\203B�	@@\310=\204B�\311\312!\210*\313!\207" [form body fn 2 nil quote lambda interactive byte-code byte-compile-warn "A quoted lambda form is the second argument of `fset'.  This is probably\n     not what you want, as that lambda cannot be compiled.  Consider using\n     the syntax (function (lambda (...) ...)) instead." byte-compile-two-args] 3])
(defalias 'byte-compile-funarg #[(form) "\302A@\211\242\303=\203#�	A@\242\304=\203#�@\305	ABAABB\202$�)!\207" [form fn byte-compile-normal-call quote lambda function] 5])
(defalias 'byte-compile-funarg-2 #[(form) "\302\3038\211\242\304=\203(�	A@\242\305=\203(�@A@\306	ABAAABBB\202)�)!\207" [form fn byte-compile-normal-call 2 quote lambda function] 6])
(defalias 'byte-compile-function-form #[(form) "\302A@9\203�A@\202!�	\203�\303\304A@!!\202!�\304A@!!\207" [form byte-compile-compatibility byte-compile-constant byte-compile-byte-code-unmake byte-compile-lambda] 4])
(defalias 'byte-compile-indent-to #[(form) "G\211\302U\203�\303A@!\210\304\305\306\"\202&�	\307U\203\"�\310!\202&�\311\312\")\207" [form len 2 byte-compile-form byte-compile-out byte-indent-to 0 3 byte-compile-normal-call byte-compile-subr-wrong-args "1-2"] 4])
(defalias 'byte-compile-insert #[(form) "A\204	�\302\303!\207	\204,�G\304X\203,�\305\306A\"\210AA\203'�\307\310AG\"\207\307\311\312\"\207\313\314\315AA\">\203;�\316!\207A\211\205W�\306@!\210\307\311\312\"\210A\203;�\317 \210\202;�\207" [form byte-compile-compatibility byte-compile-constant nil 256 mapc byte-compile-form byte-compile-out byte-insertN byte-insert 0 t mapcar consp byte-compile-normal-call byte-compile-discard] 4])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\207" [put setq byte-compile byte-compile-setq setq-default byte-compile-setq-default quote byte-compile-quote quote-form byte-compile-quote-form] 4)
(defalias 'byte-compile-setq #[(form) "A\211\203.�	\2033�\303	A@!\210\n\204 �	AA\204 �\304\305\306\"\210\307\310	@\"\210	AA\211\202�\303\311\n\"\210\311\211)\207" [form args for-effect byte-compile-form byte-compile-out byte-dup 0 byte-compile-variable-ref byte-varset nil] 4])
(defalias 'byte-compile-setq-default #[(form) "A\303\211\203�\304\305\n@D\nA@E	B\nAA\211\204	�\306\307	\237B!*\207" [form setters args nil set-default quote byte-compile-form progn] 4])
(defalias 'byte-compile-quote #[(form) "\301A@!\207" [form byte-compile-constant] 2])
(defalias 'byte-compile-quote-form #[(form) "\301\302A@!!\207" [form byte-compile-constant byte-compile-top-level] 3])
(defalias 'byte-compile-body #[(body &optional for-effect) "A\203�\302@\303\"\210A\211\202�\302@	\"\207" [body for-effect byte-compile-form t] 4])
(defalias 'byte-compile-body-do-effect #[(body) "\302	\"\210\303\211\207" [body for-effect byte-compile-body nil] 3])
(put 'byte-compile-body-do-effect 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'byte-compile-form-do-effect #[(form) "\302	\"\210\303\211\207" [form for-effect byte-compile-form nil] 3])
(byte-code "\300\301\302\303#\210\300\304\305\306#\210\300\307\305\306#\210\300\310\305\311#\210\300\312\305\313#\210\300\314\305\315#\210\300\316\305\317#\210\300\320\305\321#\210\300\322\305\323#\210\300\324\305\325#\210\300\326\305\327#\210\300\330\305\331#\210\300\332\305\331#\210\300\333\305\331#\210\300\334\305\331#\210\300\335\305\331#\210\300\336\305\331#\210\300\337\305\331#\210\300\337\305\340#\210\300\341\305\340#\210\300\342\305\343#\210\300\344\305\345#\207" [put byte-compile-form-do-effect byte-optimizer byte-compile-inline-expand inline byte-compile byte-compile-progn progn prog1 byte-compile-prog1 prog2 byte-compile-prog2 if byte-compile-if cond byte-compile-cond and byte-compile-and or byte-compile-or while byte-compile-while funcall byte-compile-funcall apply byte-compile-funarg mapcar mapatoms mapconcat mapc maphash map-char-table byte-compile-funarg-2 sort let byte-compile-let let* byte-compile-let*] 4)
(defalias 'byte-compile-progn #[(form) "A\303	\n\"\210\304\211)\207" [form body for-effect byte-compile-body nil] 3])
(defalias 'byte-compile-prog1 #[(form) "A@\302	\"\210\303)\304AA\305\"\207" [form for-effect byte-compile-form nil byte-compile-body t] 3])
(defalias 'byte-compile-prog2 #[(form) "\302A@\303\"\210\3048\302	\"\210\305)\306AAA\303\"\207" [form for-effect byte-compile-form t 2 nil byte-compile-body] 3])
(defalias 'byte-compile-goto-if '(macro . #[(cond discard tag) "\303\304\304	\305BB\304	\306BBF\nE\207" [cond discard tag byte-compile-goto if ('byte-goto-if-not-nil 'byte-goto-if-not-nil-else-pop) ('byte-goto-if-nil 'byte-goto-if-nil-else-pop)] 7]))
(defalias 'byte-compile-find-bound-condition #[(condition-param pred-list &optional only-if-not-present) "\306\211\242	>\203�C\202�\242\307=\205�A\n\306\211	\203S�	@\211\242	>\203J�
A@\211\242\310=\203J�A@\n\236\204J�
A@A@\fB	A\211	\204#�*\f+\207" [condition-param pred-list cond-list nth-one result crt nil and quote #1=#:--cl-dolist-temp-- only-if-not-present] 4])(if macro-declaration-function (funcall macro-declaration-function (quote byte-compile-maybe-guarded) (quote (declare (indent 1) (debug t)))))
#@490 Execute forms in BODY, potentially guarded by CONDITION.
CONDITION is a variable whose value is a test in an `if' or `cond'.
BODY is the code to compile in the first arm of the if or the body of
the cond clause.  If CONDITION's value is of the form (fboundp 'foo)
or (boundp 'foo), the relevant warnings from BODY about foo's
being undefined will be suppressed.

If CONDITION's value is (not (featurep 'emacs)) or (featurep 'xemacs),
that suppresses all warnings during execution of BODY.
(defalias 'byte-compile-maybe-guarded '(macro . #[(condition &rest body) "\302\303\304\305BBD\306\304\307BBD\310BB\311\312	B\313BBE\207" [condition body let* fbound-list byte-compile-find-bound-condition ((list 'fboundp) byte-compile-unresolved-functions) bound-list ((list 'boundp 'default-boundp)) ((byte-compile-bound-variables (if bound-list (append bound-list byte-compile-bound-variables) byte-compile-bound-variables))) unwind-protect progn ((dolist (fbound fbound-list) (when fbound (setq byte-compile-unresolved-functions (delq (assq fbound byte-compile-unresolved-functions) byte-compile-unresolved-functions)))))] 6 (#$ . 105073)]))
(defalias 'byte-compile-if #[(form) "\306A@!\210A@\307 \310\233\204Q�\311\203�\312\202�\313	\"\210\314\n\315C\f#\314\n\316\317D\"\211\203<�\320\"\202>�\321\216\306\3228\"\210,\323	!\210\202\303�\307 \311\312\"\210\314\n\315C\f#\314\n\316\317D\"\211\203w�\320\"\202y�\324\216\306\3228\"\210,\311\325	\"\210\323!\210\314\326\nD\315C\f#\314\326\nD\316\317D\"\211\203\257�\320\"\202\261�\327\216\330AAA\"\210,\323	!\210)*\331\211\207" [form donetag clause for-effect byte-compile-unresolved-functions fbound-list byte-compile-form byte-compile-make-tag 3 byte-compile-goto byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-find-bound-condition fboundp boundp default-boundp append ((byte-code "\304\211\203�\n@\211\203�\305	\236\"\nA\211\204�*\304\207" [fbound-list fbound #1=#:--cl-dolist-temp-- byte-compile-unresolved-functions nil delq] 4)) 2 byte-compile-out-tag ((byte-code "\304\211\203�\n@\211\203�\305	\236\"\nA\211\204�*\304\207" [fbound-list fbound #2=#:--cl-dolist-temp-- byte-compile-unresolved-functions nil delq] 4)) byte-goto not ((byte-code "\304\211\203�\n@\211\203�\305	\236\"\nA\211\204�*\304\207" [fbound-list fbound #3=#:--cl-dolist-temp-- byte-compile-unresolved-functions nil delq] 4)) byte-compile-body nil bound-list byte-compile-bound-variables elsetag] 5])
(defalias 'byte-compile-cond #[(clauses) "\306 \307\211A\211\203\220�@\211@\310=\204'�@\242\311=\2031�@\243\242\2031�\310B\307\211\202�A\203�\312@!\210A\204P�\313\f\203I�\314\202J�\315\n\"\210\202�\306 \313\316	\"\210\317@\320C
#\317@\321\322D\"\211\203w�\323\"\202y�\324\216\325A\f\"\210,\313\326\n\"\210\327	!\210\202�@A\203\265�\310=\204\265�\312!\210\313\f\203\256�\316\202\257�\330\n\"\210A\317\320C
#\317\321\322D\"\211\203\324�\323\"\202\326�\331\216\325\f\"\210\307.\327\n!+\207" [clause nexttag donetag clauses for-effect byte-compile-unresolved-functions byte-compile-make-tag nil t quote byte-compile-form byte-compile-goto byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-goto-if-nil byte-compile-find-bound-condition fboundp boundp default-boundp append ((byte-code "\304\211\203�\n@\211\203�\305	\236\"\nA\211\204�*\304\207" [fbound-list fbound #1=#:--cl-dolist-temp-- byte-compile-unresolved-functions nil delq] 4)) byte-compile-body byte-goto byte-compile-out-tag byte-goto-if-nil-else-pop ((byte-code "\304\211\203�\n@\211\203�\305	\236\"\nA\211\204�*\304\207" [fbound-list fbound #2=#:--cl-dolist-temp-- byte-compile-unresolved-functions nil delq] 4)) fbound-list bound-list byte-compile-bound-variables guard body] 5])
(defalias 'byte-compile-and #[(form) "\304 A	\204�\305\306\"\210\307\211)\202�\310	\n\"*\207" [form args failtag for-effect byte-compile-make-tag t byte-compile-form nil byte-compile-and-recursion] 3])
(defalias 'byte-compile-and-recursion #[(rest failtag) "A\203@�\306@!\210\307	\203�\310\202�\311\n\"\210\312@\313C#\312@\314\315D\"\211\2033�\316
\"\2025�\317\216\320A\n\",\207@\306	\"\210\321)\322\n!\207" [rest for-effect failtag byte-compile-unresolved-functions fbound-list bound-list byte-compile-form byte-compile-goto byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-find-bound-condition fboundp boundp default-boundp append ((byte-code "\304\211\203�\n@\211\203�\305	\236\"\nA\211\204�*\304\207" [fbound-list fbound #1=#:--cl-dolist-temp-- byte-compile-unresolved-functions nil delq] 4)) byte-compile-and-recursion nil byte-compile-out-tag byte-compile-bound-variables form] 5])
(defalias 'byte-compile-or #[(form) "\304 A	\204�\305\306\"\210\305\211)\202�\307	\n\"*\207" [form args wintag for-effect byte-compile-make-tag nil byte-compile-form byte-compile-or-recursion] 3])
(defalias 'byte-compile-or-recursion #[(rest wintag) "A\203D�\306@!\210\307	\203�\310\202�\311\n\"\210\312\313@D\314C#\312\313@D\315\316D\"\211\2037�\317
\"\2029�\320\216\321A\n\",\207@\306	\"\210\322)\323\n!\207" [rest for-effect wintag byte-compile-unresolved-functions fbound-list bound-list byte-compile-form byte-compile-goto byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-compile-find-bound-condition not fboundp boundp default-boundp append ((byte-code "\304\211\203�\n@\211\203�\305	\236\"\nA\211\204�*\304\207" [fbound-list fbound #1=#:--cl-dolist-temp-- byte-compile-unresolved-functions nil delq] 4)) byte-compile-or-recursion nil byte-compile-out-tag byte-compile-bound-variables form] 5])
(defalias 'byte-compile-while #[(form) "\304 \304 \305!\210\306\nA@!\210\307\203�\310\202�\311	\"\210\312\nAA\313\"\210\307\314\"\210\305	!\210\315\211*\207" [looptag endtag form for-effect byte-compile-make-tag byte-compile-out-tag byte-compile-form byte-compile-goto byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-body t byte-goto nil] 3])
(defalias 'byte-compile-funcall #[(form) "\301\302A\"\210\303\304AAG\"\207" [form mapc byte-compile-form byte-compile-out byte-call] 3])
(defalias 'byte-compile-let #[(form) "A@\211\306\211\203(�@\211:\203�\307\nA@!\210\202!�\310\306!\210A\211\204\f�+\f\311A@!	\306\211\203R�
@\312\313\n:\203H�\n@\202I�\n\"\210
A\211\2049�*AA\314\"\210\306)\315\316A@G\"*\207" [form varlist var #1=#:--cl-dolist-temp-- byte-compile-bound-variables #2=#:--cl-dolist-temp-- nil byte-compile-form byte-compile-push-constant reverse byte-compile-variable-ref byte-varbind byte-compile-body byte-compile-out byte-unbind body for-effect] 5])
(defalias 'byte-compile-let* #[(form) "\306	A@!\n\307\211\2034�\f@\211:\204�\310\307!\210\202(�\311A@!\210@\312\313\"\210\fA\211\204�*	AA\314
\"\210\307)\315\316	A@G\"*\207" [byte-compile-bound-variables form varlist var #1=#:--cl-dolist-temp-- body copy-sequence nil byte-compile-push-constant byte-compile-form byte-compile-variable-ref byte-varbind byte-compile-body byte-compile-out byte-unbind for-effect] 4])
(byte-code "\300\301\302\303#\210\300\304\302\303#\210\300\305\302\303#\210\300\301\306\307#\210\300\304\306\310#\210\300\305\306\311#\207" [put /= byte-compile byte-compile-negated atom nlistp byte-compile-negated-op = consp listp] 4)
(defalias 'byte-compile-negated #[(form) "\302!\303	\"\210\304\211)\207" [form for-effect byte-compile-negation-optimizer byte-compile-form nil] 3])
(defalias 'byte-compile-negation-optimizer #[(form) "\301@!\210\302@\303N\206�\304\305@\"ABD\207" [form byte-compile-set-symbol-position not byte-compile-negated-op error "Compiler error: `%s' has no `byte-compile-negated-op' property"] 4])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\323#\207" [put catch byte-compile byte-compile-catch unwind-protect byte-compile-unwind-protect condition-case byte-compile-condition-case save-excursion byte-compile-save-excursion save-current-buffer byte-compile-save-current-buffer save-restriction byte-compile-save-restriction save-window-excursion byte-compile-save-window-excursion with-output-to-temp-buffer byte-compile-with-output-to-temp-buffer track-mouse byte-compile-track-mouse] 4)
(defalias 'byte-compile-catch #[(form) "\302A@!\210\303\304\305AAB	\"!\210\306\307\310\"\207" [form for-effect byte-compile-form byte-compile-push-constant byte-compile-top-level progn byte-compile-out byte-catch 0] 4])
(defalias 'byte-compile-unwind-protect #[(form) "\302\303AA\304\"!\210\305\306\307\"\210A@\310	\"\210\311)\305\312\313\"\207" [form for-effect byte-compile-push-constant byte-compile-top-level-body t byte-compile-out byte-unwind-protect 0 byte-compile-form nil byte-unbind 1] 4])
(defalias 'byte-compile-track-mouse #[(form) "\301\302\303\304\305\306\307A!BEDD!\207" [form byte-compile-form funcall quote lambda nil track-mouse byte-compile-top-level-body] 8])
(defalias 'byte-compile-condition-case #[(form) "A@\211\203�	\nB\202�\n\306\307!\210	9\204�\310\311	\"\210\312	!\210\312\313\3148\"!\210AAA\315\211\203\211�
@\211@\2119\204u�<\203m�\316\211\203g�@9\204^�\315A\211\204T�*\204u�\310\317\320!\"\210\321A\"B\fB*
A\211\2046�\312\f\237!\210*\322\323\324\"*\207" [form var byte-compile-bound-variables for-effect compiled-clauses clauses byte-compile-set-symbol-position condition-case byte-compile-warn "`%s' is not a variable-name or nil (in condition-case)" byte-compile-push-constant byte-compile-top-level 2 nil t "`%s' is not a condition name or list of such (in condition-case)" prin1-to-string byte-compile-top-level-body byte-compile-out byte-condition-case 0 clause condition ok syms] 5])
(defalias 'byte-compile-save-excursion #[(form) "\303\304\305\"\210A\306	\n\"\210\307)\303\310\311\"\207" [form body for-effect byte-compile-out byte-save-excursion 0 byte-compile-body nil byte-unbind 1] 3])
(defalias 'byte-compile-save-restriction #[(form) "\303\304\305\"\210A\306	\n\"\210\307)\303\310\311\"\207" [form body for-effect byte-compile-out byte-save-restriction 0 byte-compile-body nil byte-unbind 1] 3])
(defalias 'byte-compile-save-current-buffer #[(form) "\303\304\305\"\210A\306	\n\"\210\307)\303\310\311\"\207" [form body for-effect byte-compile-out byte-save-current-buffer 0 byte-compile-body nil byte-unbind 1] 3])
(defalias 'byte-compile-save-window-excursion #[(form) "\302\303A	\"!\210\304\305\306\"\207" [form for-effect byte-compile-push-constant byte-compile-top-level-body byte-compile-out byte-save-window-excursion 0] 4])
(defalias 'byte-compile-with-output-to-temp-buffer #[(form) "\301A@!\210\302\303\304\"\210\305AA!\210\302\306\304\"\207" [form byte-compile-form byte-compile-out byte-temp-output-buffer-setup 0 byte-compile-body byte-temp-output-buffer-show] 3])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\307#\210\300\311\302\312#\210\300\313\302\314#\207" [put defun byte-compile byte-compile-defun defmacro byte-compile-defmacro defvar byte-compile-defvar defconst autoload byte-compile-autoload lambda byte-compile-lambda-form] 4)
(defalias 'byte-compile-defun #[(form) "@9\203�\302@!\210\202�\302\303!\210\304\305@\"\210	\2034�\306\307\310A@D\311\312AA\313\"!E!\210\314 \210\202G�\315\316\310A@D\311\312AA\313\"!E\313\"\210\317A@!\207" [form byte-compile-compatibility byte-compile-set-symbol-position defun error "defun name must be a symbol, not %s" byte-compile-two-args fset quote byte-compile-byte-code-maker byte-compile-lambda t byte-compile-discard byte-compile-form defalias byte-compile-constant] 7])
(defalias 'byte-compile-defmacro #[(form) "\304\305A@D\306\307AA\310\"!\211\242\311=\203�\312\313	E\202$�\305\314\315	!BD)E\305A@DD\316\n\"\210\317\211)\207" [form code body for-effect fset quote byte-compile-byte-code-maker byte-compile-lambda t make-byte-code cons 'macro macro eval byte-compile-body nil] 7])
(defalias 'byte-compile-defvar #[(form) "@A@\3068\3078\310\f!\210G\311V\204)�\f\312=\203O�\211AA)\204O�AG&\313\314\f&\211\315U\203=�\316\202>�\317&\306W\203I�\320\202J�\321\322&\210)\323\324!\203g�'B'\f\312=\203g�(B(\211AA)\205}�)?\205}�\325\326D\327BBG\307V\205\233�	\203\224�	;\204\224�\313\330\f	$\210\331\326D\332	F\211AA)\203\326�*\f\312=\203\305�\333\334!+\335\326\336+C\312+EED\nE)\202\322�\337\340\341\326DDD\342\nEE)\202\341�\f\312=\205\341�\343\326DD\326DF,\344,-\"\210\345\211--\207" [form string value var fun x 2 3 byte-compile-set-symbol-position 4 defconst byte-compile-warn "`%s' called with %d argument%s, but %s %s" 1 "" "s" "requires" "accepts only" "2-3" byte-compile-warning-enabled-p free-vars push quote (current-load-list) "third arg to `%s %s' is not a string: %s" put 'variable-documentation make-symbol "defconst-tmp-var" funcall lambda if not default-boundp setq-default eval byte-compile-body nil ncall byte-compile-bound-variables byte-compile-const-variables byte-compile-current-form byte-compile-not-obsolete-var tmp body for-effect] 10])
(defalias 'byte-compile-autoload #[(form) "\304\305!\210A@:\203�A@@\306=\2025�A@9\2038�A@\307\211\310>\2064�\311\n!\2064�	\2054�\n>*\203\207�\3128:\203H�\3128@\306=\202i�\31289\203l�\3128\307\211\310>\206h�\311\n!\206h�	\205h�\n>*\203\207�\313\3128!\203\207�\314\313A@!!\204\207�\315\316\313A@!\"\210\317!\207" [form any-value symbol byte-compile-const-variables byte-compile-set-symbol-position autoload quote nil (nil t) keywordp 5 eval fboundp byte-compile-warn "The compiler ignores `autoload' except at top level.  You should\n     probably put the autoload of the macro `%s' at top-level." byte-compile-normal-call] 5])
(defalias 'byte-compile-lambda-form #[(form) "\300\301!\210\302\303!\207" [byte-compile-set-symbol-position lambda error "`lambda' used as function name is invalid"] 2])
(put 'defalias 'byte-hunk-handler 'byte-compile-file-form-defalias)
(defalias 'byte-compile-file-form-defalias #[(form) "A:\203l�A@:\203l�A@@\303=\203l�A@A:\203l�A@A@9\203l�AA:\205L�\3048:\205L�\3048@\303=\205L�\3048A:\205L�\3048A@9\305A@A@!\210A@A@	\203f�\3048A@\202g�\306B\nB)\307!\210\310\207" [form constant byte-compile-function-environment quote 2 byte-compile-defalias-warn t byte-compile-keep-pending nil] 3])
(defalias 'byte-compile-defalias-warn #[(new) "	\236\211\205�\303\n	\"\211)\207" [new byte-compile-unresolved-functions calls delq] 4])
(put 'with-no-warnings 'byte-compile 'byte-compile-no-warnings)
(defalias 'byte-compile-no-warnings #[(form) "\302\303\304	AB!)\207" [byte-compile-warnings form nil byte-compile-form progn] 3])
(put 'make-variable-buffer-local 'byte-compile 'byte-compile-make-variable-buffer-local)
(defalias 'byte-compile-make-variable-buffer-local #[(form) "\243\242\242\301=\203�\302\303!\203�\304\305!\210\306!\207" [form quote byte-compile-warning-enabled-p make-local byte-compile-warn "`make-variable-buffer-local' should be called at toplevel" byte-compile-normal-call] 2])
(put 'make-variable-buffer-local 'byte-hunk-handler 'byte-compile-form-make-variable-buffer-local)
(defalias 'byte-compile-form-make-variable-buffer-local #[(form) "\301\302\"\207" [form byte-compile-keep-pending byte-compile-normal-call] 3])
(defalias 'byte-compile-make-tag #[nil "\301T\211D\207" [byte-compile-tag-number TAG] 3])
(defalias 'byte-compile-out-tag #[(tag) "	BAA\203#�\n\203�AA\nU\204�\303\304A@\"\210AA\211\207A\n\241\207" [tag byte-compile-output byte-compile-depth error "Compiler bug: depth conflict at tag %d"] 3])
(defalias 'byte-compile-goto #[(opcode tag) "	B\nB	A>\203�\fS\202�\f\241\210\305=?\205�\fS\211\207" [opcode tag byte-compile-output byte-goto-always-pop-ops byte-compile-depth byte-goto] 3])
(defalias 'byte-compile-out #[(opcode offset) "	B\nB\306=\203�	Z\211\207\307=\203�\310\211\207\fJH\206'�	S[\\\211
]\211\207" [opcode offset byte-compile-output byte-compile-depth byte-stack+-info byte-compile-maxdepth byte-call byte-return nil] 4])
(defalias 'byte-compile-annotate-call-tree #[(form) "\304	@\n\236\211\203�A@>\204(�AA@B\240\210\202(�	@C\304E\nB\n\236\211\203F�	@\3058>\206P�AA	@\3058B\240\202P�\304	@CE\nB\211)\207" [entry form byte-compile-call-tree byte-compile-current-form nil 2] 4])
#@601 Display a call graph of a specified file.
This lists which functions have been called, what functions called
them, and what functions they call.  The list includes all functions
whose definitions have been compiled in this Emacs session, as well as
all functions called by those functions.

The call graph does not include macros, inline functions, or
primitives that the byte-code interpreter knows about directly (eq,
cons, etc.).

The call tree also lists those functions which are not known to be called
(that is, to which no calls have been compiled), and which cannot be
invoked interactively.
(defalias 'display-call-tree #[(&optional filename) "\306\307!\210\310\220\310q\210\311 \210\306\312\"\210\313	\204�\n\206*�\314\202*�	;\203'�	\202*�\315	!\316\317!\320\261\210\203f�\321\305=\203B�\322\202d�\304=\203L�\323\202d�\324=\203V�\325\202d�\326=\203`�\327\202d�\330\331\"\"\306\307!\210p\332\211\211\211@AB\211C\203\211\333C@@B\"\210C@A@\334C@8\335\336C@@\211A!\204\255�A\204\251�\337\202\340\202\341AK\211A!\203\274�\342\202A9\203\312�\343\344A\"\202\345A!\203\325�\346\202A:\204\337�\347\202A@\350=\203\345AA!\204\371�\351AAAA\236\203\375�\352\202\353\202\351AAA\236\203\354\202A@\355=\203\356\202\314\343\357
G\fG
G\fG\\$\360\261\210
\203Z\361c\210`@\362
@\203C\363\364
\365#\202D\366\261\210\362D\367@`\"\210)i\370U\204Z\360c\210\f\203\200\371c\210`@\362\363\364\f\365#\261\210\362D\367@`\"\210)i\370U\204\200\360c\210CA\211C\204~�\306\372!\210C\332EC\203\316C@A@\204\305C@@\211A\203\305\373\374A\375\"!\204\305\376\374A\332\"!\204\305AEBECA\211C\204\230E\203\356\377D\201F�c\210`@\363\364E\237\365#c\210\367@`\"\210).\306\201G�!\221\207" [byte-compile-call-tree-sort byte-compile-current-file filename byte-compile-call-tree calls callers message "Generating call tree..." "*Call-Tree*" erase-buffer "Generating call tree... (sorting on %s)" "Call tree for " "???" buffer-name " sorted on " prin1-to-string ":\n\n" sort #[(x y) "A@G	A@GW\207" [x y] 2] #[(x y) "\3028G\302	8GW\207" [x y 2] 3] calls+callers #[(x y) "A@G\3028G\\	A@G\302	8G\\W\207" [x y 2] 4] name #[(x y) "@	@\231\207" [x y] 2] error "`byte-compile-call-tree-sort': `%s' - unknown sort mode" nil prin1 2 "	" fboundp " <top level>" " <not defined>" subrp " <subr>" format " ==> %s" byte-code-function-p "<compiled function>" "<malformed function>" macro byte-code " <compiled macro>" " <macro>" "<compiled lambda>" lambda "<function>" " (%d callers + %d calls = %d)" "\n" "  called by:\n" "    " mapconcat symbol-name ", " "<top level>" fill-region-as-paragraph 0 "  calls:\n" "Generating call tree...(finding uncalled functions...)" functionp byte-compile-fdefinition t commandp "  " p f b rest fill-prefix uncalled "Noninteractive functions not known to be called:\n  " "Generating call tree...done."] 10 (#$ . 121599) nil])
#@157 Like `byte-compile-file' but doesn't recompile if already up to date.
Use this from the command line, with `-batch';
it won't work in an interactive Emacs.
(defalias 'batch-byte-compile-if-not-done #[nil "\300\301!\207" [batch-byte-compile t] 2 (#$ . 124526)])
#@372 Run `byte-compile-file' on the files remaining on the command line.
Use this from the command line, with `-batch';
it won't work in an interactive Emacs.
Each file is processed even if an error occurred previously.
For example, invoke "emacs -batch -f batch-byte-compile $emacs/ ~/*.el".
If NOFORCE is non-nil, don't recompile a file that seems to be
already up-to-date.
(defalias 'batch-byte-compile #[(&optional noforce) "\204�\301\306!\210\307\n\203\237�\310\311\n@!!\203t�\312\n@!\307\211\211\307\211\203p�@\313\"\203g�\314!\204g�\311\n@\"\211\203g�\315\f!\211\203g�\316!\203g�\317\f\"\203g�\320\f!\204g�\321A\211\204*�-\202\230�\203\217�\n@\315\f!\316!?\206\213�\317\f\"*\203\230�\320\n@!\204\230�\321\nA\211\204�\322	\203\250�\323\202\251�\324!)\207" [noninteractive error command-line-args-left bytecomp-dest bytecomp-source bytecomp-files "`batch-byte-compile' is to be used only with -batch" nil file-directory-p expand-file-name directory-files string-match auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p batch-byte-compile-file t kill-emacs 1 0 bytecomp-file #1=#:--cl-dolist-temp-- emacs-lisp-file-regexp noforce] 5 (#$ . 124794)])
(defalias 'batch-byte-compile-file #[(bytecomp-file) "\203�\302	!\207\303\304\305\217\207" [debug-on-error bytecomp-file byte-compile-file err (byte-compile-file bytecomp-file) ((file-error (byte-code "\303A\203\n�\304\202�\305	@\306N\307A!$\210\310	!\311\n!\203$�\312\n!\210)\313\207" [err bytecomp-file bytecomp-destfile message ">>Error occurred processing %s: %s (%s)" ">>Error occurred processing %s: %s" error-message prin1-to-string byte-compile-dest-file file-exists-p delete-file nil] 6)) (error (byte-code "\302A\203\n�\303\202�\304	@\305N\306A!$\210\307\207" [err bytecomp-file message ">>Error occurred processing %s: %s (%s)" ">>Error occurred processing %s: %s" error-message prin1-to-string nil] 6)))] 3])
#@359 Run `byte-recompile-directory' on the dirs remaining on the command line.
Must be used only with `-batch', and kills Emacs on completion.
For example, invoke `emacs -batch -f batch-byte-recompile-directory .'.

Optional argument ARG is passed as second argument ARG to
`byte-recompile-directory'; see there for its possible values
and corresponding effects.
(defalias 'batch-byte-recompile-directory #[(&optional arg) "\204�\303\304!\210	\204�\305	\203�\306	@\n\"\210	A\211\204�\307\310!\207" [noninteractive command-line-args-left arg error "batch-byte-recompile-directory is to be used only with -batch" (".") byte-recompile-directory kill-emacs 0] 4 (#$ . 126752)])
(byte-code "\300\301!\210\300\302!\207" [provide byte-compile bytecomp] 2)
(defalias 'byte-compile-report-ops #[nil "\306\220\306q\210\307\310\211\211\211\311W\205n�\f\307HH\310\310	
W\2032�\312	\313\"\312	\314\"\202A�	Y\203A�	Z	H\315\316\"c\210\317	!c\210\203]�\320\321!\322\261\210\323j\210\321\n!\324\261\210T\211\202�,\221\207" [off op n i byte-code-meter byte-nth "*Meter*" 0 nil 256 logand 7 248 format "%-4d" symbol-name " [" int-to-string "]" 40 "\n" byte-constant byte-code-vector] 6])
(run-hooks 'bytecomp-load-hook)

${this.title}

Code Editor : bytecomp.elc