[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/bytecomp.el

[Richard M . Stallman]

Index: emacs/lisp/emacs-lisp/bytecomp.el
diff -c emacs/lisp/emacs-lisp/bytecomp.el:2.167 
emacs/lisp/emacs-lisp/bytecomp.el:2.168
*** emacs/lisp/emacs-lisp/bytecomp.el:2.167     Mon May 30 06:49:18 2005
--- emacs/lisp/emacs-lisp/bytecomp.el   Sun Jul  3 16:17:11 2005
***************
*** 1248,1254 ****
  (defun byte-compile-nogroup-warn (form)
    (let ((keyword-args (cdr (cdr (cdr (cdr form)))))
        (name (cadr form)))
!     (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"
--- 1248,1257 ----
  (defun byte-compile-nogroup-warn (form)
    (let ((keyword-args (cdr (cdr (cdr (cdr form)))))
        (name (cadr form)))
!     (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"