Hello, Kévin Le Gouguec <kevin.legoug...@gmail.com> writes:
> Unless I am mistaken, +strike-through+ markers in headings cause the > heading face to disappear. To reproduce, in an Org buffer, add the > following heading: > > * foo *bar* /baz/ _quux_ +corge+ > > Testing this with emacs -Q, on commit f9694a7 of the master branch, > bar (resp. baz and quux) displays the org-level-1 face as well as the > bold (resp. italics and underlined) decoration, but not corge: the > latter only shows the strike-through decoration, not the header face. > > I poked at org-do-emphasis-faces with the silly patch attached, and > the issue went away (corge shows both the header face and the > strike-through decoration). > > diff --git a/lisp/org.el b/lisp/org.el > index b5b9798ad..94713a7e5 100644 > --- a/lisp/org.el > +++ b/lisp/org.el > @@ -5064,7 +5064,7 @@ stacked delimiters is N. Escaping delimiters is not > possible." > (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 Applied. Thank you. Regards, -- Nicolas Goaziou
