107 |
(purecopy (concat "^\\s-*(" |
(purecopy (concat "^\\s-*(" |
108 |
(eval-when-compile |
(eval-when-compile |
109 |
(regexp-opt |
(regexp-opt |
110 |
'("defgroup" "deftype" "defstruct" "defclass" |
'("defgroup" "deftheme" "deftype" "defstruct" |
111 |
"define-condition" "define-widget" "defface" |
"defclass" "define-condition" "define-widget" |
112 |
"defpackage") t)) |
"defface" "defpackage") t)) |
113 |
"\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")) |
"\\s-+'?\\(\\sw\\(\\sw\\|\\s_\\)+\\)")) |
114 |
2)) |
2)) |
115 |
|
|
121 |
(put 'defun* 'doc-string-elt 3) |
(put 'defun* 'doc-string-elt 3) |
122 |
(put 'defvar 'doc-string-elt 3) |
(put 'defvar 'doc-string-elt 3) |
123 |
(put 'defcustom 'doc-string-elt 3) |
(put 'defcustom 'doc-string-elt 3) |
124 |
|
(put 'deftheme 'doc-string-elt 2) |
125 |
(put 'defconst 'doc-string-elt 3) |
(put 'defconst 'doc-string-elt 3) |
126 |
(put 'defmacro 'doc-string-elt 3) |
(put 'defmacro 'doc-string-elt 3) |
127 |
(put 'defmacro* 'doc-string-elt 3) |
(put 'defmacro* 'doc-string-elt 3) |
133 |
(put 'define-generic-mode 'doc-string-elt 7) |
(put 'define-generic-mode 'doc-string-elt 7) |
134 |
;; define-global-mode has no explicit docstring. |
;; define-global-mode has no explicit docstring. |
135 |
(put 'easy-mmode-define-global-mode 'doc-string-elt 0) |
(put 'easy-mmode-define-global-mode 'doc-string-elt 0) |
136 |
(put 'define-ibuffer-filter 'doc-string-elt 3) |
(put 'define-ibuffer-filter 'doc-string-elt 2) |
137 |
(put 'define-ibuffer-op 'doc-string-elt 3) |
(put 'define-ibuffer-op 'doc-string-elt 3) |
138 |
(put 'define-ibuffer-sorter 'doc-string-elt 3) |
(put 'define-ibuffer-sorter 'doc-string-elt 2) |
139 |
|
|
140 |
(defun lisp-font-lock-syntactic-face-function (state) |
(defun lisp-font-lock-syntactic-face-function (state) |
141 |
(if (nth 3 state) |
(if (nth 3 state) |