mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 14:30:50 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/syntax.el (syntax-propertize-rules): Fix bug#64459

Browse source
This commit is contained in:
Stefan Monnier 2023-07-05 11:37:28 -04:00
parent 14e57b8f4c
commit 26f31fe3b5
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/emacs-lisp/syntax.el
View file

@ -248,12 +248,14 @@ some parts of the text or may be applied several times to other parts.
Note: There may be at most nine back-references in the REGEXPs of
all RULES in total."
(declare (debug (&rest &or symbolp ;FIXME: edebug this eval step.
(form &rest
(numberp
[&or stringp ;FIXME: Use &wrap
("prog1" [&or stringp def-form] def-body)
def-form])))))
(declare
(debug (&rest &or symbolp ;FIXME: edebug this eval step.
(def-form ;; `def-' needed to debug during macroexpansion.
&rest (numberp
[&or stringp ;FIXME: Use &wrap
;; `def-' because this is the body of a function.
("prog1" [&or stringp def-form] def-body)
def-form])))))
(let ((newrules nil))
(while rules
(if (symbolp (car rules))