Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 01:34:21 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/progmodes/js.el (js--make-framework-matcher): Use a closure

Browse source
This commit is contained in:
Stefan Monnier 2021-05-18 20:30:08 -04:00
parent 942cbc4dea
commit 1276ba75eb
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/progmodes/js.el
View file

@ -1060,7 +1060,7 @@ Return the pitem of the function we went to the beginning of."
(t
(js--beginning-of-defun-nested))))))
(defun js--flush-caches (&optional beg ignored)
(defun js--flush-caches (&optional beg _ignored)
"Flush the `js-mode' syntax cache after position BEG.
BEG defaults to `point-min', meaning to flush the entire cache."
(interactive)
@ -1473,11 +1473,10 @@ LIMIT defaults to point."
"Helper function for building `js--font-lock-keywords'.
Create a byte-compiled function for matching a concatenation of
REGEXPS, but only if FRAMEWORK is in `js-enabled-frameworks'."
(setq regexps (apply #'concat regexps))
(byte-compile
`(lambda (limit)
(when (memq (quote ,framework) js-enabled-frameworks)
(re-search-forward ,regexps limit t)))))
(let ((regexp (apply #'concat regexps)))
(lambda (limit)
(when (memq framework js-enabled-frameworks)
(re-search-forward regexp limit t)))))
(defvar-local js--tmp-location nil)
@ -4181,8 +4180,9 @@ browser, respectively."
"style" "")
cmds)))
(eval (list 'with-js
(cons 'js-list (nreverse cmds))))))
(eval `(with-js
(js-list ,@(nreverse cmds)))
t)))
(command-hook
()