;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 11 17:58:05 1994
;;; from file /gd/gnu/emacs/19.0/lisp/eval-reg.el
;;; emacs version 19.22.90.1.
;;; 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)
(defvar elisp-eval-region-level 0 "\
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.")
(byte-code "ÀÁÂ\"ˆÀÃÄ\"ˆÅÆÇÈ#ˆÅÆÉÈ#ˆÅÆÊË#‡" [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] 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] put with-elisp-eval-region lisp-indent-function 1 lisp-indent-hook edebug-form-spec t] 4)
(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 "\
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 'elisp-eval-region #[(elisp-start elisp-end &optional elisp-output) "ÁUƒ\f Â\f#‡`ppÆ \fÇ“Ç‰	\n\fbˆÎ ˆ`\nWƒ‡ Ï\f!	pqˆÑ	!pqˆ)ƒy †S ÒBÒ=ƒk Õ!ˆ‚x Ö×!ˆÕ!ˆÖ×!ˆ)\n`]Î ˆ`^bˆ‚( „“ \fqˆbˆ.Ç‡" [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 "\
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." "r"])
(defalias (quote elisp-skip-whitespace) #[nil "ÀÁwˆgÂU… ÃÁwˆÀÁwˆ‚ ‡" [" 	\n\f" nil 59 "^\n"] 2])
(defalias 'elisp-eval-current-buffer #[(&optional elisp-output) "Àed	#‡" [eval-region elisp-output] 4 "\
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." nil])
(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 "\
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." nil])
(provide (quote eval-reg))