;ELC   
;;; compiled by jwz@thalidomide on Fri May  6 16:35:08 1994
;;; from file /th/jwz/emacs19/lisp/bytecomp/bytecomp.el
;;; emacs version 19.10 Lucid (beta21).
;;; bytecomp version 2.24; 26-Apr-94.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "This file was compiled for Emacs 19."))

(byte-code "АБ!ГД!¬„ЕЖ!€ЗИ!«„¬†	К™«°ЗЛ!¬„Л МНM€ОПM€РСM€ТУM€ФХM€ЦЧM€ГШ!«†ЩШK!¬„ШЪM€А‡" [purecopy "2.24; 26-Apr-94." byte-compile-version fboundp defsubst load-library "bytecomp-runtime" boundp epoch::version emacs-version "19" baud-rate compiled-function-p (lambda (x) "Emacs 18 doesn't have these." nil) compiled-function-arglist #[(x) "БH‡" [x 0] 2] compiled-function-instructions #[(x) "БH‡" [x 1] 2] compiled-function-constants #[(x) "БH‡" [x 2] 2] compiled-function-stack-depth #[(x) "БH‡" [x 3] 2] compiled-function-interactive #[(x) "АБВЏ‡" [nil (byte-code "А	ВHD‡" [interactive x 5] 3) ((error))] 3] member subrp #[(elt list) "«Њ	@љ¬†A‰¬t‡" [list elt] 3 "like memq, but uses equal instead of eq.  In v19, this is a subr."]] 2)
(defvar emacs-lisp-file-regexp (byte-code "Б=«„ВГ!‡ВД!‡" [system-type vax-vms purecopy "\\.EL\\(;[0-9]+\\)?$" "\\.el$"] 2) "\
*Regexp which matches Emacs Lisp source files.
You may want to redefine `byte-compile-dest-file' if you change this.")
(byte-code "АБ!¬„БВM€ГДЕ\"€ГЖЕ\"€ГЗЕ\"€ГИЕ\"‡" [fboundp byte-compile-dest-file #[(filename) "А	!\nГ=«Љ	ДЕЖ	\"OЗP‡Е	\"«€	Д‰”OЙP‡	ЗP‡" [file-name-sans-versions filename system-type vax-vms 0 string-match ";" "c" emacs-lisp-file-regexp ".elc"] 5 "Convert an Emacs Lisp source file name to a compiled file name."] autoload byte-compile-inline-expand "byte-optimize" byte-optimize-form byte-optimize-lapcode byte-compile-unfold-lambda] 3)
(defvar byte-compile-verbose (byte-code "?­ѓ	\nV‡" [noninteractive baud-rate search-slow-speed] 2) "\
*Non-nil means print messages describing progress of byte-compiler.")
(defvar byte-compile-emacs18-compatibility (byte-code "АБ!«ѓ	®ѓ\nГ™‡" [boundp epoch::version emacs-version "19"] 2) "\
*If this is true, then the byte compiler will generate .elc files which will
work in generic version 18 emacses without having bytecomp-runtime.el loaded.
If this is false, the generated code will be more efficient in emacs 19, and
will be loadable in emacs 18 only if bytecomp-runtime.el is loaded.
See also byte-compile-generate-emacs19-bytecodes.")
(defvar byte-compile-generate-emacs19-bytecodes (byte-code "АБ!«ѓ	®ѓ\nГ™?‡" [boundp epoch::version emacs-version "19"] 2) "\
*If this is true, then the byte-compiler will generate bytecode which 
makes use of byte-ops which are present only in emacs19.  Code generated
this way can never be run in emacs18, and may even cause it to crash.")
(defvar byte-optimize t "\
*Enables optimization in the byte compiler.
nil means don't do any optimization.
t means do all optimizations.
`source' means do source-level optimizations only.
`byte' means do code-level optimizations only.")
(defvar byte-compile-delete-errors t "\
*If non-nil, the optimizer may delete forms that may signal an error.
This includes variable references and calls to functions such as `car'.")
(defvar byte-optimize-log nil "\
*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.")
(defvar byte-compile-error-on-warn nil "\
*If true, the byte-compiler reports warnings with `error'.")
(defvar byte-compile-default-warnings '(redefine callargs free-vars unresolved unused-vars) "\
*The warnings used when byte-compile-warnings is t.")
(defvar byte-compile-warnings t "\
*List of warnings that the compiler should issue (t for the default set).
Elements of the list may be be:

  free-vars	references to variables not in the current lexical scope.
  unused-vars	references to non-global variables bound but not referenced.
  unresolved	calls to unknown functions.
  callargs	lambda calls with args that don't match the definition.
  redefine	function cell redefined from a macro to a lambda or vice
		versa, or redefined to take a different number of arguments.

See also the macro `byte-compiler-options'.")
(defvar byte-compile-generate-call-tree nil "\
*Non-nil means collect call-graph information when compiling.
This records 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.")
(defconst byte-compile-call-tree nil "\
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-sort 'name "\
*If non-nil, sort the call tree.
The values `name', `callers', `calls', `calls+callers'
specify different fields to sort on.")
(defvar byte-compile-overwrite-file t "\
If nil, old .elc files are deleted before the new is saved, and .elc
files will have the same modes as the corresponding .el file.  Otherwise,
existing .elc files will simply be overwritten, and the existing modes
will not be changed.  If this variable is nil, then an .elc file which 
is a symbolic link will be turned into a normal file, instead of the file
which the link points to being overwritten.")
(defvar byte-recompile-directory-ignore-errors-p nil "\
If true, then `byte-recompile-directory' will continue compiling even
when an error occurs in a file.  This is bound to t by
`batch-byte-recompile-directory'.")
(defvar byte-compile-constants nil "\
list of all constants encountered during compilation of this form")
(defvar byte-compile-variables nil "\
list of all variables encountered during compilation of this form")
(defvar byte-compile-bound-variables nil "\
Alist of variables bound in the context of the current form,
that is, the current lexical environment.  This list lives partly 
on the specbind stack.  The cdr of each cell is an integer bitmask.")
(byte-code "АВДЖА‡" [1 byte-compile-referenced-bit 2 byte-compile-assigned-bit 4 byte-compile-arglist-bit 8 byte-compile-global-bit] 1)
(defconst byte-compile-initial-macro-environment (purecopy '((byte-compiler-options lambda (&rest forms) (apply 'byte-compiler-options-handler forms)) (eval-when-compile lambda (&rest body) (list 'quote (eval (byte-compile-top-level (cons 'progn body))))) (eval-and-compile lambda (&rest body) (eval (cons 'progn body)) (cons 'progn body)))) "\
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.")
(defvar byte-compile-macro-environment byte-compile-initial-macro-environment "\
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-function-environment nil "\
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.")
(defvar byte-compile-autoload-environment nil "\
Alist of functions and macros defined by autoload in the file being compiled.
This is so we can suppress warnings about calls to these functions, even though
they do not have `real' definitions.
Each element looks like (FUNCTIONNAME . CALL-TO-AUTOLOAD).")
(defvar byte-compile-unresolved-functions nil "\
Alist of undefined functions to which calls have been compiled (used for
warnings when the function is later defined with incorrect args).")
(byte-code "АБ!¬‚ВА‡" [boundp byte-compile-tag-number 0] 2)
(defvar byte-compile-output nil "\
Alist describing contents to put in byte code string.
Each element is (INDEX . VALUE)")
(defvar byte-compile-depth 0 "\
Current depth of execution stack.")
(defvar byte-compile-maxdepth 0 "\
Maximum depth of execution stack.")
(defconst byte-code-vector nil "\
An array containing byte-code names indexed by byte-code values.")
(defconst byte-stack+-info nil "\
An array with the stack adjustment for each byte-code.")
(byte-code "АБM€ВГM‡" [byte-defop (macro . #[(opcode stack-adjust opname &optional docstring) "АБN®€ВАБГДЕ\"#ЖБN®€ВЖБГДЕ\"#‰	\nI€	I€*«ЊН\n	ОПQF‡Н\n	E‡" [byte-code-vector tmp-compile-time-value put make-vector 256 nil byte-stack+-info v2 v1 opcode opname stack-adjust docstring defconst "Byte code opcode " "."] 8]) byte-extrude-byte-code-vectors (macro . #[nil "АБ‰ВNГ‰ВNЇДБВЕ#€ДГВЕ#€‡" [setq byte-code-vector tmp-compile-time-value byte-stack+-info put nil] 6])] 2)
(defconst byte-varref 8 "\
Byte code opcode for variable reference.")
(defconst byte-varset 16 "\
Byte code opcode for setting a variable.")
(defconst byte-varbind 24 "\
Byte code opcode for binding a variable.")
(defconst byte-call 32 "\
Byte code opcode for calling a function.")
(defconst byte-unbind 40 "\
Byte code opcode for unbinding special bindings.")
(byte-code "АВДЖИ	КМОРТФЦШЪЬЮа!в#д%ж'и)к+м-о/р1т3ф5ц7ш9ъ;ь=ю?Ѓ@ AЃB CЃD EЃF GЃH IЃJ KЃL MЃN OЃP QЃR SЃT UЃV WЃX YЃZ [Ѓ\\ ]Ѓ^ _Ѓ` aЃb cЃd eЃf gЃh iЃj kЃl mЃn oЃp qЃr sЃt uЃv wЃx yЃz {Ѓ| }Ѓ~ ЃЂ ЃЃ‚ ѓЃ„ …Ѓ† ‡Ѓ€ ‰ЃЉ ‹ЃЊ ЌЃЋ ЏА‡" [56 byte-nth 57 byte-symbolp 58 byte-consp 59 byte-stringp 60 byte-listp 61 byte-eq 62 byte-memq 63 byte-not 64 byte-car 65 byte-cdr 66 byte-cons 67 byte-list1 68 byte-list2 69 byte-list3 70 byte-list4 71 byte-length 72 byte-aref 73 byte-aset 74 byte-symbol-value 75 byte-symbol-function 76 byte-set 77 byte-fset 78 byte-get 79 byte-substring 80 byte-concat2 81 byte-concat3 82 byte-concat4 83 byte-sub1 84 byte-add1 85 byte-eqlsign 86 byte-gtr 87 byte-lss 88 byte-leq 89 byte-geq 90 byte-diff 91 byte-negate 92 byte-plus 93 byte-max 94 byte-min 95 byte-mult 96 byte-point 97 byte-mark-OBSOLETE 98 byte-goto-char 99 byte-insert 100 byte-point-max 101 byte-point-min 102 byte-char-after 103 byte-following-char 104 byte-preceding-char 105 byte-current-column 106 byte-indent-to 107 byte-scan-buffer-OBSOLETE 108 byte-eolp 109 byte-eobp 110 byte-bolp 111 byte-bobp 112 byte-current-buffer 113 byte-set-buffer 114 byte-read-char-OBSOLETE 115 byte-set-mark-OBSOLETE 116 byte-interactive-p 117 byte-forward-char 118 byte-forward-word 119 byte-skip-chars-forward 120 byte-skip-chars-backward 121 byte-forward-line 122 byte-char-syntax 123 byte-buffer-substring 124 byte-delete-region 125 byte-narrow-to-region 126 byte-widen 127 byte-end-of-line] 1)
(defconst byte-constant2 129 "\
Byte code opcode for reference to a constant with vector index >= byte-constant-limit.")
(defconst byte-goto 130 "\
Byte code opcode for unconditional jump.")
(defconst byte-goto-if-nil 131 "\
Byte code opcode to pop value and jump if it's nil.")
(defconst byte-goto-if-not-nil 132 "\
Byte code opcode to pop value and jump if it's not nil.")
(defconst byte-goto-if-nil-else-pop 133 "\
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-not-nil-else-pop 134 "\
Byte code opcode to examine top-of-stack, jump and don't pop it if it's non nil, 
otherwise pop it.")
(defconst byte-return 135 "\
Byte code opcode to pop a value and return it from `byte-code'.")
(defconst byte-discard 136 "\
Byte code opcode to discard one value from stack.")
(defconst byte-dup 137 "\
Byte code opcode to duplicate the top of the stack.")
(defconst byte-save-excursion 138 "\
Byte code opcode to make a binding to record the buffer, point and mark.")
(defconst byte-save-window-excursion 139 "\
Byte code opcode to make a binding to record entire window configuration.")
(defconst byte-save-restriction 140 "\
Byte code opcode to make a binding to record the current buffer clipping restrictions.")
(defconst byte-catch 141 "\
Byte code opcode for catch.  Takes, on stack, the tag and an expression for the body.")
(defconst byte-unwind-protect 142 "\
Byte code opcode for unwind-protect.  Takes, on stack, an expression for the unwind-action.")
(byte-code "АВДЖИ	КМОРТФЦШЪЬЮа!в#д%ж'и)к+м-о/р1т3ф5ц7ш9ъ;ь=ю?Ѓ@ AЃB CА‡" [143 byte-condition-case 144 byte-temp-output-buffer-setup 145 byte-temp-output-buffer-show 146 byte-unbind-all 147 byte-set-marker 148 byte-match-beginning 149 byte-match-end 150 byte-upcase 151 byte-downcase 152 byte-string= 153 byte-string< 154 byte-equal 155 byte-nthcdr 156 byte-elt 157 byte-member 158 byte-assq 159 byte-nreverse 160 byte-setcar 161 byte-setcdr 162 byte-car-safe 163 byte-cdr-safe 164 byte-nconc 165 byte-quo 166 byte-rem 167 byte-numberp 168 byte-integerp 170 byte-rel-goto 171 byte-rel-goto-if-nil 172 byte-rel-goto-if-not-nil 173 byte-rel-goto-if-nil-else-pop 174 byte-rel-goto-if-not-nil-else-pop 175 byte-listN 176 byte-concatN 177 byte-insertN] 1)
(defconst byte-constant 192 "\
Byte code opcode for reference to a constant.")
(defconst byte-constant-limit 64 "\
Exclusive maximum index usable in the `byte-constant' opcode.")
(defconst byte-goto-ops (purecopy '(byte-goto byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop)) "\
List of byte-codes whose offset is a pc.")
(byte-code "АБ!А‡" [purecopy (byte-goto-if-nil byte-goto-if-not-nil) byte-goto-always-pop-ops] 2)
(defconst byte-rel-goto-ops (purecopy '(byte-rel-goto byte-rel-goto-if-nil byte-rel-goto-if-not-nil byte-rel-goto-if-nil-else-pop byte-rel-goto-if-not-nil-else-pop)) "\
byte-codes for relative jumps.")
(byte-code "АВД‡" [[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 byte-mark-OBSOLETE 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-read-char-OBSOLETE 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 byte-rel-goto byte-rel-goto-if-nil byte-rel-goto-if-not-nil byte-rel-goto-if-nil-else-pop byte-rel-goto-if-not-nil-else-pop 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] byte-code-vector [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 1 0 0 1 1 0 1 1 1 0 0 1 1 1 1 1 0 1 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 0 -1 -1 -1 -1 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] byte-stack+-info nil] 1)
(fset 'byte-compile-lapcode #[(lap) "АБ‰‰‰‰‰‰	\nѓ\n@@\n@A9¬‰ЛМ\"€‚Н=«Ћ	 €B‚>«ќ	П\\‰	ABБJBBB‰B‚:«єAР=«ЇW«Џ	T	\\BЄы	П\\	ТУ\"ФХ\"BBBЄвJX«‘	Ш\\	JBBЄЙЩW«ђ	T	J\\BЄіЪW«“	Ш\\	JЩ\\BBЄљ	П\\	ТУ\"ФХ\"JЫ\\BBB\nA‰\n„ «бџА‰«М@‰@:«¶\nA@?\n@«­\nA@\n@ZЭX«ЎЮW«њ@@AAЎ€@A@A@ Z\\ €S\n‰@\\ €A‰¬4!«†АU«\"Б«А@‰@:«±A@«‘‰@A@@@ZЮ\\ €Єљ@A@	AФ	Х\" €Т	У\" €A‰¬@)џ°.‡" [0 nil tmp rel rest patchlist bytes off op pc lap error "Non-symbolic opcode `%s'" TAG byte-goto-ops 3 byte-constant byte-constant-limit lsh -8 logand 255 byte-constant2 byte-listN 2 6 256 7 byte-compile-generate-emacs19-bytecodes -129 128 byte-rel-goto byte-goto byte-optimize] 9 "\
Turns lapcode into bytecode.  The lapcode is destroyed."])
(byte-code "ААГДM€АЖЗM€ИЙM€КЛM€МО!ПРM€СТM€УФM€ХЦM€ЧШM€ЩЪM€ЫЬM€ЭЮM€ЯаM€бвM€гдM€ежM€зиM‡" [nil byte-compile-current-form byte-compile-current-file byte-compile-log (macro . #[(format-string &rest args) "АБВГДЕЖИЙ\n\"BBDEF‡" [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 format-string mapcar #[(x) "9«„БD‡‡" [x prin1-to-string] 2] args] 11]) byte-compile-last-warned-form byte-compile-log-1 #[(string &optional fill) "®ЃБ«®¬€« \n=¬›ЖЗИ\n«ђ;«…ЙPЄ€КЛ!PЄЃМ#!€ЖН\"€ЄгЉПР!q€db€¬€«¶\n=¬±«‡СТ У±€Ф\n;«ѓ\nЄ„ЗХ\n\"±€«’;«‡Й±€Є‡КЛ!±€Цc€ЧУ±€«’ЩУ\"¬‹ЪЫЮЯ!€*)Я\n‰)‡" [byte-compile-current-form "toplevel forms" this-form noninteractive byte-compile-current-file byte-compile-last-warned-form message format "While compiling %s%s:" " in file " " in buffer " buffer-name "" "  %s" string get-buffer-create "*Compile-Log*" "\n\n" current-time-string "\n" "While compiling " "%s" ":\n" "  " fill string-match "     " 78 fill-column fill-prefix fill-paragraph nil] 7] byte-compile-warn #[(format &rest args) "АБ	\n#«…ДЕ	\"‡ЖЗ	PИ\"€	®„КЛ	\"‡" [apply format args byte-compile-error-on-warn error "%s" byte-compile-log-1 "** " t noninteractive message "Warning: %s"] 4] byte-compile-obsolete #[(form) "@БNГД@\n@;«„\n@Є…ЕЖ\n@\"#€\nA®ЃЗ!)‡" [form byte-obsolete-info new byte-compile-warn "%s is an obsolete function; %s" format "use %s instead." byte-compile-normal-call] 6] ((optimize byte-optimize (t nil source byte) val) (file-format byte-compile-emacs18-compatibility (emacs18 emacs19) (eq val 'emacs18)) (new-bytecodes byte-compile-generate-emacs19-bytecodes (t nil) val) (delete-errors byte-compile-delete-errors (t nil) val) (verbose byte-compile-verbose (t nil) val) (warnings byte-compile-warnings ((callargs redefine free-vars unused-vars unresolved)) val)) byte-compiler-legal-options purecopy byte-compiler-options-handler #[(&rest args) "А‰‰‰ѓЖ @:«‹@AA¬…@A¬†ЖЗ@\"€@@@A@ћ‰¬…ЖЙ\"€К\n8‰@:«йАМ\nA@@П>­ђРJС=«„	@ЄѓJ!	@«¶@‰	>«‹\"ЄњУ=«…МЄ‘Ф=«…ХЄ†ЖЦ	#€A‰¬J\nA@L€,Є•	>¬†ЖЧ	#€\nA@ШЩ\n8!L€A‰„ ,А‡" [nil choices desc val key args error "malformed byte-compiler-option %s" byte-compiler-legal-options "unknown byte-compiler option %s" 2 this cons handler var (+ -) copy-sequence t ret + - delq "%s only accepts %s." "%s must be one of %s." eval 3] 5] byte-compile-fdefinition #[(name macro-p) "Б>«ѓ\nЄЃћA‰®У‰9«ЋИ!«€K‰Єo¬†Й!¬‹К=«ЉЛ!«„ЄҐ:­ К=?­љ@М=«…AЄЋ?­Љ@Н=?­‚)*‡" [macro-p (nil subr) byte-compile-function-environment byte-compile-macro-environment list name env fn fboundp compiled-function-p subr subrp macro autoload] 3] byte-compile-arglist-signature #[(arglist) "АБ‰«®@Ж=«‡¬џАЄ›@З=«ЉA«‘ИБЄ‹«…TЄѓTA‰¬R\n?­‰«…\\ЄЃ+B‡" [0 nil restp opts args arglist &optional &rest t] 4] byte-compile-arglist-signatures-congruent-p #[(old new) "@	@V®•	A¬„A®ЌA­‰	A­…A	AW?‡" [new old] 2] byte-compile-arglist-signature-string #[(signature) "A¬†БВ@\"‡@AU«†БГ@\"‡БД@A#‡" [signature format "%d+" "%d" "%d-%d"] 4] byte-compile-callargs-warn #[(form) "А	@В\"®…А	@Г\"‰­ђЕўЖ=«…A@ЄѓЗ!!	AG	¬—КЛ!«’А	@М\"‰«‰Л!Н!B«ё	@W¬ЌA­ж	AV­ЮОП	@	‰РU«ѓСЄЃТ	@W«ѓУЄЃФХ!&Є»К	@!®µ	@=®®	@ћ	AG‰«“A>®–ABЎЄ‹	@DB‰*+‡" [byte-compile-fdefinition form nil t def byte-compile-arglist-signature lambda compiled-function-arglist sig ncall fboundp subr-min-args subr subr-max-args byte-compile-warn "%s called with %d argument%s, but %s %s" 1 "" "s" "requires" "accepts only" byte-compile-arglist-signature-string byte-compile-current-form byte-compile-unresolved-functions n cons] 9] byte-compile-arglist-warn #[(form macrop) "А	A@\n\"‰«ЗДўЕ=«…A@ЄѓЖ!!ДЗ	8!	К	\"®ЈЛМ	@Н=«ѓОЄЃП	A@Р	!	Сљ«ѓТЄЃУР!&*Єн	A@ћХ‰‰‰‰­ХДЗ	8!ЫЬA!Э\"‰@џ@@W¬ЌA«¤AV«њЛЮ	A@Р!Яљ«ѓаЄЃбРB!%€в\"‰-)‡" [byte-compile-fdefinition form macrop old byte-compile-arglist-signature lambda compiled-function-arglist 2 sig2 sig1 byte-compile-arglist-signatures-congruent-p 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" byte-compile-unresolved-functions nil max min sig nums calls sort copy-sequence < "%s being defined to take %s%s, but was previously called with %s" (1 . 1) " arg" " args" delq] 9] byte-compile-warn-about-unresolved-functions #[(&optional msg) "А	>ѓ¤ \n®ЃГ«Ў‰«™@@ћ«‰И@\"A‰¬g)A«гЙ\nЙGЛ\\Н!О«ДР@@!GС\\\\ASX«Џ\nУ­ЃФR\nЄN\nХ­ЃФR\nGЦ\\Є8ЧШ\n\"€,ЄЊ«€ЧЩ@@\"€)О‡" [unresolved byte-compile-warnings msg "the end of the data" byte-compile-current-form byte-compile-autoload-environment byte-compile-unresolved-functions rest delq "The following functions are not known to be defined: " str 5 L reverse nil s symbol-name 2 fill-column " " "," "\n    " 4 byte-compile-warn "%s" "the function %s is not known to be defined."] 5] byte-compile-defvar-p #[(var) "А	!®¤\n‰«њ	«™	@ў=«ЊД@A\"ЖU¬‚ЗA‰¬d	)?‡" [globally-boundp var byte-compile-bound-variables rest logand byte-compile-global-bit 0 nil] 4] byte-compile-warn-about-unused-variables #[nil "Б‰‰«®@Е=¬Ё@Ж\nA\"ИU«•Ж	\nA\"ИU«‹К\n@!¬…\n@BA‰¬Rџ‰­ЏЛМН@\"!€A‰¬rБ+‡" [byte-compile-bound-variables nil cell unreferenced rest new-scope logand byte-compile-referenced-bit 0 byte-compile-arglist-bit byte-compile-defvar-p byte-compile-warn format "variable %s bound but not referenced"] 5] byte-compile-constp (macro . #[(form) "АБ\nDГД\nDЕEDЖЗ\nDDCИ\nЙECF‡" [cond consp form eq car 'quote not symbolp memq '(nil t)] 6]) byte-compile-close-variables (macro . #[(&rest body) "АБВГBЕECBB‡" [let ((byte-compile-macro-environment (copy-alist byte-compile-initial-macro-environment)) (byte-compile-function-environment nil) (byte-compile-autoload-environment nil) (byte-compile-unresolved-functions nil) (byte-compile-bound-variables nil) (byte-compile-free-references nil) (byte-compile-free-assignments nil) (byte-compile-verbose byte-compile-verbose) (byte-optimize byte-optimize) (byte-compile-generate-emacs19-bytecodes byte-compile-generate-emacs19-bytecodes) (byte-compile-warnings (if (eq byte-compile-warnings t) byte-compile-default-warnings byte-compile-warnings)) (byte-compile-file-domain nil)) prog1 progn body (if (memq 'unused-vars byte-compile-warnings) (byte-compile-warn-about-unused-variables))] 5]) displaying-byte-compile-warnings (macro . #[(&rest body) "АБВГBЕEE‡" [let ((byte-compile-warnings-point-max (if (boundp 'byte-compile-warnings-point-max) byte-compile-warnings-point-max (save-excursion (set-buffer (get-buffer-create "*Compile-Log*")) (point-max))))) unwind-protect progn body (save-excursion (set-buffer "*Compile-Log*") (if (= byte-compile-warnings-point-max (point-max)) nil (select-window (prog1 (selected-window) (select-window (display-buffer (current-buffer))) (goto-char byte-compile-warnings-point-max) (recenter 1)))))] 5])] 2)
(fset 'byte-recompile-directory #[(directory &optional arg) "¬€Б €ВГ !€Д!CЖ‰З	\nМН!«„Є€ЉОП!q€d)РЋѓд С@!¬…ТУ\"€Ф!З‰‰ѓЪ Д@\"@Шќ¬–Щ!¬ђЪ!«ЉC¤ЄЫЫ\"«УЭ!¬НЮ!‰«ДЯ!«€а\"Є‘!«І!Ж=¬‰вгдQ!«Ј%«‡ж!€Є…з!€\nT\n=¬€	T	A‰„Q +A‰„4 *Ти\n‰йU«ѓкЄЃл	йV«‡мн	\"ЄЃк$,‡" [noninteractive save-some-buffers set-buffer-modified-p buffer-modified-p expand-file-name directory 0 nil last-dir dir-count file-count directories boundp byte-compile-warnings-point-max get-buffer-create "*Compile-Log*" ((byte-code "ЉАq€	dU¬’ВГ ВДp!!€	b€ЕЖ!€!€)В‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) file-name-as-directory message "Checking %s..." directory-files dest source files ("." ".." "RCS" "CVS" "SCCS") file-symlink-p file-directory-p string-match emacs-lisp-file-regexp auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p arg y-or-n-p "Compile " "? " byte-recompile-directory-ignore-errors-p batch-byte-compile-1 byte-compile-file "Done (Total of %d file%s compiled%s)" 1 "" "s" format " in %d directories"] 8 "\
Recompile every `.el' file in DIRECTORY that needs recompilation.
This is if a `.elc' file exists but is older than the `.el' file.

If the `.elc' file does not exist, normally the `.el' file is *not* compiled.
But a prefix argument (optional second arg) means ask user,
for each such `.el' file, whether to compile it.  Prefix argument 0 means
don't ask and compile the file anyway." "DByte recompile directory: \nP"])
(fset 'byte-compile-file #[(filename &optional load) "А	!\n¬ЎГА	!!‰«—Е!«’ЖЗИЙ!\"!«€Љq€К €))ЛМ	\"€	НЉРС!q€Т €У	!€	Х €)ЦpЧp	\"q€!€db€Шc€ЩЫ	!¬…НЭЮЏ€Я!«ЌН бвd#€)Є’гдеж!«ѓзЄЃиE\"€¬…НйкЏ€)Цp!€)+«”+Щ=¬€ЖЗм	\"!«†Љн	!€).«…о!€*Щ‡" [expand-file-name filename noninteractive get-file-buffer b buffer-modified-p y-or-n-p format "save buffer %s first? " buffer-name save-buffer message "Compiling %s..." nil target-file byte-compile-current-file get-buffer-create " *Compiler Input*" erase-buffer insert-file-contents buffer-file-name set-auto-mode kill-buffer byte-compile-from-buffer "\n" t vms-stmlf-recfm byte-compile-dest-file byte-compile-overwrite-file (delete-file target-file) ((error)) file-writable-p kanji-flag write-region 1 signal file-error "Opening output file" file-exists-p "cannot overwrite file" "directory not writable or nonexistent" (byte-code "А	В!\"‡" [set-file-modes target-file file-modes filename] 4) ((error)) byte-compile-generate-call-tree "Report call tree for %s? " display-call-tree load] 6 "\
Compile a file of Lisp code named FILENAME into a file of byte code.
The output file's name is made by appending `c' to the end of FILENAME.
With prefix arg (noninteractively: 2nd arg), load the file after compiling." (byte-code "Б‰‰«‘ЕЖ ћAЗ=«€И!Й!КЛ!«„¬†Н™«ЏО«ѓРЄЃС\nБ$ЄЋО«ѓРЄЃС\nБ‰%+D‡" [buffer-file-name nil file-dir file-name file major-mode buffer-local-variables emacs-lisp-mode file-name-nondirectory file-name-directory boundp epoch::version emacs-version "19" read-file-name current-prefix-arg "Byte compile and load file: " "Byte compile file: "] 7)])
(fset 'byte-compile-and-load-file #[(&optional filename) "«…БВ\"‡ГЕБ!)‡" [filename byte-compile-file t (4) current-prefix-arg call-interactively] 3 "\
Compile a file of Lisp code named FILENAME into a file of byte code,
and then load it.  The output file's name is made by appending \"c\" to 
the end of FILENAME." nil])
(fset 'byte-compile-buffer #[(&optional buffer) "«…Б!ЄЃpВГД!\"€Е!®†ЖД!ЗQ	КЛ#€*ВМД!\"€Л‡" [buffer get-buffer message "Compiling %s..." buffer-name buffer-file-name "#<buffer " ">" filename byte-compile-current-file byte-compile-from-buffer t "Compiling %s...done"] 4 "\
Byte-compile and evaluate contents of BUFFER (default: the current buffer)." "bByte compile buffer: "])
(fset 'compile-defun #[(&optional arg) "ЉА €Б €ВДЖЗИp!Й\"!\n«ЋМН!€О\np\"€ПcЄ‡МРС\n!\",‡" [end-of-defun beginning-of-defun nil byte-compile-current-file nothing byte-compile-last-warned-form eval byte-compile-sexp read "toplevel forms" value arg message "Compiling from buffer... done." prin1 "\n" "%s" prin1-to-string] 4 "\
Compile and evaluate the current top-level form.
Print the result in the minibuffer.
With argument, insert value in current buffer after the form." "P"])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПРС#€СТM€ОУРФ#€ФХM€ОЦРЧ#€ОШРЧ#€ЧЩM€ОЪРЫ#€ЫЬM€ОЭРЮ#€ОЯРЮ#€ОаРЮ#€ЮбM€ОвРг#€гдM€ОеРж#€жзM€ОиРй#€йкM€лмM€ноM€прM€стM€ОуРф#€фхM€Оуцч#€чшM‡" [byte-compile-from-buffer #[(inbuffer filename &optional eval) "АА‰‰‰‰‰В‰‰А	\nН!А‰‰‰‰‰У=«„Є‚АЉЭЮ!qЯ €Аа!)вг!«„#Є€ЉЭд!q€d)#еЋЉ&q€зb€иАw€йк!«…зy€Єrm¬‰лм&!!€Єfн €.¬…п0!€с €+Љ	q€eb€)т>«ѓу €..¬ѓ	Є–А4АхцЏ«‡о4!€Єs)ч	!€А)‡" [nil byte-compile-output-buffer 0 byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants print-level print-length case-fold-search float-output-format copy-alist byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-generate-emacs19-bytecodes byte-compile-warnings t byte-compile-default-warnings byte-compile-file-domain byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment get-buffer-create " *Compiler Output*" erase-buffer overwrite-mode-binary overwrite-mode boundp byte-compile-warnings-point-max "*Compile-Log*" ((byte-code "ЉАq€	dU¬’ВГ ВДp!!€	b€ЕЖ!€!€)В‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) inbuffer 1 " 	\n" looking-at ";" byte-compile-file-form read byte-compile-flush-pending eval byte-compile-insert-header filename byte-compile-warn-about-unresolved-functions unused-vars byte-compile-warn-about-unused-variables form (byte-code "А	!Г‡" [read byte-compile-output-buffer form t] 2) ((end-of-file)) kill-buffer] 12] byte-compile-insert-header #[(filename) "Љq€Бb€В«ѓДЄЃЕЖ±€ЗИ ЙК ЛМ НП±	€РТ±€УХЧ=«ѓШЄ‘Щ=«ѓЪЄ€«ѓЫЄЃЬ«ѓЮЄЃТ±€­‡Яабвг±)‡" [byte-compile-output-buffer 1 ";ELC" byte-compile-generate-emacs19-bytecodes 19 18 "   \n" ";;; compiled by " user-login-name "@" system-name " on " current-time-string "\n;;; from file " filename "\n" ";;; emacs version " emacs-version ".\n" ";;; bytecomp version " byte-compile-version "\n;;; " byte-optimize source "source-level optimization only" byte "byte-level optimization only" "optimization is on" "optimization is off" byte-compile-emacs18-compatibility "; compiled with Emacs 18 compatibility.\n" ";;; this file uses opcodes which do not exist in Emacs 18.\n" "\n(if (and (boundp 'emacs-version)\n" "	 (or (and (boundp 'epoch::version) epoch::version)\n" "	     (string-lessp emacs-version \"19\")))\n" "    (error \"This file was compiled for Emacs 19.\"))\n"] 9] byte-compile-output-file-form #[(form) "ўБ>«‹В8;«…ГД\"‡Е‰Ж	КЛ\"€Н\"€+Ж‡" [form (defun defmacro defvar defconst autoload) 3 byte-compile-output-docform ("\n(" 3 ")") t nil print-gensym print-readably print-escape-newlines princ "\n" byte-compile-output-buffer prin1] 3] byte-compile-output-docform #[(info form) "pq€	@c€	A@\n›Г‰ДЙ\n@\"€\nA‰«§Кc€\n=«–Д`TЙ\n@\"€b€Лc€db€)Є[Й\n@\"€ЄS,М	8c€q€Д‡" [byte-compile-output-buffer info form t nil print-gensym print-readably print-escape-newlines docl prin1 " " "\\\n" 2] 5] byte-compile-keep-pending #[(form &optional handler) "Б>«…ВД\"« ДўЗ=«‰И	›«ѓК €!€«ѓЛ €)Є…МД\"€Н‡" [byte-optimize (t source) byte-optimize-form form t handler for-effect fset 300 byte-compile-output byte-compile-flush-pending byte-compile-discard byte-compile-form nil] 3] byte-compile-flush-pending #[nil "­ЄБВГ\"‰ўЕ=«€ЖЗA\"€Є‡«„З!€И	И\nЛЛИ‰)‡" [byte-compile-output byte-compile-out-toplevel t file form progn mapcar byte-compile-output-file-form nil byte-compile-constants byte-compile-variables 0 byte-compile-depth byte-compile-maxdepth] 4] byte-compile-file-form #[(form) "А‰:¬…Д!ЄЇ@9«—@ЕN‰«Џ	!‰­›Ж €З!Є“И	\"‰=«…Д!ЄѓК!*‡" [nil handler byte-compile-current-form form byte-compile-keep-pending byte-hunk-handler byte-compile-flush-pending byte-compile-output-file-form macroexpand byte-compile-macro-environment byte-compile-file-form] 4] put defsubst byte-hunk-handler byte-compile-file-form-defsubst #[(form) "A@	ћ«‹A@ГДA@\"€ЕЖ\"!€И‡" [form byte-compile-unresolved-functions byte-compile-current-form byte-compile-warn "defsubst %s was used before it was defined" byte-compile-file-form macroexpand byte-compile-macro-environment nil] 4] autoload byte-compile-file-form-autoload #[(form) "A@:«€A@@Б=Є‹A@9«‡A@В>­…ГA@!Е8:«€Е8@Б=Є‹Е89«‡Е8В>­‡ГЕ8!Ж>‰«§A‰«—@:«‡@@Б=Є‰@9«i@В>¬c)¬„Г!€«¤ћ‰	«’К>«…МН\"€	Ў€Є€BB)*О8;«‚‡ПР\"‡" [form quote (nil t) eval name 5 (t macro) macrop byte-compile-autoload-environment old redefine byte-compile-warnings byte-compile-warn "multiple autoloads for %s" 3 byte-compile-keep-pending byte-compile-normal-call] 4] defvar byte-compile-file-form-defvar defconst #[(form) "GБV«‰ВГ@A@#€GДV«’Д8;¬ЊВЕ@A@Д8$€Д8¬„Ж!‡З>«‹A@	B\nB\nЛ8:«ђМ!‰AAНЛ8ОП# €‡" [form 4 byte-compile-warn "%s used with too many args (%s)" 3 "Third arg to %s %s is not a string: %s" byte-compile-keep-pending free-vars byte-compile-warnings byte-compile-global-bit byte-compile-bound-variables 2 copy-sequence byte-compile-top-level nil file] 7] require byte-compile-file-form-eval-boundary #[(form) "А	!€В	Г\"‡" [eval form byte-compile-keep-pending byte-compile-normal-call] 3] progn byte-compile-file-form-progn prog1 prog2 #[(form) "АБ\nA\"€Г‡" [mapcar byte-compile-file-form form nil] 3] eval byte-compile-file-form-eval #[(form) "A@ўБ=«†A@A@‡В!‡" [form quote byte-compile-keep-pending] 2] defun byte-compile-file-form-defun #[(form) "А	В\"‡" [byte-compile-file-form-defmumble form nil] 3] defmacro byte-compile-file-form-defmacro #[(form) "А	В\"‡" [byte-compile-file-form-defmumble form t] 3] byte-compile-file-form-defmumble #[(form macrop) "A@\n«ѓГЄЃД\n«ѓДЄЃГ	Jћ	JћЙ\nЙ«Џ	ћ¬‰	Й‰EB	П>«…С\n\"€«’УФ«†Ц!ЄЃЧA@#€«њП>«ЏA@ћ¬‡ЩЪA@\"€ЙЎ€Єз«ћП>«ЭA@ћ¬ХЩЫ\n«ѓЬЄЃЭA@#€ЄЕЮ	!«АЯ	K!¬Ќ	Kў\n«ѓаЄЃб=«­П>«ћЩвЯ	K!«ѓгЄ‡\n«ѓЭЄЃЬA@\n«ѓЬЄЃЭ$€	ЙBJBL€д›‰%@;«њ%Јў9«•%Јў«Џ%ЈЈў;«‡ЩжA@\"€)заAAB!(й(!*«€(Ў€ЄЉ	(BJBL€д8;«ќ*ўл=«–*A@ўа=«Ќ@	*A@ABB‚д8;¬­мнл	D\n¬„*Є›*ўо=«‡пр*EЄЌл\n«†б(BЄ‚(DEс\"‚т €уф5\"€ц	5\"€ч*:¬‰\n«ѓшЄћщЄ›*@л=«Ќ(*\n«ѓъЄЉыЄ‡\n«ѓьЄЃэ*:«„*Єєю*!я*!Ѓ@ *!ЃA *!FЃB *ЃC \"‰D­ѓDC)¤ЃE *!­‰ЃF *!A@C¤\"€уЃG 5\"€Й.	‡" [form name macrop byte-compile-macro-environment byte-compile-function-environment this-kind that-kind this-one that-one nil byte-compile-free-references byte-compile-free-assignments byte-compile-generate-call-tree byte-compile-call-tree byte-compile-current-form redefine byte-compile-warnings byte-compile-arglist-warn byte-compile-verbose message "Compiling %s (%s)..." filename file-name-nondirectory "" byte-compile-initial-macro-environment byte-compile-warn "%s defined multiple times, as both function and macro" "%s %s defined multiple times in this file" "macro" "function" fboundp subrp lambda macro "%s %s being redefined as a %s" "subr" 3 body "Probable `\"' without `\\' in doc string of %s" byte-compile-lambda new-one byte-compile-byte-code-maker code quote byte-compile-keep-pending fset make-byte-code cons 'macro byte-compile-two-args byte-compile-flush-pending princ "\n(fset '" byte-compile-output-buffer prin1 byte-compile-output-docform (" '(macro . #[" 4 "])") (" #[" 4 "]") (" '(macro " 2 ")") (" '(" 2 ")") (" (cons 'macro (" 5 "))") (" (" 5 ")") compiled-function-arglist compiled-function-instructions compiled-function-constants compiled-function-stack-depth documentation t doc commandp compiled-function-interactive ")"] 8] byte-defop-compiler (macro . #[(function &optional compile-handler) "А\n9«ЉГДЕ\n!P!Є‡\nA@\n@ЖЗ\nDИЗ	КћA®‹	®‡ГЛЕ\n!P!DF	«НЖЗ\nDОЗ	DFЖЗ	DПЗ\nDFFЄ‚*‡" [nil opcode function intern "byte-" symbol-name put quote 'byte-compile compile-handler ((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-" fnform progn 'byte-opcode 'byte-opcode-invert] 8]) byte-defop-compiler19 (macro . #[(function &optional compile-handler) "АБВЈ@®‹ДЕЖў®Ѓ!P!DЗИFЙ\nEE‡" [progn put quote function intern "byte-" symbol-name 'emacs19-opcode t byte-defop-compiler compile-handler] 7]) byte-defop-compiler-1 (macro . #[(function &optional compile-handler) "А	ВDE‡" [byte-defop-compiler function nil compile-handler] 3]) domain byte-compile-file-form-domain #[(form) "AA«…БВ\"€A@‰«‹;¬‡БД\"€Е)ЗИ\"‡" [form byte-compile-warn "domain used with too many arguments: %s" domain "argument to `domain' declaration must be a literal string: %s" nil byte-compile-file-domain byte-compile-keep-pending byte-compile-normal-call] 4] byte-compile byte-compile-domain #[(form) "АБВГ‰З!+\"€ЙКЛМНDDE!‡" [byte-compile-warn "The `domain' declaration is legal only at top-level: %s" t 4 print-length print-level print-escape-newlines prin1-to-string form byte-compile-normal-call signal 'error quote "`domain' used inside a function"] 6]] 4)
(fset 'byte-compile #[(form) "АБ!«ѓ	Є€ЉВГ!q€d)ДЋЕ!З‰‰‰‰‰	\nМ=«„Є‚З\n	9«‹Ч!­‡KЄ‚‰ўЩ=‰«…AўЪ=­ «€ЩЫ!BЄ„Ы!9«‡MЄ‚*Ь>«ѓЭ €.‡" [boundp byte-compile-warnings-point-max get-buffer-create "*Compile-Log*" ((byte-code "ЉАq€	dU¬’ВГ ВДp!!€	b€ЕЖ!€!€)В‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) copy-alist byte-compile-initial-macro-environment nil byte-compile-verbose byte-optimize byte-compile-generate-emacs19-bytecodes byte-compile-warnings t byte-compile-default-warnings byte-compile-file-domain byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment form fboundp fun macro lambda byte-compile-lambda unused-vars byte-compile-warn-about-unused-variables] 13 "\
If FORM is a symbol, byte-compile its function definition.
If FORM is a lambda or a macro, byte-compile it as a function."])
(fset 'byte-compile-sexp #[(sexp &optional msg) "АБ!«ѓ	Є€ЉВГ!q€d)ДЋЕ!З‰‰‰‰‰	\nМ=«„Є‚З\n	Ц!Ш!€Ъ>«ѓЫ €.‡" [boundp byte-compile-warnings-point-max get-buffer-create "*Compile-Log*" ((byte-code "ЉАq€	dU¬’ВГ ВДp!!€	b€ЕЖ!€!€)В‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) copy-alist byte-compile-initial-macro-environment nil byte-compile-verbose byte-optimize byte-compile-generate-emacs19-bytecodes byte-compile-warnings t byte-compile-default-warnings byte-compile-file-domain byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-unresolved-functions byte-compile-autoload-environment byte-compile-function-environment byte-compile-macro-environment byte-compile-top-level sexp byte-compile-warn-about-unresolved-functions msg unused-vars byte-compile-warn-about-unused-variables] 12 "\
Compile and return SEXP."])
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУ!¬„УФM€ХЦM€ЧШM€ЩЪM€ЫЬM€ЭЮЯа#€ЭбЯв#€ЭгЯв#€ЭдЯв#€ЭеЯв#€ЭжЯв#€ЭзЯи#€ЭйЯи#€ЭкЯи#€ЭлЯи#€ЭмЯн#€Эопр#€Эост#€ЭтЯо#€Эупр#€Эусф#€ЭфЯу#€Эхпр#€Эхсц#€ЭцЯх#€Эчпр#€Эчст#€ЭтЯч#€Эшпр#€Эшсф#€ЭфЯш#€Эщпр#€Эщсц#€ЭцЯщ#€Эъпр#€Эъсы#€ЭыЯъ#€Эьпр#€Эьсэ#€ЭэЯь#€Эюпр#€Эюся#€ЭяЯю#€ЭЃ@ пр#€ЭЃ@ сЃA #€ЭЃA ЯЃ@ #€ЭЃB пр#€ЭЃB сЃC #€ЭЃC ЯЃB #€ЭЃD пр#€ЭЃD сЃE #€ЭЃE ЯЃD #€ЭЃF пр#€ЭЃF сЃG #€ЭЃG ЯЃF #€ЭЃH пр#€ЭЃH сЃI #€ЭЃI ЯЃH #€ЭЃJ пр#€ЭЃJ сЃK #€ЭЃK ЯЃJ #€ЭЃL ЃM ЃN #€ЭЃO пр#€ЭЃO сЃL #€ЭЃL ЯЃO #€ЭЃP ЃM ЃN #€ЭЃQ пЃR #€ЭЃQ сЃP #€ЭЃP ЯЃQ #€ЭЃS ЃM ЃN #€ЭЃT пЃR #€ЭЃT сЃS #€ЭЃS ЯЃT #€ЭЃU ЃM ЃN #€ЭЃV пЃR #€ЭЃV сЃU #€ЭЃU ЯЃV #€ЭЃW пЃX #€ЭЃW сЃY #€ЭЃY ЯЃW #€ЭЃZ пЃX #€ЭЃZ сЃ[ #€ЭЃ[ ЯЃZ #€ЭЃ\\ пЃX #€ЭЃ\\ сЃ] #€ЭЃ] ЯЃ\\ #€ЭЃ^ пЃX #€ЭЃ^ сЃ_ #€ЭЃ_ ЯЃ^ #€ЭЃ` пЃX #€ЭЃ` сЃa #€ЭЃa ЯЃ` #€ЭЃb пЃX #€ЭЃb сЃa #€ЭЃa ЯЃb #€ЭЃc пЃX #€ЭЃc сЃd #€ЭЃd ЯЃc #€ЭЃe пЃX #€ЭЃe сЃf #€ЭЃf ЯЃe #€ЭЃg пЃX #€ЭЃg сЃh #€ЭЃh ЯЃg #€ЭЃi пЃX #€ЭЃi сЃj #€ЭЃj ЯЃi #€ЭЃk пЃX #€ЭЃk сЃl #€ЭЃl ЯЃk #€ЭЃm пЃX #€ЭЃm сЃn #€ЭЃn ЯЃm #€ЭЃo пЃX #€ЭЃo сЃp #€ЭЃp ЯЃo #€ЭЃq пЃX #€ЭЃq сЃr #€ЭЃr ЯЃq #€ЭЃs пЃX #€ЭЃs сЃt #€ЭЃt ЯЃs #€ЭЃu пЃX #€ЭЃu сЃv #€ЭЃv ЯЃu #€ЭЃw ЃM ЃN #€ЭЃx пЃX #€ЭЃx сЃw #€ЭЃw ЯЃx #€ЭЃy ЃM ЃN #€ЭЃz пЃX #€ЭЃz сЃy #€ЭЃy ЯЃz #€ЭЃ{ ЃM ЃN #€ЭЃ| пЃX #€ЭЃ| сЃ{ #€ЭЃ{ ЯЃ| #€ЭЃ} ЃM ЃN #€ЭЃ~ пЃX #€ЭЃ~ сЃ} #€ЭЃ} ЯЃ~ #€ЭЃ ЃM ЃN #€ЭЃЂ пЃX #€ЭЃЂ сЃ #€ЭЃ ЯЃЂ #€ЭЃЃ ЃM ЃN #€ЭЃ‚ пЃX #€ЭЃ‚ сЃЃ #€ЭЃЃ ЯЃ‚ #€ЭЃѓ ЃM ЃN #€ЭЃ„ пЃX #€ЭЃ„ сЃѓ #€ЭЃѓ ЯЃ„ #€ЭЃ… ЃM ЃN #€ЭЃ† пЃ‡ #€ЭЃ† сЃ… #€ЭЃ… ЯЃ† #€ЭЃ€ ЃM ЃN #€ЭЃ‰ пЃ‡ #€ЭЃ‰ сЃ€ #€ЭЃ€ ЯЃ‰ #€ЭЃЉ пЃ‹ #€ЭЃЉ сЃЊ #€ЭЃЊ ЯЃЉ #€ЭЃЌ пЃ‹ #€ЭЃЌ сЃЋ #€ЭЃЋ ЯЃЌ #€ЭЃЏ пЃ‹ #€ЭЃЏ сЃђ #€ЭЃђ ЯЃЏ #€ЭЃ‘ пЃ‹ #€ЭЃ‘ сЃ’ #€ЭЃ’ ЯЃ‘ #€ЭЃ“ пЃ‹ #€ЭЃ“ сЃ” #€ЭЃ” ЯЃ“ #€ЭЃ• пЃ‹ #€ЭЃ• сЃ– #€ЭЃ– ЯЃ• #€ЭЃ— пЃ‹ #€ЭЃ— сЃ #€ЭЃ ЯЃ— #€ЭЃ™ пЃ‹ #€ЭЃ™ сЃљ #€ЭЃљ ЯЃ™ #€ЭЃ› пЃ‹ #€ЭЃ› сЃњ #€ЭЃњ ЯЃ› #€ЭЃќ пЃ‹ #€ЭЃќ сЃћ #€ЭЃћ ЯЃќ #€ЭЃџ пЃ‹ #€ЭЃџ сЃ  #€ЭЃ  ЯЃџ #€ЭЃЎ пЃў #€ЭЃЎ сЃЈ #€ЭЃЈ ЯЃЎ #€ЭЃ¤ ЃM ЃN #€ЭЃҐ пЃў #€ЭЃҐ сЃ¤ #€ЭЃ¤ ЯЃҐ #€ЭЃ¤ ЃM ЃN #€ЭЃ¦ пЃў #€ЭЃ¦ сЃ¤ #€ЭЃ¤ ЯЃ¦ #€ЭЃ§ ЃM ЃN #€ЭЃЁ пЃX #€ЭЃЁ сЃ§ #€ЭЃ§ ЯЃЁ #€ЭЃ© ЃM ЃN #€ЭЃЄ пЃX #€ЭЃЄ сЃ© #€ЭЃ© ЯЃЄ #€ЭЃ« ЃM ЃN #€ЭЃ¬ пЃX #€ЭЃ¬ сЃ« #€ЭЃ« ЯЃ¬ #€ЭЃ­ ЃM ЃN #€ЭЃ® пЃX #€ЭЃ® сЃ­ #€ЭЃ­ ЯЃ® #€ЭЃЇ ЃM ЃN #€ЭЃ° пЃ‹ #€ЭЃ° сЃЇ #€ЭЃЇ ЯЃ° #€ЭЃ± ЃM ЃN #€ЭЃІ пЃ‹ #€ЭЃІ сЃ± #€ЭЃ± ЯЃІ #€ЭЃЇ ЃM ЃN #€ЭЃі пЃ‹ #€ЭЃі сЃЇ #€ЭЃЇ ЯЃі #€ЭЃ± ЃM ЃN #€ЭЃґ пЃ‹ #€ЭЃґ сЃ± #€ЭЃ± ЯЃґ #€ЭЃµ ЃM ЃN #€ЭЃ¶ пЃ‹ #€ЭЃ¶ сЃµ #€ЭЃµ ЯЃ¶ #€ЭЃ· ЃM ЃN #€ЭЃё пЃ‹ #€ЭЃё сЃ· #€ЭЃ· ЯЃё #€ЭЃ№ ЃM ЃN #€ЭЃє пЃ‹ #€ЭЃє сЃ№ #€ЭЃ№ ЯЃє #€ЭЃ» ЃM ЃN #€ЭЃј пЃ‹ #€ЭЃј сЃ» #€ЭЃ» ЯЃј #€ЭЃЅ ЃM ЃN #€ЭЃѕ пЃ‹ #€ЭЃѕ сЃЅ #€ЭЃЅ ЯЃѕ #€ЭЃї ЃM ЃN #€ЭЃА пЃ‹ #€ЭЃА сЃї #€ЭЃї ЯЃА #€ЭЃБ ЃM ЃN #€ЭЃВ пЃ‹ #€ЭЃВ сЃБ #€ЭЃБ ЯЃВ #€ЭЃї ЃM ЃN #€ЭЃГ пЃ‹ #€ЭЃГ сЃї #€ЭЃї ЯЃГ #€ЭЃБ ЃM ЃN #€ЭЃД пЃ‹ #€ЭЃД сЃБ #€ЭЃБ ЯЃД #€ЭЃЕ ЃM ЃN #€ЭЃЖ пЃ‹ #€ЭЃЖ сЃЕ #€ЭЃЕ ЯЃЖ #€ЭЃЗ ЃM ЃN #€ЭЃИ пЃ‹ #€ЭЃИ сЃЗ #€ЭЃЗ ЯЃИ #€ЭЃЙ ЃM ЃN #€ЭЃК пЃ‹ #€ЭЃК сЃЙ #€ЭЃЙ ЯЃК #€ЭЃЛ ЃM ЃN #€ЭЃМ пЃ‹ #€ЭЃМ сЃЛ #€ЭЃЛ ЯЃМ #€ЭЃН пЃО #€ЭЃН сЃП #€ЭЃП ЯЃН #€ЭЃР пЃС #€ЭЃР сЃТ #€ЭЃТ ЯЃР #€ЭЃУ пЃС #€ЭЃУ сЃФ #€ЭЃФ ЯЃУ #€ЭЃХ пЃС #€ЭЃХ сЃЦ #€ЭЃЦ ЯЃХ #€ЭЃЧ ЃM ЃN #€ЭЃШ пЃС #€ЭЃШ сЃЧ #€ЭЃЧ ЯЃШ #€ЭЃЩ пЃЪ #‡" [byte-compile-byte-code-maker #[(fun) "«†БВ!D‡:¬‚‡ДЖAЈћ‰«У>A¬НЗAAћИБA@DA@Й8К8ЇЙ8;«†Й8CЄ†­‚ДC¤­љA@«‡A@;«†A@Є†БA@DC¤)ЄѓБD)‡" [byte-compile-emacs18-compatibility quote byte-compile-byte-code-unmake fun nil tmp byte-code interactive make-byte-code 2 3] 6] byte-compile-byte-code-unmake #[(function) ":«‚‡БВ!DГД\"‰­‚C)¤Ж!­„З!C¤ИЙ!К!Л!FC¤‡" [function lambda compiled-function-arglist documentation t doc commandp compiled-function-interactive byte-code compiled-function-instructions compiled-function-constants compiled-function-stack-depth] 7] byte-compile-lambda #[(fun) "А	ў=¬‡ВГД	!\"€	A@ЖЗИ	>­‰КЛКМН!\"\"\"‰ПB¤)	AA‰@;­€@AУћ‰«В@9¬‹ЦЧД@!\"€Є©@Ш>«‰ЦЩ@\"€Є™Ъ@!ЫHЬU«Ћ@Э>¬‡ЦЮ@\"€A‰¬>)«Є@=«…AA«AA«€ЦЯД!\"€УаA@!DабBвА##д	>«ѓе €#ўж=«¤'« ийкC#A¬„­ѓC­…A@C$\"Єј­ѓC#ўб=«…#AЄ‡#­ѓ#C¤#АD¬†#@;«Џ#®†­‚вCBЄ‚#¤.‡" [lambda fun error "not a lambda -- %s" prin1-to-string arglist mapcar #[(x) "	B‡" [x byte-compile-arglist-bit] 2] free-vars byte-compile-warnings delq &rest &optional copy-sequence new-bindings new-scope byte-compile-bound-variables body doc interactive int rest byte-compile-warn "non-symbol in arglist: %s" (t nil) "constant in arglist: %s" symbol-name 0 38 (&optional &rest) "unrecognised `&' keyword in arglist: %s" "malformed interactive spec: %s" byte-compile-top-level progn nil compiled unused-vars byte-compile-warn-about-unused-variables byte-code byte-compile-generate-emacs19-bytecodes apply make-byte-code append] 9] byte-compile-constants-vector #[nil "А\nџџЖЖЙ\nЖ¬ѓ«Г\n@«Ї	=¬©@@ћ‰«‰@AЎ€ЄЏ@	T‰Ў€@BA‰¬Q\nA\n‰Є8МНОП\"џ\".‡" [-1 i byte-compile-variables rest byte-compile-constants other nil ret tmp (5 63 255 65535) limits limit apply vector mapcar car] 6] byte-compile-top-level #[(form &optional for-effect output-type) "А‰Б‰‰АЙ>«€К\"ўН=«ЏAA¬‰A@‰ЄlўО=«ЎП>¬›A@;«”РС8!«ЊТУ8!«„ЄЌФ\"€Х\".‡" [nil 0 byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants byte-optimize (t source) byte-optimize-form form for-effect progn byte-code (t byte) vectorp 2 natnump 3 byte-compile-form byte-compile-out-toplevel output-type] 7] byte-compile-out-toplevel #[(&optional for-effect output-type) "«ё	@@В=«…	AЄ¬ГДћ?­ЈЖ!‰«–@@9¬Џ@@§¬€A‰¬j@@)!€ИЙК\"€	џМ>«…Н	\"ДП=?Д‰У=«ѓФЄЃХ	›„PЦ	ћ„PЙ	ћ‰ѓPЖ	!>Aџ‰@@Ч>«є@A@@@Ш=«Ў:¬‹9«—Щ>¬‘ѓ@ЪDB‰ЄшB‰Єо«хЫ›¬п@@ЬN‰«дA«љЭ>«ЩAA«УA@@В=«КAДџЮ=«“@ўЪ=«‹@A@ABЄ…BCУ=¬ЌЯДаб@A\"\"?«‰A‰‚‡ ¬Њ@:«–П=«ђв #де	!#&F)ЄЏA«‡зџBЄѓ@,‡" [for-effect byte-compile-output byte-discard byte-compile-push-constant nil byte-compile-constants reverse tmp byte-compile-out byte-return 0 byte-optimize (t byte) byte-optimize-lapcode output-type lambda body maycall rest file 50 8 TAG (byte-varref byte-constant) byte-constant (nil t) quote 3 byte-opcode-invert (file progn t) funcall delq mapcar consp byte-compile-constants-vector byte-compile-vector byte-code byte-compile-lapcode byte-compile-maxdepth progn] 6] byte-compile-top-level-body #[(body &optional for-effect) "АБ\nBД#‰ўБ=«ѓ\nA‡\n­‚\nC‡" [byte-compile-top-level progn body for-effect t] 5] byte-compile-form #[(form &optional for-effect) "А	\n\"‰:¬Ў	9«…	Г>«†Д	!€Єч«€«„ЗЄмИЙ	\"€Єе	@9«Ѕ	@‰\nЛN\nН>«†ОП\n\"€«“¬€\nСNТN¬‡	!€ЄЋУ>«„Х	!€Ц	!€*ЄЈЧ	@!¬‡	@ўШ=«’	Щ	!‰=¬‰Ъ	\"€ЗЄ„Ц	!€­‚Ы ‡" [macroexpand form byte-compile-macro-environment (nil t) byte-compile-constant for-effect byte-compile-delete-errors nil byte-compile-variable-ref byte-varref fn byte-compile handler (t nil) byte-compile-warn "%s called as a function" byte-compile-generate-emacs19-bytecodes byte-opcode emacs19-opcode callargs byte-compile-warnings byte-compile-callargs-warn byte-compile-normal-call compiled-function-p lambda byte-compile-unfold-lambda byte-compile-form byte-compile-discard] 4] byte-compile-normal-call #[(form) "«„Б\n!€Г\n@!€ДЕ\nA\"€ЖЗ\nAG\"‡" [byte-compile-generate-call-tree byte-compile-annotate-call-tree form byte-compile-push-constant mapcar byte-compile-form byte-compile-out byte-call] 3] fboundp globally-boundp boundp byte-compile-variable-ref #[(base-op var &optional varbind-flags) "9«…Б>«љВД=«ѓЕЄЃЖ9«ѓЗЄЃИЙ!#€‚§ КN«™КNВМ;«„Є…НО\"#€)П>«аД=«Ћ®ЃТBBЄНФ!¬Ић‰­“ЦAЧ=«„Є‚\"Ў)¬©Ч=«“>¬ћВЫ\"€BЄ‘>¬‹ВЭ\"€Bћ‰¬ЉC‰Bа\")‡" [var (nil t) byte-compile-warn base-op byte-varbind "Attempt to let-bind %s %s" "Variable reference to %s %s" "constant" "nonvariable" prin1-to-string byte-obsolete-variable ob "%s is an obsolete variable; %s" format "use %s instead." free-vars byte-compile-warnings varbind-flags 0 byte-compile-bound-variables globally-boundp cell logior byte-varset byte-compile-assigned-bit byte-compile-referenced-bit byte-compile-free-assignments "assignment to free variable %s" byte-compile-free-references "reference to free variable %s" byte-compile-variables tmp byte-compile-out] 7] byte-compile-get-constant (macro . #[(const) "АБВDДЕEЖЕEFЗИЕЙКDЕEEDE‡" [or if stringp const assoc byte-compile-constants assq car setq cons list] 8]) byte-compile-constant #[(const) "«„Б‰‡ВГ;«‡Е\"Є„ћ®‰CB‰@\"‡" [for-effect nil byte-compile-out byte-constant const assoc byte-compile-constants] 5] byte-compile-push-constant #[(const) "А\n	«…А‰ЄќГД\n;«‡Е\n\"Є„\nћ®‰\nCB‰@\"*‡" [nil for-effect const byte-compile-out byte-constant assoc byte-compile-constants] 5] 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 dot byte-compile byte-compile-no-args byte-opcode byte-point dot-max byte-point-max dot-min byte-point-min point point-max 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 = 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)
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПM€РСM€ТУM€ФХM€ЦЧШЩ#€ЦЧЪЫ#€ЦЫЬЧ#€ЦЭШЮ#€ЦЭЪЯ#€ЦЯЬЭ#€ЦаШб#€ЦаЪв#€ЦвЬа#€ЦгШд#€ЦгЪе#€ЦеЬг#€ЦжШд#€ЦжЪе#€ЦеЬж#€ЦзШи#€ЦзЪй#€ЦйЬз#€ЦкШл#€ЦмШн#€Цопр#€ЦсШт#€ЦсЪо#€ЦоЬс#€Цупр#€ЦфШх#€ЦфЪу#€ЦуЬф#€ЦцШч#€ЩшM€ЮщM€нъM€тыM€хьM€бэM€юяM€лЃ@ M€дЃA M€иЃB M€чЃC M€ЦЃD ШЃE #€ЦЃD ЪЃF #€ЦЃF ЬЃD #€ЦЃG ШЃH #€ЦЃI ШЃJ #€ЦЃK ШЃL #€ЦЃM ШЃN #€ЦЃO ШЃP #‡" [byte-compile-subr-wrong-args #[(form n) "АБ\n@\nAG\nAGГU«ѓДЄЃЕ%€З\n!‡" [byte-compile-warn "%s called with %d arg%s, but requires %s" form 1 "" "s" n byte-compile-normal-call] 6] byte-compile-no-args #[(form) "GБU¬…ВГ\"‡Д@ЕNЖ\"‡" [form 1 byte-compile-subr-wrong-args "none" byte-compile-out byte-opcode 0] 3] byte-compile-one-arg #[(form) "GБU¬…ВГ\"‡ДA@!€Е@ЖNЗ\"‡" [form 2 byte-compile-subr-wrong-args 1 byte-compile-form byte-compile-out byte-opcode 0] 3] byte-compile-two-args #[(form) "GБU¬…ВГ\"‡ДA@!€ДГ8!€Е@ЖNЗ\"‡" [form 3 byte-compile-subr-wrong-args 2 byte-compile-form byte-compile-out byte-opcode 0] 3] byte-compile-three-args #[(form) "GБU¬…ВГ\"‡ДA@!€ДЕ8!€ДГ8!€Ж@ЗNИ\"‡" [form 4 byte-compile-subr-wrong-args 3 byte-compile-form 2 byte-compile-out byte-opcode 0] 3] byte-compile-zero-or-one-arg #[(form) "G‰ВU«€ГДЕ\"!ЄЋ	ЖU«…Г!Є„ЗИ\")‡" [form len 1 byte-compile-one-arg append (nil) 2 byte-compile-subr-wrong-args "0-1"] 5] byte-compile-one-or-two-args #[(form) "G‰ВU«€ГДЕ\"!ЄЋ	ЖU«…Г!Є„ЗИ\")‡" [form len 2 byte-compile-two-args append (nil) 3 byte-compile-subr-wrong-args "1-2"] 5] byte-compile-two-or-three-args #[(form) "G‰ВU«€ГДЕ\"!ЄЋ	ЖU«…Г!Є„ЗИ\")‡" [form len 3 byte-compile-three-args append (nil) 4 byte-compile-subr-wrong-args "2-3"] 5] byte-compile-noop #[(form) "АБ!‡" [byte-compile-constant nil] 2] byte-compile-discard #[nil "АБВ\"‡" [byte-compile-out byte-discard 0] 3] byte-compile-associative #[(form) "A«њ@БNГДA‰\"€A‰­‡Е\nЖ\"€Єs)‡ЗИ!!‡" [form byte-opcode opcode mapcar byte-compile-form byte-compile-out 0 byte-compile-constant eval] 4] put list byte-compile byte-compile-list byte-opcode byte-list byte-opcode-invert 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 beginning-of-line byte-compile-beginning-of-line #[(form) "AG‰ВU«…ГД!Є¬	ЕW«ЏЖЗA\"€ИЙ	SHВ\"Є	КW«ђ«ЊЖЗA\"€ИМ	\"ЄѓН!)‡" [form count 0 byte-compile-constant nil 5 mapcar byte-compile-form byte-compile-out [byte-list1 byte-list2 byte-list3 byte-list4] 256 byte-compile-generate-emacs19-bytecodes byte-listN byte-compile-normal-call] 4] #[(form) "AGВ	W«•	ГW«ђДЕA\"€ЖЗ	ИZHЙ\"Єў	ЙU«…ЕК!Є	ЛW«ђ«ЊДЕA\"€ЖН	\"ЄѓО!)‡" [form count 1 5 mapcar byte-compile-form byte-compile-out [byte-concat2 byte-concat3 byte-concat4] 2 0 "" 256 byte-compile-generate-emacs19-bytecodes byte-concatN byte-compile-normal-call] 4] #[(form) "A‰¬„БВ!‡Г@!€A«’A‰­ђГ@!€ДЕВ\"€ЄnДЖВ\"‡" [form byte-compile-constant 0 byte-compile-form byte-compile-out byte-diff byte-negate] 3] #[(form) "G‰ВX«†ГД\"ЄљЕA‰@!€A‰­ЊЕ@!€ЖЗИ\"€Єn)‡" [form len 2 byte-compile-subr-wrong-args "2 or more" byte-compile-form byte-compile-out byte-quo 0] 4] #[(form) "G‰ВU«…ГД!Є¦	ЕU«‡ЖA@!ЄљЖA‰@!€A‰­ЊЖ@!€ЗИЙ\"€Єn)‡" [form len 1 byte-compile-constant nil 2 byte-compile-form byte-compile-out byte-nconc 0] 4] #[(form) "А	8В‰ўЕ=«№A@‰ўЖ=«Ї	A@ЈўЗ=¬¦AA‰@;«ѓA@ўИ=«ѓA@:«‹@@Й=¬„КЛ!€*М	!‡" [2 form nil body fn quote lambda make-byte-code 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] byte-compile-funarg #[(form) "А	A@‰ўГ=«•\nA@ўД=«Ќ	@Е\nAB	AABBЄЃ	)!‡" [byte-compile-normal-call form fn quote lambda function] 5] #[(form) "А	A@9«…	A@Є‘\n«‰ГД	A@!!Є…Д	A@!!‡" [byte-compile-constant form byte-compile-emacs18-compatibility byte-compile-byte-code-unmake byte-compile-lambda] 4] #[(form) "G‰ВU«ЊГA@!€ДЕЖ\"ЄЋ	ЗU«…И!Є„ЙК\")‡" [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] #[(form) "A¬„БВ!‡«ќGДX«—ЕЖA\"€AA«‡ЗИAG\"‡ЗЙК\"‡ЛЕМAA\">«„Н!‡A‰­“Ж@!€ЗЙК\"€A«lО €Єg‡" [form byte-compile-constant nil byte-compile-generate-emacs19-bytecodes 256 mapcar byte-compile-form byte-compile-out byte-insertN byte-insert 0 t consp byte-compile-normal-call byte-compile-discard] 4] #[(form) "A@:«€A@@Б=Є‹A@9«‹A@В>¬„Г!‡ДЕЖA@!®ЃЗ‰Ё«„SЄЉИЙ\"€КБDDDЛ\"€МН!‡" [form quote (nil t) byte-compile-normal-call byte-compile-form forward-line eval 1 byte-compile-warn "Non-numeric arg to beginning-of-line: %s" 1- t byte-compile-constant nil] 5] set byte-compile-set byte-set setq byte-compile-setq set-default byte-compile-set-default setq-default byte-compile-setq-default quote byte-compile-quote quote-form byte-compile-quote-form] 4)
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПNР>¬…СТО\"€УОПФ#€ОХM€ЦПNР>¬…СТЦ\"€УЦПФ#€ЦЧM€УШЩЪ#€УЫЩЪ#€УЬЩЭ#€УЮЩЯ#€УаЩб#€УвЩг#€УдЩе#€УжЩз#€УиЩй#€УкЩл#€УмЩн#€УоЩн#€УпЩн#€УрЩн#€УсЩт#€УуЩф#€ЪхM€ЭцM€ЯчM€шщM€бъM€гыM€еьM€зэM€йюM€ляM€тЃ@ M€фЃA M€УЃB ЩЃC #€УЃD ЩЃC #€УЃE ЩЃC #€УЃB ЃF ЃG #€УЃD ЃF ЃH #€УЃE ЃF ЃI #€ЃC ЃJ M€ЃK ЃL M€УЃM ЩЃN #€УЃO ЩЃP #€УЃQ ЩЃR #€УЃS ЩЃT #€УЃU ЩЃV #€УЃW ЩЃX #€УЃY ЩЃZ #‡" [byte-compile-setq #[(form) "A‰«Ј	«ҐВ	A@!€¬Љ	AA¬…ДЕЖ\"€ЗИ	@\"€	AA‰Є^ВЙ\"€Й‰)‡" [form args byte-compile-form for-effect byte-compile-out byte-dup 0 byte-compile-variable-ref byte-varset nil] 4] byte-compile-set #[(form) "A@ўБ=«ЋGВU«€A@GГU¬„Д!‡ЕЖA@A@Г8E!‡" [form quote 3 2 byte-compile-two-args byte-compile-setq setq] 5] byte-compile-setq-default #[(form) "A‰­™ВГД	@D	A@E	AA??\"€	AA‰¬hЕ)‡" [form rest byte-compile-form set-default quote nil] 5] byte-compile-set-default #[(form) "AAAA«™	…ћ ВГ	@	A@E	A??\"€	AA‰ЄhA@Е>«о«ЊўЗ=«еGИU«ЯA@Й\n‰«‹9«†М!¬Ић‰\n«Њ\nО\nA\"Ў¬І>¬«9«†С>«“ТУ9«ѓФЄЃХЦ!#€ЄЌТЧ\"€B*Ш!))‡" [form rest byte-compile-form set-default var free-vars byte-compile-warnings quote 2 nil cell sym globally-boundp byte-compile-bound-variables logior byte-compile-assigned-bit byte-compile-free-assignments (t nil) byte-compile-warn "Attempt to set-globally %s %s" "constant" "nonvariable" prin1-to-string "assignment to free variable %s" byte-compile-normal-call] 6] byte-compile-quote #[(form) "А	A@!‡" [byte-compile-constant form] 2] byte-compile-quote-form #[(form) "АБ\nA@!!‡" [byte-compile-constant byte-compile-top-level form] 3] byte-compile-body #[(body &optional for-effect) "A«ЊБ@В\"€A‰ЄqБ@\"‡" [body byte-compile-form t for-effect] 4] byte-compile-body-do-effect byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand #[(body) "А	\n\"€Г‰‡" [byte-compile-body body for-effect nil] 3] byte-compile-form-do-effect #[(form) "А	\n\"€Г‰‡" [byte-compile-form form for-effect nil] 3] 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 let byte-compile-let let* byte-compile-let* #[(form) "AВ	\"€Д‰)‡" [form body byte-compile-body for-effect nil] 3] #[(form) "A@Б\n\"€Г)ДAAЕ\"‡" [form byte-compile-form for-effect nil byte-compile-body t] 3] #[(form) "А	A@В\"€Г	8А	\"€Е)Ж	AAAВ\"‡" [byte-compile-form form t 2 for-effect nil byte-compile-body] 3] byte-compile-goto-if (macro . #[(cond discard tag) "АБ\nБДЕFБЖЗFFE‡" [byte-compile-goto if cond discard 'byte-goto-if-not-nil 'byte-goto-if-not-nil-else-pop 'byte-goto-if-nil 'byte-goto-if-nil-else-pop tag] 8]) #[(form) "А	A@!€В	›¬ћГ Е«ѓЗЄЃИ\"€АЙ	8\"€К!€)Є­Г Г ЕЗ\"€АЙ	8\"€ЕМ\"€К!€Н	AAA\"€К!€*О‰‡" [byte-compile-form form 3 byte-compile-make-tag donetag byte-compile-goto for-effect byte-goto-if-nil byte-goto-if-nil-else-pop 2 byte-compile-out-tag elsetag byte-goto byte-compile-body nil] 3] #[(clauses) "А Б‰A‰«Ф@‰@Ж=¬Ќ\n@ўЗ=«Џ\n@Јў«‰Ж\nBБ‰Є\\A«WИ\n@!€\nA¬ЋЙ\n«ѓЛЄЃМ\"€Є@А ЙН\"€О\nA\n\"€ЙП\"€Р!€Є&\nA«љ\n@Ж=¬”И\n@!€Й\n«ѓНЄЃС\"€\nA\nО\n\"€Б\n)Р!+‡" [byte-compile-make-tag nil clause nexttag donetag clauses t quote byte-compile-form byte-compile-goto for-effect byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-goto-if-nil byte-compile-body byte-goto byte-compile-out-tag byte-goto-if-nil-else-pop body] 4] #[(form) "А 	A\n¬ЏДЕ	\"€З‰)Є«\nA«—Е\n@!€И«ѓЙЄЃК\"€\nA‰Єf\n@Е	\"€З)Л!*‡" [byte-compile-make-tag form args failtag t byte-compile-form for-effect nil byte-compile-goto byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-out-tag] 4] #[(form) "А 	A\n¬ЏДЕ	\"€Д‰)Є«\nA«—Е\n@!€З«ѓИЄЃЙ\"€\nA‰Єf\n@Е	\"€Д)К!*‡" [byte-compile-make-tag form args wintag nil byte-compile-form for-effect byte-compile-goto byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-compile-out-tag] 4] #[(form) "А А Г	!€ДA@!€Ж«ѓИЄЃЙ\n\"€КAAЛ\"€ЖМ	\"€Г\n!€Н‰*‡" [byte-compile-make-tag looptag endtag byte-compile-out-tag byte-compile-form form byte-compile-goto for-effect byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-body t byte-goto nil] 3] #[(form) "АБ\nA\"€ГД\nAAG\"‡" [mapcar byte-compile-form form byte-compile-out byte-call] 3] #[(form) "A@‰«	@:«‰В	@A@!€Є„ГД!€	A‰¬h)ЕBЗA@!И8ўЙ=­‚\n	«МН	@:«…	@@Є‚	@#€	A‰¬hAAП\"€Д)С>«ѓУ €ФХA@G\"+‡" [form varlist byte-compile-form byte-compile-push-constant nil new-scope byte-compile-bound-variables reverse 2 byte-code byte-compile-arglist-bit extra-flags byte-compile-variable-ref byte-varbind body byte-compile-body for-effect unused-vars byte-compile-warnings byte-compile-warn-about-unused-variables byte-compile-out byte-unbind] 5] #[(form) "А	BВA@!«¤@:¬†ЕЖ!€ЄЌЗ@A@!€‰@@ €ИЙ@\"€A‰¬\\AA\nЛ\n\"€Ж)Н>«ѓП €РСA@G\"*‡" [new-scope byte-compile-bound-variables copy-sequence form varlist byte-compile-push-constant nil byte-compile-form byte-compile-variable-ref byte-varbind body byte-compile-body for-effect unused-vars byte-compile-warnings byte-compile-warn-about-unused-variables byte-compile-out byte-unbind] 4] /= byte-compile-negated atom nlistp byte-compile-negated-op = consp listp #[(form) "А	!В	\"€Д‰)‡" [byte-compile-negation-optimizer form byte-compile-form for-effect nil] 3] byte-compile-negation-optimizer #[(form) "А	@ВN®…ГД	@\"	ABD‡" [not form byte-compile-negated-op error "Compiler error: `%s' has no `byte-compile-negated-op' property"] 4] catch byte-compile-catch unwind-protect byte-compile-unwind-protect condition-case byte-compile-condition-case save-excursion byte-compile-save-excursion 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] 4)
(byte-code "АБM€ВГM€ДЕM€ЖЗM€ИЙM€КЛM€МНM€ОПРС#€ОТРУ#€ОФРХ#€ОЦРХ#€ОЧРШ#€ОЩРЪ#€СЫM€УЬM€ХЭM€ШЮM€ЪЯM€абM€вгM€деM€жзM€ийM‡" [byte-compile-catch #[(form) "А	A@!€ВГД	AAB\"!€ЖЗИ\"‡" [byte-compile-form form byte-compile-push-constant byte-compile-top-level progn for-effect byte-compile-out byte-catch 0] 4] byte-compile-unwind-protect #[(form) "АБ\nAAГ\"!€ДЕЖ\"€\nA@З\n\"€Й)ДКЛ\"‡" [byte-compile-push-constant byte-compile-top-level-body form t byte-compile-out byte-unwind-protect 0 byte-compile-form for-effect nil byte-unbind 1] 4] byte-compile-condition-case #[(form) "A@‰«‰	ВBГBBЄѓГB	9¬‡ЕЖЗ	!\"€И	!€ИЙК8\"!€AAAМ‰«Й@‰@‰9¬ЉЕСЗ!\"€ЄљТ=¬”УN;«‡ФN:¬†ЕХ\"€ЦA\"BB*A‰¬7Иџ!€*Ч>«ѓЩ €ЪЫВ\"*‡" [form var 0 new-scope byte-compile-bound-variables byte-compile-warn "%s is not a variable-name or nil (in condition-case)" prin1-to-string byte-compile-push-constant byte-compile-top-level 2 for-effect nil compiled-clauses clauses clause condition "%s is not a symbol naming a condition (in condition-case)" t error-message error-conditions "%s is not a known condition name (in condition-case)" byte-compile-top-level-body unused-vars byte-compile-warnings byte-compile-warn-about-unused-variables byte-compile-out byte-condition-case] 5] byte-compile-save-excursion #[(form) "АБВ\"€AЕ\"€З)АИЙ\"‡" [byte-compile-out byte-save-excursion 0 form body byte-compile-body for-effect nil byte-unbind 1] 3] byte-compile-save-restriction #[(form) "АБВ\"€AЕ\"€З)АИЙ\"‡" [byte-compile-out byte-save-restriction 0 form body byte-compile-body for-effect nil byte-unbind 1] 3] byte-compile-save-window-excursion #[(form) "АБ\nA\"!€ДЕЖ\"‡" [byte-compile-push-constant byte-compile-top-level-body form for-effect byte-compile-out byte-save-window-excursion 0] 4] byte-compile-with-output-to-temp-buffer #[(form) "А	A@!€ВГД\"€Е	AA!€ВЖД\"‡" [byte-compile-form form byte-compile-out byte-temp-output-buffer-setup 0 byte-compile-body byte-temp-output-buffer-show] 3] 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 #[(form) "АБВA@DДЕЖAAB!!E!€З €ИA@!‡" [byte-compile-two-args fset quote form byte-compile-byte-code-maker byte-compile-lambda lambda byte-compile-discard byte-compile-constant] 7] #[(form) "АБ\nA@DГДЕ\nAAB!!‰ўЗ=«‡ИЙEЄ€БКЛ!BD)EБ\nA@DDН\"€П‰)‡" [fset quote form byte-compile-byte-code-maker byte-compile-lambda lambda code make-byte-code cons 'macro macro eval body byte-compile-body for-effect nil] 7] #[(form) "A@Б8В8GЖV«†ЗИ@\"€Й\n>«‰BBAA­—@Н=«†ОEЄ‹ПРСDDОEE­‡ТСDУFСDEХ\"€Ч‰,‡" [form 2 3 string value var 4 byte-compile-warn "%s used with too many args" free-vars byte-compile-warnings byte-compile-global-bit byte-compile-bound-variables defconst setq or boundp quote put 'variable-documentation body byte-compile-body for-effect nil] 5] #[(form) "А	8:«€А	8@В=Є‹А	89«‡А	8Г>«¶Д	8:«€Д	8@В=Є‹Д	89«‡Д	8Г>«›ЕД	8!Ж>«’ЗЕА	8!!¬‰ИЙЕ	A@!\"€К	!‡" [1 form quote (nil t) 5 eval (t macro) 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] 4] #[(form) "АБВГ‰З!+\"€ЙКЛМНDDE!‡" [byte-compile-warn "`lambda' used in function position is invalid: probably you mean #'%s" t 4 print-length print-level print-escape-newlines prin1-to-string form byte-compile-normal-call signal 'error quote "`lambda' used in function position"] 6] byte-compile-make-tag #[nil "А	T‰D‡" [TAG byte-compile-tag-number] 3] byte-compile-out-tag #[(tag) "	BAA«—\n«ЋAA\nU¬‡ГДA@\"€AA‰‡A\nЎ‡" [tag byte-compile-output byte-compile-depth error "Compiler bug: depth conflict at tag %d"] 3] byte-compile-goto #[(opcode tag) "	B\nB	A>«„SЄЃЎ€Е=?­‚S‰‡" [opcode tag byte-compile-output byte-goto-always-pop-ops byte-compile-depth byte-goto] 3] byte-compile-out #[(opcode offset) "	B\nBГ=«†	Z‰‡Е=«„Ж‰‡JH®ѓ	S[\\‰]‰‡" [opcode offset byte-compile-output byte-call byte-compile-depth byte-return nil byte-stack+-info byte-compile-maxdepth] 4] byte-compile-annotate-call-tree #[(form) "А\n@ћ‰«’Е	8>¬”	A	A@B €Є‰\n@CАEBћ‰«”\n@Ж	8>®–	AA\n@Ж	8B ЄЉА\n@CEB‰)‡" [nil entry form byte-compile-call-tree byte-compile-current-form 1 2] 4]] 4)
(fset 'display-call-tree #[(&optional filename) "АБ!€ВђВq€Г €АД\"€Ж¬‡®ђЙЄЌ;«„Є„К!ЛМ!Н±€«ЄОР=«ѓСЄњТ=«ѓУЄ”Ф=«ѓХЄЊЦ=«ѓЧЄ„ШЩ\"\"АБ!€pЪ‰‰‰‰ѓhЯ@@\"€@A@а@8бв@@‰!¬Љ¬ѓгЄадЄЭеK‰!«ѓжЄР9«‡зи\"ЄДй!«ѓкЄ»:¬ѓлЄі@м=«–йA!¬‰нAAAћ«ѓоЄ™пЄ–нAAћ«ѓрЄ‹@с=«ѓтЄЃЙзуGGGG\\$ф±€«ўхc€`ц@«€чшщ#ЄЃъ±€ц;ь`\"€)«љэc€`цчшщ#±€ц;ь`\"€)фc€A‰„z Аю!€Ъ?«·@A@¬Ё@@‰«џЃ@ ЃA \"¬”ЃB Ѓ@ Ъ\"!¬‡?B?A‰¬I?«ќЃC ;ЃD c€`чш?џщ#c€ь`\"€).АЃE !‘‡" [message "Generating call tree..." "*Call-Tree*" erase-buffer "Generating call tree (sorting on %s)..." byte-compile-call-tree-sort "Call tree for " byte-compile-current-file filename "???" buffer-name " sorted on " prin1-to-string ":\n\n" sort byte-compile-call-tree callers #[(x y) "A@G	A@GW‡" [x y] 2] calls #[(x y) "А	8GА\n8GW‡" [2 x y] 3] calls+callers #[(x y) "A@GБ8G\\\nA@GБ\n8G\\W‡" [x 2 y] 4] name #[(x y) "@	@™‡" [x y] 2] error "`byte-compile-call-tree-sort': `%s' - unknown sort mode" nil p f b rest prin1 2 "	" fboundp " <top level>" " <not defined>" subrp " <subr>" format " ==> %s" compiled-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-prefix fill-region-as-paragraph "  calls:\n" "Generating call tree...(finding uncalled functions...)" uncalled byte-compile-fdefinition t commandp "  " "Noninteractive functions not known to be called:\n  " "Generating call tree...done."] 10 "\
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." nil])
(fset 'batch-byte-compile #[nil "¬„БВ!€Г«лЕЖ@!!«ХЗ@!Г‰	‰\n«ГЛ\n@\"«ІН\n@!¬«Ж\n@@\"‰	«џО	!‰«–П!«ђР	\"«€С	!¬‚Т\nA‰\n¬=+Є€С@!¬‚ТA‰¬У	«ѓФЄЃХ!)‡" [noninteractive error "`batch-byte-compile' is to be used only with -batch" nil command-line-args-left file-directory-p expand-file-name directory-files dest source files string-match emacs-lisp-file-regexp auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p batch-byte-compile-1 t kill-emacs 1 0] 4 "\
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\""])
(fset 'batch-byte-compile-1 #[(file) "АБВЏ‡" [err (byte-code "А	!€В‡" [byte-compile-file file t] 2) ((error (byte-code "АБ!€А\n!€АГ!€ДЕ!«€ЕЗ\"€Є”А@ИN®ѓ@!€ЙКA\"€АЛ!€З‡" [princ ">>Error occurred processing " file ": " fboundp display-error err nil error-message mapcar #[(x) "АБ!€В!‡" [princ " " prin1 x] 2] "\n"] 3)))] 3])
(fset 'batch-byte-recompile-directory #[nil "¬„БВ!€¬‚ДЕ«‹З@!€A‰¬u)ИЙ!‡" [noninteractive error "batch-byte-recompile-directory is to be used only with -batch" command-line-args-left (".") t byte-recompile-directory-ignore-errors-p byte-recompile-directory kill-emacs 0] 3 "\
Runs `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 .\""])
(byte-code "АБВ\"€АГД\"€АЕЖ\"€АЗИ\"€АЙК\"€АЛМ\"€АНО\"€АПР\"€АСК\"€АТУ\"€АФХ\"€АЦЧ\"€ШЩ!«„¬ЦЫ™¬РАЬЭ\"€АЮЯ\"€Ааб\"€Авг\"€деж\"€дзи\"€дйк\"€длм\"€дно\"€дпр\"€дст\"€дуф\"€дхц\"€дчш\"€дщъ\"€дыь\"€эю\"«ўдяЃ@ \"€АЃA ЃB \"€АЃC ЃD \"€АЃE ЃF \"€ЃG ЃH !€ШЃI !«€ЃJ ЃK M€А‡" [make-obsolete dot point dot-max point-max dot-min point-min dot-marker point-marker read-input read-string send-string process-send-string send-region process-send-region show-buffer set-window-buffer read-no-blanks-input insert-string insert elisp-compile-defun compile-defun byte-compile-report-call-tree display-call-tree boundp epoch::version emacs-version "19" buffer-flush-undo buffer-disable-undo baud-rate "use the baud-rate variable instead" ring-mod mod full-copy-sparse-keymap copy-keymap make-obsolete-variable auto-fill-hook auto-fill-function blink-paren-hook blink-paren-function lisp-indent-hook lisp-indent-function comment-indent-hook comment-indent-function temp-buffer-show-hook temp-buffer-show-function inhibit-local-variables "use enable-local-variables (with the reversed sense.)" suspend-hooks suspend-hook meta-flag "use the set-input-mode function instead." first-change-function first-change-hook before-change-function before-change-functions after-change-function after-change-functions after-write-file-hooks after-save-hook string-match "Lucid" unread-command-char unread-command-event update-extent set-extent-endpoints current-time-seconds current-time sleep-for-millisecs "use sleep-for with a float" provide byte-compile byte-code-meter byte-compile-report-ops #[nil "АђАq€БВ‰‰‰ЗW­ЭБHHВВ	W«ЊКЛ\"КМ\"ЄЋY«€ZHПР\"c€С!c€«€ТУ!Ф±€Хj€У!Ц±€T‰Є,‘‡" ["*Meter*" 0 nil off op n i 256 byte-code-meter byte-nth logand 7 248 byte-constant byte-code-vector format "%-4d" symbol-name " [" int-to-string "]" 40 "\n"] 6]] 3)