(edebug-install-read-eval-functions)

(edebug-uninstall-read-eval-functions): Use load-read-function,
avoiding elisp-eval.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0abe6fe5dfb6c7cf69558600efe0b35628dfa94..424274a2aee55152c031f5fc58d8db345871dd28 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+1999-10-16  Dave Love  <d.love@dl.ac.uk>
+
+       * emacs-lisp/edebug.el (edebug-install-read-eval-functions)
+       (edebug-uninstall-read-eval-functions): Use load-read-function,
+       avoiding elisp-eval.
+
 1999-10-16  Sam Steingold  <sds@ksp.com>
 
        * emacs-lisp/cl-indent.el (common-lisp-indent-function): Use `eq'

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index 4ec31b918532e933bbabe43cf0ac64c63a5218af..97b85a2564c15da8cbc33aeb7731a74204c3cc93 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -504,9 +504,6 @@ Return the result of the last expression in BODY."
 ;; 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 @@ or if an error occurs, leave point after it with mark at the original point."
 (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)))