Mercurial > emacs
changeset 26049:e7c4cf80a64a
(edebug-install-read-eval-functions)
(edebug-uninstall-read-eval-functions): Use load-read-function,
avoiding elisp-eval.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Sat, 16 Oct 1999 21:29:48 +0000 |
| parents | 898ee3cee36a |
| children | 858cfeb48126 |
| files | lisp/emacs-lisp/edebug.el |
| diffstat | 1 files changed, 3 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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)))