(echo_char): Use KEY_DESCRIPTION_SIZE to check free

[gnu-emacs] / lisp / emacs-lisp / lisp-mode.el

diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el
index b4b9f0b92a42c6409930b37463a195d5b0bac035..2f09c3528116a4b2f9cdbbc8327406b8afcc2a97 100644 (file)
--- a/lisp/emacs-lisp/lisp-mode.el
+++ b/lisp/emacs-lisp/lisp-mode.el
@@ -373,7 +373,7 @@ With argument, print output into current buffer."
                     (set-syntax-table stab))))))
       (let ((print-length eval-expression-print-length)
            (print-level eval-expression-print-level))
-       (print value)))))
+       (prin1 value)))))
 
 ;; Change defvar into defconst within FORM,
 ;; and likewise for other constructs as necessary.