Fix strike-through fontification on heading

* lisp/org.el (org-do-emphasis-faces): Fix face priority.
This commit is contained in:
Kévin Le Gouguec 2019-04-27 18:52:57 +02:00 committed by Nicolas Goaziou
parent 4ec550fd5a
commit 42abf5c695
1 changed files with 1 additions and 1 deletions

View File

@ -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]*|"))
(string-match-p "|" (match-string 4))))))
(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)
(when verbatim?
(org-remove-flyspell-overlays-in