From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 28 Jan 2007 07:11:24 +0000 (+0000)
Subject: (pp-eval-last-sexp): Don't eval here.
X-Git-Tag: emacs-pretest-22.0.94~566
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f61eed1d1a4d5dd089813d5e0323c8259791a68e;p=emacs.git

(pp-eval-last-sexp): Don't eval here.
---

diff --git a/lisp/emacs-lisp/pp.el b/lisp/emacs-lisp/pp.el
index 27134a14583..66abfdf2c6d 100644
--- a/lisp/emacs-lisp/pp.el
+++ b/lisp/emacs-lisp/pp.el
@@ -158,7 +158,7 @@ Ignores leading comment characters."
     (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))