procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Avoid loading 'rx' at runtime in 'lua-ts-mode'

Browse source 
* lisp/progmodes/lua-ts-mode.el (lua-ts-inferior-lua):
Replace 'rx-to-string' and substitution with 'rx' and 'literal'.
(Bug#74499)

(cherry picked from commit e71d714a81)
This commit is contained in:
john muhl 2024-11-23 14:08:21 -06:00 • committed by Eli Zaretskii
parent d953179320
commit 6f6a92624e
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/lua-ts-mode.el
View file

@ -659,9 +659,9 @@ Calls REPORT-FN directly."
(setq-local comint-input-ignoredups t
comint-input-ring-file-name lua-ts-inferior-history
comint-prompt-read-only t
comint-prompt-regexp (rx-to-string `(: bol
,lua-ts-inferior-prompt
(1+ space))))
comint-prompt-regexp (rx bol
(literal lua-ts-inferior-prompt)
(1+ space)))
(comint-read-input-ring t)
(add-hook 'comint-preoutput-filter-functions
(lambda (string)
@ -672,11 +672,11 @@ Calls REPORT-FN directly."
;; accumulate in the output when sending regions
;; to the inferior process.
(replace-regexp-in-string
(rx-to-string `(: bol
(* ,lua-ts-inferior-prompt
(? ,lua-ts-inferior-prompt)
(1+ space))
(group (* nonl))))
(rx bol
(* (literal lua-ts-inferior-prompt)
(? (literal lua-ts-inferior-prompt))
(1+ space))
(group (* nonl)))
"\\1" string)
;; Re-add the prompt for the next line.
lua-ts-inferior-prompt " ")))