3692 |
(setq edebug-previous-result |
(setq edebug-previous-result |
3693 |
(concat "Result: " |
(concat "Result: " |
3694 |
(edebug-safe-prin1-to-string edebug-previous-value) |
(edebug-safe-prin1-to-string edebug-previous-value) |
3695 |
(let ((name (prin1-char edebug-previous-value))) |
(eval-expression-print-format edebug-previous-value)))) |
|
(if name (concat " = " name)))))) |
|
3696 |
|
|
3697 |
(defun edebug-previous-result () |
(defun edebug-previous-result () |
3698 |
"Print the previous result." |
"Print the previous result." |
3711 |
(princ |
(princ |
3712 |
(edebug-outside-excursion |
(edebug-outside-excursion |
3713 |
(setq values (cons (edebug-eval edebug-expr) values)) |
(setq values (cons (edebug-eval edebug-expr) values)) |
3714 |
(edebug-safe-prin1-to-string (car values))))) |
(concat (edebug-safe-prin1-to-string (car values)) |
3715 |
|
(eval-expression-print-format (car values)))))) |
3716 |
|
|
3717 |
(defun edebug-eval-last-sexp () |
(defun edebug-eval-last-sexp () |
3718 |
"Evaluate sexp before point in the outside environment; value in minibuffer." |
"Evaluate sexp before point in the outside environment; value in minibuffer." |