aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/edebug.el4
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)