;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:36:26 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/emacs-lisp/bytecomp.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.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 "\301B\302\303\304!\210\305\306!\204\307\310!\210\301\207" [current-load-list byte-compile-version "$Revision: 2.85.4.1 $" require backquote fboundp defsubst load-library "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) #@140 *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 '(if (eq system-type 'vax-vms) "\\.EL\\(;[0-9]+\\)?$" "\\.el$") '(#$ . -1062) :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\n\301\302M\210\303\304\305\"\210\303\306\305\"\210\303\307\305\"\210\303\310\305\"\210\303\311\305\"\207" [fboundp byte-compile-dest-file #[(filename) "\303!\304! \305=\203\306\307\310\"O\311P\207\307\n\"\203'\306\211\224O\312P\207\312P\207" [filename system-type emacs-lisp-file-regexp byte-compiler-base-file-name file-name-sans-versions vax-vms 0 string-match ";" "c" ".elc"] 5 "Convert an Emacs Lisp source file name to a compiled file name."] autoload byte-compile-inline-expand "byte-opt" byte-optimize-form byte-optimize-lapcode byte-compile-unfold-lambda byte-decompile-bytecode] 3) #@69 *Non-nil means print messages describing progress of byte-compiler. (custom-declare-variable 'byte-compile-verbose '(and (not noninteractive) (> baud-rate search-slow-speed)) '(#$ . -2169) :group 'bytecomp :type 'boolean) #@58 *Non-nil means generate output that can run in Emacs 18. (custom-declare-variable 'byte-compile-compatibility 'nil '(#$ . -2397) :group 'bytecomp :type 'boolean) #@210 *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. (custom-declare-variable 'byte-optimize 't '(#$ . -2566) :group 'bytecomp :type '(choice (const :tag "none" nil) (const :tag "all" t) (const :tag "source-level" source) (const :tag "byte-level" byte))) #@143 *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 '(#$ . -2984) :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 (#$ . 3238)) #@632 *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 '(#$ . -3752) :group 'bytecomp :type 'boolean) #@216 *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 '(#$ . -4498) :group 'bytecomp :type '(choice (const :tag "none" nil) (const :tag "all" t) (const :tag "source-level" source) (const :tag "byte-level" byte))) #@60 *If true, the byte-compiler reports warnings with `error'. (custom-declare-variable 'byte-compile-error-on-warn 'nil '(#$ . -4927) :group 'bytecomp :type 'boolean) (byte-code "\301B\302\301\207" [current-load-list byte-compile-warning-types (redefine callargs free-vars unresolved obsolete noruntime)] 2) #@479 *List of warnings that the byte-compiler should issue (t for all). Elements of the list may be be: free-vars references to variables not in the current lexical scope. 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. obsolete obsolete variables and functions. (custom-declare-variable 'byte-compile-warnings 't '(#$ . -5242) :group 'bytecomp :type '(choice (const :tag "All" t) (set :menu-tag "Some" (const free-vars) (const unresolved) (const callargs) (const redefined) (const obsolete) (const noruntime)))) #@637 *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. (custom-declare-variable 'byte-compile-generate-call-tree 'nil '(#$ . -5977) :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. (defconst byte-compile-call-tree nil (#$ . 6800)) #@126 *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 '(#$ . -7097) :group 'bytecomp :type '(choice (const name) (const callers) (const calls) (const calls+callers) (const nil))) #@68 List of all constants encountered during compilation of this form. (defvar byte-compile-constants nil (#$ . 7414)) #@68 List of all variables encountered during compilation of this form. (defvar byte-compile-variables nil (#$ . 7535)) #@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 (#$ . 7656)) (byte-code "\301B\302B\303B\301\207" [current-load-list byte-compile-free-references byte-compile-free-assignments byte-compiler-error-flag] 2) #@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) (eval (cons 'progn body)) (cons 'progn body))) (#$ . 7964)) #@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 (#$ . 8442)) #@224 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-function-environment nil (#$ . 8708)) #@169 Alist of undefined functions to which calls have been compiled. Used for warnings when the function is not known to be defined or is later defined with incorrect args. (defvar byte-compile-unresolved-functions nil (#$ . 8997)) (byte-code "\301B\302\301!\204\f\303\301\207" [current-load-list byte-compile-tag-number boundp 0] 2) #@87 Alist describing contents to put in byte code string. Each element is (INDEX . VALUE) (defvar byte-compile-output nil (#$ . 9336)) #@35 Current depth of execution stack. (defvar byte-compile-depth 0 (#$ . 9473)) #@35 Maximum depth of execution stack. (defvar byte-compile-maxdepth 0 (#$ . 9555)) #@66 An array containing byte-code names indexed by byte-code values. (defconst byte-code-vector nil (#$ . 9640)) #@56 An array with the stack adjustment for each byte-code. (defconst byte-stack+-info nil (#$ . 9755)) (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\n I\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 (#$ . 10479)) #@42 Byte code opcode for setting a variable. (defconst byte-varset 16 (#$ . 10564)) #@42 Byte code opcode for binding a variable. (defconst byte-varbind 24 (#$ . 10650)) #@42 Byte code opcode for calling a function. (defconst byte-call 32 (#$ . 10737)) #@50 Byte code opcode for unbinding special bindings. (defconst byte-unbind 40 (#$ . 10821)) (byte-code "\301B\306\302B\307\303B\310\304B\311\305B\312\313B\314 \315B\316 \317B\320\321B\322\323B\324\325B\326\327B\330\331B\332\333B\334\335B\336\337B\340\341B\342!\343B\344#\345B\346%\347B\350'\351B\352)\353B\354+\355B\356-\357B\360/\361B\3621\363B\3643\365B\3665\367B\3707\371B\3729\373B\374;\375B\376=\377B\201Y?\201@B\201Z@\201AB\201[A\201BB\201\\B\201CB\201]C\201DB\201^D\201EB\201_E\201FB\201`F\201GB\201aG\201HB\201bH\201IB\201cI\201JB\201dJ\201KB\201eK\201LB\201fL\201MB\201gM\201NB\201hN\201OB\201iO\201PB\201jP\201QB\201kQ\201RB\201lR\201SB\201mS\201TB\201nT\201UB\201oU\201VB\201pV\201WB\201qW\201XB\201rX\301\207" [current-load-list byte-nth byte-symbolp byte-consp byte-stringp byte-listp 56 57 58 59 60 byte-eq 61 byte-memq 62 byte-not 63 byte-car 64 byte-cdr 65 byte-cons 66 byte-list1 67 byte-list2 68 byte-list3 69 byte-list4 70 byte-length 71 byte-aref 72 byte-aset 73 byte-symbol-value 74 byte-symbol-function 75 byte-set 76 byte-fset 77 byte-get 78 byte-substring 79 byte-concat2 80 byte-concat3 81 byte-concat4 82 byte-sub1 83 byte-add1 84 byte-eqlsign 85 byte-gtr 86 byte-lss byte-leq byte-geq byte-diff byte-negate byte-plus byte-max byte-min byte-mult byte-point 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 87 88 89 90 91 92 93 94 95 96 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113] 2) #@66 Byte code opcode To make a binding to record the current buffer. (defconst byte-save-current-buffer 114 (#$ . 12683)) (byte-code "\301B\306\302B\307\303B\310\304B\311\305B\312\313B\314 \315B\316 \317B\320\321B\322\323B\324\325B\326\327B\330\331B\332\301\207" [current-load-list byte-set-mark-OBSOLETE byte-interactive-p byte-forward-char byte-forward-word byte-skip-chars-forward 115 116 117 118 119 byte-skip-chars-backward 120 byte-forward-line 121 byte-char-syntax 122 byte-buffer-substring 123 byte-delete-region 124 byte-narrow-to-region 125 byte-widen 126 byte-end-of-line 127] 2) #@88 Byte code opcode for reference to a constant with vector index >= byte-constant-limit. (defconst byte-constant2 129 (#$ . 13321)) #@42 Byte code opcode for unconditional jump. (defconst byte-goto 130 (#$ . 13457)) #@53 Byte code opcode to pop value and jump if it's nil. (defconst byte-goto-if-nil 131 (#$ . 13542)) #@57 Byte code opcode to pop value and jump if it's not nil. (defconst byte-goto-if-not-nil 132 (#$ . 13645)) #@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 (#$ . 13756)) #@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 (#$ . 13912)) #@65 Byte code opcode to pop a value and return it from `byte-code'. (defconst byte-return 135 (#$ . 14075)) #@51 Byte code opcode to discard one value from stack. (defconst byte-discard 136 (#$ . 14185)) #@53 Byte code opcode to duplicate the top of the stack. (defconst byte-dup 137 (#$ . 14282)) #@74 Byte code opcode to make a binding to record the buffer, point and mark. (defconst byte-save-excursion 138 (#$ . 14377)) #@75 Byte code opcode to make a binding to record entire window configuration. (defconst byte-save-window-excursion 139 (#$ . 14504)) #@88 Byte code opcode to make a binding to record the current buffer clipping restrictions. (defconst byte-save-restriction 140 (#$ . 14639)) #@87 Byte code opcode for catch. Takes, on stack, the tag and an expression for the body. (defconst byte-catch 141 (#$ . 14782)) #@93 Byte code opcode for unwind-protect. Takes, on stack, an expression for the unwind-action. (defconst byte-unwind-protect 142 (#$ . 14913)) (byte-code "\301B\306\302B\307\303B\310\304B\311\305B\312\313B\314 \315B\316 \317B\320\321B\322\323B\324\325B\326\327B\330\331B\332\333B\334\335B\336\337B\340\341B\342!\343B\344#\345B\346%\347B\350'\351B\352)\353B\354+\355B\356-\357B\360/\361B\3621\363B\3643\365B\3665\367B\3707\371B\3729\301\207" [current-load-list byte-condition-case byte-temp-output-buffer-setup byte-temp-output-buffer-show byte-unbind-all byte-set-marker 143 144 145 146 147 byte-match-beginning 148 byte-match-end 149 byte-upcase 150 byte-downcase 151 byte-string= 152 byte-string< 153 byte-equal 154 byte-nthcdr 155 byte-elt 156 byte-member 157 byte-assq 158 byte-nreverse 159 byte-setcar 160 byte-setcdr 161 byte-car-safe 162 byte-cdr-safe 163 byte-nconc 164 byte-quo 165 byte-rem 166 byte-numberp 167 byte-integerp 168 byte-listN 175 byte-concatN 176 byte-insertN 177] 2) #@47 Byte code opcode for reference to a constant. (defconst byte-constant 192 (#$ . 16004)) #@63 Exclusive maximum index usable in the `byte-constant' opcode. (defconst byte-constant-limit 64 (#$ . 16098)) #@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) (#$ . 16213)) (byte-code "\301B\304\305\306\301\207" [current-load-list byte-goto-always-pop-ops byte-code-vector byte-stack+-info (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\211\211\211\203@@@A9\2041\310\311\"\210\202\377\312=\203D \240\210 B\202\377>\203f\313\\\211 AB\307J\fBBB\211 B\202\377 :\203\241 A\314=\203\241 W\203\212T\f \\\fB\202\376\313\\\315 \316\"\317 \320\"\fBBB\202\376JX\203\272\321\\ J\fBB\202\376 \322W\203\317TJ \\\fB\202\376 \323W\203\347\321\\ J\322\\\fBB\202\376\313\\\315 \316\"\317 \320\"J\324\\\fBBBA\211\204\307 \2035 @\211@:\203.\f@A@\fA\317\320\"\240\210\f\315\316\"\240\210 A\211\204)\f\237\260.\207" [tmp rel rest patchlist bytes off 0 nil error "Non-symbolic opcode `%s'" TAG 3 byte-constant lsh -8 logand 255 2 6 256 7 op pc lap byte-goto-ops byte-constant-limit byte-constant2 byte-listN] 9 (#$ . 19680)]) #@130 Eval FORM and mark the functions defined therein. Each function's symbol gets marked with the `byte-compile-noruntime' property. (defalias 'byte-compile-eval #[(form) " \306\f!\307 >\203\232 \203t =\204t\211A@\310@ \"\204p\311\211\203o@\2119\203P\312\313\314#\210\202f:\203f@\315=\203f\312A\313\314#\210A\211\204<*)\202\203\231\n=\204\231\211A@\2119\203\225\312\313\314#\210)\202t**\207" [load-history current-load-list hist-nil-orig hist-orig form byte-compile-warnings eval noruntime assoc nil put byte-compile-noruntime t autoload hist-nil-new hist-new xs s #1=#:--dolist-temp--97269] 7 (#$ . 20598)]) (byte-code "\301B\304\301!\204\f\305\302B\304\302!\204\305\303B\304\303!\204$\305\305\207" [current-load-list byte-compile-current-form byte-compile-dest-file byte-compile-current-file boundp nil] 2) (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])) (byte-code "\301B\303\302B\303\303\207" [current-load-list byte-compile-last-warned-form byte-compile-last-logged-file nil] 2) (defalias 'byte-compile-log-1 #[(string &optional fill) "\203A \203 \n\232\203 \2039\f =\2049\306\307\f\206\310 \2036 ;\203.\311 P\2027\312\313 !P\2027\314#\210\306\315 \"\210\202\217\212\316\317!q\210db\210 \203T \n\232\203^ \203q\f =\204q\320\f\203j\321\322\f\"\202k\310\261\210\323c\210\324 \325\261\210\203\216\326\325 \"\204\216\327\330\331\332!\210*) \f\211\207" [noninteractive byte-compile-current-file byte-compile-last-logged-file byte-compile-last-warned-form byte-compile-current-form string message "While compiling %s%s:" "toplevel forms" " in file " " in buffer " buffer-name "" " %s" get-buffer-create "*Compile-Log*" "\nWhile compiling " format "%s" ":\n" " " "\n" string-match " " 78 fill-paragraph nil fill fill-column fill-prefix] 6]) (defalias 'byte-compile-log-file #[nil "\2055 \232?\2055\n?\2055\212\303\304!q\210db\210\305;\203%\306P\202*\307\310!P\311\312 \313\261\210\211)\207" [byte-compile-current-file byte-compile-last-logged-file noninteractive get-buffer-create "*Compile-Log*" "\n\f\nCompiling " "file " "buffer " buffer-name " at " current-time-string "\n"] 5]) (defalias 'byte-compile-warn #[(format &rest args) "\303\300 #\n\203\304\305\"\207\306\307P\310\"\207" [format args byte-compile-error-on-warn apply error "%s" byte-compile-log-1 "** " t] 4]) (defalias 'byte-compile-report-error #[(error-info) "\302\303\304\305 A\203\306\202\307 @\310N\311 A!#P!\207" [byte-compiler-error-flag error-info t byte-compile-log-1 "!! " format "%s (%s)" "%s" error-message prin1-to-string] 7]) (defalias 'byte-compile-obsolete #[(form) "@\305N\211A@\306 8\307\f>\2034\310\311@ \203!\312 P\202\"\313 @;\203- @\2022\314\315 @\"$\210\n\2069\316!+\207" [form new handler when byte-compile-warnings byte-obsolete-info 2 obsolete byte-compile-warn "%s is an obsolete function%s; %s" " since " "" format "use %s instead." byte-compile-normal-call] 8]) (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:\nT A\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\204A\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\2031\311 \242\312=\203 A@\202-\313 !\203, \314H\202-\315!\202E\316@!\205E\317@K!\205E\320@K!AG\n\243\203Y\nA\247\204Y\n\307\241\210\n\203\224 \n@W\204p\nA\205\330 \nAV\205\330\321\322@ \211\323U\203\324\202\200\325 \n@W\203\213\326\202\214\327\330\n!&\202\330\316@!\203\243@\331N?\206\330@\f=\206\330@ \236AG\211\203\316A>\206\327AB\241\202\327@D B\211*+\207" [form def sig ncall byte-compile-current-form byte-compile-unresolved-functions byte-compile-fdefinition nil t byte-compile-arglist-signature lambda byte-code-function-p 0 (&rest def) fboundp subrp subr-arity byte-compile-warn "%s called with %d argument%s, but %s %s" 1 "" "s" "requires" "accepts only" byte-compile-arglist-signature-string byte-compile-noruntime n cons] 9]) (defalias 'byte-compile-arglist-warn #[(form macrop) "\306A@ \"\211\203]\307\n\242\310=\203\nA@\202&\311\n!\203%\n\312H\202&\313!\307\3148!\315\f \"\206Y\316\317@\320=\203B\321\202C\322A@\323\f!\f\324\232\203S\325\202T\326\323 !&*\202\315A@ \236\327\211\211\211 !\"#\211$\205\314\307\3148!\"\330\331$A!\332\"\211#@!#\237@ !\"@W\204\247\"A\203\305 \"AV\203\305\316\333A@\323\"!\"\334\232\203\273\335\202\274\336\323! B!%\210\337$ \"\211-)\207" [form macrop old sig2 sig1 byte-compile-unresolved-functions byte-compile-fdefinition byte-compile-arglist-signature lambda byte-code-function-p 0 (&rest def) 2 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" 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]) (defalias 'byte-compile-print-syms #[(str1 strn syms) "A\203K \211G\306\203E\307\211A@! \fG\\\310\\\211 SW\2033\n\311\f\205.\312R\202\f\n\313\f\205;\312R\fG\314\\\202\f\315\316\n\"+\207\205U\315@\"\207" [syms strn str L s fill-column nil symbol-name 2 " " "," "\n " 4 byte-compile-warn "%s" str1] 5]) (defalias 'byte-compile-warn-about-unresolved-functions #[nil "\301>\203D\306\307\211\f\307\211\2036@\211@\310 !\203) \nB\202- BA\211\204*\311\312\313\n#\210\311\314\315 #\210+\307\207" [byte-compile-warnings unresolved noruntime byte-compile-current-form byte-compile-unresolved-functions f "the end of the data" 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:" #1=#:--dolist-temp--97270] 4]) (defalias 'byte-compile-const-symbol-p #[(symbol) "\301>\206 \302!\207" [symbol (nil t) keywordp] 2]) (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 (#$ . 27943)])) (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-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 (if (eq byte-compile-warnings t) byte-compile-warning-types byte-compile-warnings)))] 3])) (byte-code "\301B\302\301!\204\f\303\303\207" [current-load-list byte-compile-warnings-point-max boundp nil] 2) (defalias 'displaying-byte-compile-warnings '(macro . #[(&rest body) "\301\302\303\304\305\306\307\310B\311F\312E\257\207" [body let ((byte-compile-warnings-point-max byte-compile-warnings-point-max)) (byte-compile-log-file) (or byte-compile-warnings-point-max (save-excursion (set-buffer (get-buffer-create "*Compile-Log*")) (setq byte-compile-warnings-point-max (point-max)))) unwind-protect condition-case error-info progn (error (byte-compile-report-error error-info)) (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) (beginning-of-line) (forward-line -1) (recenter 0)))))] 9])) #@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 (#$ . 29750) "DByte force recompile (directory): "]) #@609 Recompile every `.el' file in DIRECTORY that needs recompilation. This is if a `.elc' file exists but is older than the `.el' file. Files in subdirectories of DIRECTORY are processed also. 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. A nonzero prefix argument also means ask about each subdirectory. If the third argument FORCE is non-nil, recompile every `.el' file that already has a `.elc' file. (defalias 'byte-recompile-directory #[(directory &optional arg force) "\203\306! \204\307 \210\310 \210\311\n!C\312\211\313\314 \210\2044\212\315\316!q\210d)\317\216\320\321\322\217\210*\323\324 \211\325U\203I\326\202J\327\f\325V\203W\330\331\f\"\202X\326$,\207" [arg noninteractive directory last-dir dir-count file-count prefix-numeric-value save-some-buffers force-mode-line-update expand-file-name 0 nil byte-compile-log-file get-buffer-create "*Compile-Log*" ((byte-code "\212\301q\210dU\204\"\302\303 \302\304p!!\210b\210\305 \210\306y\210\307\310!\210!\210)\302\207" [byte-compile-warnings-point-max "*Compile-Log*" select-window selected-window display-buffer beginning-of-line -1 recenter 0] 5)) error-info (byte-code "\203\307@\306\307 \"\210\310 !\311\211\211\203\277\312\f@ \"\f@\313\235\204L\314 !\203L\315 !\204L \203D \316=\204D\317\320 \321Q!\203\270 C\244\202\270\322 \"\203\270\323 !\204\270\324 !\211\203\270\325\n!\203t\204\207\326 \n\"\202\204 \203\270 \316=\204\207\317\327 \321Q!\203\270\203\226\204\226\306\330 \"\210\331 !\210\204\244\306\307 \"\210T =\204\270  T \fA\211\204+A\211\204\311\207" [directories directory dest source files arg message "Checking %s..." directory-files nil expand-file-name ("." ".." "RCS" "CVS") file-directory-p file-symlink-p 0 y-or-n-p "Check " "? " string-match auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p "Compile " "Compiling %s..." byte-compile-file emacs-lisp-file-regexp force noninteractive byte-compile-verbose file-count last-dir dir-count] 5) ((error (byte-compile-report-error error-info))) message "Done (Total of %d file%s compiled%s)" 1 "" "s" format " in %d directories" directories byte-compile-warnings-point-max] 7 (#$ . 30051) "DByte recompile directory: \nP"]) #@273 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. The value is t if there were no errors, nil if errors. (defalias 'byte-compile-file #[(filename &optional load) "\306! \204,\307\306!!\211\203+\310\n!\203+\311\312\313\314\n!\"!\203+\212\nq\210\315 \210)) \2035\316\317\"\210\320\321\320\211\211\21101234\304!\2111\212\322\323!\2110q\210\324 \210\3205\325\321!\210\326!\2106\327=\204v\3306!\331=\203z\325\320!\210\332\320789\333 \2109+\334!:)\320;\3350\";?\205, \203\250\316\336\"\210\3370!\210\212 q\210db\210\340c\210\321<\3411!\203\354\327=>\342=\204\322>\343=\203\325\321?\3441!\203\341\3451!\210\346\347d1#\210)\202\350\351\352\3441!\203\372\353\202\373\3541E\"\210)\337p!\210)@\203!@\321=\204\311\312\355\"!\203!\212\356!\210)/\203+\3571!\210\321.\207" [filename noninteractive b byte-compile-verbose 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 message "Compiling %s..." nil t get-buffer-create " *Compiler Input*" erase-buffer set-buffer-multibyte insert-file-contents no-conversion coding-system-type 5 emacs-lisp-mode normal-mode file-name-directory byte-compile-from-buffer "Compiling %s...done" kill-buffer "\n" file-writable-p ms-dos windows-nt file-exists-p delete-file write-region 1 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-last-logged-file byte-compile-current-file buffer-file-coding-system last-coding-system-used enable-local-eval default-major-mode buffer-file-name default-directory byte-compiler-error-flag vms-stmlf-recfm coding-system-for-write system-type buffer-file-type byte-compile-generate-call-tree] 8 (#$ . 32529) (let ((file buffer-file-name) (file-name nil) (file-dir nil)) (and file (eq (cdr (assq 'major-mode (buffer-local-variables))) 'emacs-lisp-mode) (setq file-name (file-name-nondirectory file) file-dir (file-name-directory file))) (list (read-file-name (if current-prefix-arg "Byte compile and load file: " "Byte compile file: ") file-dir file-name nil) current-prefix-arg))]) #@148 Compile and evaluate the current top-level form. Print the result in the minibuffer. With argument, insert value in current buffer after the form. (defalias 'compile-defun #[(&optional arg) "\212\305 \210\306 \210\307\310\311\n\312 \210\n\204\212\313\314!q\210d)\315\216\316\317\320\217*!\f\2039\321\322!\210\323 p\"\210\324c\202?\321\325\326 !\",\207" [byte-compile-current-file byte-compile-last-warned-form byte-compile-warnings-point-max value arg end-of-defun beginning-of-defun nil nothing eval byte-compile-log-file get-buffer-create "*Compile-Log*" ((byte-code "\212\301q\210dU\204\"\302\303 \302\304p!!\210b\210\305 \210\306y\210\307\310!\210!\210)\302\207" [byte-compile-warnings-point-max "*Compile-Log*" select-window selected-window display-buffer beginning-of-line -1 recenter 0] 5)) error-info (byte-code "\300\301p!!\207" [byte-compile-sexp read] 3) ((error (byte-compile-report-error error-info))) message "Compiling from buffer... done." prin1 "\n" "%s" prin1-to-string] 4 (#$ . 34984) "P"]) (defalias 'byte-compile-from-buffer #[(inbuffer &optional filename) "\306\211\211\211\211\211\211\211\211\307\211\211\306\310!\306\211\211\211 !\"\311=\203?#\202A\"\"! $%&'(\212\312\313!q\314\311!\210\315 \210\306\316))**\317 \210*\204\202\212\312\320!q\210d*)\321\216\322\323\324\217\210. . \207" [byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants nil 0 copy-alist t get-buffer-create " *Compiler Output*" set-buffer-multibyte erase-buffer overwrite-mode-binary byte-compile-log-file "*Compile-Log*" ((byte-code "\212\301q\210dU\204\"\302\303 \302\304p!!\210b\210\305 \210\306y\210\307\310!\210!\210)\302\207" [byte-compile-warnings-point-max "*Compile-Log*" select-window selected-window display-buffer beginning-of-line -1 recenter 0] 5)) error-info (byte-code "\203\n\304 \n#\210\212 q\210\305b\210\306\307w\210\310\311!\203!\305y\210\202m\204.\312\313 !!\210\202\314 \210\315 \210\307)\203A\316 \n#\210\307\207" [filename inbuffer outbuffer byte-compile-unresolved-functions byte-compile-insert-header 1 " \n\f" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions byte-compile-fix-header] 4) ((error (byte-compile-report-error error-info))) edebug-all-forms edebug-all-defs print-level print-length case-fold-search float-output-format 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-warning-types byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment overwrite-mode byte-compile-warnings-point-max] 13]) (defalias 'byte-compile-fix-header #[(filename inbuffer outbuffer) "\212q\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!\210d Zdb\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 multibyte non-ASCII characters\n" ";;; and therefore cannot be loaded into Emacs 19.\n" "19\\(\\.[0-9]+\\)" replace-match "20" delete-char] 3]) (defalias 'byte-compile-insert-header #[(filename inbuffer outbuffer) "q\210 \n q\210\306b\210\3079\203\310\202\311\312\261\210\313\314\315!\203( \206.\316 \317\320 Q\321\322 \323:\324\261\210\325;\324\261\210\326\327\330<\"\210\331\332<\"\333=\334=\203W\335\202l=\336=\203b\337\202l=\203k\340\202l\3419\203u\342\202v\343\261\210 \203\200\344c\2109\204\277\345\211>?\f\203\230\346?\347>\202\236\350?\351>\324?\352\353\354\355\356>\"\357\360\361:!!\306\362O\355\363>\"\364\261\n*\202\323\f\203\307\365\366!\210\n\203\317\365\367!\210\370\324\261*\207" [inbuffer byte-compile-dynamic-docstrings byte-compile-dynamic dynamic dynamic-docstrings outbuffer 1 ";ELC" 18 20 "\n" ";;; Compiled by " boundp user-mail-address user-login-name "@" system-name " on " current-time-string "\n;;; from file " "\n" ";;; in Emacs version " ";;; with bytecomp version " string-match "[0-9.]+" match-string 0 "\n;;; " 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 "' 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-compile-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 print-gensym print-quoted print-level print-length print-escape-newlines (defun defmacro defvar defconst autoload custom-declare-variable) 3 byte-compile-output-docform nil ("\n(" 3 ")") (autoload custom-declare-variable) t princ "\n" prin1 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) "p\nq\210\306\307\f8\310Y\203O \203O \204O\311c\210\312\fA@8\306\"\313 !\fA@8;\203O\fA@8G\310V\203O\fA@8\310H\314=\203O [\203^c\210\315\n\"\210\f@c\210\316\211\317\306\316\306\310 !\315@\n\"\210A\211\203T\320c\210\"\247\203\303\"U\203\303\312@A@B\316\"\313 !\321\322\323 \"\n\"\210AT)\202~\fA@U\203\374 \203\344\321\322#\203\333\324\202\334\325 \"\n\"\210\202~\306!`T\315@\n\"\210b\210\326c\210db\210)\202~\315@\n\"\210\202~.\327\f8c\210)q\210)\306\207" [byte-compile-dynamic-docstrings dynamic-docstrings outbuffer position info byte-compile-compatibility nil 1 0 "\n" byte-compile-output-as-comment position-bytes 42 prin1 t (t) " " princ format "(#$ . %d) nil" "'(#$ . %d)" "(#$ . %d)" "\\\n" 2 form preface name index print-number-table print-continuous-numbering print-gensym-alist print-gensym print-quoted print-escape-newlines specindex quoted] 8 (#$ . 41090)]) (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\314\315\315\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\203A@\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\203$@:\203@@\301=\202!@9\203\302@!\204)\2045\303\3048!\2035\303!\210A@:\203eA@@\301=\203eA@A:\203eA@A@9\203e\305\306A@A@\307AABB\"\210\3108;\203n\207\311\312\"\207" [form quote byte-compile-const-symbol-p eval 5 add-to-list byte-compile-function-environment autoload 3 byte-compile-keep-pending byte-compile-normal-call] 5]) (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 >\203A@\nB\3068:\203-\307!\211AA\310\3068\311\312#\240\210\207" [form byte-compile-warnings byte-compile-bound-variables 3 byte-compile-keep-pending free-vars 2 copy-sequence byte-compile-top-level nil file] 6]) (put 'custom-declare-variable 'byte-hunk-handler 'byte-compile-file-form-custom-declare-variable) (defalias 'byte-compile-file-form-custom-declare-variable #[(form) "\303>\203 A@A@\nB \207" [byte-compile-warnings form byte-compile-bound-variables free-vars] 2]) (put 'require 'byte-hunk-handler 'byte-compile-file-form-eval-boundary) (defalias 'byte-compile-file-form-eval-boundary #[(form) "\301!\210\302\303\"\207" [form eval 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=\203A@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\2360\3101\31023\203> 4\236\204> \310\211E4B4 5\3116>\203M\312\n\"\2107\203_\313\3148\206Z\315A@#\2100\203\203\3116>\203{A@9\236\204{\316\317A@\"\2100\310\241\210\202\351 \203\252\3116>\203\351A@9\236\204\351\316\320\n\203\241\321\202\242\322A@#\210\202\351\323 !\203\351 K\242\n\203\273\324\202\274\325=\203\351\3116>\203\340\316\326\n\203\321\322\202\322\321A@\n\203\335\321\202\336\322$\210 \310B JBL\210\327\233\211:@;\203:\243\2429\203:\243\242\203:\243\243\242;\203\316\330A@\"\210)\331\324AAB!;\332;!< \203/ ;\241\210\2029 ;B JBL\210\3278;\203_<\242\333=\203_\205\272\347\310&\210\202\335=\203\313\336\202\314\337 <:\204\337\n\203\333\350\202\351\202<@\333=\203\367;<\n\203\363\352\202\353\202\n\203\377\354\202\355\346<\310\"<:?\205>\205\347\310&\210\356\357?\"\210\310. \207" [form name macrop this-kind that-kind this-one byte-compile-macro-environment byte-compile-function-environment nil 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" byte-compile-lambda byte-compile-byte-code-maker quote 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-warnings byte-compile-verbose filename byte-compile-initial-macro-environment body new-one code byte-compile-compatibility byte-compile-dynamic outbuffer] 8]) (defalias 'byte-compile-output-as-comment #[(exp quoted) "`p q\210\304c\210\n\203\305 \"\210\202\306 \"\210b\210\307\310\311\312#\203.\313\314\312\211#\210\202b\210\307\315\311\312#\203B\313\316\312\211#\210\2021b\210\307\317\311\312#\203V\313\320\312\211#\210\202Edb\210\317c\210b\210\321\322\323\324d!\324!Z\"\261\210`db\210q\210)\207" [position outbuffer quoted exp " " prin1 princ search-forward "" nil t replace-match "" "" "0" "" "_" "#@" format "%d" position-bytes] 7]) #@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) "\301 \210\204\212\302\303!q\210d)\304\216\305\306\307\217*\207" [byte-compile-warnings-point-max byte-compile-log-file get-buffer-create "*Compile-Log*" ((byte-code "\212\301q\210dU\204\"\302\303 \302\304p!!\210b\210\305 \210\306y\210\307\310!\210!\210)\302\207" [byte-compile-warnings-point-max "*Compile-Log*" select-window selected-window display-buffer beginning-of-line -1 recenter 0] 5)) error-info (byte-code "\306!\307\211\211\211 \n \f \310=\203\2029\203>\311!\205@K\202@\211\242\312=\211\n\203QA\242\313=\205~\n\203g\312\314!B\202k\314!9\203|\315\"\202~. \207" [byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings copy-alist nil t fboundp macro lambda byte-compile-lambda defalias byte-compile-warnings byte-compile-warning-types byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment form fun] 13) ((error (byte-compile-report-error error-info)))] 3 (#$ . 49341)]) #@26 Compile and return SEXP. (defalias 'byte-compile-sexp #[(sexp) "\301 \210\204\212\302\303!q\210d)\304\216\305\306\307\217*\207" [byte-compile-warnings-point-max byte-compile-log-file get-buffer-create "*Compile-Log*" ((byte-code "\212\301q\210dU\204\"\302\303 \302\304p!!\210b\210\305 \210\306y\210\307\310!\210!\210)\302\207" [byte-compile-warnings-point-max "*Compile-Log*" select-window selected-window display-buffer beginning-of-line -1 recenter 0] 5)) error-info (byte-code "\306!\307\211\211\211 \n \f \n\310=\203 \202\n\n\f \311!. \207" [byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings copy-alist nil t byte-compile-top-level byte-compile-warnings byte-compile-warning-types byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment sexp] 12) ((error (byte-compile-report-error error-info)))] 3 (#$ . 50657)]) (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\304 A@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]) (defalias 'byte-compile-lambda #[(fun) "\242\306=\204\f\307\310\"\210A@\311\n>\205\312\313\312\314\315 !\"\" \244AA\211@;\2056\f@\fA\2036\fA\316\f\236\211\203\273\f@=\203K\fAA:\203\255AA\203a\317\320\321!\"\210A@\211\242\322=\204~\242\323=\204~\242\324=\203\227A:\203\216A\211\202\200@\211\202h\242\325=\204\251\316\326A@!D)\202\273A\203\273\317\320\321!\"\210\326\327\fB\330\306#\211\242\331=\203\362 \204\362\332\333\334 CA \204\341\205\343 C\205\355A@C$\"\2024\205\372C\242\327=\203A\202\205C\244\306 D \204!@;\2031 \206-\f\205-\330CB\2023\244.\207" [fun arglist byte-compile-warnings byte-compile-bound-variables body doc lambda error "Not a lambda list: %S" free-vars delq &rest &optional copy-sequence interactive byte-compile-warn "malformed interactive spec: %s" prin1-to-string let let* 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\307 \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=\2034AA\2044A@\211\202\242\313=\203b\314>\204bA@;\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) "\203= @@\306=\203 A\202=\307\310\n\236?\205;\311\n!\211\2037 @@9\2047 @@\247\2047 A\211\204\" @@)!\210\312\313\314\"\210 \237\f\315>\203P\316 \"\310 \317=?\310\211$%& \317=\204] \320=\203n\321\202o\322 \233\204]\323 \236\204]\313 \236\211\203] \311 !>A\237\211&@@\324>\203\330&@A@&@@\325=\203\316 :\204\275 9\203\316 \211'\326>\206\271\327'!)\204\316%\203X\330 D$B\211$\202L $B\211$\202L%\203X\331&\233\204X&@@\332N\211\203X&A\203 \333>\203X&AA\203X&A@@\306=\203X&A&\310%$\237$ \334=\2034$@\242\330=\2034$@A@$AB\2028 $BC$ \320=\204O\335\310\336\337$@A\"\"?\203X&A\211&\202\214&\203n\340 (\341\342 !()F)\202$A\203|\343$\237B\202$@,\207" [for-effect byte-compile-output byte-compile-constants tmp byte-optimize output-type 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 body maycall rest symbol byte-compile-vector byte-compile-maxdepth] 6]) (defalias 'byte-compile-top-level-body #[(body &optional for-effect) "\302\303B \304#\211\242\303=\203A\207\205C\207" [body for-effect byte-compile-top-level progn t] 5]) (defalias 'byte-compile-form #[(form &optional for-effect) "\306 \"\211:\204:9\203\211\307>\206\310\n!)\203%\311!\210\202\260 \2032\f\2032\312\202\260\313\314\"\210\202\260@9\203\211@\211\315N \211\307>\206S\310\n!)\203\\\316\317 \"\210\203v\203n \320N\321N\204v!\210\202\205\322>\203\201\323!\210\324!\210*\202\260\325@!\204\230@\242\326=\203\254\327!\211=\204\254\330 \"\210\312\202\260\324!\210 \205\266\331 \207" [form byte-compile-macro-environment symbol for-effect byte-compile-delete-errors fn macroexpand (nil t) keywordp byte-compile-constant nil byte-compile-variable-ref byte-varref byte-compile byte-compile-warn "%s called as a function" byte-opcode emacs19-opcode callargs byte-compile-callargs-warn byte-compile-normal-call byte-code-function-p lambda byte-compile-unfold-lambda byte-compile-form byte-compile-discard handler byte-compile-compatibility byte-compile-warnings] 4]) (defalias 'byte-compile-normal-call #[(form) "\203\302 !\210\303 @!\210\304\305 A\"\210\306\307 AG\"\207" [byte-compile-generate-call-tree form byte-compile-annotate-call-tree byte-compile-push-constant mapc byte-compile-form byte-compile-out byte-call] 3]) (defalias 'byte-compile-variable-ref #[(base-op var) "9\203\211\306>\206\307 !)\2032\310\n\311=\203\312\202 \3139\203)\314\202*\315\316!#\210\202\265\317N\203f\320 >\203f\317N\211A\310\321 \203R\322 P\202S\323\f@;\203^\f@\202c\324\325\f@\"$\210*\326 >\203\265\n\311=\203{B\202\265\327!\204\265>\204\265\n\330=\203\243>\204\265\310\331\"\210B\202\265>\204\265\310\332\"\210B\236\211 \204\311C\211 B\333\n \")\207" [var symbol base-op byte-compile-warnings ob when (nil t) keywordp byte-compile-warn byte-varbind "Attempt to let-bind %s %s" "Variable reference to %s %s" "constant" "nonvariable" prin1-to-string byte-obsolete-variable obsolete "%s is an obsolete variable%s; %s" " since " "" format "use %s instead." free-vars boundp byte-varset "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] 8]) (defalias 'byte-compile-get-constant '(macro . #[(const) "\301\302\303D\304\305BB\306\307BBF\310\311\312\313\314D\315BBEDE\207" [const or if stringp assoc (byte-compile-constants) assq (byte-compile-constants) car setq byte-compile-constants cons list (byte-compile-constants)] 8])) (defalias 'byte-compile-constant #[(const) "\203\303\211\207\304\305 ;\203\306 \n\"\202 \n\236\206# C\nB\211@\"\207" [for-effect const byte-compile-constants nil byte-compile-out byte-constant assoc] 5]) (defalias 'byte-compile-push-constant #[(const) "\303 \203\303\211\202*\304\305 ;\203\306 \n\"\202 \n\236\206) C\nB\211@\"*\207" [for-effect const byte-compile-constants nil byte-compile-out byte-constant assoc] 5]) (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\325#\210\300\325\302\332#\210\300\333\322\323#\210\300\333\324\327#\210\300\327\302\333#\210\300\334\322\323#\210\300\334\324\331#\210\300\331\302\334#\210\300\335\322\323#\210\300\335\324\336#\210\300\336\302\335#\210\300\337\322\323#\210\300\337\324\340#\210\300\340\302\337#\210\300\341\322\323#\210\300\341\324\342#\210\300\342\302\341#\210\300\343\322\323#\210\300\343\324\344#\210\300\344\302\343#\210\300\345\322\323#\210\300\345\324\346#\210\300\346\302\345#\210\300\347\322\323#\210\300\347\324\350#\210\300\350\302\347#\210\300\351\322\323#\210\300\351\324\352#\210\300\352\302\351#\210\300\353\322\323#\210\300\353\324\354#\210\300\354\302\353#\210\300\355\322\323#\210\300\355\324\356#\210\300\356\302\355#\210\300\357\360\361#\210\300\362\322\323#\210\300\362\324\357#\210\300\357\302\362#\210\300\363\360\361#\210\300\364\322\365#\210\300\364\324\363#\210\300\363\302\364#\210\300\366\360\361#\210\300\367\322\365#\210\300\367\324\366#\210\300\366\302\367#\210\300\370\360\361#\210\300\371\322\365#\210\300\371\324\370#\210\300\370\302\371#\210\300\372\322\373#\210\300\372\324\374#\210\300\374\302\372#\210\300\375\322\373#\210\300\375\324\376#\210\300\376\302\375#\210\300\377\322\373#\210\300\377\324\201@#\210\300\201@\302\377#\210\300\201A\322\373#\210\300\201A\324\201B#\210\300\201B\302\201A#\210\300\201C\322\373#\210\300\201C\324\201D#\210\300\201D\302\201C#\210\300\201E\322\373#\210\300\201E\324\201D#\210\300\201D\302\201E#\210\300\201F\322\373#\210\300\201F\324\201G#\210\300\201G\302\201F#\210\300\201H\322\373#\210\300\201H\324\201I#\210\300\201I\302\201H#\210\300\201J\322\373#\210\300\201J\324\201K#\210\300\201K\302\201J#\210\300\201L\322\373#\210\300\201L\324\201M#\210\300\201M\302\201L#\210\300\201N\322\373#\210\300\201N\324\201O#\210\300\201O\302\201N#\210\300\201P\322\373#\210\300\201P\324\201Q#\210\300\201Q\302\201P#\210\300\201R\322\373#\210\300\201R\324\201S#\210\300\201S\302\201R#\210\300\201T\322\373#\210\300\201T\324\201U#\210\300\201U\302\201T#\210\300\201V\322\365#\210\300\201V\324\201W#\210\300\201W\302\201V#\210\300\201X\322\373#\210\300\201X\324\201Y#\210\300\201Y\302\201X#\210\300\201Z\360\361#\210\300\201[\322\373#\210\300\201[\324\201Z#\210\300\201Z\302\201[#\210\300\201\\\360\361#\210\300\201]\322\373#\210\300\201]\324\201\\#\210\300\201\\\302\201]#\210\300\201^\360\361#\210\300\201_\322\373#\210\300\201_\324\201^#\210\300\201^\302\201_#\210\300\201`\360\361#\210\300\201a\322\373#\210\300\201a\324\201`#\210\300\201`\302\201a#\210\300\201b\360\361#\210\300\201c\322\373#\210\300\201c\324\201b#\210\300\201b\302\201c#\210\300\201d\360\361#\210\300\201e\322\373#\210\300\201e\324\201d#\210\300\201d\302\201e#\210\300\201f\360\361#\210\300\201g\322\373#\210\300\201g\324\201f#\210\300\201f\302\201g#\210\300\201h\360\361#\210\300\201i\322\201j#\210\300\201i\324\201h#\210\300\201h\302\201i#\210\300\201k\360\361#\210\300\201l\322\201j#\210\300\201l\324\201k#\210\300\201k\302\201l#\210\300\201m\322\201n#\210\300\201m\324\201o#\210\300\201o\302\201m#\210\300\201p\322\201n#\210\300\201p\324\201q#\210\300\201q\302\201p#\210\300\201r\322\201n#\210\300\201r\324\201s#\210\300\201s\302\201r#\210\300\201t\322\201n#\210\300\201t\324\201u#\210\300\201u\302\201t#\210\300\201v\322\201n#\210\300\201v\324\201w#\210\300\201w\302\201v#\210\300\201x\322\201n#\210\300\201x\324\201y#\210\300\201y\302\201x#\210\300\201z\322\201n#\210\300\201z\324\201{#\210\300\201{\302\201z#\210\300\201|\322\201n#\210\300\201|\324\201}#\210\300\201}\302\201|#\210\300\201~\322\201n#\210\300\201~\324\201#\210\300\201\302\201~#\210\300\201\200\322\201n#\210\300\201\200\324\201\201#\210\300\201\201\302\201\200#\210\300\201\202\322\201n#\210\300\201\202\324\201\203#\210\300\201\203\302\201\202#\210\300\201\204\322\201n#\210\300\201\204\324\201\205#\210\300\201\205\302\201\204#\210\300\201\206\322\201\207#\210\300\201\206\324\201\210#\210\300\201\210\302\201\206#\210\300\201\211\360\361#\210\300\201\212\322\201\207#\210\300\201\212\324\201\211#\210\300\201\211\302\201\212#\210\300\201\211\360\361#\210\300\201\213\322\201\207#\210\300\201\213\324\201\211#\210\300\201\211\302\201\213#\210\300\201\214\360\361#\210\300\201\215\322\373#\210\300\201\215\324\201\214#\210\300\201\214\302\201\215#\210\300\201\216\360\361#\210\300\201\217\322\373#\210\300\201\217\324\201\216#\210\300\201\216\302\201\217#\210\300\201\220\360\361#\210\300\201\221\322\373#\210\300\201\221\324\201\220#\210\300\201\220\302\201\221#\210\300\201\222\360\361#\210\300\201\223\322\373#\210\300\201\223\324\201\222#\210\300\201\222\302\201\223#\210\300\201\224\360\361#\210\300\201\225\322\201n#\210\300\201\225\324\201\224#\210\300\201\224\302\201\225#\210\300\201\226\360\361#\210\300\201\227\322\201n#\210\300\201\227\324\201\226#\210\300\201\226\302\201\227#\210\300\201\224\360\361#\210\300\201\230\322\201n#\210\300\201\230\324\201\224#\210\300\201\224\302\201\230#\210\300\201\226\360\361#\210\300\201\231\322\201n#\210\300\201\231\324\201\226#\210\300\201\226\302\201\231#\210\300\201\232\360\361#\210\300\201\233\322\201n#\210\300\201\233\324\201\232#\210\300\201\232\302\201\233#\210\300\201\234\360\361#\210\300\201\235\322\201n#\210\300\201\235\324\201\234#\210\300\201\234\302\201\235#\210\300\201\236\360\361#\210\300\201\237\322\201n#\210\300\201\237\324\201\236#\210\300\201\236\302\201\237#\210\300\201\240\360\361#\210\300\201\241\322\201n#\210\300\201\241\324\201\240#\210\300\201\240\302\201\241#\210\300\201\242\360\361#\210\300\201\243\322\201n#\210\300\201\243\324\201\242#\210\300\201\242\302\201\243#\210\300\201\244\360\361#\210\300\201\245\322\201n#\210\300\201\245\324\201\244#\210\300\201\244\302\201\245#\210\300\201\246\360\361#\210\300\201\247\322\201n#\210\300\201\247\324\201\246#\210\300\201\246\302\201\247#\210\300\201\244\360\361#\210\300\201\250\322\201n#\210\300\201\250\324\201\244#\210\300\201\244\302\201\250#\210\300\201\246\360\361#\210\300\201\251\322\201n#\210\300\201\251\324\201\246#\210\300\201\246\302\201\251#\210\300\201\252\360\361#\210\300\201\253\322\201n#\210\300\201\253\324\201\252#\210\300\201\252\302\201\253#\210\300\201\254\360\361#\210\300\201\255\322\201n#\210\300\201\255\324\201\254#\210\300\201\254\302\201\255#\210\300\201\256\360\361#\210\300\201\257\322\201n#\210\300\201\257\324\201\256#\210\300\201\256\302\201\257#\210\300\201\260\360\361#\210\300\201\261\322\201n#\210\300\201\261\324\201\260#\210\300\201\260\302\201\261#\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\266#\210\300\201\265\324\201\267#\210\300\201\267\302\201\265#\210\300\201\270\322\201\266#\210\300\201\270\324\201\271#\210\300\201\271\302\201\270#\210\300\201\272\322\201\266#\210\300\201\272\324\201\273#\210\300\201\273\302\201\272#\210\300\201\274\360\361#\210\300\201\275\322\201\266#\210\300\201\275\324\201\274#\210\300\201\274\302\201\275#\210\300\201\276\322\201\277#\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 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 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\303@AGAG\304U\203\305\202\306 %\210\307!\207" [form n 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\2039@\303N\304A!\305 @!\210 A\211\204!\306\307\303N \2057\305 @!\210\310\n\311\"\210 A\211\204%\312*\207\313\314!!\207" [form args opcode byte-opcode copy-sequence byte-compile-form (0) + byte-compile-out 0 nil byte-compile-constant eval] 4]) (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\316#\210\300\320\304\317#\210\300\317\306\320#\210\300\321\302\322#\210\300\321\304\323#\210\300\323\306\321#\210\300\324\302\325#\210\300\326\302\327#\210\300\330\331\332#\210\300\333\302\334#\210\300\333\304\330#\210\300\330\306\333#\210\300\335\331\332#\210\300\336\302\337#\210\300\336\304\335#\210\300\335\306\336#\207" [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] 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) "A\211\204 \301\302!\207\303@!\210A\203)A\211\205-\303@!\210\304\305\302\"\210\202\304\306\302\"\207" [form byte-compile-constant 0 byte-compile-form byte-compile-out byte-diff byte-negate] 3]) (defalias 'byte-compile-quo #[(form) "G\211\302X\203\303\304\"\202,\305A\211@!\210A\211\205,\305@!\210\306\307\310\"\210\202)\207" [form len 2 byte-compile-subr-wrong-args "2 or more" byte-compile-form byte-compile-out byte-quo 0] 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\203A@\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\337#\210\300\340\305\341#\210\300\342\305\343#\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 sort byte-compile-funarg-2 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-if #[(form) "\304A@!\210\305\233\204+\306 \307\n\203\310\202\311 \"\210\304\3128\n\"\210\313 !\210)\202S\306 \306 \307\310 \"\210\304\3128\n\"\210\307\314 \"\210\313 !\210\315AAA\n\"\210\313 !\210*\316\211\207" [form donetag for-effect elsetag byte-compile-form 3 byte-compile-make-tag byte-compile-goto byte-goto-if-nil byte-goto-if-nil-else-pop 2 byte-compile-out-tag byte-goto byte-compile-body nil] 3]) (defalias 'byte-compile-cond #[(clauses) "\306 \307\211 A\211\203j @\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\317A\f\"\210\313\320\n\"\210\321 !\210\202A\203\213@\310=\204\213\312@!\210\313\f\203\204\316\202\205\322\n\"\210A\317 \f\"\210\307)\321\n!+\207" [clause nexttag donetag clauses for-effect body 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-body byte-goto byte-compile-out-tag byte-goto-if-nil-else-pop] 4]) (defalias 'byte-compile-and #[(form) "\304 A \204\305\306 \"\210\307\211)\202D A\2036\306 @!\210\310 \203+\311\202,\312\n\"\210 A\211\202 @\306 \"\210\307)\313\n!*\207" [form args failtag for-effect byte-compile-make-tag t byte-compile-form nil byte-compile-goto byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-out-tag] 4]) (defalias 'byte-compile-or #[(form) "\304 A \204\305\306 \"\210\305\211)\202D A\2036\306 @!\210\307 \203+\310\202,\311\n\"\210 A\211\202 @\306 \"\210\305)\312\n!*\207" [form args wintag for-effect byte-compile-make-tag nil byte-compile-form byte-compile-goto byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-compile-out-tag] 4]) (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\203# @:\203\305 @A@!\210\202\306\307!\210 A\211\204)\n\310A@! \203I\311\312 @:\203> @@\202@ @\"\210 A\211\2040AA\313 \f\"\210\307)\314\315A@G\"*\207" [form varlist byte-compile-bound-variables body for-effect byte-compile-form byte-compile-push-constant nil reverse byte-compile-variable-ref byte-varbind byte-compile-body byte-compile-out byte-unbind] 4]) (defalias 'byte-compile-let* #[(form) "\305 A@!\n\2033\n@:\204\306\307!\210\202&\310\n@A@!\210\n\211@@\240\210\311\312\n@\"\210\nA\211\204\f AA\313 \f\"\210\307)\314\315 A@G\"*\207" [byte-compile-bound-variables form varlist body for-effect copy-sequence byte-compile-push-constant nil byte-compile-form byte-compile-variable-ref byte-varbind byte-compile-body byte-compile-out byte-unbind] 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@\302N\206 \303\304@\"ABD\207" [form 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 9\204\306\307 \"\210\310 !\210\310\311\3128 \"!\210AAA\313\211\203\205 @\211@\2119\204q<\203i\314\211\203c@9\204Z\313A\211\204P*\204q\306\315\316!\"\210\317A \"B\fB* A\211\2042\310\f\237!\210*\320\321\322\"*\207" [form var byte-compile-bound-variables for-effect compiled-clauses clauses 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#\210\300\315\302\316#\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 defalias byte-compile-defalias] 4) (defalias 'byte-compile-defun #[(form) "\301\302\303A@D\304\305\306AAB!!E!\210\307 \210\310A@!\207" [form byte-compile-two-args fset quote byte-compile-byte-code-maker byte-compile-lambda lambda byte-compile-discard byte-compile-constant] 7]) (defalias 'byte-compile-defmacro #[(form) "\304\305A@D\306\307\310AAB!!\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 lambda make-byte-code cons 'macro macro eval byte-compile-body nil] 7]) (defalias 'byte-compile-defvar #[(form) "@A@\3068\3078G\310V\203 \311\312\f AG\307%\210\313 >\203, B?\2059\314\315 D\316BBG\307V\205W \203P ;\204P\311\317\f $\210\320\315 D\321 FAA\205w\f\322=\203j\323 \nE\202w\324\325\326\315 DDD\323 \nEE\315 DF\327\"\210\330\211-\207" [form string value var fun byte-compile-warnings 2 3 4 byte-compile-warn "%s %s called with %d arguments, but accepts only %s" free-vars push quote (current-load-list) "Third arg to %s %s is not a string: %s" put 'variable-documentation defconst setq if not boundp byte-compile-body nil byte-compile-bound-variables byte-compile-current-form body for-effect] 7]) (defalias 'byte-compile-autoload #[(form) "\3018:\203\3018@\302=\202\30189\203\303\3018!\203Y\3048:\203/\3048@\302=\202;\30489\203>\303\3048!\203Y\305\3048!\203Y\306\305\3018!!\204Y\307\310\305A@!\"\210\311!\207" [form 1 quote byte-compile-const-symbol-p 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] 4]) (defalias 'byte-compile-lambda-form #[(form) "\300\301!\207" [error "`lambda' used as function name is invalid"] 2]) (defalias 'byte-compile-defalias #[(form) "A:\203jA@:\203jA@@\302=\203jA@A:\203jA@A@9\203jAA:\203j\3038:\203j\3038@\302=\203j\3038A:\203j\3038A@9\203j\304A@A@\3038A@\"\210A@A@\3038A@B B\305!\207" [form byte-compile-function-environment quote 2 byte-compile-defalias-warn byte-compile-normal-call] 4]) (defalias 'byte-compile-defalias-warn #[(new alias) " \236\211\205\303\n \"\211)\207" [new byte-compile-unresolved-functions calls delq] 4]) (defalias 'byte-compile-make-tag #[nil "\301T\211D\207" [byte-compile-tag-number TAG] 3]) (defalias 'byte-compile-out-tag #[(tag) " BAA\203#\n\203AA\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 \3058>\204(A A@B\240\210\202( @ C\304E\nB \n\236\211\203F @\3068>\206PAA @\3068B\240\202P \304 @CE\nB\211)\207" [entry form byte-compile-call-tree byte-compile-current-form nil 1 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!\210 p\332\211\211\211@AB\211C\203z\333C@@B\"\210C@A@\334C@8\335\336C@@\211A!\204\255A\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 \203Q\361c\210`@\362 @\203C\363\364 \365#\202D\366\261\210\362D\367@`\"\210)\f\203n\370c\210`@\362\363\364\f\365#\261\210\362D\367@`\"\210)\360c\210CA\211C\204~\306\371!\210 C\332EC\203\275C@A@\204\264C@@\211A\203\264\372A\373\"\204\264\374\372A\332\"!\204\264AEBECA\211C\204\211E\203\333\375D\376c\210`@\363\364E\237\365#c\210\367@`\"\210).\306\377!\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 " " " " subrp " " format " ==> %s" byte-code-function-p "" "" macro byte-code " " " " "" lambda "" " (%d callers + %d calls = %d)" "\n" " called by:\n" " " mapconcat symbol-name ", " "" fill-region-as-paragraph " calls:\n" "Generating call tree...(finding uncalled functions...)" byte-compile-fdefinition t commandp " " "Noninteractive functions not known to be called:\n " "Generating call tree...done." p f b rest fill-prefix uncalled] 10 (#$ . 89918) nil]) #@288 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" (defalias 'batch-byte-compile #[nil "\204\301\306!\210\307\n\203w\310\311\n@!!\203g\312\n@!\307\211\211\203c\313 @\"\203\\\314 @!\204\\\311 @\n@\"\211\203\\\315\f!\211\203\\\316 !\203\\\317\f \"\203\\\320\f!\204\\\321 A\211\204$+\202p\320\n@!\204p\321\nA\211\204\322\323!\210\324 \203\204\325\202\205\326!)\207" [noninteractive error command-line-args-left dest source 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 message "Done" kill-emacs 1 0 emacs-lisp-file-regexp] 4 (#$ . 92781)]) (defalias 'batch-byte-compile-file #[(file) "\300\301\302\217\207" [err (byte-compile-file file) ((error (byte-code "\302A\203\n\303\202 \304 @\305N\306A!$\210\307\207" [err file message ">>Error occurred processing %s: %s (%s)" ">>Error occurred processing %s: %s" error-message prin1-to-string nil] 6)))] 3]) #@212 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 .'. (defalias 'batch-byte-recompile-directory #[nil "\204\302\303!\210 \204\304 \203\305 @!\210 A\211\204\306\307!\207" [noninteractive command-line-args-left error "batch-byte-recompile-directory is to be used only with -batch" (".") byte-recompile-directory kill-emacs 0] 3 (#$ . 94098)]) (byte-code "\300\301\302\303#\210\300\304\305\303#\210\300\306\307\303#\210\300\310\311\303#\210\300\312\313\303#\210\300\314\315\303#\210\300\316\317\303#\210\300\320\321\322#\210\323\324\325\303#\210\323\326\327\303#\210\323\330\331\303#\210\323\332\333\303#\210\323\334\335\303#\210\323\336\337\303#\210\323\340\341\303#\210\323\342\343\303#\210\323\344\345\346#\210\323\347\350\346#\210\323\351\352\346#\210\323\353\354\346#\210\323\355\356\346#\210\323\357\360\346#\210\323\361\360\346#\210\362\363!\210\362\364!\207" [make-obsolete dot point "before 19.15" dot-max point-max dot-min point-min dot-marker point-marker buffer-flush-undo buffer-disable-undo baud-rate "use the baud-rate variable instead" compiled-function-p byte-code-function-p define-function defalias "20.1" make-obsolete-variable auto-fill-hook auto-fill-function blink-paren-hook blink-paren-function lisp-indent-hook lisp-indent-function inhibit-local-variables "use enable-local-variables (with the reversed sense)." unread-command-char "use unread-command-events instead. That variable is a list of events to reread, so it now uses nil to mean `no event', instead of -1." unread-command-event "use unread-command-events; which is a list of events rather than a single event." suspend-hooks suspend-hook comment-indent-hook comment-indent-function meta-flag "Use the set-input-mode function instead." "before 19.34" executing-macro executing-kbd-macro before-change-function "use before-change-functions; which is a list of functions rather than a single function." after-change-function "use after-change-functions; which is a list of functions rather than a single function." font-lock-doc-string-face font-lock-string-face post-command-idle-hook "use timers instead, with `run-with-idle-timer'." post-command-idle-delay provide byte-compile bytecomp] 4) (defalias 'byte-compile-report-ops #[nil "\306\220\306q\210\307\310\211\211\211\311W\205n\f\307H H\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\210 T\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)