From: yamaoka <yamaoka>
Date: Mon, 28 Apr 2003 10:35:30 +0000 (+0000)
Subject: * lisp/dgnushack.el: Make sure `dolist' is available.
X-Git-Tag: t-gnus-6_15_21-00-quimby~20
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=899cecefe462fc36ebc97e8c10befb22f305be8d;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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
--- 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))
 
 
-(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)