mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Merge remote-tracking branch 'origin/master' into feature/android

Browse source
This commit is contained in:
Po Lu 2023-07-06 08:34:26 +08:00
commit af8232a150
11 changed files with 152 additions and 134 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))