;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 22:21:15 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/byte-run.el ;;; emacs version 19.15.16. ;;; 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 "This file was compiled for Emacs 19")) (byte-code "ÀÁMˆÂÀÃÄ#‡" [inline progn put lisp-indent-hook 0] 4) (defalias 'defsubst '(macro . #[(name arglist &rest body) "ÁNÂ>„ ÃÄ\"ˆÅÆBBBÉÊËDÌÍFDE‡" [name byte-optimizer (nil byte-compile-inline-expand) error "`%s' is a primitive" prog1 defun arglist body eval-and-compile put quote (quote byte-optimizer) (quote byte-compile-inline-expand)] 7 "\ Define an inline function. The syntax is just like that of `defun'."])) (defalias 'make-obsolete #[(fn new) "ÁN‰Ã=ƒÄN  ˆ‚!ÆÄ \nB#ˆÆÁÃ#ˆ)‡" [fn byte-compile handler byte-compile-obsolete byte-obsolete-info new put] 6 "\ 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." "aMake function obsolete: \nxObsoletion replacement: "]) (defalias 'make-obsolete-variable #[(var new) "À  #ˆ ‡" [put var byte-obsolete-variable new] 4 "\ 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." (list (let ((str (completing-read "Make variable obsolete: " obarray (quote boundp) t))) (if (equal str "") (error "")) (intern str)) (car (read-from-string (read-string "Obsoletion replacement: "))))]) (put (quote dont-compile) (quote lisp-indent-hook) 0) (defalias 'dont-compile '(macro . #[(&rest body) "ÀÁ\nAƒ Ã\nB‚\n@DD‡" [eval quote body progn] 4 "\ Like `progn', but the body always runs interpreted (not compiled). If you think you need this, you're probably making a mistake somewhere."])) (put (quote eval-when-compile) (quote lisp-indent-hook) 0) (defalias 'eval-when-compile '(macro . #[(&rest body) "À B‡" [progn body] 2 "\ Like `progn', but evaluates the body at compile time. The result of the body appears to the compiler as a quoted constant."])) (put (quote eval-and-compile) (quote lisp-indent-hook) 0) (defalias 'eval-and-compile '(macro . #[(&rest body) "À B‡" [progn body] 2 "\ Like `progn', but evaluates the body at compile time and at load time."]))