forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
f50c44897a
|
@ -6447,7 +6447,7 @@ The flag is set if the currently compiled format contains a `%b'.")
|
||||||
|
|
||||||
(defun org-agenda-get-category-icon (category)
|
(defun org-agenda-get-category-icon (category)
|
||||||
"Return an image for CATEGORY according to `org-agenda-category-icon-alist'."
|
"Return an image for CATEGORY according to `org-agenda-category-icon-alist'."
|
||||||
(dolist (entry org-agenda-category-icon-alist)
|
(cl-dolist (entry org-agenda-category-icon-alist)
|
||||||
(when (string-match-p (car entry) category)
|
(when (string-match-p (car entry) category)
|
||||||
(if (listp (cadr entry))
|
(if (listp (cadr entry))
|
||||||
(cl-return (cadr entry))
|
(cl-return (cadr entry))
|
||||||
|
|
Loading…
Reference in New Issue