# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 940109388 0
# Node ID e7c4cf80a64a0c629b5a9b19fad39416204753af
# Parent  898ee3cee36adaaadf65b836eb734befafff7e5b
(edebug-install-read-eval-functions)
(edebug-uninstall-read-eval-functions): Use load-read-function,
avoiding elisp-eval.

diff -r 898ee3cee36a -r e7c4cf80a64a lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Sat Oct 16 12:03:09 1999 +0000
+++ b/lisp/emacs-lisp/edebug.el	Sat Oct 16 21:29:48 1999 +0000
@@ -504,9 +504,6 @@
 ;; read is redefined to maybe instrument forms.
 ;; eval-defun is redefined to check edebug-all-forms and edebug-all-defs.
 
-;; Use the Lisp version of eval-region.
-(require 'eval-reg "eval-reg")
-
 ;; Save the original read function
 (or (fboundp 'edebug-original-read)
     (defalias 'edebug-original-read  (symbol-function 'read)))
@@ -615,15 +612,13 @@
 (defun edebug-install-read-eval-functions ()
   (interactive)
   ;; Don't install if already installed.
-  (if (eq (symbol-function 'read) 'edebug-read) nil
-    (elisp-eval-region-install)
-    (defalias 'read 'edebug-read)
+  (unless load-read-function
+    (setq load-read-function 'edebug-read)
     (defalias 'eval-defun 'edebug-eval-defun)))
 
 (defun edebug-uninstall-read-eval-functions ()
   (interactive)
-  (elisp-eval-region-uninstall)
-  (defalias 'read (symbol-function 'edebug-original-read))
+  (setq load-read-function nil)
   (defalias 'eval-defun (symbol-function 'edebug-original-eval-defun)))