Hello, Kaushal Modi <kaushal.m...@gmail.com> writes:
> Again it's a font-locking bug, and thankfully doesn't impact the empasis > detection in exporters. > > Would you please look into fixing this? I cannot. Fixing it would require to rewrite the whole thing to use the parser, so that fontification matches the syntax of the document. This, in turn, would require to repair the parser's cache so that it doesn't freeze when the wind is north, northwest. Ah, well. Meanwhile, I pile up ad-hoc rules to avoid mis-fontification, until the next pathological case is reported. IOW, I'm only mildly interested in fixing fontification bugs. You may want to test the following rules and report if it fits your use case. Regards, -- Nicolas Goaziou
>From 52e4c5e1e69b0aaef1795289d8cf9456e76716f1 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou <m...@nicolasgoaziou.fr> Date: Sat, 18 Nov 2017 00:19:35 +0100 Subject: [PATCH] Small fix to emphasis fontification * lisp/org.el (org-do-emphasis-faces): Do not span over paragraph separators. Reported-by: Kaushal Modi <kaushal.m...@gmail.com> <http://lists.gnu.org/archive/html/emacs-orgmode/2017-11/msg00202.html> --- lisp/org.el | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index f873f1021..861ce31db 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5705,20 +5705,16 @@ This should be called after the variable `org-link-parameters' has changed." (when (save-excursion (goto-char (match-beginning 0)) (and - ;; Do not match headline stars. Do not consider - ;; stars of a headline as closing marker for bold - ;; markup either. - (not (and (equal marker "*") - (save-excursion - (forward-char) - (skip-chars-backward "*") - (looking-at-p org-outline-regexp-bol)))) ;; Do not match table hlines. (not (and (equal marker "+") (org-match-line - "^[ \t]*\\(|[-+]+|?\\|\\+[-+]+\\+\\)[ \t]*$"))) + "[ \t]*\\(|[-+]+|?\\|\\+[-+]+\\+\\)[ \t]*$"))) + ;; Match full emphasis markup regexp. (looking-at (if verbatim? org-verbatim-re org-emph-re)) - ;; At a table row, do not cross cell boundaries. + ;; Do not span over paragraph boundaries. + (not (string-match-p org-element-paragraph-separate + (match-string 2))) + ;; Do not span over cells in table rows. (not (and (save-match-data (org-match-line "[ \t]*|")) (string-match-p "|" (match-string 4)))))) (pcase-let ((`(,_ ,face ,_) (assoc marker org-emphasis-alist))) -- 2.14.3
