Improve prelude-eval-and-replace

This commit is contained in:
Bozhidar Batsov 2013-12-21 22:15:52 +02:00
parent 86ba702f48
commit fa6795b71f

View file

@ -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)
(let ((value (eval (preceding-sexp))))
(backward-kill-sexp)
(condition-case nil
(prin1 (eval (read (current-kill 0)))
(current-buffer))
(error (message "Invalid expression")
(insert (current-kill 0)))))
(insert (format "%s" value))))
(defun prelude-recompile-init ()
"Byte-compile all your dotfiles again."