;;; dgnushack.el --- a hack to set the load path for byte-compiling
-;; Copyright (C) 1994,95,96 Free Software Foundation, Inc.
+;; Copyright (C) 1994,95,96,97 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
;; Version: 4.19
(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$"))
(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))
- (xemacs
- (setq byte-compile-warnings
- '(free-vars unresolved callargs redefine)))
- (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)
(require 'gnus)
(byte-recompile-directory "." 0))
-;;; dgnushack.el ends here
+;;; dgnushack.el ends here