From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 27 Dec 2020 22:16:54 +0000 (-0500)
Subject: * lisp/textmodes/rst.el (rst-mode): Don't touch global hook
X-Git-Tag: emacs-28.0.90~4542
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=03808272eeaaf65a257f69ad91c3a3bebe186439;p=emacs.git

* lisp/textmodes/rst.el (rst-mode): Don't touch global hook

(rst-re): η-reduce.
---

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)