diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-07-03 16:17:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-07-03 16:17:11 +0000 |
| commit | 019472f486129189fc554c2dc458c6d07a015f9c (patch) | |
| tree | 275e2bf0250f6c993e9b3bae46cc4709b1e531d4 /lisp/emacs-lisp | |
| parent | 1af98f07589924038ba4ffbcc6746014a6f80182 (diff) | |
| download | emacs-019472f486129189fc554c2dc458c6d07a015f9c.tar.gz emacs-019472f486129189fc554c2dc458c6d07a015f9c.tar.bz2 emacs-019472f486129189fc554c2dc458c6d07a015f9c.zip | |
(byte-compile-nogroup-warn): Don't warn when name is not constant
or for defining the group `emacs'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 5 |
1 files changed, 4 insertions, 1 deletions
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" |