summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSébastien Miquel <sebastien.miquel@posteo.eu>2020-09-16 07:49:34 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2020-09-16 21:39:06 +0200
commit38fbd161e4478d1cfdea1c3c65b9024232f15f06 (patch)
tree7e2d38da19ecef911f80581f838b0888ebd53404
parent469ee6340149e80e037ba9730f62fbe0c36a9651 (diff)
downloadorg-mode-38fbd161e4478d1cfdea1c3c65b9024232f15f06.tar.gz
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
-rw-r--r--lisp/org.el14
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/org.el b/lisp/org.el
index dfea48c..efdf4e3 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)