Mercurial > emacs
comparison lisp/emacs-lisp/lisp-mode.el @ 42699:1da0dfa86ab5
Handle define-ibuffer-column, define-ibuffer-filter,
define-ibuffer-sorter, and define-ibuffer-op.
| author | Colin Walters <walters@gnu.org> |
|---|---|
| date | Sun, 13 Jan 2002 05:40:59 +0000 |
| parents | 103ed59cfd30 |
| children | bd315b9fa3f0 |
comparison
equal
deleted
inserted
replaced
| 42698:6cf1ba89dc83 | 42699:1da0dfa86ab5 |
|---|---|
| 130 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) | 130 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) |
| 131 (put 'define-minor-mode 'doc-string-elt 2) | 131 (put 'define-minor-mode 'doc-string-elt 2) |
| 132 (put 'define-generic-mode 'doc-string-elt 7) | 132 (put 'define-generic-mode 'doc-string-elt 7) |
| 133 ;; define-global-mode has no explicit docstring. | 133 ;; define-global-mode has no explicit docstring. |
| 134 (put 'easy-mmode-define-global-mode 'doc-string-elt 0) | 134 (put 'easy-mmode-define-global-mode 'doc-string-elt 0) |
| 135 | 135 (put 'define-ibuffer-filter 'doc-string-elt 3) |
| 136 (put 'define-ibuffer-op 'doc-string-elt 3) | |
| 137 (put 'define-ibuffer-sorter 'doc-string-elt 3) | |
| 136 | 138 |
| 137 (defun lisp-font-lock-syntactic-face-function (state) | 139 (defun lisp-font-lock-syntactic-face-function (state) |
| 138 (if (nth 3 state) | 140 (if (nth 3 state) |
| 139 (if (and (eq (nth 0 state) 1) | 141 (if (and (eq (nth 0 state) 1) |
| 140 ;; This might be a docstring. | 142 ;; This might be a docstring. |