[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Issue with org-fontify-done-headline
From: |
Brian J. Carlson |
Subject: |
[O] Issue with org-fontify-done-headline |
Date: |
Wed, 18 Jan 2012 16:11:02 -0500 |
User-agent: |
Gnus/5.110018 (No Gnus v0.18) Emacs/23.2 (gnu/linux) |
In the latest git version of org I've been having problems with
org-fontify-done-headline.
After looking at (defun org-set-font-lock-defaults () I think there is a
problem with the following code.
--8<---------------cut here---------------start------------->8---
;; DONE
(if org-fontify-done-headline
(list (format org-heading-keyword-regexp-format
(concat
"\\("
(mapconcat 'regexp-quote org-done-keywords "\\|")
"\\)"))
'(2 'org-headline-done t))
nil)
--8<---------------cut here---------------end--------------->8---
I guess there are two ways to fix this:
,----
| (if org-fontify-done-headline
| (list (format org-heading-keyword-regexp-format
| (concat
| "\\("
| (mapconcat 'regexp-quote org-done-keywords "\\|")
| "\\)"))
| '(3 'org-headline-done t))
| nil)
`----
or
,----
| (if org-fontify-done-headline
| (list (format org-heading-keyword-regexp-format
| (concat
| "\\(?:"
| (mapconcat 'regexp-quote org-done-keywords "\\|")
| "\\)"))
| '(2 'org-headline-done t))
| nil)
`----
I have only gotten around to using "git clone", so I thought I'd post here
until I have a chance to learn how to issue a git push/pull request.
--
Thanks,
;-b
Brian Carlson
- [O] Issue with org-fontify-done-headline,
Brian J. Carlson <=