Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 56996:5418c6e288fc
(define-compilation-mode): Specify `doc-string-elt' property.
| author | Thien-Thi Nguyen <ttn@gnuvola.org> |
|---|---|
| date | Wed, 08 Sep 2004 11:09:14 +0000 |
| parents | 14c8ead25d14 |
| children | 3493253e6b69 cce1c0ee76ee |
comparison
equal
deleted
inserted
replaced
| 56995:fd1be95301bf | 56996:5418c6e288fc |
|---|---|
| 127 (put 'defmacro 'doc-string-elt 3) | 127 (put 'defmacro 'doc-string-elt 3) |
| 128 (put 'defmacro* 'doc-string-elt 3) | 128 (put 'defmacro* 'doc-string-elt 3) |
| 129 (put 'defsubst 'doc-string-elt 3) | 129 (put 'defsubst 'doc-string-elt 3) |
| 130 (put 'define-skeleton 'doc-string-elt 2) | 130 (put 'define-skeleton 'doc-string-elt 2) |
| 131 (put 'define-derived-mode 'doc-string-elt 4) | 131 (put 'define-derived-mode 'doc-string-elt 4) |
| 132 (put 'define-compilation-mode 'doc-string-elt 3) | |
| 132 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) | 133 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) |
| 133 (put 'define-minor-mode 'doc-string-elt 2) | 134 (put 'define-minor-mode 'doc-string-elt 2) |
| 134 (put 'define-generic-mode 'doc-string-elt 7) | 135 (put 'define-generic-mode 'doc-string-elt 7) |
| 135 ;; define-global-mode has no explicit docstring. | 136 ;; define-global-mode has no explicit docstring. |
| 136 (put 'easy-mmode-define-global-mode 'doc-string-elt 0) | 137 (put 'easy-mmode-define-global-mode 'doc-string-elt 0) |
| 487 ;; Verify the string reads a CHAR, not to some other character. | 488 ;; Verify the string reads a CHAR, not to some other character. |
| 488 ;; If it doesn't, return nil instead. | 489 ;; If it doesn't, return nil instead. |
| 489 (and string | 490 (and string |
| 490 (= (car (read-from-string string)) char) | 491 (= (car (read-from-string string)) char) |
| 491 string)))) | 492 string)))) |
| 492 | 493 |
| 493 | 494 |
| 494 (defun eval-last-sexp-1 (eval-last-sexp-arg-internal) | 495 (defun eval-last-sexp-1 (eval-last-sexp-arg-internal) |
| 495 "Evaluate sexp before point; print value in minibuffer. | 496 "Evaluate sexp before point; print value in minibuffer. |
| 496 With argument, print output into current buffer." | 497 With argument, print output into current buffer." |
| 497 (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t))) | 498 (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t))) |