home *** CD-ROM | disk | FTP | other *** search
Wrap
(provide (quote byte-compile)) (defvar byte-compile-constnum -1 "\ Transfer vector index of last constant allocated.") (defvar byte-compile-constants nil "\ Alist describing contents to put in transfer vector. Each element is (CONTENTS . INDEX)") (defvar byte-compile-macro-environment nil "\ Alist of (MACRONAME . DEFINITION) macros defined in the file which is being compiled.") (defvar byte-compile-pc 0 "\ Index in byte string to store next opcode at.") (defvar byte-compile-output nil "\ Alist describing contents to put in byte code string. Each element is (INDEX . VALUE)") (defvar byte-compile-depth 0 "\ Current depth of execution stack.") (defvar byte-compile-maxdepth 0 "\ Maximum depth of execution stack.") (defconst byte-varref 8 "\ Byte code opcode for variable reference.") (defconst byte-varset 16 "\ Byte code opcode for setting a variable.") (defconst byte-varbind 24 "\ Byte code opcode for binding a variable.") (defconst byte-call 32 "\ Byte code opcode for calling a function.") (defconst byte-unbind 40 "\ Byte code opcode for unbinding special bindings.") (defconst byte-constant 192 "\ Byte code opcode for reference to a constant.") (defconst byte-constant-limit 64 "\ Maximum index usable in byte-constant opcode.") (defconst byte-constant2 129 "\ Byte code opcode for reference to a constant with vector index >= 0100.") (defconst byte-goto 130 "\ Byte code opcode for unconditional jump") (defconst byte-goto-if-nil 131 "\ Byte code opcode for pop value and jump if it's nil.") (defconst byte-goto-if-not-nil 132 "\ Byte code opcode for pop value and jump if it's not nil.") (defconst byte-goto-if-nil-else-pop 133 "\ Byte code opcode for examine top-of-stack, jump and don't pop it if it's nil, otherwise pop it.") (defconst byte-goto-if-not-nil-else-pop 134 "\ Byte code opcode for examine top-of-stack, jump and don't pop it if it's not nil, otherwise pop it.") (defconst byte-return 135 "\ Byte code opcode for pop value and return it from byte code interpreter.") (defconst byte-discard 136 "\ Byte code opcode to discard one value from stack.") (defconst byte-dup 137 "\ Byte code opcode to duplicate the top of the stack.") (defconst byte-save-excursion 138 "\ Byte code opcode to make a binding to record the buffer, point and mark.") (defconst byte-save-window-excursion 139 "\ Byte code opcode to make a binding to record entire window configuration.") (defconst byte-save-restriction 140 "\ Byte code opcode to make a binding to record the current buffer clipping restrictions.") (defconst byte-catch 141 "\ Byte code opcode for catch. Takes, on stack, the tag and an expression for the body.") (defconst byte-unwind-protect 142 "\ Byte code opcode for unwind-protect. Takes, on stack, an expression for the body and an expression for the unwind-action.") (defconst byte-condition-case 143 "\ Byte code opcode for condition-case. Takes, on stack, the variable to bind, an expression for the body, and a list of clauses.") (defconst byte-temp-output-buffer-setup 144 "\ Byte code opcode for entry to with-output-to-temp-buffer. Takes, on stack, the buffer name. Binds standard-output and does some other things. Returns with temp buffer on the stack in place of buffer name.") (defconst byte-temp-output-buffer-show 145 "\ Byte code opcode for exit from with-output-to-temp-buffer. Expects the temp buffer on the stack underneath value to return. Pops them both, then pushes the value back on. Unbinds standard-output and makes the temp buffer visible.") (defconst byte-nth 56) (defconst byte-symbolp 57) (defconst byte-consp 58) (defconst byte-stringp 59) (defconst byte-listp 60) (defconst byte-eq 61) (defconst byte-memq 62) (defconst byte-not 63) (defconst byte-car 64) (defconst byte-cdr 65) (defconst byte-cons 66) (defconst byte-list1 67) (defconst byte-list2 68) (defconst byte-list3 69) (defconst byte-list4 70) (defconst byte-length 71) (defconst byte-aref 72) (defconst byte-aset 73) (defconst byte-symbol-value 74) (defconst byte-symbol-function 75) (defconst byte-set 76) (defconst byte-fset 77) (defconst byte-get 78) (defconst byte-substring 79) (defconst byte-concat2 80) (defconst byte-concat3 81) (defconst byte-concat4 82) (defconst byte-sub1 83) (defconst byte-add1 84) (defconst byte-eqlsign 85) (defconst byte-gtr 86) (defconst byte-lss 87) (defconst byte-leq 88) (defconst byte-geq 89) (defconst byte-diff 90) (defconst byte-negate 91) (defconst byte-plus 92) (defconst byte-max 93) (defconst byte-min 94) (defconst byte-point 96) (defconst byte-goto-char 98) (defconst byte-insert 99) (defconst byte-point-max 100) (defconst byte-point-min 101) (defconst byte-char-after 102) (defconst byte-following-char 103) (defconst byte-preceding-char 104) (defconst byte-current-column 105) (defconst byte-indent-to 106) (defconst byte-eolp 108) (defconst byte-eobp 109) (defconst byte-bolp 110) (defconst byte-bobp 111) (defconst byte-current-buffer 112) (defconst byte-set-buffer 113) (defconst byte-read-char 114) (defconst byte-interactive-p 116) (defun byte-recompile-directory (directory &optional arg) "\ Recompile every .el file in DIRECTORY that needs recompilation. This is if a .elc file exists but is older than the .el file. If the .elc file does not exist, offer to compile the .el file only if a prefix argument has been specified." (interactive "DByte recompile directory: P") (byte-code "אêו êז✓!ë⓪êח✓אט#יאא⑨ àcכ @!?àOז @✓\"ë④àOל!מPë⑤àOנ !âDס \"éO╱àOעפצQ!àZק!ê♪Të③ê Aë①êé⑦êרש♪♪תUâqןérך#,ç" [directory files nil count source dest arg save-some-buffers expand-file-name directory-files "\\.el\\'" 0 auto-save-file-name-p file-name-sans-versions "c" file-exists-p file-newer-than-file-p y-or-n-p "Compile " "? " byte-compile-file message "Done (Total of %d file%s compiled)" 1 "" "s"] 15)) (defun byte-compile-file (filename) "\ 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." (interactive "fByte compile file: ") (byte-code "גêט✓!ë⓪êיכ✓\"êלמ!לנ!גגג╱ə⑨è qêס êע✓!êפbê qêצ êס êè qêקר!êשת!àHןפ!êé7êm?)àaך !ë⑥╱êםף╱! \"êé3ê qêפbêץ§גו#àÄש∧!àè∞α!êקβ!êשΓ!àèπפ!êΣcêéhêפbêץ§גו#àכשσ!àז`S✓גµτÅàוקβ!ê✓èΦ ê`)=àושΓ!àוπפ!êΣc)êéÆêו ΘפdΩ✓!δP#)ê∮p!ê∮ !)-êוç" [filename inbuffer outbuffer byte-compile-macro-environment nil case-fold-search sexp t this-line vms-stmlf-recfm expand-file-name message "Compiling %s..." get-buffer-create " *Compiler Input*" " *Compiler Output*" erase-buffer insert-file-contents 1 emacs-lisp-mode skip-chars-forward " " looking-at ";" forward-line read print byte-compile-file-form search-forward " (" "defun \\|autoload " forward-sexp 3 " " "\"" forward-char "\\ " "defvar \\|defconst " (byte-code "IJא!êijç" [t forward-sexp 3] 2) ((error (byte-code "ijç" [nil] 1))) beginning-of-line write-region file-name-sans-versions "c" kill-buffer] 32)) (defun byte-compile-file-form (form) (byte-code "✓<?â ✓éö✓@ז>âä✓A@⑨ח ♪\"ə✓@ט=â_יכל✓8#ê â4מ ד\"éJנ !à@ס K!ע=àJ דB♪Bë③êטפ✓A!B╱?à[יצ\"êéÇ ânמ ק✓AAB\"éy ק✓AABB♪Bë③êרפ✓A!B*éö✓@ש=âôת✓!ê✓éö✓ç" [form name tem byte-compile-macro-environment filename nil noninteractive t (defun defmacro) assq defun message "Compiling %s (%s)..." 1 setcdr fboundp car-safe macro byte-compile-lambda "Compiling %s..." lambda defmacro require eval] 11)) (defun byte-compile (funname) "\ Byte-compile the definition of function FUNNAME (a symbol)." (byte-code "IJ✓!àא✓K!ב=à⑤✓ג✓K!Mç" [funname fboundp car-safe lambda byte-compile-lambda] 5)) (defun byte-compile-lambda (fun) (byte-code " A⑧גד✓A\"əה✓A@;à⑥✓Aë⓪êוז✓AB!Cë③ê àB A@;å0 A@?â7 é>דו A@!D♪Bë③ê✓ A=?àRח 8♪Bë③ê @ A@♪BB+ç" [bodyptr fun int newbody assq interactive nil byte-compile-top-level progn 2] 6)) (defun byte-compile-top-level (form) (byte-code "IJIJלללIJIJIJ✓◆╱ə⑧IJIJמ♪ נ!ë⑥ ê @ë⑥êס A!ë⑥ ê àU♪Të⑥♪ê @♪B✓Bë⓪ê Aë⑥ êé4ê♪ë②+êע!êפצל\"êק TIJ\"ë⑥✓ê✓àà✓✓@A✓@@Iê✓Aë⓪êéoêר♪ל\"ë⑥◆ê╱à⌐◆╱@@╱@AIê╱Aë⑥╱êéÄêש◆✓ F.✓ç" [byte-compile-constants nil byte-compile-constnum byte-compile-pc byte-compile-depth byte-compile-maxdepth byte-compile-output byte-compile-string byte-compile-vector vars temp i form 0 -1 byte-compile-find-vars nreverse byte-compile-form byte-compile-out byte-return make-vector make-string byte-code] 10)) (defun byte-compile-find-vars (form) (byte-code "IJ⑧ב !✓B)ç" [all-vars nil form byte-compile-find-vars-1] 3)) (defun byte-compile-find-vars-1 (form) (byte-code "✓9â⑥✓ >?à①✓ Bë①ê✓é♪⇧✓:?å ✓@ז=â'✓é♪⇧✓@ח>âÉט✓A@!ə✓AA àé@9âU@ >?àR@ Bë①éy@:ày@@ >?àk@@ Bë①êי@@כ@A@!D\"êAë④êé:ê✓@ לכ♪\"BB+é♪⇧✓@מ=å¢✓@נ=âó✓é♪⇧✓@ס=âÕסכע✓8!פצ✓\"BBé♪⇧✓@ק=âπט✓A! àףילכ@\"\"êAë④êéהêק B*é♪⇧✓ר✓╱\"ë⓪=?â÷כ✓!é♪⇧✓@9â◆⇧✓@לכ✓A\"Bé♪⇧לכ✓\"ç" [form all-vars binds body tail clauses byte-compile-macro-environment t quote (let let*) copy-sequence setcar byte-compile-find-vars-1 mapcar function condition-case catch 1 nthcdr 2 cond macroexpand] 15)) (defun byte-compile-form (form) (byte-code "ה✓ \"ë⓪ê✓ו=â③ז✓!éK✓א=âז✓!éK✓9â+חט✓\"éK✓:?â7ז✓!éK✓@יN♪âGכ♪✓\"éJל✓!)ê Të⑤]ë④ç" [form byte-compile-macro-environment t handler byte-compile-maxdepth byte-compile-depth macroexpand nil byte-compile-constant byte-compile-variable-ref byte-varref byte-compile funcall byte-compile-normal-call] 10)) (defun byte-compile-normal-call (form) (byte-code "ב✓@!ê✓A⑨ à⑨ג @!ê Aë①êé✓)êדה✓AG\"ê ✓AGZë②ç" [form copy byte-compile-depth byte-compile-push-constant byte-compile-form byte-compile-out byte-call] 5)) (defun byte-compile-variable-ref (base-op var) (byte-code "ג \"⑧✓â①ד♪✓A\"é⑨הוזח !\"!)ç" [data var byte-compile-constants base-op assq byte-compile-out error format "Variable %s seen on pass 2 of byte compiler but not pass 1" prin1-to-string] 7)) (defun byte-compile-constant (const) (byte-code " ;âג \"é⓪ד \"⑧✓âה✓A!é* ♪Të③B Bë②êה♪!)ç" [data const byte-compile-constants byte-compile-constnum assoc assq byte-compile-out-const] 6)) (defun byte-compile-push-constant (const) (byte-code "ב✓!ê Të②]ë①ç" [const byte-compile-maxdepth byte-compile-depth byte-compile-constant] 4)) (put (quote point) (quote byte-compile) (quote byte-compile-no-args)) (put (quote point) (quote byte-opcode) (quote byte-point)) (put (quote dot) (quote byte-compile) (quote byte-compile-no-args)) (put (quote dot) (quote byte-opcode) (quote byte-point)) (put (quote point-max) (quote byte-compile) (quote byte-compile-no-args)) (put (quote point-max) (quote byte-opcode) (quote byte-point-max)) (put (quote point-min) (quote byte-compile) (quote byte-compile-no-args)) (put (quote point-min) (quote byte-opcode) (quote byte-point-min)) (put (quote dot-max) (quote byte-compile) (quote byte-compile-no-args)) (put (quote dot-max) (quote byte-opcode) (quote byte-point-max)) (put (quote dot-min) (quote byte-compile) (quote byte-compile-no-args)) (put (quote dot-min) (quote byte-opcode) (quote byte-point-min)) (put (quote following-char) (quote byte-compile) (quote byte-compile-no-args)) (put (quote following-char) (quote byte-opcode) (quote byte-following-char)) (put (quote preceding-char) (quote byte-compile) (quote byte-compile-no-args)) (put (quote preceding-char) (quote byte-opcode) (quote byte-preceding-char)) (put (quote current-column) (quote byte-compile) (quote byte-compile-no-args)) (put (quote current-column) (quote byte-opcode) (quote byte-current-column)) (put (quote eolp) (quote byte-compile) (quote byte-compile-no-args)) (put (quote eolp) (quote byte-opcode) (quote byte-eolp)) (put (quote eobp) (quote byte-compile) (quote byte-compile-no-args)) (put (quote eobp) (quote byte-opcode) (quote byte-eobp)) (put (quote bolp) (quote byte-compile) (quote byte-compile-no-args)) (put (quote bolp) (quote byte-opcode) (quote byte-bolp)) (put (quote bobp) (quote byte-compile) (quote byte-compile-no-args)) (put (quote bobp) (quote byte-opcode) (quote byte-bobp)) (put (quote current-buffer) (quote byte-compile) (quote byte-compile-no-args)) (put (quote current-buffer) (quote byte-opcode) (quote byte-current-buffer)) (put (quote read-char) (quote byte-compile) (quote byte-compile-no-args)) (put (quote read-char) (quote byte-opcode) (quote byte-read-char)) (put (quote symbolp) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote symbolp) (quote byte-opcode) (quote byte-symbolp)) (put (quote consp) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote consp) (quote byte-opcode) (quote byte-consp)) (put (quote stringp) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote stringp) (quote byte-opcode) (quote byte-stringp)) (put (quote listp) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote listp) (quote byte-opcode) (quote byte-listp)) (put (quote not) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote not) (quote byte-opcode) (quote byte-not)) (put (quote null) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote null) (quote byte-opcode) (quote byte-not)) (put (quote car) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote car) (quote byte-opcode) (quote byte-car)) (put (quote cdr) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote cdr) (quote byte-opcode) (quote byte-cdr)) (put (quote length) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote length) (quote byte-opcode) (quote byte-length)) (put (quote symbol-value) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote symbol-value) (quote byte-opcode) (quote byte-symbol-value)) (put (quote symbol-function) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote symbol-function) (quote byte-opcode) (quote byte-symbol-function)) (put (quote 1+) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote 1+) (quote byte-opcode) (quote byte-add1)) (put (quote 1-) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote 1-) (quote byte-opcode) (quote byte-sub1)) (put (quote goto-char) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote goto-char) (quote byte-opcode) (quote byte-goto-char)) (put (quote char-after) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote char-after) (quote byte-opcode) (quote byte-char-after)) (put (quote set-buffer) (quote byte-compile) (quote byte-compile-one-arg)) (put (quote set-buffer) (quote byte-opcode) (quote byte-set-buffer)) (put (quote eq) (quote byte-compile) (quote byte-compile-two-args)) (put (quote eq) (quote byte-opcode) (quote byte-eq)) (put (quote eql) (quote byte-compile) (quote byte-compile-two-args)) (put (quote eql) (quote byte-opcode) (quote byte-eq)) (put (quote memq) (quote byte-compile) (quote byte-compile-two-args)) (put (quote memq) (quote byte-opcode) (quote byte-memq)) (put (quote cons) (quote byte-compile) (quote byte-compile-two-args)) (put (quote cons) (quote byte-opcode) (quote byte-cons)) (put (quote aref) (quote byte-compile) (quote byte-compile-two-args)) (put (quote aref) (quote byte-opcode) (quote byte-aref)) (put (quote set) (quote byte-compile) (quote byte-compile-two-args)) (put (quote set) (quote byte-opcode) (quote byte-set)) (put (quote fset) (quote byte-compile) (quote byte-compile-two-args)) (put (quote fset) (quote byte-opcode) (quote byte-fset)) (put (quote =) (quote byte-compile) (quote byte-compile-two-args)) (put (quote =) (quote byte-opcode) (quote byte-eqlsign)) (put (quote <) (quote byte-compile) (quote byte-compile-two-args)) (put (quote <) (quote byte-opcode) (quote byte-lss)) (put (quote >) (quote byte-compile) (quote byte-compile-two-args)) (put (quote >) (quote byte-opcode) (quote byte-gtr)) (put (quote <=) (quote byte-compile) (quote byte-compile-two-args)) (put (quote <=) (quote byte-opcode) (quote byte-leq)) (put (quote >=) (quote byte-compile) (quote byte-compile-two-args)) (put (quote >=) (quote byte-opcode) (quote byte-geq)) (put (quote get) (quote byte-compile) (quote byte-compile-two-args)) (put (quote get) (quote byte-opcode) (quote byte-get)) (put (quote nth) (quote byte-compile) (quote byte-compile-two-args)) (put (quote nth) (quote byte-opcode) (quote byte-nth)) (put (quote aset) (quote byte-compile) (quote byte-compile-three-args)) (put (quote aset) (quote byte-opcode) (quote byte-aset)) (defun byte-compile-no-args (form) (byte-code "IJ✓Gא\"âב✓!é⑥ג✓@דNJה\"ç" [form /= 1 byte-compile-normal-call byte-compile-out byte-opcode 0] 5)) (defun byte-compile-one-arg (form) (byte-code "א✓Gב\"âג✓!é!ד✓A@!ê Së①êה✓@וNJז\"ç" [form byte-compile-depth /= 2 byte-compile-normal-call byte-compile-form byte-compile-out byte-opcode 0] 6)) (defun byte-compile-two-args (form) (byte-code "א✓Gב\"âג✓!é(ד✓A@!êדה✓8!ê הZë①êו✓@זNJח\"ç" [form byte-compile-depth /= 3 byte-compile-normal-call byte-compile-form 2 byte-compile-out byte-opcode 0] 7)) (defun byte-compile-three-args (form) (byte-code "א✓Gב\"âג✓!é.ד✓A@!êדה✓8!êדו✓8!ê וZë①êז✓@חNJט\"ç" [form byte-compile-depth /= 4 byte-compile-normal-call byte-compile-form 2 3 byte-compile-out byte-opcode 0] 8)) (put (quote substring) (quote byte-compile) (quote byte-compile-substring)) (defun byte-compile-substring (form) (byte-code "✓GבVå♪✓GגWâ④ד✓!é8הו✓8!êהג✓8å\"ז!êהח✓8å,ט!ê חZë①êי כ\"ç" [form byte-compile-depth byte-substring 4 2 byte-compile-normal-call byte-compile-form 1 (quote nil) 3 (quote nil) byte-compile-out 0] 7)) (put (quote interactive-p) (quote byte-compile) (quote byte-compile-interactive-p)) (defun byte-compile-interactive-p (form) (byte-code "IJ✓א\"ç" [byte-interactive-p byte-compile-out 0] 3)) (put (quote list) (quote byte-compile) (quote byte-compile-list)) (defun byte-compile-list (form) (byte-code " G⑧✓דUâהא!éA✓וWâ> A♪à)ז♪@!ê♪Aë③êé⑧ê✓SZë④êח✓טZי8Jכ\")éAל !)ç" [len form nil args byte-compile-depth 1 byte-compile-constant 6 byte-compile-form byte-compile-out 2 (byte-list1 byte-list2 byte-list3 byte-list4) 0 byte-compile-normal-call] 5)) (put (quote concat) (quote byte-compile) (quote byte-compile-concat)) (defun byte-compile-concat (form) (byte-code " G⑧✓דUâהו!éM✓זUâח !éM✓טWâJ Aə à5ה @!ê Aë②êé$ê♪✓SZë③êי✓כZל8Jמ\")éMח !)ç" [len form args byte-compile-depth t 1 byte-compile-form "" 2 byte-compile-normal-call 6 byte-compile-out 3 (byte-concat2 byte-concat3 byte-concat4) 0] 6)) (put (quote -) (quote byte-compile) (quote byte-compile-minus)) (defun byte-compile-minus (form) (byte-code " G⑧✓הUâו A@!ê זZë②êח♪ט\"é>✓יUâ;ו A@!êוה 8!ê הZë②êחט\"é>כ !)ç" [len form byte-compile-depth byte-negate byte-diff t 2 byte-compile-form 1 byte-compile-out 0 3 byte-compile-normal-call] 7)) (put (quote +) (quote byte-compile) (quote byte-compile-maybe-two-args)) (put (quote +) (quote byte-opcode) (quote byte-plus)) (put (quote max) (quote byte-compile) (quote byte-compile-maybe-two-args)) (put (quote max) (quote byte-opcode) (quote byte-max)) (put (quote min) (quote byte-compile) (quote byte-compile-maybe-two-args)) (put (quote min) (quote byte-opcode) (quote byte-min)) (defun byte-compile-maybe-two-args (form) (byte-code " G⑧✓בUâ&ג A@!êגד 8!ê דZë②êה @וNJז\"é)ח !)ç" [len form byte-compile-depth 3 byte-compile-form 2 byte-compile-out byte-opcode 0 byte-compile-normal-call] 5)) (put (quote function) (quote byte-compile) (quote byte-compile-function-form)) (defun byte-compile-function-form (form) (byte-code "✓A@9â③אבגד✓8DD!éəהו✓A@!!ç" [form t byte-compile-form symbol-function quote 1 byte-compile-constant byte-compile-lambda] 5)) (put (quote indent-to) (quote byte-compile) (quote byte-compile-indent-to)) (defun byte-compile-indent-to (form) (byte-code " G⑧✓גUâד A@!ê הZë②êו♪ז\"éח !)ç" [len form byte-compile-depth byte-indent-to 2 byte-compile-form 1 byte-compile-out 0 byte-compile-normal-call] 4)) (put (quote insert) (quote byte-compile) (quote byte-compile-insert)) (defun byte-compile-insert (form) (byte-code " G⑧✓דWâ, Aə à(ה @!ê♪וZë③êזח\"ê Aë②êé)é/ט !)ç" [len form args byte-compile-depth byte-insert 3 byte-compile-form 1 byte-compile-out 0 byte-compile-normal-call] 5)) (put (quote setq-default) (quote byte-compile) (quote byte-compile-setq-default)) (defun byte-compile-setq-default (form) (byte-code "IJאבג✓8Dדה✓\"BB!ç" [form byte-compile-form set-default quote 1 nthcdr 2] 6)) (put (quote quote) (quote byte-compile) (quote byte-compile-quote)) (defun byte-compile-quote (form) (byte-code "IJ✓A@!ç" [form byte-compile-constant] 2)) (put (quote setq) (quote byte-compile) (quote byte-compile-setq)) (defun byte-compile-setq (form) (byte-code " A⑧✓â;✓à8ד✓A@!ê✓AA?à#הוז\"ê ♪T]ë②ê♪Së③êחט✓@\"ê✓AAë⓪êé◆é>יג!)ç" [args form byte-compile-maxdepth byte-compile-depth nil byte-compile-form byte-compile-out byte-dup 0 byte-compile-variable-ref byte-varset byte-compile-constant] 6)) (put (quote let) (quote byte-compile) (quote byte-compile-let)) (defun byte-compile-let (form) (byte-code " A@⑧✓à#✓@9â④גא!éəד✓@A@!ê✓Aë⓪êé⇦)êה A@!⑧♪✓GZë③ê✓àS✓@9âDוז✓@\"éJוז✓@@\"ê✓Aë⓪êé2)êח AA!êטי A@G\"ç" [varlist form nil byte-compile-depth byte-compile-push-constant byte-compile-form reverse byte-compile-variable-ref byte-varbind byte-compile-body byte-compile-out byte-unbind] 9)) (put (quote let*) (quote byte-compile) (quote byte-compile-let*)) (defun byte-compile-let* (form) (byte-code " A@⑧✓à=✓@9â④גא!éəד✓@A@!ê♪Së③ê✓@9â.הו✓@\"é4הו✓@@\"ê✓Aë⓪êé⇦)êז AA!êחט A@G\"ç" [varlist form nil byte-compile-depth byte-compile-push-constant byte-compile-form byte-compile-variable-ref byte-varbind byte-compile-body byte-compile-out byte-unbind] 8)) (put (quote save-excursion) (quote byte-compile) (quote byte-compile-save-excursion)) (defun byte-compile-save-excursion (form) (byte-code "IJאב\"êג✓A!êIJדה\"ç" [form byte-compile-out byte-save-excursion 0 byte-compile-body byte-unbind 1] 5)) (put (quote save-restriction) (quote byte-compile) (quote byte-compile-save-restriction)) (defun byte-compile-save-restriction (form) (byte-code "IJאב\"êג✓A!êIJדה\"ç" [form byte-compile-out byte-save-restriction 0 byte-compile-body byte-unbind 1] 5)) (put (quote with-output-to-temp-buffer) (quote byte-compile) (quote byte-compile-with-output-to-temp-buffer)) (defun byte-compile-with-output-to-temp-buffer (form) (byte-code "א✓A@!êבגד\"êה✓AA!êבוד\"ê Së①ç" [form byte-compile-depth byte-compile-form byte-compile-out byte-temp-output-buffer-setup 0 byte-compile-body byte-temp-output-buffer-show] 6)) (put (quote progn) (quote byte-compile) (quote byte-compile-progn)) (defun byte-compile-progn (form) (byte-code "IJ✓A!ç" [form byte-compile-body] 2)) (put (quote interactive) (quote byte-compile) (quote byte-compile-noop)) (defun byte-compile-noop (form) (byte-code "IJij!ç" [nil byte-compile-constant] 2)) (defun byte-compile-body (body) (byte-code "✓?â♪בIJ!é+✓à+ג✓@!ê✓Aâד é\" Së②ê✓Aë⓪êé♪ç" [body nil byte-compile-depth byte-compile-constant byte-compile-form byte-compile-discard] 6)) (put (quote prog1) (quote byte-compile) (quote byte-compile-prog1)) (defun byte-compile-prog1 (form) (byte-code "IJ✓A@!ê✓AAà④א✓AA!êב ç" [form byte-compile-form byte-compile-body byte-compile-discard] 4)) (put (quote prog2) (quote byte-compile) (quote byte-compile-prog2)) (defun byte-compile-prog2 (form) (byte-code "IJ✓A@!êא êIJב✓8!ê✓AAAàג✓AAA!êא ç" [form byte-compile-form byte-compile-discard 2 byte-compile-body] 6)) (defun byte-compile-discard nil (byte-code "IJאב\"ê✓Së⓪ç" [byte-compile-depth byte-compile-out byte-discard 0] 3)) (put (quote if) (quote byte-compile) (quote byte-compile-if)) (defun byte-compile-if (form) (byte-code "גד✓\"?â-ה ⑨ו✓A@!êזח \"ê Së②êוט✓8!ê Së②êי !)ébה ה ⑨ו✓A@!êזכ♪\"ê Së②êוט✓8!ê Së②êזל \"êי♪!êמ✓AAA!êי !*ç" [form donetag byte-compile-depth elsetag nthcdr 3 byte-compile-make-tag byte-compile-form byte-compile-goto byte-goto-if-nil-else-pop 2 byte-compile-out-tag byte-goto-if-nil byte-goto byte-compile-body] 16)) (put (quote cond) (quote byte-compile) (quote byte-compile-cond)) (defun byte-compile-cond (form) (byte-code "✓Aâא✓A!éבIJ!ç" [form nil byte-compile-cond-1 byte-compile-constant] 3)) (defun byte-compile-cond-1 (clauses) (byte-code "✓@@IJ=åד✓@@!ה=âəו✓@A!éç✓A?âFז əח✓@@!ê✓@AàBטי \"ê♪Së③êו✓@A!êכ !)éçז ז əח✓@@!ê✓@A?âeטל \"ê♪Së③é}טמ\"ê♪Së③êו✓@A!êטנ \"êכ!êס✓A!êכ !*ç" [clauses t donetag byte-compile-depth elsetag car-safe quote byte-compile-body byte-compile-make-tag byte-compile-form byte-compile-goto byte-goto-if-nil-else-pop byte-compile-out-tag byte-goto-if-not-nil-else-pop byte-goto-if-nil byte-goto byte-compile-cond-1] 18)) (put (quote and) (quote byte-compile) (quote byte-compile-and)) (defun byte-compile-and (form) (byte-code "ד A⑨⑧ ?â⑥הב!êSë④é= à=ה @!êSë④ê A?â0ו✓!é4זח✓\"ê Aë①êé⑥*ç" [failtag args form t byte-compile-depth byte-compile-make-tag byte-compile-form byte-compile-out-tag byte-compile-goto byte-goto-if-nil-else-pop] 8)) (put (quote or) (quote byte-compile) (quote byte-compile-or)) (defun byte-compile-or (form) (byte-code "ד A⑨⑧ ?â①הב!é8 à8ו @!êSë④ê A?â+ז✓!é/חט✓\"ê Aë①êé①*ç" [wintag args form nil byte-compile-depth byte-compile-make-tag byte-compile-constant byte-compile-form byte-compile-out-tag byte-compile-goto byte-goto-if-not-nil-else-pop] 8)) (put (quote while) (quote byte-compile) (quote byte-compile-while)) (defun byte-compile-while (form) (byte-code "ג ג ♪AAə⑨⑧ד !êה♪A@!êוז✓\"êח♪AA!êט êוי \"êד✓!+ç" [endtag looptag args form byte-compile-make-tag byte-compile-out-tag byte-compile-form byte-compile-goto byte-goto-if-nil-else-pop byte-compile-body byte-compile-discard byte-goto] 10)) (put (quote catch) (quote byte-compile) (quote byte-compile-catch)) (defun byte-compile-catch (form) (byte-code "א✓A@!êבגד✓AAB!!ê הZë①êוזח\"ç" [form byte-compile-depth byte-compile-form byte-compile-push-constant byte-compile-top-level progn 2 byte-compile-out byte-catch 0] 6)) (put (quote save-window-excursion) (quote byte-compile) (quote byte-compile-save-window-excursion)) (defun byte-compile-save-window-excursion (form) (byte-code "אבג✓AB!C!ê Së①êדהו\"ç" [form byte-compile-depth byte-compile-push-constant byte-compile-top-level progn byte-compile-out byte-save-window-excursion 0] 5)) (put (quote unwind-protect) (quote byte-compile) (quote byte-compile-unwind-protect)) (defun byte-compile-unwind-protect (form) (byte-code "אבג✓AAB!C!ê Së①êדהו\"êז✓A@!ê Së①êדחט\"ç" [form byte-compile-depth byte-compile-push-constant byte-compile-top-level progn byte-compile-out byte-unwind-protect 0 byte-compile-form byte-unbind 1] 7)) (put (quote condition-case) (quote byte-compile) (quote byte-compile-condition-case)) (defun byte-compile-condition-case (form) (byte-code "ד✓A@!êדהו✓8!!ê✓AAAזə⑨ à3 @♪@הח♪AB!D Bë②)ê Aë①êé⑤êדט !!*êיZë④êכלמ\"ç" [form clauses compiled-clauses clause byte-compile-depth byte-compile-push-constant byte-compile-top-level 2 nil progn nreverse 3 byte-compile-out byte-condition-case 0] 9)) (defun byte-compile-make-tag nil (byte-code "ijijBç" [nil] 2)) (defun byte-compile-out-tag (tag) (byte-code " @⑧ב \"ê✓àəג✓@ \"ê✓Aë⓪êé✓)ç" [uses tag byte-compile-pc setcar byte-compile-store-goto] 5)) (defun byte-compile-goto (opcode tag) (byte-code "ב✓ג\"êד @!â④ה @\"éו @B\"ê ז\\ë②ç" [opcode tag byte-compile-pc byte-compile-out 0 integerp byte-compile-store-goto setcar 2] 7)) (defun byte-compile-store-goto (at-pc to-pc) (byte-code " ב ג\"B✓Bë⓪ê Tד ה\"B✓Bë⓪ç" [byte-compile-output at-pc to-pc logand 255 lsh -8] 5)) (defun byte-compile-out (opcode offset) (byte-code "א✓!ë⓪ê בWâ④ג✓ \\!é9 דWâ&ג✓ב\\!êג !é9ג✓ה\\!êגו ז\"!êגח ט\"!ç" [opcode offset eval 6 byte-compile-out-1 256 7 logand 255 lsh -8] 11)) (defun byte-compile-out-const (offset) (byte-code "✓ Wâג ✓\\!éג♪!êגד✓ה\"!êגו✓ז\"!ç" [offset byte-constant-limit byte-constant byte-constant2 byte-compile-out-1 logand 255 lsh -8] 8)) (defun byte-compile-out-1 (code) (byte-code " B✓Bë⓪ê Të①ç" [byte-compile-output byte-compile-pc code] 2)) (defun batch-byte-compile nil "\ Runs byte-compile-file on the files remaining on the command line. Must be used only with -batch, and kills emacs on completion. Each file will be processed even if an error occurred previously. For example, invoke \"emacs -batch -f batch-byte-compile $emacs/ ~/*.el\"" (byte-code "✓?à✓IJז!êא⑨♪àåחט♪@!!ârי♪@!אא╱ànכל@\"àXמ@!?àXט@♪@\"ë⑤àXנ !סPë⑥╱àXע╱!àXפ ╱\"àeצ !?àeוë①êAë④êé\"+é}צ♪@!?à}וë①ê♪Aë③êé♪êקר!êש âöתéòן!)ç" [noninteractive error nil command-line-args-left files source dest t "batch-byte-compile is to be used only with -batch" file-directory-p expand-file-name directory-files string-match ".el$" auto-save-file-name-p file-name-sans-versions "c" file-exists-p file-newer-than-file-p batch-byte-compile-file message "Done" kill-emacs 1 0] 15)) (defun batch-byte-compile-file (file) (byte-code "ijIJאÅç" [err (byte-code "א✓!êIJç" [file t byte-compile-file] 2) ((error (byte-code "ב✓Aâ גé♪ד ✓@הNו✓A!$êאç" [err file nil message ">>Error occurred processing %s: %s (%s)" ">>Error occurred processing %s: %s" error-message prin1-to-string] 6)))] 3))