;ELC ;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:38:19 1995 ;;; from file /gd/gnu/emacs/19.0/lisp/eval-reg.el ;;; emacs version 19.28.90.26. ;;; 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/eval-reg.el' was compiled for Emacs 19")) (byte-code "ÀÁ!„\fÂÁÃK\"ˆÀÄ!„\"ÂÄÀÅ!ƒÅK‚ Æ\"ˆÀÇ!„.ÂÇÈK\"ˆÀ‡" [fboundp original-eval-region defalias eval-region original-eval-buffer eval-buffer undefined original-eval-current-buffer eval-current-buffer] 4) #@266 If the value is 0, use the original version of `elisp-eval-region'. Callers of `elisp-eval-region' should increment `elisp-eval-region-level' while the Lisp version should be used. Installing `elisp-eval-region' increments it once, and uninstalling decrements it. (defvar elisp-eval-region-level 0 (#$ . 700)) (defalias 'elisp-eval-region-install #[nil "ÀÁÂ\"ˆÀÃÄ\"ˆÀÅÆ\"ˆT‰‡" [defalias eval-region elisp-eval-region eval-buffer elisp-eval-buffer eval-current-buffer elisp-eval-current-buffer elisp-eval-region-level] 3 nil nil]) (defalias 'elisp-eval-region-uninstall #[nil "À Vƒ S‰‡ÂÃÄÅK\"ˆÃÆÇK\"ˆÃÈÉK\"‡" [1 elisp-eval-region-level 0 defalias eval-region original-eval-region eval-buffer original-eval-buffer eval-current-buffer original-eval-current-buffer] 3 nil nil]) (byte-code "ÀÁÂÃ#ˆÀÁÄÃ#ˆÀÁÅÆ#‡" [put with-elisp-eval-region lisp-indent-function 1 lisp-indent-hook edebug-form-spec t] 4) #@578 If FLAG is nil, decrement `eval-region-level' while executing BODY. The effect of decrementing all the way to zero is that `eval-region' will use the original `eval-region', which may be the Emacs subr or some previous redefinition. Before calling this macro, this package should already have been installed, using `elisp-eval-region-install', which increments the count once. So if another package still requires the Lisp version of the code, the count will still be non-zero. The count is not bound locally by this macro, so changes by BODY to its value will not be lost. (defalias 'with-elisp-eval-region '(macro . #[(flag &rest body) "ÀÁÂÃÄ BBDDCÆÇDÉBBE‡" [let elisp-code function lambda nil body if not flag ((unwind-protect (progn (setq elisp-eval-region-level (1- elisp-eval-region-level)) (funcall elisp-code)) (setq elisp-eval-region-level (1+ elisp-eval-region-level))) (funcall elisp-code))] 6 (#$ . 1613)])) #@397 Execute the region as Lisp code. When called from programs, expects two arguments, giving starting and ending indices in the current buffer of the text to be executed. Programs can pass third argument PRINTFLAG which controls printing of output: nil means discard it; anything else is stream for print. This version, from `eval-reg.el', allows Lisp customization of read, eval, and the printer. (defalias 'elisp-eval-region #[(elisp-start elisp-end &optional elisp-output) "ÁUƒ\f \f #‡`ppÆ \fǓlj \n \f bˆÎ ˆ`\nWƒ‡Ï\f! p qˆÑ !p qˆ) ƒy †SÒBÒ=ƒkÕ!ˆ‚xÖ×!ˆÕ!ˆÖ×!ˆ)\n`]Î ˆ`^bˆ‚( „“\fqˆ bˆ.LJ" [elisp-eval-region-level 0 original-eval-region elisp-start elisp-end elisp-output make-marker nil elisp-val elisp-form elisp-end-marker elisp-inside-buf elisp-buf elisp-pnt elisp-skip-whitespace read elisp-current-buffer eval t standard-output values prin1 princ "\n"] 6 (#$ . 2545) "r"]) (defalias 'elisp-skip-whitespace #[nil "ÀÁwˆgÂU…ÃÁwˆÀÁwˆ‚‡" [" \n\f" nil 59 "^\n "] 2]) #@226 Execute the current buffer as Lisp code. Programs can pass argument PRINTFLAG which controls printing of output: nil means discard it; anything else is stream for print. This version calls `eval-region' on the whole buffer. (defalias 'elisp-eval-current-buffer #[(&optional elisp-output) "Àed #‡" [eval-region elisp-output] 4 (#$ . 3573) nil]) #@252 Execute BUFFER as Lisp code. Use current buffer if BUFFER is nil. Programs can pass argument PRINTFLAG which controls printing of output: nil means discard it; anything else is stream for print. This version calls `eval-region' on the whole buffer. (defalias 'elisp-eval-buffer #[(&optional elisp-bufname elisp-printflag) "„pŠÁ!†ÂÃ\"qˆÄed #)‡" [elisp-bufname get-buffer error "No such buffer: %s" eval-region elisp-printflag] 4 (#$ . 3925) nil]) (provide (quote eval-reg))