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" data ("defclass" "Class"
"defconst" "Constant" "defconst" "Constant"
"defcustom" "Customization option" "defcustom" "Customization option"
"defface" "Face"
"defgeneric" "Method" "defgeneric" "Method"
"defgroup" "Customization group" "defgroup" "Customization group"
"define-minor-mode" "Minor mode" "define-minor-mode" "Minor mode"
@ -96,7 +97,7 @@ etc."
(rx (and bol ?\( (rx (and bol ?\(
(group (or "defun" "defgroup" "defcustom" "defvar" (group (or "defun" "defgroup" "defcustom" "defvar"
"defclass" "defgeneric" "defconst" "defclass" "defgeneric" "defconst"
"define-minor-mode")) "define-minor-mode" "defface"))
" " " "
(group (1+ (not (any space ?\n ?\))))))) (group (1+ (not (any space ?\n ?\)))))))
nil :noerror) nil :noerror)
@ -120,7 +121,9 @@ etc."
((memq type '(defcustom defvar defconst defclass)) ((memq type '(defcustom defvar defconst defclass))
(documentation-property obj 'variable-documentation)) (documentation-property obj 'variable-documentation))
((eql type 'defgroup) ((eql type 'defgroup)
(documentation-property obj 'group-documentation)) (documentation-property obj 'group-documentation))
((eql type 'defface)
(documentation-property obj 'face-documentation))
((eql type 'defgeneric) ((eql type 'defgeneric)
(mapcar (lambda (itm) (mapcar (lambda (itm)
(cons (format "%s" (cons (list (car (nth 2 itm)) (cons (format "%s" (cons (list (car (nth 2 itm))