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"
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
