Mercurial > emacs

comparison lisp/emacs-lisp/lisp-mode.el @ 66404:48fff88992ce

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(easy-mmode-define-global-mode): Don't add a dummy doc-string-elt property. (defalias, defvaralias, define-category): Add a docstring property.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 24 Oct 2005 16:47:53 +0000
parents 4b5af439906f
children d7776140d845
comparison
equal deleted inserted replaced
66403:6d02f0b72652 66404:48fff88992ce
140 (put 'define-derived-mode 'doc-string-elt 4) 140 (put 'define-derived-mode 'doc-string-elt 4)
141 (put 'define-compilation-mode 'doc-string-elt 3) 141 (put 'define-compilation-mode 'doc-string-elt 3)
142 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2) 142 (put 'easy-mmode-define-minor-mode 'doc-string-elt 2)
143 (put 'define-minor-mode 'doc-string-elt 2) 143 (put 'define-minor-mode 'doc-string-elt 2)
144 (put 'define-generic-mode 'doc-string-elt 7) 144 (put 'define-generic-mode 'doc-string-elt 7)
145 ;; define-global-mode has no explicit docstring.
146 (put 'easy-mmode-define-global-mode 'doc-string-elt 0)
147 (put 'define-ibuffer-filter 'doc-string-elt 2) 145 (put 'define-ibuffer-filter 'doc-string-elt 2)
148 (put 'define-ibuffer-op 'doc-string-elt 3) 146 (put 'define-ibuffer-op 'doc-string-elt 3)
149 (put 'define-ibuffer-sorter 'doc-string-elt 2) 147 (put 'define-ibuffer-sorter 'doc-string-elt 2)
150 (put 'lambda 'doc-string-elt 2) 148 (put 'lambda 'doc-string-elt 2)
149 (put 'defalias 'doc-string-elt 3)
150 (put 'defvaralias 'doc-string-elt 3)
151 (put 'define-category 'doc-string-elt 2)
151 152
152 (defvar lisp-doc-string-elt-property 'doc-string-elt 153 (defvar lisp-doc-string-elt-property 'doc-string-elt
153 "The symbol property that holds the docstring position info.") 154 "The symbol property that holds the docstring position info.")
154 155
155 (defun lisp-font-lock-syntactic-face-function (state) 156 (defun lisp-font-lock-syntactic-face-function (state)