;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Mon May 29 16:27:07 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/bytecomp.el ;;; emacs version 19.28.92.2. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/gd/gnu/emacs/19.0/lisp/bytecomp.el' was compiled for Emacs 19")) (byte-code "\nB!!!" ["FSF 2.10" byte-compile-version current-load-list require backquote fboundp defsubst load-library "byte-run"] 2) (defalias 'byte-compile-single-version '(macro . #[nil "" [nil] 1])) (defalias 'byte-compile-version-cond '(macro . #[(cond) "" [cond] 1])) #@118 *Regexp which matches Emacs Lisp source files. You may want to redefine `byte-compile-dest-file' if you change this. (defvar emacs-lisp-file-regexp (byte-code "=‡Ç" [system-type vax-vms "\\.EL\\(;[0-9]+\\)?$" "\\.el$"] 2) (#$ . -786)) (byte-code "!\nM\"\"\"\"\"" [fboundp byte-compile-dest-file #[(filename) " !\n= \"OP \"$ ĉOP P" [file-name-sans-versions filename system-type vax-vms 0 string-match ";" "c" emacs-lisp-file-regexp ".elc"] 5 "Convert an Emacs Lisp source file name to a compiled file name."] autoload byte-compile-inline-expand "byte-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. (defvar byte-compile-verbose (byte-code "? \nV" [noninteractive baud-rate search-slow-speed] 2) (#$ . -1500)) #@58 *Non-nil means generate output that can run in Emacs 18. (defvar byte-compile-compatibility nil (#$ . -1689)) #@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. (defvar byte-optimize t (#$ . -1806)) #@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'. (defvar byte-compile-delete-errors t (#$ . -2060)) #@448 *If non-nil, compile function bodies so they load lazily. They are hidden comments in the compiled file, and 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 (#$ . -2260)) #@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. (defvar byte-compile-dynamic-docstrings t (#$ . -2761)) #@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. (defvar byte-optimize-log nil (#$ . -3455)) #@60 *If true, the byte-compiler reports warnings with `error'. (defvar byte-compile-error-on-warn nil (#$ . -3720)) (byte-code "\nB" [(redefine callargs free-vars unresolved obsolete) byte-compile-warning-types current-load-list] 2) #@526 *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. See also the macro `byte-compiler-options'. (defvar byte-compile-warnings t (#$ . -3962)) #@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. (defvar byte-compile-generate-call-tree nil (#$ . -4540)) #@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 (#$ . 5241)) #@126 *If non-nil, sort the call tree. The values `name', `callers', `calls', `calls+callers' specify different fields to sort on. (defvar byte-compile-call-tree-sort (quote name) (#$ . -5538)) #@67 list of all constants encountered during compilation of this form (defvar byte-compile-constants nil (#$ . 5732)) #@67 list of all variables encountered during compilation of this form (defvar byte-compile-variables nil (#$ . 5852)) #@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 (#$ . 5972)) (byte-code " B B B" [byte-compile-free-references current-load-list 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 (quote ((eval-when-compile lambda (&rest body) (list (quote quote) (eval (byte-compile-top-level (cons (quote progn) body))))) (eval-and-compile lambda (&rest body) (eval (cons (quote progn) body)) (cons (quote progn) body)))) (#$ . 6265)) #@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 (#$ . 6765)) #@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 (#$ . 7031)) #@140 Alist of undefined functions to which calls have been compiled (used for warnings when the function is later defined with incorrect args). (defvar byte-compile-unresolved-functions nil (#$ . 7320)) (byte-code "! B" [boundp byte-compile-tag-number 0 current-load-list] 2) #@87 Alist describing contents to put in byte code string. Each element is (INDEX . VALUE) (defvar byte-compile-output nil (#$ . 7608)) #@35 Current depth of execution stack. (defvar byte-compile-depth 0 (#$ . 7745)) #@35 Maximum depth of execution stack. (defvar byte-compile-maxdepth 0 (#$ . 7827)) #@66 An array containing byte-code names indexed by byte-code values. (defconst byte-code-vector nil (#$ . 7912)) #@56 An array with the stack adjustment for each byte-code. (defconst byte-stack+-info nil (#$ . 8027)) (defalias 'byte-defop '(macro . #[(opcode stack-adjust opname &optional docstring) "N\"#N\"# \nI  I*\fA\n \fQF\n E" [byte-code-vector tmp-compile-time-value put make-vector 256 nil byte-stack+-info v2 v1 opcode opname stack-adjust docstring defconst "Byte code opcode " "."] 8])) (defalias 'byte-extrude-byte-code-vectors '(macro . #[nil "NÉN##" [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 (#$ . 8623)) #@42 Byte code opcode for setting a variable. (defconst byte-varset 16 (#$ . 8707)) #@42 Byte code opcode for binding a variable. (defconst byte-varbind 24 (#$ . 8792)) #@42 Byte code opcode for calling a function. (defconst byte-call 32 (#$ . 8878)) #@50 Byte code opcode for unbinding special bindings. (defconst byte-unbind 40 (#$ . 8961)) (byte-code "\nB\nB\nB\nB\n\nB\f\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB \nB\"\nB$\nB&\nB(\nB*\nB,\nB.\nB0\nB2\nB4\nB6\nB8\nB:\nB<\nB>\nB@@\nBABB\nBCDD\nBEFF\nBGHH\nBIJJ\nBKLL\nBMNN\nBOPP\nBQRR\nBSTT\nBUVV\nBWXX\nBYZZ\nB[\\\\\nB]^^\nB_``\nBabb\nBcdd\nBeff\nBghh\nBijj\nBkll\nBmnn\nBopp\nBqrr\nBstt\nBuvv\nBwxx\nByzz\nB{||\nB}~~\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB" [56 byte-nth current-load-list 57 byte-symbolp 58 byte-consp 59 byte-stringp 60 byte-listp 61 byte-eq 62 byte-memq 63 byte-not 64 byte-car 65 byte-cdr 66 byte-cons 67 byte-list1 68 byte-list2 69 byte-list3 70 byte-list4 71 byte-length 72 byte-aref 73 byte-aset 74 byte-symbol-value 75 byte-symbol-function 76 byte-set 77 byte-fset 78 byte-get 79 byte-substring 80 byte-concat2 81 byte-concat3 82 byte-concat4 83 byte-sub1 84 byte-add1 85 byte-eqlsign 86 byte-gtr 87 byte-lss 88 byte-leq 89 byte-geq 90 byte-diff 91 byte-negate 92 byte-plus 93 byte-max 94 byte-min 95 byte-mult 96 byte-point 97 byte-mark-OBSOLETE 98 byte-goto-char 99 byte-insert 100 byte-point-max 101 byte-point-min 102 byte-char-after 103 byte-following-char 104 byte-preceding-char 105 byte-current-column 106 byte-indent-to 107 byte-scan-buffer-OBSOLETE 108 byte-eolp 109 byte-eobp 110 byte-bolp 111 byte-bobp 112 byte-current-buffer 113 byte-set-buffer 114 byte-read-char-OBSOLETE 115 byte-set-mark-OBSOLETE 116 byte-interactive-p 117 byte-forward-char 118 byte-forward-word 119 byte-skip-chars-forward 120 byte-skip-chars-backward 121 byte-forward-line 122 byte-char-syntax 123 byte-buffer-substring 124 byte-delete-region 125 byte-narrow-to-region 126 byte-widen 127 byte-end-of-line] 2) #@88 Byte code opcode for reference to a constant with vector index >= byte-constant-limit. (defconst byte-constant2 129 (#$ . 11073)) #@42 Byte code opcode for unconditional jump. (defconst byte-goto 130 (#$ . 11209)) #@53 Byte code opcode to pop value and jump if it's nil. (defconst byte-goto-if-nil 131 (#$ . 11294)) #@57 Byte code opcode to pop value and jump if it's not nil. (defconst byte-goto-if-not-nil 132 (#$ . 11397)) #@97 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 (#$ . 11508)) #@101 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 (#$ . 11665)) #@65 Byte code opcode to pop a value and return it from `byte-code'. (defconst byte-return 135 (#$ . 11829)) #@51 Byte code opcode to discard one value from stack. (defconst byte-discard 136 (#$ . 11939)) #@53 Byte code opcode to duplicate the top of the stack. (defconst byte-dup 137 (#$ . 12036)) #@74 Byte code opcode to make a binding to record the buffer, point and mark. (defconst byte-save-excursion 138 (#$ . 12131)) #@75 Byte code opcode to make a binding to record entire window configuration. (defconst byte-save-window-excursion 139 (#$ . 12258)) #@88 Byte code opcode to make a binding to record the current buffer clipping restrictions. (defconst byte-save-restriction 140 (#$ . 12393)) #@87 Byte code opcode for catch. Takes, on stack, the tag and an expression for the body. (defconst byte-catch 141 (#$ . 12536)) #@93 Byte code opcode for unwind-protect. Takes, on stack, an expression for the unwind-action. (defconst byte-unwind-protect 142 (#$ . 12667)) (byte-code "\nB\nB\nB\nB\n\nB\f\nB\nB\nB\nB\nB\nB\nB\nB\nB\nB \nB\"\nB$\nB&\nB(\nB*\nB,\nB.\nB0\nB2\nB4\nB6\nB8\nB:\nB" [143 byte-condition-case current-load-list 144 byte-temp-output-buffer-setup 145 byte-temp-output-buffer-show 146 byte-unbind-all 147 byte-set-marker 148 byte-match-beginning 149 byte-match-end 150 byte-upcase 151 byte-downcase 152 byte-string= 153 byte-string< 154 byte-equal 155 byte-nthcdr 156 byte-elt 157 byte-member 158 byte-assq 159 byte-nreverse 160 byte-setcar 161 byte-setcdr 162 byte-car-safe 163 byte-cdr-safe 164 byte-nconc 165 byte-quo 166 byte-rem 167 byte-numberp 168 byte-integerp 175 byte-listN 176 byte-concatN 177 byte-insertN] 2) #@47 Byte code opcode for reference to a constant. (defconst byte-constant 192 (#$ . 13613)) #@63 Exclusive maximum index usable in the `byte-constant' opcode. (defconst byte-constant-limit 64 (#$ . 13707)) #@42 List of byte-codes whose offset is a pc. (defconst byte-goto-ops (quote (byte-goto byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop)) (#$ . 13822)) (byte-code "\nB" [(byte-goto-if-nil byte-goto-if-not-nil) byte-goto-always-pop-ops current-load-list [nil nil nil nil nil nil nil nil byte-varref nil nil nil nil nil nil nil byte-varset nil nil nil nil nil nil nil byte-varbind nil nil nil nil nil nil nil byte-call nil nil nil nil nil nil nil byte-unbind nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil byte-nth byte-symbolp byte-consp byte-stringp byte-listp byte-eq byte-memq byte-not byte-car byte-cdr byte-cons byte-list1 byte-list2 byte-list3 byte-list4 byte-length byte-aref byte-aset byte-symbol-value byte-symbol-function byte-set byte-fset byte-get byte-substring byte-concat2 byte-concat3 byte-concat4 byte-sub1 byte-add1 byte-eqlsign byte-gtr byte-lss byte-leq byte-geq byte-diff byte-negate byte-plus byte-max byte-min byte-mult byte-point byte-mark-OBSOLETE byte-goto-char byte-insert byte-point-max byte-point-min byte-char-after byte-following-char byte-preceding-char byte-current-column byte-indent-to byte-scan-buffer-OBSOLETE byte-eolp byte-eobp byte-bolp byte-bobp byte-current-buffer byte-set-buffer byte-read-char-OBSOLETE byte-set-mark-OBSOLETE byte-interactive-p byte-forward-char byte-forward-word byte-skip-chars-forward byte-skip-chars-backward byte-forward-line byte-char-syntax byte-buffer-substring byte-delete-region byte-narrow-to-region byte-widen byte-end-of-line nil byte-constant2 byte-goto byte-goto-if-nil byte-goto-if-not-nil byte-goto-if-nil-else-pop byte-goto-if-not-nil-else-pop byte-return byte-discard byte-dup byte-save-excursion byte-save-window-excursion byte-save-restriction byte-catch byte-unwind-protect byte-condition-case byte-temp-output-buffer-setup byte-temp-output-buffer-show byte-unbind-all byte-set-marker byte-match-beginning byte-match-end byte-upcase byte-downcase byte-string= byte-string< byte-equal byte-nthcdr byte-elt byte-member byte-assq byte-nreverse byte-setcar byte-setcdr byte-car-safe byte-cdr-safe byte-nconc byte-quo byte-rem byte-numberp byte-integerp nil 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] byte-code-vector [nil nil nil nil nil nil nil nil 1 nil nil nil nil nil nil nil -1 nil nil nil nil nil nil nil -1 nil nil nil nil nil nil nil 0 nil nil nil nil nil nil nil 0 nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil -1 0 0 0 0 -1 -1 0 0 0 -1 0 -1 -2 -3 0 -1 -2 0 0 -1 -1 -1 -2 -1 -2 -3 0 0 -1 -1 -1 -1 -1 -1 0 -1 -1 -1 -1 1 1 0 0 1 1 0 1 1 1 0 0 1 1 1 1 1 0 1 0 1 0 0 -1 -1 0 0 -1 -1 -1 1 0 nil 1 0 -1 -1 -1 -1 -1 -1 1 0 0 0 -1 -1 -2 0 -1 0 -2 0 0 0 0 -1 -1 -1 -1 -1 -1 -1 0 -1 -1 0 0 -1 -1 -1 0 0 nil 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] byte-stack+-info] 2) #@57 Turns lapcode into bytecode. The lapcode is destroyed. (defalias 'byte-compile-lapcode #[(lap) " \n%\n@@\n@A94\"=I  B>n \\ ABJBBB B:A=W T \\B \\ \"\"BBBJX \\ JBBW T J\\BW \\ J\\BB \\ \"\"J\\BBB\nA\n W @@:P@A@ A \" \" A,)." [0 nil tmp rel rest patchlist bytes off op pc lap error "Non-symbolic opcode `%s'" TAG byte-goto-ops 3 byte-constant byte-constant-limit lsh -8 logand 255 byte-constant2 byte-listN 2 6 256 7] 9 (#$ . 17292)]) (byte-code "! B! B!  B‡" [boundp byte-compile-current-form nil current-load-list byte-compile-current-file byte-compile-dest-file] 2) (defalias 'byte-compile-log '(macro . #[(format-string &rest args) "\n\"BBDEF" [and byte-optimize (memq byte-optimize-log (quote (t source))) let ((print-escape-newlines t) (print-level 4) (print-length 4)) byte-compile-log-1 format format-string mapcar #[(x) "9 D" [x prin1-to-string] 2] args] 11])) (byte-code "\nB" [nil byte-compile-last-warned-form current-load-list] 2) (defalias 'byte-compile-log-1 #[(string &optional fill) "> \n5 \n=5  1 ;) P2 !P2#! \"!qdb U\n \n= ` ұ l \"mDZ ;  !c ұ \"!*) " [noninteractive byte-compile-current-file byte-compile-last-warned-form byte-compile-current-form message format "While compiling %s%s:" "toplevel forms" " in file " " in buffer " buffer-name "" " %s" string get-buffer-create "*Compile-Log*" "\n\f\n" current-time-string "\n" "While compiling " "%s" ":\n" " " fill string-match " " 78 fill-column fill-prefix fill-paragraph nil] 7]) (defalias 'byte-compile-log-file #[nil ". ?.!qdb;P#!P ʱˉ)" [byte-compile-current-file noninteractive get-buffer-create "*Compile-Log*" "\n\f\nCompiling " "file " "buffer " buffer-name " at " current-time-string "\n" nil] 5]) (defalias 'byte-compile-warn #[(format &rest args) " \n#  \" P\"" [apply format args byte-compile-error-on-warn error "%s" byte-compile-log-1 "** " t] 4]) (defalias 'byte-compile-report-error #[(error-info) " AƂ @N A!#P!" [t byte-compiler-error-flag byte-compile-log-1 "!! " format error-info "%s (%s)" "%s" error-message prin1-to-string] 7]) (defalias 'byte-compile-obsolete #[(form) " >*\n@N\n@\f@;\f@\f@\"#\fA'\n!)" [obsolete byte-compile-warnings form byte-obsolete-info new byte-compile-warn "%s is an obsolete function; %s" format "use %s instead." byte-compile-normal-call] 6]) (defalias 'byte-compile-fdefinition #[(name macro-p) " \n\f Az\f9E!EK9<K:<EK!EKU!Uy:y@=iAy?y@=?y)*" [macro-p byte-compile-macro-environment byte-compile-function-environment list name env fn fboundp byte-code-function-p macro autoload] 3]) (defalias 'byte-compile-arglist-signature #[(arglist) " A @= :: @=- A:: 7 T:\fT A\n\f\n?R Q\f \\R\f+B" [0 nil restp opts args arglist &optional &rest t] 4]) (defalias 'byte-compile-arglist-signatures-congruent-p #[(old new) "@ @V! AA!A! A!A AW?" [new old] 2]) (defalias 'byte-compile-arglist-signature-string #[(signature) "A @\"@AU@\"@A#" [signature format "%d+" "%d" "%d-%d"] 4]) (defalias 'byte-compile-callargs-warn #[(form) " @\" @\".\f= \fA@-\f!,\fH-!\n AG \nz \n@WR\nA \nAV @ Ubςc \n@Wpтq\n!& @! @= @ AGA>AB @DB*+" [byte-compile-fdefinition form nil t def byte-compile-arglist-signature lambda byte-code-function-p 0 (&rest def) sig ncall byte-compile-warn "%s called with %d argument%s, but %s %s" 1 "" "s" "requires" "accepts only" byte-compile-arglist-signature-string fboundp byte-compile-current-form byte-compile-unresolved-functions n cons] 9]) (defalias 'byte-compile-arglist-warn #[(form macrop) " A@\n\"d = A@& !% H&! 8!\n  \n\"` @=FЂG A@ ! ӚYԂZ\n!&* A@׉ 8!A!\"@@@WAAV A@!ᚃB!%\"-)" [byte-compile-fdefinition form macrop old byte-compile-arglist-signature lambda byte-code-function-p 0 (&rest def) 2 sig2 sig1 byte-compile-arglist-signatures-congruent-p byte-compile-warn "%s %s used to take %s %s, now takes %s" defun "function" "macro" byte-compile-arglist-signature-string (1 . 1) "argument" "arguments" byte-compile-unresolved-functions nil max min sig nums calls sort copy-sequence < "%s being defined to take %s%s, but was previously called with %s" (1 . 1) " arg" " args" delq] 9]) (defalias 'byte-compile-warn-about-unresolved-functions #[nil " >\fAtG\f!   j @@!  G\\\\ A SWR  LR  ]R G\\\",\f\f@@\")ʇ" [unresolved byte-compile-warnings "the end of the data" byte-compile-current-form byte-compile-unresolved-functions "The following functions are not known to be defined: " str L reverse rest nil s symbol-name 2 fill-column " " "," "\n " 4 byte-compile-warn "%s" "the function %s is not known to be defined."] 4]) (defalias 'byte-compile-constp '(macro . #[(form) "\nD\nDBBD\nDDC\nBBCF" [cond consp form eq car ((quote quote)) not symbolp memq ((quote (nil t)))] 6])) (defalias 'byte-compile-close-variables '(macro . #[(&rest body) "\nBB" [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))) body] 3])) (byte-code "! B‡" [boundp byte-compile-warnings-point-max nil current-load-list] 2) (defalias 'displaying-byte-compile-warnings '(macro . #[(&rest body) "BFE" [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 body (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) (recenter 1)))))] 9])) #@509 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. (defalias 'byte-recompile-directory #[(directory &optional arg) "!\n !Clj \n \f   8!qd )юԏ* UN؂O\nV^\n\"_$," [arg prefix-numeric-value noninteractive save-some-buffers force-mode-line-update expand-file-name directory 0 nil last-dir dir-count file-count directories byte-compile-warnings-point-max byte-compile-log-file get-buffer-create "*Compile-Log*" ((byte-code "q dU p!! b!!)‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) error-info (byte-code "@\n \" !Ɖ  @ \" @˝\\!\\!\\S=SQ!C\"!!!\"=Q!\n\"!\n \"T = T A +AƇ" [directories directory noninteractive message "Checking %s..." directory-files nil dest source files expand-file-name ("." ".." "RCS" "CVS") file-directory-p file-symlink-p arg 0 y-or-n-p "Check " "? " string-match emacs-lisp-file-regexp auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p "Compile " byte-compile-verbose "Compiling %s..." byte-compile-file 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"] 7 (#$ . 24373) "DByte recompile directory: \nP"]) #@218 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. (defalias 'byte-compile-file #[(filename &optional load) " !\n, !!+\f!+\f!\"!+\fq )) 6 \" Ή !!q !  , \"? \"!qdbc#!%&=&=)d#)!E\")p!)22= \"! !)5!-" [expand-file-name filename noninteractive get-file-buffer b buffer-modified-p y-or-n-p format "save buffer %s first? " buffer-name save-buffer byte-compile-verbose message "Compiling %s..." nil byte-compile-dest-file output-buffer input-buffer target-file byte-compile-current-file get-buffer-create " *Compiler Input*" erase-buffer insert-file-contents emacs-lisp-mode enable-local-eval default-major-mode buffer-file-name normal-mode byte-compiler-error-flag byte-compile-from-buffer "Compiling %s...done" kill-buffer "\n" t vms-stmlf-recfm file-writable-p kanji-flag system-type ms-dos windows-nt buffer-file-type write-region 1 signal file-error "Opening output file" file-exists-p "cannot overwrite file" "directory not writable or nonexistent" byte-compile-generate-call-tree "Report call tree for %s? " display-call-tree load] 6 (#$ . 26327) (byte-code " A=\f!\f! &̂'\n $ +D" [buffer-file-name nil file-dir file-name file major-mode buffer-local-variables emacs-lisp-mode file-name-nondirectory file-name-directory read-file-name current-prefix-arg "Byte compile and load file: " "Byte compile file: "] 6)]) #@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) "  \"!qd)ˎΏ*!@!p\"cG!\"," [end-of-defun beginning-of-defun nil byte-compile-current-file nothing byte-compile-last-warned-form eval byte-compile-warnings-point-max byte-compile-log-file get-buffer-create "*Compile-Log*" ((byte-code "q dU p!! b!!)‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) error-info (byte-code "p!!" [byte-compile-sexp read] 3) ((error (byte-compile-report-error error-info))) value arg message "Compiling from buffer... done." prin1 "\n" "%s" prin1-to-string] 4 (#$ . 28025) "P"]) (defalias 'byte-compile-from-buffer #[(inbuffer &optional filename) " \n  !=8:!q  g!!)\"\" \"!qd\")菈.  .\n" [nil 0 byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants print-length case-fold-search float-output-format outbuffer copy-alist byte-compile-initial-macro-environment byte-compile-verbose byte-optimize byte-compile-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings t byte-compile-warning-types byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment get-buffer-create " *Compiler Output*" erase-buffer filename byte-compile-insert-header overwrite-mode-binary overwrite-mode byte-compile-warnings-point-max byte-compile-log-file "*Compile-Log*" ((byte-code "q dU p!! b!!)‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) error-info (byte-code "qbw!ym$!! \n)Ç" [inbuffer 1 " \n\f" nil looking-at ";" byte-compile-file-form read byte-compile-flush-pending byte-compile-warn-about-unresolved-functions byte-compile-unresolved-functions] 3) ((error (byte-compile-report-error error-info)))] 12]) (defalias 'byte-compile-insert-header #[(filename) "qb ĂƱ!  & Q ѱԱ=Fڂ[=Q܂[Z݂[ c߂dԱ ?#xy!!O#ꂍ" [outbuffer 1 ";ELC" byte-compile-compatibility 18 19 "\n" ";;; compiled by " boundp user-mail-address user-login-name "@" system-name " on " current-time-string "\n;;; from file " filename "\n" ";;; emacs version " emacs-version ".\n" ";;; bytecomp version " byte-compile-version "\n;;; " byte-optimize source "source-level optimization only" byte "byte-level optimization only" "optimization is on" "optimization is off" "; compiled with Emacs 18 compatibility.\n" ";;; this file uses opcodes which do not exist in Emacs 18.\n" "\n(if (and (boundp 'emacs-version)\n" " (or (and (boundp 'epoch::version) epoch::version)\n" byte-compile-dynamic-docstrings " (string-lessp emacs-version \"19.28.90\")))\n" " (string-lessp emacs-version \"19\")))\n" " (error \"`" prin1-to-string file-name-nondirectory -1 "' was compiled for Emacs 19.29 or later\"))\n\n" "' was compiled for Emacs 19\"))\n\n"] 8]) (defalias 'byte-compile-output-file-form #[(form) ">8;ĉ@=&lj \n \" \"+ć" [form (defun defmacro defvar defconst autoload) 3 byte-compile-output-docform nil ("\n(" 3 ")") autoload t print-gensym print-readably print-escape-newlines princ "\n" outbuffer prin1] 8]) (defalias 'byte-compile-output-docform #[(preface name info form specindex quoted) "pq\f8YFFc\fA@ 8\"\fA@ 8;F\fA@ 8GVF\fA@ 8H=F\n[ U c \"\f@cΉ @\" A TcU @ A@B\"\n\"\" A T)l\fA@U\nق\n\"\"l`T @\"bcdb)l @\"l,\f8c)q" [outbuffer nil position 1 info 0 byte-compile-dynamic-docstrings "\n" byte-compile-output-as-comment form 42 preface prin1 name t index print-gensym print-readably print-escape-newlines " " specindex princ format "(#$ . %d) nil" quoted "'(#$ . %d)" "(#$ . %d)" "\\\n" 2] 5]) (defalias 'byte-compile-keep-pending #[(form &optional handler) "> \" 3 ># # !/ )8 \"͇" [byte-optimize (t source) byte-optimize-form form t handler for-effect (fset defalias) 300 byte-compile-output byte-compile-flush-pending byte-compile-discard byte-compile-form nil] 3]) (defalias 'byte-compile-flush-pending #[nil "1\"=\fA\"!\f!\f! \n\f ȉ)" [byte-compile-output byte-compile-out-toplevel t file form progn mapcar byte-compile-output-file-form nil byte-compile-constants byte-compile-variables 0 byte-compile-depth byte-compile-maxdepth] 4]) (defalias 'byte-compile-file-form #[(form) " : !D @9/ @N/ !D !D  \"=A !D !*" [nil handler byte-compile-current-form form byte-compile-keep-pending byte-hunk-handler byte-compile-flush-pending byte-compile-output-file-form macroexpand byte-compile-macro-environment byte-compile-file-form] 4]) (put (quote defsubst) (quote byte-hunk-handler) (quote byte-compile-file-form-defsubst)) (defalias 'byte-compile-file-form-defsubst #[(form) "A@ A@A@\"\"!ȇ" [form byte-compile-unresolved-functions byte-compile-current-form byte-compile-warn "defsubst %s was used before it was defined" byte-compile-file-form macroexpand byte-compile-macro-environment nil] 4]) (put (quote autoload) (quote byte-hunk-handler) (quote byte-compile-file-form-autoload)) (defalias 'byte-compile-file-form-autoload #[(form) "A$@:@@=!@9@>)58!5!8;>\"" [form quote (nil t) eval 5 3 byte-compile-keep-pending byte-compile-normal-call] 3]) (byte-code "##" [put defvar byte-hunk-handler byte-compile-file-form-defvar defconst] 4) (defalias 'byte-compile-file-form-defvar #[(form) " 8\n !\f> A@ B 8:- !AA 8# " [3 form byte-compile-keep-pending free-vars byte-compile-warnings byte-compile-bound-variables 2 copy-sequence byte-compile-top-level nil file] 6]) (put (quote require) (quote byte-hunk-handler) (quote byte-compile-file-form-eval-boundary)) (defalias 'byte-compile-file-form-eval-boundary #[(form) " ! \"" [eval form byte-compile-keep-pending byte-compile-normal-call] 3]) (byte-code "###" [put progn byte-hunk-handler byte-compile-file-form-progn prog1 prog2] 4) (defalias 'byte-compile-file-form-progn #[(form) "\nA\"Ç" [mapcar byte-compile-file-form form nil] 3]) (put (quote eval) (quote byte-hunk-handler) (quote byte-compile-file-form-eval)) (defalias 'byte-compile-file-form-eval #[(form) "A@=A@A@!" [form quote byte-compile-keep-pending] 2]) (put (quote defun) (quote byte-hunk-handler) (quote byte-compile-file-form-defun)) (defalias 'byte-compile-file-form-defun #[(form) " \"" [byte-compile-file-form-defmumble form nil] 3]) (put (quote defmacro) (quote byte-hunk-handler) (quote byte-compile-file-form-defmacro)) (defalias 'byte-compile-file-form-defmacro #[(form) " \"" [byte-compile-file-form-defmumble form t] 3]) (defalias 'byte-compile-file-form-defmumble #[(form macrop) "A@\n\f \nĂ J J\n \fA  A ɉE B >P\n\"b]A@#>~A@~A@\"ɡ>A@\nۂA@# ! K\nނ=>\n܂A@\nۂ$ B JBL\"@;\"9\"\";A@\")AAB!%%!'5%? %B JBL8;e'=e'A@=e@ 'A@ABB# 8;+yz ':\n'@=%'\n\n'\"':?5&+ ':\n'@=%'\n\n'\"':?5&?\". " [form name macrop byte-compile-macro-environment byte-compile-function-environment this-kind that-kind this-one that-one nil byte-compile-free-references byte-compile-free-assignments byte-compile-generate-call-tree byte-compile-call-tree byte-compile-current-form redefine byte-compile-warnings byte-compile-arglist-warn byte-compile-verbose message "Compiling %s... (%s)" filename "" byte-compile-initial-macro-environment byte-compile-warn "%s defined multiple times, as both function and macro" "%s %s defined multiple times in this file" "macro" "function" fboundp lambda macro "%s %s being redefined as a %s" 3 body "Probable `\"' without `\\' in doc string of %s" byte-compile-lambda new-one byte-compile-byte-code-maker code quote byte-compile-flush-pending byte-compile-output-docform byte-compile-compatibility "\n(fset '" "\n(defalias '" (" '(macro . #[" -1 "])") (" #[" -1 "]") (" '(macro " -1 ")") (" '(" -1 ")") (" (cons 'macro (" -1 "))") (" (" -1 ")") append byte-compile-dynamic 1 (" '(macro . #[" 4 "])") (" #[" 4 "]") (" '(macro " 2 ")") (" '(" 2 ")") (" (cons 'macro (" 5 "))") (" (" 5 ")") princ ")" outbuffer] 8]) (defalias 'byte-compile-output-as-comment #[(exp quoted) "`p qc  \" \"b#.ʉ#b#Bʉ#1b#Vʉ#EdbcbdZ\"`dbq)" [position outbuffer " " quoted prin1 exp princ search-forward "" nil t replace-match "" "" "0" "" "_" "#@" format "%d"] 6]) #@123 If FORM is a symbol, byte-compile its function definition. If FORM is a lambda or a macro, byte-compile it as a function. (defalias 'byte-compile #[(form) " !qd)ĎǏ*" [byte-compile-warnings-point-max byte-compile-log-file get-buffer-create "*Compile-Log*" ((byte-code "q dU p!! b!!)‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) error-info (byte-code " !‰ \f =\n \f 9B!DKD=UA=k!Bo!9\". " [copy-alist byte-compile-initial-macro-environment nil byte-compile-verbose byte-optimize byte-compile-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings t 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 fboundp fun macro lambda byte-compile-lambda defalias] 13) ((error (byte-compile-report-error error-info)))] 3 (#$ . 37431)]) #@26 Compile and return SEXP. (defalias 'byte-compile-sexp #[(sexp) " !qd)ĎǏ*" [byte-compile-warnings-point-max byte-compile-log-file get-buffer-create "*Compile-Log*" ((byte-code "q dU p!! b!!)‡" ["*Compile-Log*" byte-compile-warnings-point-max select-window selected-window display-buffer recenter 1] 5)) error-info (byte-code " !‰ \f =\n \f !. " [copy-alist byte-compile-initial-macro-environment nil byte-compile-verbose byte-optimize byte-compile-compatibility byte-compile-dynamic byte-compile-dynamic-docstrings byte-compile-warnings t byte-compile-warning-types byte-compile-free-assignments byte-compile-free-references byte-compile-bound-variables byte-compile-function-environment byte-compile-macro-environment byte-compile-top-level sexp] 12) ((error (byte-compile-report-error error-info)))] 3 (#$ . 38533)]) (defalias 'byte-compile-byte-code-maker #[(fun) "\n !D :  Ay >Ay AA A@D A@ 8 8 8;J 8CQQCtA@fA@;mA@sA@DC)| D)" [byte-compile-compatibility quote byte-compile-byte-code-unmake fun nil tmp byte-code interactive make-byte-code 2 3] 6]) (defalias 'byte-compile-byte-code-unmake #[(function) ":\"@D88C-8+BCA@88FC" [function append nil lambda 4 5 interactive byte-code 2 3] 6]) (defalias 'byte-compile-lambda #[(fun) "A@ > !\"\"AA @;+ @ A \n \f\f @=E A \fA:r\fAA[\f!\"\f8=\fA@!D\f\fA\f!\" B#= CA\n\f\nC\f\fA@C$\"\f\fC=AC D\n@;\n CB." [fun arglist free-vars byte-compile-warnings delq &rest &optional copy-sequence byte-compile-bound-variables body doc interactive int byte-compile-warn "malformed interactive spec: %s" prin1-to-string 1 list byte-compile-top-level progn nil lambda compiled byte-code byte-compile-compatibility apply make-byte-code append] 8]) (defalias 'byte-compile-constants-vector #[nil "\n\f\n  e\n@ X  =X @@B @AQ @ T @B A%\nA\n \"\"." [-1 i byte-compile-variables rest byte-compile-constants other nil ret tmp (5 63 255 65535) limits limit apply vector mapcar car] 6]) (defalias 'byte-compile-top-level #[(form &optional for-effect output-type) "> \f\"  =6 AA6 A@  =d>d A@;d 8!d 8!d q \f\"\f\"." [nil 0 byte-compile-output byte-compile-maxdepth byte-compile-depth byte-compile-tag-number byte-compile-variables byte-compile-constants byte-optimize (t source) byte-optimize-form form for-effect progn byte-code (t byte) vectorp 2 natnump 3 byte-compile-form byte-compile-out-toplevel output-type] 7]) (defalias 'byte-compile-out-toplevel #[(&optional for-effect output-type) "C @@= AC ?A !<@@9<@@<A#@@)!\"  >W \"=?ĉ=j=yԂz j j j !>A@@>@A@@@=:9>eDBYBYee@@NeA>eAAeA@@=eA=?@=?@A@ABDBC=\\@A\"\"?eA{ # !#&F)AB@," [for-effect byte-compile-output byte-discard byte-compile-push-constant nil byte-compile-constants reverse tmp byte-compile-out byte-return 0 byte-optimize (t byte) byte-optimize-lapcode output-type lambda body maycall rest file 50 8 TAG (byte-varref byte-constant) byte-constant (nil t) quote 3 byte-opcode-invert (file progn t) funcall delq mapcar consp byte-compile-constants-vector byte-compile-vector byte-code byte-compile-lapcode byte-compile-maxdepth progn] 6]) (defalias 'byte-compile-top-level-body #[(body &optional for-effect) "\nB #=\nA\n\nC" [byte-compile-top-level progn body for-effect t] 5]) (defalias 'byte-compile-form #[(form &optional for-effect) " \n\":2 9 > ! ** \" @9| @\nN\f\n>N\n\"\fia\nNNi\f !x>t ! !* @! @= != \" ! " [macroexpand form byte-compile-macro-environment (nil t) byte-compile-constant for-effect byte-compile-delete-errors nil byte-compile-variable-ref byte-varref fn byte-compile handler (t nil) byte-compile-warn "%s called as a function" byte-compile-compatibility byte-opcode emacs19-opcode callargs byte-compile-warnings byte-compile-callargs-warn byte-compile-normal-call byte-code-function-p lambda byte-compile-unfold-lambda byte-compile-form byte-compile-discard] 4]) (defalias 'byte-compile-normal-call #[(form) "\n!\n@!\nA\"\nAG\"" [byte-compile-generate-call-tree byte-compile-annotate-call-tree form byte-compile-push-constant mapcar byte-compile-form byte-compile-out byte-call] 3]) (defalias 'byte-compile-variable-ref #[(base-op var) "9 >) =ł9 ǂ!!#NQ\f>QN  ;I N \"#)\f> =gB!> =>\"B>\"BCB \")" [var (nil t) byte-compile-warn base-op byte-varbind "Attempt to let-bind %s %s" "Variable reference to %s %s" "constant" "nonvariable" prin1-to-string byte-obsolete-variable obsolete byte-compile-warnings ob "%s is an obsolete variable; %s" format "use %s instead." free-vars byte-compile-bound-variables boundp byte-varset byte-compile-free-assignments "assignment to free variable %s" byte-compile-free-references "reference to free variable %s" byte-compile-variables tmp byte-compile-out] 7]) (defalias 'byte-compile-get-constant '(macro . #[(const) " D BB BBF DBBEDE" [or if stringp const assoc (byte-compile-constants) assq (byte-compile-constants) car setq byte-compile-constants cons list (byte-compile-constants)] 8])) (defalias 'byte-compile-constant #[(const) "\f;\f\"\f'\fCB@\"" [for-effect nil byte-compile-out byte-constant const assoc byte-compile-constants] 5]) (defalias 'byte-compile-push-constant #[(const) "\n .\n;\n\"!\n-\nCB@\"*" [nil for-effect const byte-compile-out byte-constant assoc byte-compile-constants] 5]) (defalias 'byte-defop-compiler '(macro . #[(function &optional compile-handler) "\n9\n!P!\nA@\n@\nD ʞA3 3\n!P!DF\f T\f\nD DF D\nDFFV\f*" [nil opcode function intern "byte-" symbol-name put quote (quote byte-compile) compile-handler ((0 . byte-compile-no-args) (1 . byte-compile-one-arg) (2 . byte-compile-two-args) (3 . byte-compile-three-args) (0-1 . byte-compile-zero-or-one-arg) (1-2 . byte-compile-one-or-two-args) (2-3 . byte-compile-two-or-three-args)) "byte-compile-" fnform progn (quote byte-opcode) (quote byte-opcode-invert)] 8])) (defalias 'byte-defop-compiler19 '(macro . #[(function &optional compile-handler) " @  !P!DF \nEE" [progn put quote function intern "byte-" symbol-name (quote emacs19-opcode) t byte-defop-compiler compile-handler] 7])) (defalias 'byte-defop-compiler-1 '(macro . #[(function &optional compile-handler) " D E" [byte-defop-compiler function nil compile-handler] 3])) (byte-code "###############################################################################ԁ@#@#A#AԁB#BA#C#CԁD#DC#E#EԁD#DE#F#FԁG#GF#H#HԁI#IH#J#JԁK#KJ#L#LԁM#ML#N#NԁO#ON#P#PԁQ#QP#R#RԁS#SR#T#TԁU#UT#V#VԁW#WV#X#XԁY#YX#Z#[#[ԁZ#Z[#\\#]#]ԁ\\#\\]#^#_#_ԁ^#^_#`#a#aԁ`#`a#b#c#cԁb#bc#d#e#eԁd#de#f#g#gԁf#fg#h#iҁj#iԁh#hi#k#lҁj#lԁk#kl#mҁn#mԁo#om#pҁn#pԁo#op#qҁn#qԁr#rq#sҁn#sԁt#ts#uҁn#uԁv#vu#wҁn#wԁx#xw#yҁn#yԁz#zy#{ҁn#{ԁ|#|{#}ҁn#}ԁ~#~}#ҁn#ԁ##ҁn#ԁ##ҁn#ԁ##ҁn#ԁ##ҁ#ԁ###ҁ#ԁ###ҁ#ԁ####ԁ####ԁ####ԁ####ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ###ҁn#ԁ##ҁ#ԁ##ҁ#ԁ##ҁ#ԁ##ҁ#ԁ###ҁ#ԁ##ҁ#" [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 eql byte-compile-two-args byte-eq 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) "\n@\nAG\nAGUĂ%\n!" [byte-compile-warn "%s called with %d arg%s, but requires %s" form 1 "" "s" n byte-compile-normal-call] 6]) (defalias 'byte-compile-no-args #[(form) "GU\f\"@N\"" [form 1 byte-compile-subr-wrong-args "none" byte-compile-out byte-opcode 0] 3]) (defalias 'byte-compile-one-arg #[(form) "GU\f\"A@!@N\"" [form 2 byte-compile-subr-wrong-args 1 byte-compile-form byte-compile-out byte-opcode 0] 3]) (defalias 'byte-compile-two-args #[(form) "GU\f\"A@!8!@N\"" [form 3 byte-compile-subr-wrong-args 2 byte-compile-form byte-compile-out byte-opcode 0] 3]) (defalias 'byte-compile-three-args #[(form) "GU\f\"A@!8!8!@N\"" [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) "GU\"!\" U!\"\")" [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) "GU\"!\" U!\"\")" [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) "GU\"!\" U!\"\")" [form len 3 byte-compile-three-args append (nil) 4 byte-compile-subr-wrong-args "2-3"] 5]) (defalias 'byte-compile-noop #[(form) "!" [byte-compile-constant nil] 2]) (defalias 'byte-compile-discard #[nil "\"" [byte-compile-out byte-discard 0] 3]) (defalias 'byte-compile-associative #[(form) "A#@NA\"A!\n\")!!" [form byte-opcode opcode mapcar byte-compile-form byte-compile-out 0 byte-compile-constant eval] 4]) (byte-code "#############################" [put list byte-compile byte-compile-list byte-opcode byte-list byte-opcode-invert concat byte-compile-concat byte-concat fset byte-compile-fset byte-fset indent-to-column byte-compile-indent-to byte-indent-to indent-to insert byte-compile-insert byte-insert function byte-compile-function-form - byte-compile-minus byte-quo emacs19-opcode t / byte-compile-quo byte-nconc nconc byte-compile-nconc beginning-of-line byte-compile-beginning-of-line] 4) (defalias 'byte-compile-list #[(form) "AGU!A W&A\" SH\"A W> >A\" \"A!)" [form count 0 byte-compile-constant nil 5 mapcar byte-compile-form byte-compile-out [byte-list1 byte-list2 byte-list3 byte-list4] 256 byte-compile-compatibility byte-listN byte-compile-normal-call] 4]) (defalias 'byte-compile-concat #[(form) "AG W! W!A\" ZH\"H U-!H WE\fEA\" \"H!)" [form count 1 5 mapcar byte-compile-form byte-compile-out [byte-concat2 byte-concat3 byte-concat4] 2 0 "" 256 byte-compile-compatibility byte-concatN byte-compile-normal-call] 4]) (defalias 'byte-compile-minus #[(form) "A !@!A)A-@!\"\"" [form byte-compile-constant 0 byte-compile-form byte-compile-out byte-diff byte-negate] 3]) (defalias 'byte-compile-quo #[(form) "GX\",A@!A,@!\")" [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) "GU!9 UA@!9A@!A9@!\"%)" [form len 1 byte-compile-constant nil 2 byte-compile-form byte-compile-out byte-nconc 0] 4]) (defalias 'byte-compile-fset #[(form) " 8=B\fA@=B\fAA@;% A @=0 A @:B @@=B!* !" [2 form nil body fn 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) " A@=#\nA@=# @\nAB AABB$ )!" [byte-compile-normal-call form fn quote lambda function] 5]) (defalias 'byte-compile-function-form #[(form) " A@9 A@!\n A@!!! A@!!" [byte-compile-constant form byte-compile-compatibility byte-compile-byte-code-unmake byte-compile-lambda] 4]) (defalias 'byte-compile-indent-to #[(form) "GUA@!\"& U\"!&\")" [form len 2 byte-compile-form byte-compile-out byte-indent-to 0 3 byte-compile-normal-call byte-compile-subr-wrong-args "1-2"] 4]) (defalias 'byte-compile-insert #[(form) "A ! ,GX,A\"AA'AG\"\"AA\">;!AW@!\"A; ;" [form byte-compile-constant nil byte-compile-compatibility 256 mapcar byte-compile-form byte-compile-out byte-insertN byte-insert 0 t consp byte-compile-normal-call byte-compile-discard] 4]) (defalias 'byte-compile-beginning-of-line #[(form) "A@:A@@=A@9#A@>#!A@!.lj9SC\"DDD\"!" [form quote (nil t) byte-compile-normal-call byte-compile-form forward-line eval 1 byte-compile-warn "Non-numeric arg to beginning-of-line: %s" 1- t byte-compile-constant nil] 5]) (byte-code "####" [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. 3 A@! AA \" @\" AA \"ɉ)" [form args byte-compile-form for-effect byte-compile-out byte-dup 0 byte-compile-variable-ref byte-varset nil] 4]) (defalias 'byte-compile-setq-default #[(form) "A @D A@E\nB AA \nB!*" [form nil setters args set-default quote byte-compile-form progn] 4]) (defalias 'byte-compile-quote #[(form) " A@!" [byte-compile-constant form] 2]) (defalias 'byte-compile-quote-form #[(form) "\nA@!!" [byte-compile-constant byte-compile-top-level form] 3]) (defalias 'byte-compile-body #[(body &optional for-effect) "A@\"A@ \"" [body byte-compile-form t for-effect] 4]) (defalias 'byte-compile-body-do-effect #[(body) " \n\"É" [byte-compile-body body for-effect nil] 3]) (put (quote byte-compile-body-do-effect) (quote byte-optimizer) (quote byte-compile-inline-expand)) (defalias 'byte-compile-form-do-effect #[(form) " \n\"É" [byte-compile-form form for-effect nil] 3]) (byte-code "#################" [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 let byte-compile-let let* byte-compile-let*] 4) (defalias 'byte-compile-progn #[(form) "A \"ĉ)" [form body byte-compile-body for-effect nil] 3]) (defalias 'byte-compile-prog1 #[(form) "A@\n\")AA\"" [form byte-compile-form for-effect nil byte-compile-body t] 3]) (defalias 'byte-compile-prog2 #[(form) " A@\" 8 \f\") AAA\"" [byte-compile-form form t 2 for-effect nil byte-compile-body] 3]) (defalias 'byte-compile-goto-if '(macro . #[(cond discard tag) "\n BB BBFE" [byte-compile-goto if cond discard ((quote byte-goto-if-not-nil) (quote byte-goto-if-not-nil-else-pop)) ((quote byte-goto-if-nil) (quote byte-goto-if-nil-else-pop)) tag] 7])) (defalias 'byte-compile-if #[(form) " A@! - ǂ\f\" 8\"\f!)Z   \" 8\"\f\" ! AAA\"\f!*Ή" [byte-compile-form form 3 byte-compile-make-tag donetag byte-compile-goto for-effect byte-goto-if-nil byte-goto-if-nil-else-pop 2 byte-compile-out-tag elsetag byte-goto byte-compile-body nil] 3]) (defalias 'byte-compile-cond #[(clauses) "  Al @@='\n@=1\n@1\nB A\n@!\nAQ\nJ˂K\f\"  \"\nA\n\"\f\" !\nA\n@=\n@!\n͂\f\"\nA\n\n\"\n)\f!+" [byte-compile-make-tag nil clause nexttag donetag clauses t quote byte-compile-form byte-compile-goto for-effect byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-goto-if-nil byte-compile-body byte-goto byte-compile-out-tag byte-goto-if-nil-else-pop body] 4]) (defalias 'byte-compile-and #[(form) " A\n \"lj)I\nA9\n@!.ɂ/ \"\nA\n@ \") !*" [byte-compile-make-tag form args failtag t byte-compile-form for-effect nil byte-compile-goto byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-out-tag] 4]) (defalias 'byte-compile-or #[(form) " A\n \"ĉ)I\nA9\n@!.Ȃ/ \"\nA\n@ \") !*" [byte-compile-make-tag form args wintag nil byte-compile-form for-effect byte-compile-goto byte-goto-if-not-nil byte-goto-if-not-nil-else-pop byte-compile-out-tag] 4]) (defalias 'byte-compile-while #[(form) "  ! A@!Ȃ\n\" AA\" \"\n!͉*" [byte-compile-make-tag looptag endtag byte-compile-out-tag byte-compile-form form byte-compile-goto for-effect byte-goto-if-nil byte-goto-if-nil-else-pop byte-compile-body t byte-goto nil] 3]) (defalias 'byte-compile-funcall #[(form) "\nA\"\nAAG\"" [mapcar byte-compile-form form byte-compile-out byte-call] 3]) (defalias 'byte-compile-let #[(form) "A@# @: @A@!! A) A@! I @:> @@@ @\" A0AA   \" )A@G\"*" [form varlist byte-compile-form byte-compile-push-constant nil byte-compile-bound-variables reverse byte-compile-variable-ref byte-varbind body byte-compile-body for-effect byte-compile-out byte-unbind] 4]) (defalias 'byte-compile-let* #[(form) "\nA@! 3 @:!& @A@! @@ @\" A\f\nAA   \" )\nA@G\"*" [byte-compile-bound-variables copy-sequence form varlist byte-compile-push-constant nil byte-compile-form byte-compile-variable-ref byte-varbind body byte-compile-body for-effect byte-compile-out byte-unbind] 4]) (byte-code "######" [put /= byte-compile byte-compile-negated atom nlistp byte-compile-negated-op = consp listp] 4) (defalias 'byte-compile-negated #[(form) " ! \"ĉ)" [byte-compile-negation-optimizer form byte-compile-form for-effect nil] 3]) (defalias 'byte-compile-negation-optimizer #[(form) " @N @\" ABD" [not form byte-compile-negated-op error "Compiler error: `%s' has no `byte-compile-negated-op' property"] 4]) (byte-code "########" [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-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) " A@! AAB \"!\"" [byte-compile-form form byte-compile-push-constant byte-compile-top-level progn for-effect byte-compile-out byte-catch 0] 4]) (defalias 'byte-compile-unwind-protect #[(form) "\nAA\"!\"\nA@\n\")\"" [byte-compile-push-constant byte-compile-top-level-body form t byte-compile-out byte-unwind-protect 0 byte-compile-form for-effect nil byte-unbind 1] 4]) (defalias 'byte-compile-track-mouse #[(form) "A!BEDD!" [byte-compile-form funcall quote lambda nil track-mouse byte-compile-top-level-body form] 8]) (defalias 'byte-compile-condition-case #[(form) "A@ \nB\n 9 \" !8\"!AAA\n  @\f@ 9u  BAA8@=- \fE8 DD \fEE DEE L D F DF\"Չ," [form 2 3 string value var free-vars byte-compile-warnings byte-compile-bound-variables defconst setq or boundp quote current-load-list cons put (quote variable-documentation) body byte-compile-body for-effect nil] 6]) (defalias 'byte-compile-autoload #[(form) " 8: 8@= 89 8>Y 8:/ 8@=; 89> 8>Y 8!Y 8!!Y A@!\" !" [1 form quote (nil t) 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) "!" [error "`lambda' used as function name is invalid"] 2]) (defalias 'byte-compile-defalias #[(form) "A:jA@:jA@@=jA@A:jA@A@9jAA:j8:j8@=j8A:j8A@9jA@A@8A@\"A@A@8A@B\fB!" [form quote 2 byte-compile-defalias-warn byte-compile-function-environment byte-compile-normal-call] 4]) (defalias 'byte-compile-defalias-warn #[(new alias) " \n \")" [new byte-compile-unresolved-functions calls delq] 4]) (defalias 'byte-compile-make-tag #[nil " TD" [TAG byte-compile-tag-number] 3]) (defalias 'byte-compile-out-tag #[(tag) " BAA#\nAA\nUA@\"AAA\n" [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 >\fS\f=?\fS" [opcode tag byte-compile-output byte-goto-always-pop-ops byte-compile-depth byte-goto] 3]) (defalias 'byte-compile-out #[(opcode offset) " B\nB=\f Z=Ɖ\fJH( S[\\]" [opcode offset byte-compile-output byte-call byte-compile-depth byte-return nil byte-stack+-info byte-compile-maxdepth] 4]) (defalias 'byte-compile-annotate-call-tree #[(form) "\n@ \f 8>( A\f A@B(\n@\fCE B\f F\n@ 8>P AA\n@ 8BP\f\n@CE B)" [nil entry form byte-compile-call-tree byte-compile-current-form 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) "!q \" /ɂ/;+/! !ͱ m =Hтj =Rӂj =\\Ղj =fׂj \"\"!pډ@@\"@A@@8@@!''K!'9\"'!':'@= A!AAA ''AA'@=&'GGGG\\$dc`@V#W;`\")c`#;`\")cA!?@A@@@@A\"B@\"!?B?A?C;Dc`?#c`\").E!" [message "Generating call tree..." "*Call-Tree*" erase-buffer "Generating call tree... (sorting on %s)" byte-compile-call-tree-sort "Call tree for " byte-compile-current-file filename "???" buffer-name " sorted on " prin1-to-string ":\n\n" sort byte-compile-call-tree callers #[(x y) "A@G A@GW" [x y] 2] calls #[(x y) " 8G\n8GW" [2 x y] 3] calls+callers #[(x y) "A@G8G\\\nA@G\n8G\\W" [x 2 y] 4] name #[(x y) "@ @" [x y] 2] error "`byte-compile-call-tree-sort': `%s' - unknown sort mode" nil p f b rest prin1 2 " " fboundp " " " " subrp " " format " ==> %s" byte-code-function-p "" "" macro byte-code " " " " "" lambda "" " (%d callers + %d calls = %d)" "\n" " called by:\n" " " mapconcat symbol-name ", " "" fill-prefix fill-region-as-paragraph " calls:\n" "Generating call tree...(finding uncalled functions...)" uncalled byte-compile-fdefinition t commandp " " "Noninteractive functions not known to be called:\n " "Generating call tree...done."] 10 (#$ . 66404) 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 " B\n\f!@!!z@!ʼn \n v  @\"m @!m @@\"\nm\n! m !m\n \"m\n!m A ++@!A! ׂ!)" [command-line-args-left current-load-list noninteractive error "`batch-byte-compile' is to be used only with -batch" nil file-directory-p expand-file-name directory-files dest source files string-match emacs-lisp-file-regexp auto-save-file-name-p byte-compile-dest-file file-exists-p file-newer-than-file-p batch-byte-compile-file t message "Done" kill-emacs 1 0] 4 (#$ . 68717)]) (defalias 'batch-byte-compile-file #[(file) "" [err (byte-code " !‡" [byte-compile-file file t] 2) ((error (byte-code " A\n‚ \f @N A!$LJ" [message err ">>Error occurred processing %s: %s (%s)" ">>Error occurred processing %s: %s" file 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 " B\n\f!\"@!A!" [command-line-args-left current-load-list noninteractive error "batch-byte-recompile-directory is to be used only with -batch" (".") byte-recompile-directory kill-emacs 0] 3 (#$ . 69893)]) (byte-code "\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"\"!!" [make-obsolete dot point 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 make-obsolete-variable auto-fill-hook auto-fill-function blink-paren-hook blink-paren-function lisp-indent-hook lisp-indent-function temp-buffer-show-hook temp-buffer-show-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; this is now a list of events." suspend-hooks suspend-hook comment-indent-hook comment-indent-function meta-flag "Use the set-input-mode function instead." provide byte-compile bytecomp] 3) (defalias 'byte-compile-report-ops #[nil " BqĉWHH\nWB\"\"TYTZH\"c!c t !ձj!ױT," [byte-code-meter current-load-list "*Meter*" 0 nil off op n i 256 byte-nth logand 7 248 byte-constant byte-code-vector format "%-4d" symbol-name " [" int-to-string "]" 40 "\n"] 6])