1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index da6deea3e84..1247cb25da2 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -1420,10 +1420,11 @@ If nil, don't change the value of `debug-on-error'."
   :version "21.1")
 
 (defun eval-expression-print-format (value)
-  "Format VALUE as a result of evaluated expression.
-Return a formatted string which is displayed in the echo area
-in addition to the value printed by prin1 in functions which
-display the result of expression evaluation."
+  "If VALUE in an integer, return a specially formatted string.
+This string will typically look like \" (#o1, #x1, ?\\C-a)\".
+If VALUE is not an integer, nil is returned.
+This function is used by functions like `prin1' that display the
+result of expression evaluation."
   (if (and (integerp value)
            (or (eq standard-output t)
                (zerop (prefix-numeric-value current-prefix-arg))))