procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make `C-M-x' use the original value of print-length while evalling

Browse source 
* lisp/progmodes/elisp-mode.el (elisp--eval-defun): Eval the form
with the original values of print-level and print-length
(bug#135).
This commit is contained in:
Lars Ingebrigtsen 2022-04-27 20:03:25 +02:00
parent f97d4460e0
commit 89519d0932
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/progmodes/elisp-mode.el
View file

@ -1614,8 +1614,6 @@ Return the result of evaluation."
;; printing, not while evaluating.
(defvar elisp--eval-defun-result)
(let ((debug-on-error eval-expression-debug-on-error)
(print-length eval-expression-print-length)
(print-level eval-expression-print-level)
elisp--eval-defun-result)
(save-excursion
;; Arrange for eval-region to "read" the (possibly) altered form.
@ -1630,10 +1628,17 @@ Return the result of evaluation."
(setq beg (point))
(setq form (funcall load-read-function (current-buffer)))
(setq end (point)))
;; Alter the form if necessary.
(let ((form (eval-sexp-add-defvars
(elisp--eval-defun-1
(macroexpand form)))))
;; Alter the form if necessary. We bind `print-level' (etc.)
;; in the form itself, because we want evalling the form to
;; use the original values, while we want the printing to use
;; `eval-expression-print-length' (etc.).
(let ((form `(let ((print-level ,print-level)
(print-length ,print-length))
,(eval-sexp-add-defvars
(elisp--eval-defun-1
(macroexpand form)))))
(print-length eval-expression-print-length)
(print-level eval-expression-print-level))
(eval-region beg end standard-output
(lambda (_ignore)
;; Skipping to the end of the specified region