# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1117435758 0
# Node ID ef148239f15d92731dbdc611efc46105feee5f71
# Parent  ab597e7c8a070713302b1c47b0b9848fd8cd5540
(byte-compile-nogroup-warn): Warn only when name to be defined is quoted.

diff -r ab597e7c8a07 -r ef148239f15d lisp/emacs-lisp/bytecomp.el
--- 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.