# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1253172583 0
# Node ID 12bb7892ba1d362f5c8dd1757b15c379da9ead50
# Parent  ce6271fc65adfae3217109b6de801981c253b032
(byte-compile-form): Always check the function arguments, whether or
not it has a handler.

diff -r ce6271fc65ad -r 12bb7892ba1d lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Sep 17 06:28:32 2009 +0000
+++ b/lisp/ChangeLog	Thu Sep 17 07:29:43 2009 +0000
@@ -1,5 +1,8 @@
 2009-09-17  Glenn Morris  <rgm@gnu.org>
 
+	* emacs-lisp/bytecomp.el (byte-compile-form): Always check the function
+	arguments, whether or not it has a handler.
+
 	* ansi-color.el (ansi-color-get-face-1): Fix typo in handler.
 
 	* simple.el (hard-newline): Give it a doc-string.
diff -r ce6271fc65ad -r 12bb7892ba1d lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Thu Sep 17 06:28:32 2009 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Thu Sep 17 07:29:43 2009 +0000
@@ -2980,6 +2980,12 @@
 		(memq bytecomp-fn byte-compile-interactive-only-functions)
 		(byte-compile-warn "`%s' used from Lisp code\n\
 That command is designed for interactive use only" bytecomp-fn))
+	   (when (byte-compile-warning-enabled-p 'callargs)
+	     (if (memq bytecomp-fn
+		       '(custom-declare-group custom-declare-variable
+					      custom-declare-face))
+		   (byte-compile-nogroup-warn form))
+	     (byte-compile-callargs-warn form))
 	   (if (and bytecomp-handler
                     ;; Make sure that function exists.  This is important
                     ;; for CL compiler macros since the symbol may be
@@ -2993,12 +2999,6 @@
                               (get (get bytecomp-fn 'byte-opcode)
 				   'emacs19-opcode))))
                (funcall bytecomp-handler form)
-	     (when (byte-compile-warning-enabled-p 'callargs)
-	       (if (memq bytecomp-fn
-			 '(custom-declare-group custom-declare-variable
-						custom-declare-face))
-		   (byte-compile-nogroup-warn form))
-	       (byte-compile-callargs-warn form))
 	     (byte-compile-normal-call form))
 	   (if (byte-compile-warning-enabled-p 'cl-functions)
 	       (byte-compile-cl-warn form))))