jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix: (--add-priority-face) match-string

Browse source 
Oops...
This commit is contained in:
Adam Porter 2018-05-23 07:26:03 -05:00
parent e04c1212a0
commit d722e4db72
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
org-agenda-ng.el
View file

@ -163,7 +163,7 @@ Its property list should be the second item in the list, as returned by `org-ele
(defun org-agenda-ng--add-priority-face (string) (defun org-agenda-ng--add-priority-face (string)
"Return STRING with priority face added." "Return STRING with priority face added."
(when (string-match "\\(\\[#\\(.\\)\\]\\)" string) (when (string-match "\\(\\[#\\(.\\)\\]\\)" string)
(let ((face (org-get-priority-face (string-to-char (match-string 2))))) (let ((face (org-get-priority-face (string-to-char (match-string 2 string)))))
(org-add-props string nil 'face face 'font-lock-fontified t)))) (org-add-props string nil 'face face 'font-lock-fontified t))))
(defun org-agenda-ng--add-scheduled-face (element) (defun org-agenda-ng--add-scheduled-face (element)