# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1169968284 0
# Node ID 869eaab96a64600420c89caeb0407bf7a1e840ec
# Parent  ad8f4e060e53e4d0aafa5c6f9d64d4448013ed6d
(pp-eval-last-sexp): Don't eval here.

diff -r ad8f4e060e53 -r 869eaab96a64 lisp/emacs-lisp/pp.el
--- a/lisp/emacs-lisp/pp.el	Sun Jan 28 07:09:44 2007 +0000
+++ b/lisp/emacs-lisp/pp.el	Sun Jan 28 07:11:24 2007 +0000
@@ -158,7 +158,7 @@
     (set-syntax-table stab)
     (if arg
 	(insert (pp-to-string (eval exp)))
-      (pp-eval-expression (eval exp)))))
+      (pp-eval-expression exp))))
 
 ;;; Test cases for quote
 ;; (pp-eval-expression ''(quote quote))