forked from mirrors/org-mode
Fix strike-through fontification on heading
* lisp/org.el (org-do-emphasis-faces): Fix face priority.
This commit is contained in:
parent
4ec550fd5a
commit
42abf5c695
|
@ -5821,7 +5821,7 @@ This should be called after the variable `org-link-parameters' has changed."
|
||||||
(not (and (save-match-data (org-match-line "[ \t]*|"))
|
(not (and (save-match-data (org-match-line "[ \t]*|"))
|
||||||
(string-match-p "|" (match-string 4))))))
|
(string-match-p "|" (match-string 4))))))
|
||||||
(pcase-let ((`(,_ ,face ,_) (assoc marker org-emphasis-alist)))
|
(pcase-let ((`(,_ ,face ,_) (assoc marker org-emphasis-alist)))
|
||||||
(font-lock-prepend-text-property
|
(font-lock-append-text-property
|
||||||
(match-beginning 2) (match-end 2) 'face face)
|
(match-beginning 2) (match-end 2) 'face face)
|
||||||
(when verbatim?
|
(when verbatim?
|
||||||
(org-remove-flyspell-overlays-in
|
(org-remove-flyspell-overlays-in
|
||||||
|
|
Loading…
Reference in New Issue