Mercurial > emacs
changeset 96696:b4b1fe2990a7
(check-declare-locate, check-declare-verify): Handle .m files.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Wed, 16 Jul 2008 02:25:40 +0000 |
| parents | 98ae99a5a007 |
| children | 86b977a209f5 |
| files | lisp/emacs-lisp/check-declare.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/check-declare.el Wed Jul 16 02:24:31 2008 +0000 +++ b/lisp/emacs-lisp/check-declare.el Wed Jul 16 02:25:40 2008 +0000 @@ -42,7 +42,7 @@ (defun check-declare-locate (file basefile) "Return the full path of FILE. -Expands files with a \".c\" extension relative to the Emacs +Expands files with a \".c\" or \".m\" extension relative to the Emacs \"src/\" directory. Otherwise, `locate-library' searches for FILE. If that fails, expands FILE relative to BASEFILE's directory part. The returned file might not exist. If FILE has an \"ext:\" prefix, so does @@ -52,7 +52,7 @@ (if ext (setq file (substring file 4))) (setq file - (if (string-equal "c" (file-name-extension file)) + (if (member (file-name-extension file) '("c" "m")) (expand-file-name file (expand-file-name "src" source-directory)) (if (setq tfile (locate-library (file-name-nondirectory file))) (progn @@ -130,7 +130,7 @@ of errors with elements of the form \(FILE FN TYPE), where TYPE is a string giving details of the error." (let ((m (format "Checking %s..." fnfile)) - (cflag (string-equal "c" (file-name-extension fnfile))) + (cflag (member (file-name-extension fnfile) '("c" "m"))) (ext (string-match "^ext:" fnfile)) re fn sig siglist arglist type errlist minargs maxargs) (message "%s" m)