;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Tue May 2 20:14:31 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/byte-run.el ;;; emacs version 19.28.90.69. ;;; 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/byte-run.el' was compiled for Emacs 19")) (byte-code "ÀÁMˆÂÀÃÄ#‡" [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) "Á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 (#$ . 550)])) #@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) "ÁN‰Ã=ƒÄN  ˆ‚!ÆÄ \nB#ˆÆÁÃ#ˆ)‡" [fn byte-compile handler byte-compile-obsolete byte-obsolete-info new put] 6 (#$ . 931) "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) "À  #ˆ ‡" [put var byte-obsolete-variable new] 4 (#$ . 1323) (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) #@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) "ÀÁ\nAƒ Ã\nB‚\n@DD‡" [eval quote body progn] 4 (#$ . 1843)])) (put (quote eval-when-compile) (quote 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) "À B‡" [progn body] 2 (#$ . 2162)])) (put (quote eval-and-compile) (quote 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) "À B‡" [progn body] 2 (#$ . 2440)]))