;ELC ;;; Compiled by rms@psilocin.gnu.org on Sun Mar 8 18:42:26 1998 ;;; from file /gd/gnu/emacs/lisp/byte-run.el ;;; in Emacs version 20.2.89.6 ;;; with bytecomp version 2.38 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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 "`byte-run.el' was compiled for Emacs 19.29 or later")) (byte-code "\300\301M\210\302\300\303\304#\207" [inline progn put lisp-indent-hook 0] 4) #@70 Define an inline function. The syntax is just like that of `defun'. (defalias 'defsubst '(macro . #[(name arglist &rest body) "\303N\304>\204 \305\306\"\210\307\310 \nBBB\311\312\313D\314\315FDE\207" [name arglist body byte-optimizer (nil byte-compile-inline-expand) error "`%s' is a primitive" prog1 defun eval-and-compile put quote 'byte-optimizer 'byte-compile-inline-expand] 7 (#$ . 620)])) #@165 Make the byte-compiler warn that FUNCTION is obsolete. The warning will say that NEW should be used instead. If NEW is a string, that is the `use instead' message. (defalias 'make-obsolete #[(fn new) "\303N\211\304=\203\305N\n\240\210\202!\306\305\n B#\210\306\303\304#\210)\207" [fn handler new byte-compile byte-compile-obsolete byte-obsolete-info put] 6 (#$ . 1028) "aMake function obsolete: \nxObsoletion replacement: "]) #@149 Make the byte-compiler warn that VARIABLE is obsolete, and NEW should be used instead. If NEW is a string, then that is the `use instead' message. (defalias 'make-obsolete-variable #[(var new) "\302\303 #\210\207" [var new put byte-obsolete-variable] 4 (#$ . 1470) (list (let ((str (completing-read "Make variable obsolete: " obarray 'boundp t))) (if (equal str "") (error "")) (intern str)) (car (read-from-string (read-string "Obsoletion replacement: "))))]) (put 'dont-compile 'lisp-indent-hook 0) #@140 Like `progn', but the body always runs interpreted (not compiled). If you think you need this, you're probably making a mistake somewhere. (defalias 'dont-compile '(macro . #[(&rest body) "\301\302A\203 \303B\202@DD\207" [body eval quote progn] 4 (#$ . 1981)])) (put 'eval-when-compile 'lisp-indent-hook 0) #@124 Like `progn', but evaluates the body at compile time. The result of the body appears to the compiler as a quoted constant. (defalias 'eval-when-compile '(macro . #[(&rest body) "\301B\207" [body progn] 2 (#$ . 2301)])) (put 'eval-and-compile 'lisp-indent-hook 0) #@72 Like `progn', but evaluates the body at compile time and at load time. (defalias 'eval-and-compile '(macro . #[(&rest body) "\301B\207" [body progn] 2 (#$ . 2571)]))