tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

Fix a docstring

Browse source 
* lisp/org.el (org-get-tag-face): Fix docstring.  Small refactoring.
This commit is contained in:
Nicolas Goaziou 2015-08-06 14:57:23 +02:00
parent 96b4e8f74b
commit 4f3b3ce3d9
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/org.el
View file

@ -6541,13 +6541,13 @@ When FACE-OR-COLOR is not a string, just return it."
'org-priority)
'font-lock-fontified t)))))
(defun org-get-tag-face (kwd)
"Get the right face for a TODO keyword KWD.
If KWD is a number, get the corresponding match group."
(if (numberp kwd) (setq kwd (match-string kwd)))
(or (org-face-from-face-or-color
'tag 'org-tag (cdr (assoc kwd org-tag-faces)))
'org-tag))
(defun org-get-tag-face (tag)
"Get the right face for TAG.
If TAG is a number, get the corresponding match group."
(let ((tag (if (wholenump tag) (match-string tag) tag)))
(or (org-face-from-face-or-color
'tag 'org-tag (cdr (assoc kwd org-tag-faces)))
'org-tag)))
(defun org-unfontify-region (beg end &optional maybe_loudly)
"Remove fontification and activation overlays from links."