comparison lisp/emacs-lisp/lisp-mode.el @ 25703:00b4eac00979

(eval-defun, eval-last-sexp): Bind print-level, print-length and debug-on-error.

25702:2b96c6e05f23


(defun eval-last-sexp (eval-last-sexp-arg-internal)
  "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)))
    (prin1 (eval (let ((stab (syntax-table))
		       (opoint (point))
		       ignore-quotes
		       expr)
		   (unwind-protect
		       (save-excursion

						  (list 'lambda
							'(&rest args)
							expr
							'args)))))
			   expr))
		     (set-syntax-table stab)))))))

;; Change defvar into defconst within FORM,
;; and likewise for other constructs as necessary.
(defun eval-defun-1 (form)
  (cond ((and (eq (car form) 'defvar)

if it already has a value.\)

With argument, insert value in current buffer after the defun.
Return the result of evaluation."
  (interactive "P")
  (save-excursion
    ;; Arrange for eval-region to "read" the (possibly) altered form.
    ;; eval-region handles recording which file defines a function or
    ;; variable.  Re-written using `apply' to avoid capturing
    ;; variables like `end'.
    (apply
     #'eval-region 
     (let ((standard-output (if eval-defun-arg-internal (current-buffer) t))
	   beg end form)
       ;; Read the form from the buffer, and record where it ends.
       (save-excursion
	 (end-of-defun)
	 (beginning-of-defun)
	 (setq beg (point))
	 (setq form (read (current-buffer)))
	 (setq end (point)))
       ;; Alter the form if necessary, changing defvar into defconst, etc.
       (setq form (eval-defun-1 (macroexpand form)))
       (list beg end standard-output
	     `(lambda (ignore)
	       ;; Skipping to the end of the specified region
	       ;; will make eval-region return.
	       (goto-char ,end)
	       ',form)))))
  ;; The result of evaluation has been put onto VALUES.  So return it.
  (car values))

(defun lisp-comment-indent ()
  (if (looking-at "\\s<\\s<\\s<")

25703:00b4eac00979


(defun eval-last-sexp (eval-last-sexp-arg-internal)
  "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))
	(debug-on-error eval-expression-debug-on-error))
    (let ((value
	   (eval (let ((stab (syntax-table))
		       (opoint (point))
		       ignore-quotes
		       expr)
		   (unwind-protect
		       (save-excursion

						  (list 'lambda
							'(&rest args)
							expr
							'args)))))
			   expr))
		     (set-syntax-table stab))))))
      (let ((print-length eval-expression-print-length)
	    (print-level eval-expression-print-level))
	(print value)))))

;; Change defvar into defconst within FORM,
;; and likewise for other constructs as necessary.
(defun eval-defun-1 (form)
  (cond ((and (eq (car form) 'defvar)

if it already has a value.\)

With argument, insert value in current buffer after the defun.
Return the result of evaluation."
  (interactive "P")
  (let ((debug-on-error eval-expression-debug-on-error)
	(print-length eval-expression-print-length)
	(print-level eval-expression-print-level))
    (save-excursion
      ;; Arrange for eval-region to "read" the (possibly) altered form.
      ;; eval-region handles recording which file defines a function or
      ;; variable.  Re-written using `apply' to avoid capturing
      ;; variables like `end'.
      (apply
       #'eval-region 
       (let ((standard-output (if eval-defun-arg-internal (current-buffer) t))
	     beg end form)
	 ;; Read the form from the buffer, and record where it ends.
	 (save-excursion
	   (end-of-defun)
	   (beginning-of-defun)
	   (setq beg (point))
	   (setq form (read (current-buffer)))
	   (setq end (point)))
	 ;; Alter the form if necessary, changing defvar into defconst, etc.
	 (setq form (eval-defun-1 (macroexpand form)))
	 (list beg end standard-output
	       `(lambda (ignore)
		 ;; Skipping to the end of the specified region
		 ;; will make eval-region return.
		 (goto-char ,end)
		 ',form))))))
  ;; The result of evaluation has been put onto VALUES.  So return it.
  (car values))

(defun lisp-comment-indent ()
  (if (looking-at "\\s<\\s<\\s<")