From 899cecefe462fc36ebc97e8c10befb22f305be8d Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 28 Apr 2003 10:35:30 +0000 Subject: [PATCH] * lisp/dgnushack.el: Make sure `dolist' is available. * texi/infohack.el: Load dgnushack.el and ptexinfmt.el first. --- ChangeLog | 10 ++++++++++ lisp/dgnushack.el | 19 +++++++++++++++++-- texi/infohack.el | 12 +++++------- 3 files changed, 32 insertions(+), 9 deletions(-) diff --git a/ChangeLog b/ChangeLog index e7188a4..5537c5f 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,15 @@ 2003-04-28 Katsumi Yamaoka + * lisp/dgnushack.el: Make sure `dolist' is available. + + * texi/infohack.el: Load dgnushack.el and ptexinfmt.el first. + +2003-04-27 Simon Josefsson + + * GNUS-NEWS: Fix PGP entry. Doc GCC variable change. + +2003-04-28 Katsumi Yamaoka + * lisp/gnus-vers.el: T-gnus 6.15.20 (quimby) revision 00. 2003-04-28 Katsumi Yamaoka 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) -- 1.7.10.4