1248 |
(defun byte-compile-nogroup-warn (form) |
(defun byte-compile-nogroup-warn (form) |
1249 |
(let ((keyword-args (cdr (cdr (cdr (cdr form))))) |
(let ((keyword-args (cdr (cdr (cdr (cdr form))))) |
1250 |
(name (cadr form))) |
(name (cadr form))) |
1251 |
(unless (plist-get keyword-args :group) |
(or (plist-get keyword-args :group) |
1252 |
(byte-compile-warn |
(not (and (consp name) (eq (car name) 'quote))) |
1253 |
"%s for `%s' fails to specify containing group" |
(byte-compile-warn |
1254 |
(cdr (assq (car form) |
"%s for `%s' fails to specify containing group" |
1255 |
'((custom-declare-group . defgroup) |
(cdr (assq (car form) |
1256 |
(custom-declare-face . defface) |
'((custom-declare-group . defgroup) |
1257 |
(custom-declare-variable . defcustom)))) |
(custom-declare-face . defface) |
1258 |
(if (and (consp name) (eq (car name) 'quote)) |
(custom-declare-variable . defcustom)))) |
1259 |
(cadr name) name))))) |
(cadr name))))) |
1260 |
|
|
1261 |
;; Warn if the function or macro is being redefined with a different |
;; Warn if the function or macro is being redefined with a different |
1262 |
;; number of arguments. |
;; number of arguments. |