|
@@ -4334,7 +4334,7 @@ will be prompted for."
|
|
|
"Fontify #+ lines and blocks, in the correct ways."
|
|
|
(let ((case-fold-search t))
|
|
|
(if (re-search-forward
|
|
|
- "^\\([ \t]*#\\+\\(\\([a-zA-Z]+:?\\)\\(_\\([a-zA-Z]+\\)\\)?\\)\\(.*\\)\\)"
|
|
|
+ "^\\([ \t]*#\\+\\(\\([a-zA-Z]+:?\\| \\|$\\)\\(_\\([a-zA-Z]+\\)\\)?\\)\\(.*\\)\\)"
|
|
|
limit t)
|
|
|
(let ((beg (match-beginning 0))
|
|
|
(beg1 (line-beginning-position 2))
|
|
@@ -4384,6 +4384,10 @@ will be prompted for."
|
|
|
beg (match-end 0)
|
|
|
'(font-lock-fontified t face org-meta-line))
|
|
|
t)
|
|
|
+ ((member dc3 '(" " ""))
|
|
|
+ (add-text-properties
|
|
|
+ beg (match-end 0)
|
|
|
+ '(font-lock-fontified t face font-lock-comment-face)))
|
|
|
(t nil))))))
|
|
|
|
|
|
(defun org-activate-angle-links (limit)
|