# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1092696251 0
# Node ID c28ce21eb5aee75a62c916d7f0ecd1f4cb9ff2fe
# Parent  22f1ac802ffd9a099f968e1e9e392905098c4d19
(eval-last-sexp): Don't cons a new symbol each time.
(eval-last-sexp-fake-value): New variable.

diff -r 22f1ac802ffd -r c28ce21eb5ae lisp/emacs-lisp/lisp-mode.el
--- a/lisp/emacs-lisp/lisp-mode.el	Mon Aug 16 22:43:09 2004 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Mon Aug 16 22:44:11 2004 +0000
@@ -555,13 +555,15 @@
 	))))
 
 
+(defvar eval-last-sexp-fake-value (make-symbol "t"))
+
 (defun eval-last-sexp (eval-last-sexp-arg-internal)
   "Evaluate sexp before point; print value in minibuffer.
 Interactively, with prefix argument, print output into current buffer."
   (interactive "P")
   (if (null eval-expression-debug-on-error)
       (eval-last-sexp-1 eval-last-sexp-arg-internal)
-    (let ((old-value (make-symbol "t")) new-value value)
+    (let ((old-value eval-last-sexp-fake-value) new-value value)
       (let ((debug-on-error old-value))
 	(setq value (eval-last-sexp-1 eval-last-sexp-arg-internal))
 	(setq new-value debug-on-error))