Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 79006:808dc3e8a755
(edebug-install-custom-print-funcs)
(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.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Oct 2007 01:18:29 +0000 |
| parents | b917d8c56cca |
| children | 78ee6fae0e41 591c29778a30 |
comparison
equal
deleted
inserted
replaced
| 79005:72cc145f92f0 | 79006:808dc3e8a755 |
|---|---|
| 3673 (get (car edebug-err) 'error-message) | 3673 (get (car edebug-err) 'error-message) |
| 3674 (car (cdr edebug-err)))))) | 3674 (car (cdr edebug-err)))))) |
| 3675 | 3675 |
| 3676 ;;; Printing | 3676 ;;; Printing |
| 3677 | 3677 |
| 3678 ;; Replace printing functions. | |
| 3679 | |
| 3680 ;; obsolete names | |
| 3681 (define-obsolete-function-alias 'edebug-install-custom-print-funcs | |
| 3682 'edebug-install-custom-print "22.1") | |
| 3683 (define-obsolete-function-alias 'edebug-reset-print-funcs | |
| 3684 'edebug-uninstall-custom-print "22.1") | |
| 3685 (define-obsolete-function-alias 'edebug-uninstall-custom-print-funcs | |
| 3686 'edebug-uninstall-custom-print "22.1") | |
| 3687 | |
| 3688 (defun edebug-install-custom-print () | |
| 3689 "Replace print functions used by Edebug with custom versions." | |
| 3690 ;; Modifying the custom print functions, or changing print-length, | |
| 3691 ;; print-level, print-circle, custom-print-list or custom-print-vector | |
| 3692 ;; have immediate effect. | |
| 3693 (interactive) | |
| 3694 (require 'cust-print) | |
| 3695 (defalias 'edebug-prin1 'custom-prin1) | |
| 3696 (defalias 'edebug-print 'custom-print) | |
| 3697 (defalias 'edebug-prin1-to-string 'custom-prin1-to-string) | |
| 3698 (defalias 'edebug-format 'custom-format) | |
| 3699 (defalias 'edebug-message 'custom-message) | |
| 3700 "Installed") | |
| 3701 | |
| 3702 (eval-and-compile | |
| 3703 (defun edebug-uninstall-custom-print () | |
| 3704 "Replace edebug custom print functions with internal versions." | |
| 3705 (interactive) | |
| 3706 (defalias 'edebug-prin1 'prin1) | |
| 3707 (defalias 'edebug-print 'print) | |
| 3708 (defalias 'edebug-prin1-to-string 'prin1-to-string) | |
| 3709 (defalias 'edebug-format 'format) | |
| 3710 (defalias 'edebug-message 'message) | |
| 3711 "Uninstalled") | |
| 3712 | |
| 3713 ;; Default print functions are the same as Emacs'. | |
| 3714 (edebug-uninstall-custom-print)) | |
| 3715 | |
| 3716 | 3678 |
| 3717 (defun edebug-report-error (edebug-value) | 3679 (defun edebug-report-error (edebug-value) |
| 3718 ;; Print an error message like command level does. | 3680 ;; Print an error message like command level does. |
| 3719 ;; This also prints the error name if it has no error-message. | 3681 ;; This also prints the error name if it has no error-message. |
| 3720 (message "%s: %s" | 3682 (message "%s: %s" |
| 3756 "Print the previous result." | 3718 "Print the previous result." |
| 3757 (interactive) | 3719 (interactive) |
| 3758 (message "%s" edebug-previous-result)) | 3720 (message "%s" edebug-previous-result)) |
| 3759 | 3721 |
| 3760 ;;; Read, Eval and Print | 3722 ;;; Read, Eval and Print |
| 3723 | |
| 3724 (defalias 'edebug-prin1 'prin1) | |
| 3725 (defalias 'edebug-print 'print) | |
| 3726 (defalias 'edebug-prin1-to-string 'prin1-to-string) | |
| 3727 (defalias 'edebug-format 'format) | |
| 3728 (defalias 'edebug-message 'message) | |
| 3761 | 3729 |
| 3762 (defun edebug-eval-expression (edebug-expr) | 3730 (defun edebug-eval-expression (edebug-expr) |
| 3763 "Evaluate an expression in the outside environment. | 3731 "Evaluate an expression in the outside environment. |
| 3764 If interactive, prompt for the expression. | 3732 If interactive, prompt for the expression. |
| 3765 Print result in minibuffer." | 3733 Print result in minibuffer." |