From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nicolas Goaziou Subject: 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/)] Date: Sat, 27 Apr 2019 18:55:32 +0200 Message-ID: <87pnp7fkvv.fsf@nicolasgoaziou.fr> References: <87r2a4ztt2.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([209.51.188.92]:37261) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1hKQeS-0008IV-UD for emacs-orgmode@gnu.org; Sat, 27 Apr 2019 12:58:13 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1hKQby-0007CT-Ad for emacs-orgmode@gnu.org; Sat, 27 Apr 2019 12:55:39 -0400 Received: from relay7-d.mail.gandi.net ([217.70.183.200]:53717) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1hKQbx-0007BM-W8 for emacs-orgmode@gnu.org; Sat, 27 Apr 2019 12:55:38 -0400 In-Reply-To: <87r2a4ztt2.fsf@gmail.com> (=?utf-8?Q?=22K=C3=A9vin?= Le Gouguec"'s message of "Sun, 14 Apr 2019 13:54:01 +0200") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: =?utf-8?Q?K=C3=A9vin?= Le Gouguec Cc: emacs-orgmode@gnu.org Hello, K=C3=A9vin Le Gouguec 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 no= t 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, --=20 Nicolas Goaziou