Mercurial > hg > xemacs-beta
diff lisp/gnus/dgnushack.el @ 108:360340f9fd5f r20-1b6
Import from CVS: tag r20-1b6
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:18:39 +0200 |
parents | 4be1180a9e89 |
children | fe104dbd9147 |
line wrap: on
line diff
--- a/lisp/gnus/dgnushack.el Mon Aug 13 09:17:27 2007 +0200 +++ b/lisp/gnus/dgnushack.el Mon Aug 13 09:18:39 2007 +0200 @@ -47,6 +47,9 @@ (fset 'x-defined-colors 'ignore) (fset 'read-color 'ignore))) +(setq byte-compile-warnings + '(free-vars unresolved callargs redefine)) + (defun dgnushack-compile () ;;(setq byte-compile-dynamic t) (let ((files (directory-files "." nil ".el$")) @@ -57,13 +60,7 @@ (require 'w3-forms) (error (setq files (delete "nnweb.el" files)))) (while (setq file (pop files)) - (cond - ((or (string= file "custom.el") (string= file "browse-url.el")) - (setq byte-compile-warnings nil)) - (t - (setq byte-compile-warnings - '(free-vars unresolved callargs redefine obsolete)))) - (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el" + (when (or (not (member file '("gnus-xmas.el" "gnus-picon.el" "messagexmas.el" "nnheaderxm.el" "smiley.el"))) xemacs) @@ -76,5 +73,5 @@ (require 'gnus) (byte-recompile-directory "." 0)) -;;; dgnushack.el ends here +;;; dgnushack.el ends here