From 03808272eeaaf65a257f69ad91c3a3bebe186439 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 27 Dec 2020 17:16:54 -0500 Subject: [PATCH] * lisp/textmodes/rst.el (rst-mode): Don't touch global hook MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit (rst-re): η-reduce. --- lisp/textmodes/rst.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index 435de2683ef..6090cea0cb2 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el @@ -568,9 +568,7 @@ After interpretation of ARGS the results are concatenated as for (regexp-quote (char-to-string re))) ((listp re) (let ((nested - (mapcar (lambda (elt) - (rst-re elt)) - (cdr re)))) + (mapcar #'rst-re (cdr re)))) (cond ((eq (car re) :seq) (mapconcat #'identity nested "")) @@ -1398,7 +1396,8 @@ highlighting. t nil nil nil (font-lock-multiline . t) (font-lock-mark-block-function . mark-paragraph))) - (add-hook 'font-lock-extend-region-functions #'rst-font-lock-extend-region t) + (add-hook 'font-lock-extend-region-functions + #'rst-font-lock-extend-region nil t) ;; Text after a changed line may need new fontification. (setq-local jit-lock-contextually t) -- 2.39.5