* lisp/simple.el (eval-expression-print-format): Don't check for

[gnu-emacs] / lisp / ielm.el

diff --git a/lisp/ielm.el b/lisp/ielm.el
index fb1f977423774812e46fb87b28199f44b495eaf6..8176704e75fe747ad87eff9c099473b531378e1d 100644 (file)
--- a/lisp/ielm.el
+++ b/lisp/ielm.el
@@ -458,7 +458,9 @@ nonempty, then flushes the buffer."
             ;; Self-referential objects cause loops in the printer, so
             ;; trap quits here. May as well do errors, too
             (unless for-effect
-              (setq output (concat output (pp-to-string result))))
+              (setq output (concat output (pp-to-string result)
+                                  (let ((str (eval-expression-print-format result)))
+                                    (if str (propertize str 'font-lock-face 'shadow))))))
           (error (setq error-type "IELM Error")
                  (setq result "Error during pretty-printing (bug in pp)"))
           (quit  (setq error-type "IELM Error")