/[emacs]/emacs/lisp/emacs-lisp/bytecomp.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/bytecomp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.166 by nickrob, Sun May 22 02:30:41 2005 UTC revision 2.167 by rms, Mon May 30 06:49:18 2005 UTC
# Line 1248  extra args." Line 1248  extra args."
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.

Legend:
Removed from v.2.166  
changed lines
  Added in v.2.167

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26