555 |
)))) |
)))) |
556 |
|
|
557 |
|
|
558 |
|
(defvar eval-last-sexp-fake-value (make-symbol "t")) |
559 |
|
|
560 |
(defun eval-last-sexp (eval-last-sexp-arg-internal) |
(defun eval-last-sexp (eval-last-sexp-arg-internal) |
561 |
"Evaluate sexp before point; print value in minibuffer. |
"Evaluate sexp before point; print value in minibuffer. |
562 |
Interactively, with prefix argument, print output into current buffer." |
Interactively, with prefix argument, print output into current buffer." |
563 |
(interactive "P") |
(interactive "P") |
564 |
(if (null eval-expression-debug-on-error) |
(if (null eval-expression-debug-on-error) |
565 |
(eval-last-sexp-1 eval-last-sexp-arg-internal) |
(eval-last-sexp-1 eval-last-sexp-arg-internal) |
566 |
(let ((old-value (make-symbol "t")) new-value value) |
(let ((old-value eval-last-sexp-fake-value) new-value value) |
567 |
(let ((debug-on-error old-value)) |
(let ((debug-on-error old-value)) |
568 |
(setq value (eval-last-sexp-1 eval-last-sexp-arg-internal)) |
(setq value (eval-last-sexp-1 eval-last-sexp-arg-internal)) |
569 |
(setq new-value debug-on-error)) |
(setq new-value debug-on-error)) |