[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/bytecomp.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog emacs-lisp/bytecomp.el |
Date: |
Thu, 17 Sep 2009 07:29:47 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/09/17 07:29:46
Modified files:
lisp : ChangeLog
lisp/emacs-lisp: bytecomp.el
Log message:
(byte-compile-form): Always check the function arguments, whether or
not it has a handler.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16190&r2=1.16191
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/bytecomp.el?cvsroot=emacs&r1=2.262&r2=2.263
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16190
retrieving revision 1.16191
diff -u -b -r1.16190 -r1.16191
--- ChangeLog 17 Sep 2009 06:28:32 -0000 1.16190
+++ ChangeLog 17 Sep 2009 07:29:43 -0000 1.16191
@@ -1,5 +1,8 @@
2009-09-17 Glenn Morris <address@hidden>
+ * 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.
Index: emacs-lisp/bytecomp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/bytecomp.el,v
retrieving revision 2.262
retrieving revision 2.263
diff -u -b -r2.262 -r2.263
--- emacs-lisp/bytecomp.el 16 Sep 2009 03:13:03 -0000 2.262
+++ emacs-lisp/bytecomp.el 17 Sep 2009 07:29:46 -0000 2.263
@@ -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))))