[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/check-declare.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/11/20 03:53:23

Index: check-declare.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/check-declare.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- check-declare.el    19 Nov 2007 00:09:20 -0000      1.2
+++ check-declare.el    20 Nov 2007 03:53:23 -0000      1.3
@@ -86,14 +86,18 @@
         (with-temp-buffer
           (insert-file-contents fnfile)
           ;; defsubst's don't _have_ to be known at compile time.
-          (setq re (format "^[ \t]*(def\\(un\\|subst\\)[ \t]+%s\\>"
+          (setq re (format "^[ \t]*(\\(def\\(?:un\\|subst\\|\
+ine-derived-mode\\)\\)\[ \t]+%s\\([ \t;]+\\|$\\)"
                            (regexp-opt (mapcar 'cadr fnlist) t)))
           (while (re-search-forward re nil t)
             (skip-chars-forward " \t\n")
             (setq fn (match-string 2)
-                  sig (if (looking-at "\\((\\|nil\\)")
+                  sig (if (string-equal "define-derived-mode"
+                                        (match-string 1))
+                          '(0 . 0)
+                        (if (looking-at "\\((\\|nil\\)")
                           (byte-compile-arglist-signature
-                           (read (current-buffer))))
+                             (read (current-buffer)))))
                   ;; alist of functions and arglist signatures.
                   siglist (cons (cons fn sig) siglist)))))
     (dolist (e fnlist)