Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 23738:2ef2813414b6
(lisp-interaction-mode-map): Doc fix.
(with-temp-message): Add lisp-indent-function property.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 19 Nov 1998 18:45:47 +0000 |
| parents | b706421adbd5 |
| children | 485668a57232 |
comparison
equal
deleted
inserted
replaced
| 23737:1e1e575a2c44 | 23738:2ef2813414b6 |
|---|---|
| 260 "Send the current defun to the Lisp process made by \\[run-lisp]." | 260 "Send the current defun to the Lisp process made by \\[run-lisp]." |
| 261 (interactive) | 261 (interactive) |
| 262 (error "Process lisp does not exist")) | 262 (error "Process lisp does not exist")) |
| 263 | 263 |
| 264 (defvar lisp-interaction-mode-map () | 264 (defvar lisp-interaction-mode-map () |
| 265 "Keymap for Lisp Interaction moe. | 265 "Keymap for Lisp Interaction mode. |
| 266 All commands in `shared-lisp-mode-map' are inherited by this map.") | 266 All commands in `shared-lisp-mode-map' are inherited by this map.") |
| 267 | 267 |
| 268 (if lisp-interaction-mode-map | 268 (if lisp-interaction-mode-map |
| 269 () | 269 () |
| 270 (setq lisp-interaction-mode-map (make-sparse-keymap)) | 270 (setq lisp-interaction-mode-map (make-sparse-keymap)) |
| 657 (put 'with-current-buffer 'lisp-indent-function 1) | 657 (put 'with-current-buffer 'lisp-indent-function 1) |
| 658 (put 'combine-after-change-calls 'lisp-indent-function 0) | 658 (put 'combine-after-change-calls 'lisp-indent-function 0) |
| 659 (put 'with-output-to-string 'lisp-indent-function 0) | 659 (put 'with-output-to-string 'lisp-indent-function 0) |
| 660 (put 'with-temp-file 'lisp-indent-function 1) | 660 (put 'with-temp-file 'lisp-indent-function 1) |
| 661 (put 'with-temp-buffer 'lisp-indent-function 0) | 661 (put 'with-temp-buffer 'lisp-indent-function 0) |
| 662 (put 'with-temp-message 'lisp-indent-function 1) | |
| 662 (put 'let 'lisp-indent-function 1) | 663 (put 'let 'lisp-indent-function 1) |
| 663 (put 'let* 'lisp-indent-function 1) | 664 (put 'let* 'lisp-indent-function 1) |
| 664 (put 'while 'lisp-indent-function 1) | 665 (put 'while 'lisp-indent-function 1) |
| 665 (put 'if 'lisp-indent-function 2) | 666 (put 'if 'lisp-indent-function 2) |
| 666 (put 'catch 'lisp-indent-function 1) | 667 (put 'catch 'lisp-indent-function 1) |