Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 63939:885d1b72a2b1
(byte-compile-nogroup-warn): Don't warn when name is not constant
or for defining the group `emacs'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Jul 2005 16:17:11 +0000 |
| parents | ef148239f15d |
| children | 26cc453cc38d |
comparison
equal
deleted
inserted
replaced
| 63938:cd982981d99a | 63939:885d1b72a2b1 |
|---|---|
| 1246 | 1246 |
| 1247 ;; Warn if a custom definition fails to specify :group. | 1247 ;; Warn if a custom definition fails to specify :group. |
| 1248 (defun byte-compile-nogroup-warn (form) | 1248 (defun byte-compile-nogroup-warn (form) |
| 1249 (let ((keyword-args (cdr (cdr (cdr (cdr form))))) | 1249 (let ((keyword-args (cdr (cdr (cdr (cdr form))))) |
| 1250 (name (cadr form))) | 1250 (name (cadr form))) |
| 1251 (or (plist-get keyword-args :group) | 1251 (or (not (eq (car-safe name) 'quote)) |
| 1252 (and (eq (car form) 'custom-declare-group) | |
| 1253 (equal name ''emacs)) | |
| 1254 (plist-get keyword-args :group) | |
| 1252 (not (and (consp name) (eq (car name) 'quote))) | 1255 (not (and (consp name) (eq (car name) 'quote))) |
| 1253 (byte-compile-warn | 1256 (byte-compile-warn |
| 1254 "%s for `%s' fails to specify containing group" | 1257 "%s for `%s' fails to specify containing group" |
| 1255 (cdr (assq (car form) | 1258 (cdr (assq (car form) |
| 1256 '((custom-declare-group . defgroup) | 1259 '((custom-declare-group . defgroup) |