mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

(eval-last-sexp): Allow let-bindings to terminate

Browse Source 
before doing the eval.
Handle (interactive ...) form specially.
This commit is contained in:
Karl Heuer 1997-02-23 07:52:35 +00:00
parent a21b845bc9
commit 361721f240
1 changed files with 19 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/emacs-lisp/lisp-mode.el
View File

@ -293,16 +293,30 @@ if that value is non-nil."
"Evaluate sexp before point; print value in minibuffer.
With argument, print output into current buffer."
(interactive "P")
(let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t))
(opoint (point)))
(prin1 (let ((stab (syntax-table)))
(eval (unwind-protect
(let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
(prin1 (eval (let ((stab (syntax-table))
(opoint (point))
expr)
(unwind-protect
(save-excursion
(set-syntax-table emacs-lisp-mode-syntax-table)
(forward-sexp -1)
(save-restriction
(narrow-to-region (point-min) opoint)
(read (current-buffer))))
(setq expr (read (current-buffer)))
;; If it's an (interactive ...) form, it's more
;; useful to show how an interactive call would
;; use it.
(and (consp expr)
(eq (car expr) 'interactive)
(setq expr
(list 'call-interactively
(list 'quote
(list 'lambda
'(&rest args)
expr
'args)))))
expr))
(set-syntax-table stab)))))))
(defun eval-defun (eval-defun-arg-internal)