Re: Bug: Strike-through messes with heading face [9.1.9 (release_9.1.9-65-g5e4542 @ /usr/local/share/emacs/27.0.50/lisp/org/)]

[Nicolas Goaziou <mail@nicolasgoaziou.fr>]

Hello,

Kévin Le Gouguec <kevin.legouguec@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