mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(edebug-install-read-eval-functions)

Browse Source 
(edebug-uninstall-read-eval-functions): Use load-read-function,
avoiding elisp-eval.
This commit is contained in:
Dave Love 1999-10-16 21:30:20 +00:00
parent 3f6f75085a
commit faa5fa58af
2 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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'

11
lisp/emacs-lisp/edebug.el
View File

@ -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)))