comparison lisp/emacs-lisp/lisp-mode.el @ 22246:afacb0a7e251

(eval-defun): Pass proper beg to eval-region.

22245:94da16d936b6

  "Evaluate defun that point is in or before.
Print value in minibuffer.
With argument, insert value in current buffer after the defun."
  (interactive "P")
  (let ((standard-output (if eval-defun-arg-internal (current-buffer) t))
	 end form)
    ;; Read the form from the buffer, and record where it ends.
    (save-excursion
      (end-of-defun)
      (beginning-of-defun)
      (setq form (read (current-buffer)))
      (setq end (point)))
    ;; Alter the form if necessary.
    (cond ((and (eq (car form) 'defvar)
		(cdr-safe (cdr-safe form)))

	     #'(lambda (ignore)
		 ;; Skipping to the end of the specified region
		 ;; will make eval-region return.
		 (goto-char end)
		 form)))
	(eval-region (point) end standard-output)))))

(defun lisp-comment-indent ()
  (if (looking-at "\\s<\\s<\\s<")
      (current-column)
    (if (looking-at "\\s<\\s<")

22246:afacb0a7e251

  "Evaluate defun that point is in or before.
Print value in minibuffer.
With argument, insert value in current buffer after the defun."
  (interactive "P")
  (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.
    (cond ((and (eq (car form) 'defvar)
		(cdr-safe (cdr-safe form)))

	     #'(lambda (ignore)
		 ;; Skipping to the end of the specified region
		 ;; will make eval-region return.
		 (goto-char end)
		 form)))
	(eval-region beg end standard-output)))))

(defun lisp-comment-indent ()
  (if (looking-at "\\s<\\s<\\s<")
      (current-column)
    (if (looking-at "\\s<\\s<")