ryuslash/edocs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Include defface

Browse source
This commit is contained in:
Tom Willemse 2014-01-25 23:11:12 +01:00
parent 477e7fac3a
commit d99ecc0b2c
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
edocs.el
View file

@ -76,6 +76,7 @@ and are not meant to be used outside the module. The default is
data ("defclass" "Class"
"defconst" "Constant"
"defcustom" "Customization option"
"defface" "Face"
"defgeneric" "Method"
"defgroup" "Customization group"
"define-minor-mode" "Minor mode"
@ -96,7 +97,7 @@ etc."
(rx (and bol ?\(
(group (or "defun" "defgroup" "defcustom" "defvar"
"defclass" "defgeneric" "defconst"
"define-minor-mode"))
"define-minor-mode" "defface"))
" "
(group (1+ (not (any space ?\n ?\)))))))
nil :noerror)
@ -120,7 +121,9 @@ etc."
((memq type '(defcustom defvar defconst defclass))
(documentation-property obj 'variable-documentation))
((eql type 'defgroup)
(documentation-property obj 'group-documentation))
(documentation-property obj 'group-documentation))
((eql type 'defface)
(documentation-property obj 'face-documentation))
((eql type 'defgeneric)
(mapcar (lambda (itm)
(cons (format "%s" (cons (list (car (nth 2 itm))