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

diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el
index e35992298a6e8dae8bca2d361074b6040794d053..d8f6c58f6ca3a7b5dd0a38181f9d7f23eb697c2f 100644 (file)
--- a/lisp/emacs-lisp/syntax.el
+++ b/lisp/emacs-lisp/syntax.el
@@ -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))