mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-08 07:20:28 -08:00
Code Issues Projects Releases Wiki Activity

New branch for lexbind, losing all history.

Browse source 
This initial patch is based on 2002-06-27T22:39:10Z!storm@cua.dk of the original
lexbind branch.
This commit is contained in:
Stefan Monnier 2010-06-13 16:36:17 -04:00
parent a6e8d97c14
commit b9598260f9
30 changed files with 3032 additions and 416 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/emacs-lisp/lisp-mode.el
View file

@ -701,7 +701,15 @@ If CHAR is not a character, return nil."
(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
"Evaluate sexp before point; print value in minibuffer.
With argument, print output into current buffer."
(let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
(let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t))
;; preserve the current lexical environment
(internal-interpreter-environment internal-interpreter-environment))
;; Setup the lexical environment if lexical-binding is enabled.
;; Note that `internal-interpreter-environment' _can't_ be both
;; assigned and let-bound above -- it's treated specially (and
;; oddly) by the interpreter!
(when lexical-binding
(setq internal-interpreter-environment '(t)))
(eval-last-sexp-print-value (eval (preceding-sexp)))))