comparison lisp/emacs-lisp/lisp-mode.el @ 23388:8aa1f99efb66

(eval-defun): Return the evaluation result.

23387:842d6539989b

		     (set-syntax-table stab)))))))

(defun eval-defun (eval-defun-arg-internal)
  "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

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

23388:8aa1f99efb66

		     (set-syntax-table stab)))))))

(defun eval-defun (eval-defun-arg-internal)
  "Evaluate defun that point is in or before.
Print value in minibuffer.
With argument, insert value in current buffer after the defun.
Return the result of evaluation."
  (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

      (eval-region 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<")
      (current-column)
    (if (looking-at "\\s<\\s<")