From fa6795b71f0fc0d56aaf1cc3034fb58e246eb969 Mon Sep 17 00:00:00 2001
From: Bozhidar Batsov <bozhidar@tradeo.com>
Date: Sat, 21 Dec 2013 22:15:52 +0200
Subject: [PATCH] Improve prelude-eval-and-replace

---
 core/prelude-core.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/core/prelude-core.el b/core/prelude-core.el
index 28615c2..7ce5060 100644
--- a/core/prelude-core.el
+++ b/core/prelude-core.el
@@ -297,12 +297,9 @@ there's a region, all lines that region covers will be duplicated."
 (defun prelude-eval-and-replace ()
   "Replace the preceding sexp with its value."
   (interactive)
-  (backward-kill-sexp)
-  (condition-case nil
-      (prin1 (eval (read (current-kill 0)))
-             (current-buffer))
-    (error (message "Invalid expression")
-           (insert (current-kill 0)))))
+  (let ((value (eval (preceding-sexp))))
+    (backward-kill-sexp)
+    (insert (format "%s" value))))
 
 (defun prelude-recompile-init ()
   "Byte-compile all your dotfiles again."