From: yamaoka <yamaoka>
Date: Mon, 28 Apr 2003 10:35:21 +0000 (+0000)
Subject: * infohack.el: Load dgnushack.el and ptexinfmt.el first.
X-Git-Tag: t-gnus-6_15_20-00~2
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=b69bbf23478df1675f4de0bc4e5b51470395c4c6;p=elisp%2Fgnus.git-

* infohack.el: Load dgnushack.el and ptexinfmt.el first.
---

diff --git a/ChangeLog b/ChangeLog
index 791c9fe..0ed76bf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2003-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+	* texi/infohack.el: Load dgnushack.el and ptexinfmt.el first.
+
+2003-04-28  Katsumi Yamaoka  <yamaoka@jpl.org>
+
 	* lisp/gnus-vers.el: T-gnus 6.15.19 revision 00.
 
 2003-04-24  Katsumi Yamaoka  <yamaoka@jpl.org>
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)