# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1195430960 0
# Node ID 1244ab609a9967d32c448b0b5cb4595d940631f7
# Parent  16c8cf99413202c9972060d0a4e276b2b597e4d4
(check-declare-verify): If fnfile does not exist, try adding `.el'
extension.  Also search for defsubsts.

diff -r 16c8cf994132 -r 1244ab609a99 lisp/emacs-lisp/check-declare.el
--- a/lisp/emacs-lisp/check-declare.el	Mon Nov 19 00:08:23 2007 +0000
+++ b/lisp/emacs-lisp/check-declare.el	Mon Nov 19 00:09:20 2007 +0000
@@ -30,6 +30,10 @@
 ;; checks that all such statements in a file or directory are accurate.
 ;; The entry points are `check-declare-file' and `check-declare-directory'.
 
+;;; TODO:
+
+;; 1. Handle defstructs (eg uniquify-item-base in desktop.el).
+
 ;;; Code:
 
 (defconst check-declare-warning-buffer "*Check Declarations Warnings*"
@@ -76,14 +80,17 @@
   (let ((m (format "Checking %s..." fnfile))
         re fn sig siglist arglist type errlist)
     (message "%s" m)
+    (or (file-exists-p fnfile)
+        (setq fnfile (concat fnfile ".el")))
     (if (file-exists-p fnfile)
         (with-temp-buffer
           (insert-file-contents fnfile)
-          (setq re (format "^[ \t]*(defun[ \t]+%s\\>"
+          ;; defsubst's don't _have_ to be known at compile time.
+          (setq re (format "^[ \t]*(def\\(un\\|subst\\)[ \t]+%s\\>"
                            (regexp-opt (mapcar 'cadr fnlist) t)))
           (while (re-search-forward re nil t)
             (skip-chars-forward " \t\n")
-            (setq fn (match-string 1)
+            (setq fn (match-string 2)
                   sig (if (looking-at "\\((\\|nil\\)")
                           (byte-compile-arglist-signature
                            (read (current-buffer))))