Mercurial > emacs
changeset 62885:ef148239f15d
(byte-compile-nogroup-warn): Warn only when name to be defined is quoted.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 30 May 2005 06:49:18 +0000 |
| parents | ab597e7c8a07 |
| children | 67bdd7607648 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 9 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Mon May 30 06:11:01 2005 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Mon May 30 06:49:18 2005 +0000 @@ -1248,15 +1248,15 @@ (defun byte-compile-nogroup-warn (form) (let ((keyword-args (cdr (cdr (cdr (cdr form))))) (name (cadr form))) - (unless (plist-get keyword-args :group) - (byte-compile-warn - "%s for `%s' fails to specify containing group" - (cdr (assq (car form) - '((custom-declare-group . defgroup) - (custom-declare-face . defface) - (custom-declare-variable . defcustom)))) - (if (and (consp name) (eq (car name) 'quote)) - (cadr name) name))))) + (or (plist-get keyword-args :group) + (not (and (consp name) (eq (car name) 'quote))) + (byte-compile-warn + "%s for `%s' fails to specify containing group" + (cdr (assq (car form) + '((custom-declare-group . defgroup) + (custom-declare-face . defface) + (custom-declare-variable . defcustom)))) + (cadr name))))) ;; Warn if the function or macro is being redefined with a different ;; number of arguments.