procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(edebug-install-custom-print-funcs)

Browse source 
(edebug-install-custom-print, edebug-reset-print-funcs)
(edebug-uninstall-custom-print, edebug-uninstall-custom-print-funcs):
Functions deleted.
(edebug-prin1, edebug-print, edebug-prin1-to-string)
(edebug-format, edebug-message): Define directly as aliases.
This commit is contained in:
Richard M. Stallman 2007-10-09 01:18:29 +00:00
parent ee3c2877bf
commit 03d5bbb071
1 changed files with 6 additions and 38 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

44
lisp/emacs-lisp/edebug.el
View file

@ -3675,44 +3675,6 @@ Return the result of the last expression."
;;; Printing
;; Replace printing functions.
;; obsolete names
(define-obsolete-function-alias 'edebug-install-custom-print-funcs
'edebug-install-custom-print "22.1")
(define-obsolete-function-alias 'edebug-reset-print-funcs
'edebug-uninstall-custom-print "22.1")
(define-obsolete-function-alias 'edebug-uninstall-custom-print-funcs
'edebug-uninstall-custom-print "22.1")
(defun edebug-install-custom-print ()
"Replace print functions used by Edebug with custom versions."
;; Modifying the custom print functions, or changing print-length,
;; print-level, print-circle, custom-print-list or custom-print-vector
;; have immediate effect.
(interactive)
(require 'cust-print)
(defalias 'edebug-prin1 'custom-prin1)
(defalias 'edebug-print 'custom-print)
(defalias 'edebug-prin1-to-string 'custom-prin1-to-string)
(defalias 'edebug-format 'custom-format)
(defalias 'edebug-message 'custom-message)
"Installed")
(eval-and-compile
(defun edebug-uninstall-custom-print ()
"Replace edebug custom print functions with internal versions."
(interactive)
(defalias 'edebug-prin1 'prin1)
(defalias 'edebug-print 'print)
(defalias 'edebug-prin1-to-string 'prin1-to-string)
(defalias 'edebug-format 'format)
(defalias 'edebug-message 'message)
"Uninstalled")
;; Default print functions are the same as Emacs'.
(edebug-uninstall-custom-print))
(defun edebug-report-error (edebug-value)
;; Print an error message like command level does.
@ -3759,6 +3721,12 @@ Return the result of the last expression."
;;; Read, Eval and Print
(defalias 'edebug-prin1 'prin1)
(defalias 'edebug-print 'print)
(defalias 'edebug-prin1-to-string 'prin1-to-string)
(defalias 'edebug-format 'format)
(defalias 'edebug-message 'message)
(defun edebug-eval-expression (edebug-expr)
"Evaluate an expression in the outside environment.
If interactive, prompt for the expression.