diff options
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 04a640c82c3..68b87f10b21 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -3708,7 +3708,6 @@ Return the result of the last expression." | |||
| 3708 | (prin1-to-string edebug-arg)) | 3708 | (prin1-to-string edebug-arg)) |
| 3709 | (cdr value) ", "))) | 3709 | (cdr value) ", "))) |
| 3710 | 3710 | ||
| 3711 | (defvar print-readably) ; defined by lemacs | ||
| 3712 | ;; Alternatively, we could change the definition of | 3711 | ;; Alternatively, we could change the definition of |
| 3713 | ;; edebug-safe-prin1-to-string to only use these if defined. | 3712 | ;; edebug-safe-prin1-to-string to only use these if defined. |
| 3714 | 3713 | ||
| @@ -3716,8 +3715,7 @@ Return the result of the last expression." | |||
| 3716 | (let ((print-escape-newlines t) | 3715 | (let ((print-escape-newlines t) |
| 3717 | (print-length (or edebug-print-length print-length)) | 3716 | (print-length (or edebug-print-length print-length)) |
| 3718 | (print-level (or edebug-print-level print-level)) | 3717 | (print-level (or edebug-print-level print-level)) |
| 3719 | (print-circle (or edebug-print-circle print-circle)) | 3718 | (print-circle (or edebug-print-circle print-circle))) |
| 3720 | (print-readably nil)) ; lemacs uses this. | ||
| 3721 | (edebug-prin1-to-string value))) | 3719 | (edebug-prin1-to-string value))) |
| 3722 | 3720 | ||
| 3723 | (defun edebug-compute-previous-result (previous-value) | 3721 | (defun edebug-compute-previous-result (previous-value) |