summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-11-25 17:49:13 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-11-25 17:49:13 +0100
commitb77ef877ab6b9f86a0691917641770fb9b700ff3 (patch)
treeaa63b279097799447ea9ebe663606cf5164524c8
parent2e35a59763efc5324874ec1a894691fe2123495c (diff)
downloadorg-mode-b77ef877ab6b9f86a0691917641770fb9b700ff3.tar.gz
org-agenda: Fix "no-catch --cl-block-nil--"
* lisp/org-agenda.el (org-agenda-get-category-icon): Use `cl-dolist' instead of `dolist'. Reported-by: Karl Voit <devnull@Karl-Voit.at> <http://permalink.gmane.org/gmane.emacs.orgmode/110443>
-rw-r--r--lisp/org-agenda.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index b7226f1..40db218 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6447,7 +6447,7 @@ The flag is set if the currently compiled format contains a `%b'.")
(defun org-agenda-get-category-icon (category)
"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)
(if (listp (cadr entry))
(cl-return (cadr entry))