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

*** empty log message ***

Browse source
This commit is contained in:
Roland McGrath 1991-05-01 00:45:54 +00:00
parent c22ca93bc3
commit 121f0d5723
1 changed files with 19 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -200,46 +200,34 @@ if that value is non-nil."
(lisp-mode-variables nil) (lisp-mode-variables nil)
(run-hooks 'lisp-interaction-mode-hook)) (run-hooks 'lisp-interaction-mode-hook))
(defun eval-print-last-sexp (arg) (defun eval-print-last-sexp ()
"Evaluate sexp before point; print value into current buffer." "Evaluate sexp before point; print value into current buffer."
(interactive "P") (interactive)
(eval-region (eval-last-sexp t))
(let ((stab (syntax-table)))
(unwind-protect
(save-excursion
(set-syntax-table emacs-lisp-mode-syntax-table)
(forward-sexp -1)
(point))
(set-syntax-table stab)))
(point)
(current-buffer)))
(defun eval-last-sexp (arg) (defun eval-last-sexp (arg)
"Evaluate sexp before point; print value in minibuffer. "Evaluate sexp before point; print value in minibuffer.
With argument, print output into current buffer." With argument, print output into current buffer."
(interactive "P") (interactive "P")
(eval-region (prin1 (let ((stab (syntax-table)))
(let ((stab (syntax-table))) (eval (unwind-protect
(unwind-protect (save-excursion
(save-excursion (set-syntax-table emacs-lisp-mode-syntax-table)
(set-syntax-table emacs-lisp-mode-syntax-table) (forward-sexp -1)
(forward-sexp -1) (read (current-buffer)))
(point)) (set-syntax-table stab))))
(set-syntax-table stab))) (if arg (current-buffer) t)))
(point)
(if arg (current-buffer) t)))
(defun eval-defun (arg) (defun eval-defun (arg)
"Evaluate defun that point is in or before. Print value in minibuffer. "Evaluate defun that point is in or before.
With argument, edebug-defun it instead, preparing it for source-level Print value in minibuffer.
debugging with the electric debugger." With argument, insert value in current buffer after the defun."
(interactive "P") (interactive "P")
(if arg (edebug-defun) (prin1 (eval (save-excursion
(save-excursion (end-of-defun)
(end-of-defun) (beginning-of-defun)
(let ((end (point))) (read (current-buffer))))
(beginning-of-defun) (if arg (current-buffer) t)))
(eval-region (point) end t)))))
(defun lisp-comment-indent () (defun lisp-comment-indent ()
(if (looking-at "\\s<\\s<\\s<") (if (looking-at "\\s<\\s<\\s<")