* lisp/dgnushack.el: Make sure `dolist' is available.

* texi/infohack.el: Load dgnushack.el and ptexinfmt.el first.

diff --git a/ChangeLog b/ChangeLog
index e7188a4..5537c5f 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,15 @@
 2003-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * lisp/dgnushack.el: Make sure `dolist' is available.
+
+       * texi/infohack.el: Load dgnushack.el and ptexinfmt.el first.
+
+2003-04-27  Simon Josefsson  <jas@extundo.com>
+
+       * GNUS-NEWS: Fix PGP entry.  Doc GCC variable change.
+
+2003-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+
        * lisp/gnus-vers.el: T-gnus 6.15.20 (quimby) revision 00.
 
 2003-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>

diff --git a/lisp/dgnushack.el b/lisp/dgnushack.el
index 43f6d02..e113833 100644 (file)
--- a/lisp/dgnushack.el
+++ b/lisp/dgnushack.el
@@ -49,8 +49,16 @@
 (defalias 'facep 'ignore)
 
 (require 'cl)
-(unless (dolist (var nil t))
-  ;; Override the macro `dolist' which may have been defined in egg.el.
+
+(and (fboundp 'dolist)
+     (dolist (var nil t)))
+
+
+(unless (and
+        ;; `dolist' might not be available because of ``-no-autoloads''.
+        (fboundp 'dolist)
+        ;; It may have been defined in egg.el.
+        (dolist (var nil t)))
   (load "cl-macs" nil t))
 
 (defvar srcdir (or (getenv "srcdir") "."))
@@ -551,6 +559,13 @@ Try to re-configure with --with-addpath=FLIM_PATH and run make again.
     "mml-smime.el" "mml.el" "mml1991.el" "mml2015.el")
   "Files which should not be byte-compiled.")
 
+(defun dgnushack-compile-verbosely ()
+  "Call dgnushack-compile with warnings ENABLED.  If you are compiling
+patches to gnus, you should consider modifying make.bat to call
+dgnushack-compile-verbosely.  All other users should continue to use
+dgnushack-compile."
+  (dgnushack-compile t))
+
 (defun dgnushack-compile (&optional warn)
   ;;(setq byte-compile-dynamic t)
   (unless warn

diff --git a/texi/infohack.el b/texi/infohack.el
index d355e54..3c173ba 100644 (file)
--- a/texi/infohack.el
+++ b/texi/infohack.el
@@ -25,7 +25,11 @@
 
 ;;; Code:
 
-(require 'texinfmt)
+(let ((default-directory (expand-file-name "../lisp/"))
+      (features (cons 'w3-forms (copy-sequence features))))
+  ;; Adjust `load-path' for APEL.
+  (load-file "dgnushack.el"))
+(load-file (expand-file-name "ptexinfmt.el" "./"))
 
 (defun infohack-remove-unsupported ()
   (goto-char (point-min))
@@ -86,12 +90,6 @@ Both characters must have the same length of multi-byte form."
   (setq command-line-args-left nil))
 
 \f
-(let ((default-directory (expand-file-name "../lisp/"))
-      (features (cons 'w3-forms (copy-sequence features))))
-  ;; Adjust `load-path' for APEL.
-  (load-file "dgnushack.el"))
-(load-file (expand-file-name "ptexinfmt.el" "./"))
-
 (defun infohack-texi-format (file &optional addsuffix)
   (let ((auto-save-default nil)
        (find-file-run-dired nil)