From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Jul 2005 16:17:11 +0000 (+0000)
Subject: (byte-compile-nogroup-warn): Don't warn when name is not constant
X-Git-Tag: emacs-pretest-22.0.90~8498
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=019472f486129189fc554c2dc458c6d07a015f9c;p=emacs.git

(byte-compile-nogroup-warn): Don't warn when name is not constant
or for defining the group `emacs'.
---

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 3948dae610b..78b9cb0f0cb 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1248,7 +1248,10 @@ extra args."
 (defun byte-compile-nogroup-warn (form)
   (let ((keyword-args (cdr (cdr (cdr (cdr form)))))
 	(name (cadr form)))
-    (or (plist-get keyword-args :group)
+    (or (not (eq (car-safe name) 'quote))
+	(and (eq (car form) 'custom-declare-group)
+	     (equal name ''emacs))
+	(plist-get keyword-args :group)
 	(not (and (consp name) (eq (car name) 'quote)))
 	(byte-compile-warn
 	 "%s for `%s' fails to specify containing group"