[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0380827 1/2: * lisp/textmodes/rst.el (rst-mode): Don't touch glob
From: |
Stefan Monnier |
Subject: |
master 0380827 1/2: * lisp/textmodes/rst.el (rst-mode): Don't touch global hook |
Date: |
Sun, 27 Dec 2020 17:32:14 -0500 (EST) |
branch: master
commit 03808272eeaaf65a257f69ad91c3a3bebe186439
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* lisp/textmodes/rst.el (rst-mode): Don't touch global hook
(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 435de26..6090cea 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)