From 2bb847473f2199e1dfd03ddcafdd3563ed46ab78 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Miquel?= Date: Wed, 16 Sep 2020 07:49:34 +0200 Subject: [PATCH] org.el (org-fontify-meta-lines-and-blocks-1): Fix meta lines regexp * lisp/org.el (org-fontify-meta-lines-and-blocks-1): Fix meta lines regexp to work correctly for lines with only a #. Replace blank in regexp by (any " \t"). TINYCHANGE --- lisp/org.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index d09d6c8d2..053635c85 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5219,14 +5219,14 @@ by a #." "Fontify #+ lines and blocks." (let ((case-fold-search t)) (when (re-search-forward - (rx bol (group (zero-or-more blank) "#" + (rx bol (group (zero-or-more (any " \t")) "#" (group (group (or (seq "+" (one-or-more (any "a-zA-Z")) (optional ":")) - space + (any " \t") eol)) (optional (group "_" (group (one-or-more (any "a-zA-Z")))))) - (zero-or-more blank) + (zero-or-more (any " \t")) (group (group (zero-or-more (not (any " \t\n")))) - (zero-or-more blank) + (zero-or-more (any " \t")) (group (zero-or-more any))))) limit t) (let ((beg (match-beginning 0)) @@ -5249,7 +5249,7 @@ by a #." quoting (member block-type org-protecting-blocks)) (when (re-search-forward (rx-to-string `(group bol (or (seq (one-or-more "*") space) - (seq (zero-or-more blank) + (seq (zero-or-more (any " \t")) "#+end" ,(match-string 4) word-end @@ -5323,11 +5323,11 @@ by a #." ;; Handle short captions (save-excursion (beginning-of-line) - (looking-at (rx (group (zero-or-more blank) + (looking-at (rx (group (zero-or-more (any " \t")) "#+caption" (optional "[" (zero-or-more any) "]") ":") - (zero-or-more blank)))) + (zero-or-more (any " \t"))))) (add-text-properties (line-beginning-position) (match-end 1) '(font-lock-fontified t face org-meta-line)) (add-text-properties (match-end 0) (line-end-position) -- 2.28.0