Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 248:287cf3ae183a
*** empty log message ***
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 01 May 1991 00:45:54 +0000 |
| parents | a1430f8459e5 |
| children | 43cdaf2db624 |
comparison
equal
deleted
inserted
replaced
| 247:8b9aa51c8a69 | 248:287cf3ae183a |
|---|---|
| 198 (setq mode-name "Lisp Interaction") | 198 (setq mode-name "Lisp Interaction") |
| 199 (set-syntax-table emacs-lisp-mode-syntax-table) | 199 (set-syntax-table emacs-lisp-mode-syntax-table) |
| 200 (lisp-mode-variables nil) | 200 (lisp-mode-variables nil) |
| 201 (run-hooks 'lisp-interaction-mode-hook)) | 201 (run-hooks 'lisp-interaction-mode-hook)) |
| 202 | 202 |
| 203 (defun eval-print-last-sexp (arg) | 203 (defun eval-print-last-sexp () |
| 204 "Evaluate sexp before point; print value into current buffer." | 204 "Evaluate sexp before point; print value into current buffer." |
| 205 (interactive "P") | 205 (interactive) |
| 206 (eval-region | 206 (eval-last-sexp t)) |
| 207 (let ((stab (syntax-table))) | |
| 208 (unwind-protect | |
| 209 (save-excursion | |
| 210 (set-syntax-table emacs-lisp-mode-syntax-table) | |
| 211 (forward-sexp -1) | |
| 212 (point)) | |
| 213 (set-syntax-table stab))) | |
| 214 (point) | |
| 215 (current-buffer))) | |
| 216 | 207 |
| 217 (defun eval-last-sexp (arg) | 208 (defun eval-last-sexp (arg) |
| 218 "Evaluate sexp before point; print value in minibuffer. | 209 "Evaluate sexp before point; print value in minibuffer. |
| 219 With argument, print output into current buffer." | 210 With argument, print output into current buffer." |
| 220 (interactive "P") | 211 (interactive "P") |
| 221 (eval-region | 212 (prin1 (let ((stab (syntax-table))) |
| 222 (let ((stab (syntax-table))) | 213 (eval (unwind-protect |
| 223 (unwind-protect | 214 (save-excursion |
| 224 (save-excursion | 215 (set-syntax-table emacs-lisp-mode-syntax-table) |
| 225 (set-syntax-table emacs-lisp-mode-syntax-table) | 216 (forward-sexp -1) |
| 226 (forward-sexp -1) | 217 (read (current-buffer))) |
| 227 (point)) | 218 (set-syntax-table stab)))) |
| 228 (set-syntax-table stab))) | 219 (if arg (current-buffer) t))) |
| 229 (point) | |
| 230 (if arg (current-buffer) t))) | |
| 231 | 220 |
| 232 (defun eval-defun (arg) | 221 (defun eval-defun (arg) |
| 233 "Evaluate defun that point is in or before. Print value in minibuffer. | 222 "Evaluate defun that point is in or before. |
| 234 With argument, edebug-defun it instead, preparing it for source-level | 223 Print value in minibuffer. |
| 235 debugging with the electric debugger." | 224 With argument, insert value in current buffer after the defun." |
| 236 (interactive "P") | 225 (interactive "P") |
| 237 (if arg (edebug-defun) | 226 (prin1 (eval (save-excursion |
| 238 (save-excursion | 227 (end-of-defun) |
| 239 (end-of-defun) | 228 (beginning-of-defun) |
| 240 (let ((end (point))) | 229 (read (current-buffer)))) |
| 241 (beginning-of-defun) | 230 (if arg (current-buffer) t))) |
| 242 (eval-region (point) end t))))) | |
| 243 | 231 |
| 244 (defun lisp-comment-indent () | 232 (defun lisp-comment-indent () |
| 245 (if (looking-at "\\s<\\s<\\s<") | 233 (if (looking-at "\\s<\\s<\\s<") |
| 246 (current-column) | 234 (current-column) |
| 247 (if (looking-at "\\s<\\s<") | 235 (if (looking-at "\\s<\\s<") |