Commit 82b3ac7a authored by Glenn Morris's avatar Glenn Morris
Browse files

(check-declare-verify): Tweak regexp for end of function-name. Handle

define-derived-mode.
parent 153ef845
2007-11-20 Glenn Morris <rgm@gnu.org>
* emacs-lisp/check-declare.el (check-declare-verify): Tweak regexp
for end of function-name. Handle define-derived-mode.
2007-11-20 Dan Nicolaescu <dann@ics.uci.edu>
* progmodes/idlw-help.el: Require browse-url unconditionally, it
......
......@@ -86,14 +86,18 @@ found to be true, otherwise a list of errors with elements of the form
(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\\)")
(byte-compile-arglist-signature
(read (current-buffer))))
sig (if (string-equal "define-derived-mode"
(match-string 1))
'(0 . 0)
(if (looking-at "\\((\\|nil\\)")
(byte-compile-arglist-signature
(read (current-buffer)))))
;; alist of functions and arglist signatures.
siglist (cons (cons fn sig) siglist)))))
(dolist (e fnlist)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment