Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 63108:a19780959d63
(defstruct): Set 'doc-string-elt property.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 07 Jun 2005 10:51:36 +0000 |
| parents | 6a0ab1c93beb |
| children | 83144542b6da 173dee4e2611 |
comparison
equal
deleted
inserted
replaced
| 63107:f3551fda8850 | 63108:a19780959d63 |
|---|---|
| 127 (put 'deftheme 'doc-string-elt 2) | 127 (put 'deftheme 'doc-string-elt 2) |
| 128 (put 'defconst 'doc-string-elt 3) | 128 (put 'defconst 'doc-string-elt 3) |
| 129 (put 'defmacro 'doc-string-elt 3) | 129 (put 'defmacro 'doc-string-elt 3) |
| 130 (put 'defmacro* 'doc-string-elt 3) | 130 (put 'defmacro* 'doc-string-elt 3) |
| 131 (put 'defsubst 'doc-string-elt 3) | 131 (put 'defsubst 'doc-string-elt 3) |
| 132 (put 'defstruct 'doc-string-elt 2) | |
| 132 (put 'define-skeleton 'doc-string-elt 2) | 133 (put 'define-skeleton 'doc-string-elt 2) |
| 133 (put 'define-derived-mode 'doc-string-elt 4) | 134 (put 'define-derived-mode 'doc-string-elt 4) |
| 134 (put 'define-compilation-mode 'doc-string-elt 3) | 135 (put 'define-compilation-mode 'doc-string-elt 3) |
| 135 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) | 136 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) |
| 136 (put 'define-minor-mode 'doc-string-elt 2) | 137 (put 'define-minor-mode 'doc-string-elt 2) |
| 192 ;; Look within the line for a ; following an even number of backslashes | 193 ;; Look within the line for a ; following an even number of backslashes |
| 193 ;; after either a non-backslash or the line beginning. | 194 ;; after either a non-backslash or the line beginning. |
| 194 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") | 195 (setq comment-start-skip "\\(\\(^\\|[^\\\\\n]\\)\\(\\\\\\\\\\)*\\);+ *") |
| 195 (make-local-variable 'font-lock-comment-start-skip) | 196 (make-local-variable 'font-lock-comment-start-skip) |
| 196 ;; Font lock mode uses this only when it KNOWS a comment is starting. | 197 ;; Font lock mode uses this only when it KNOWS a comment is starting. |
| 197 (setq font-lock-comment-start-skip ";+ *") | 198 (setq font-lock-comment-start-skip ";+ *") |
| 198 (make-local-variable 'comment-add) | 199 (make-local-variable 'comment-add) |
| 199 (setq comment-add 1) ;default to `;;' in comment-region | 200 (setq comment-add 1) ;default to `;;' in comment-region |
| 200 (make-local-variable 'comment-column) | 201 (make-local-variable 'comment-column) |
| 201 (setq comment-column 40) | 202 (setq comment-column 40) |
| 202 ;; Don't get confused by `;' in doc strings when paragraph-filling. | 203 ;; Don't get confused by `;' in doc strings when paragraph-filling. |