From 51572cd684a33c9c3c9e174eb0452dc93e2f8111 Mon Sep 17 00:00:00 2001
From: yamaoka <yamaoka>
Date: Thu, 10 Apr 2008 04:01:32 +0000
Subject: [PATCH] * infohack.el: Make XEmacs reduce the number of split Info
 files as well. (infohack-texi-format): Bind
 coding-system-for-read to iso-2022-7bit for XEmacs.

---
 ChangeLog   |    7 +++++++
 infohack.el |   31 +++++++++++++++++++++++--------
 2 files changed, 30 insertions(+), 8 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 99f3b6a..b99430f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2008-04-10  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* infohack.el: Make XEmacs reduce the number of split Info files as
+	well.
+	(infohack-texi-format): Bind coding-system-for-read to iso-2022-7bit
+	for XEmacs.
+
 2008-02-08  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* Makefile.in (datarootdir): Define.
diff --git a/infohack.el b/infohack.el
index 25eafc3..0d4e976 100644
--- a/infohack.el
+++ b/infohack.el
@@ -90,18 +90,33 @@ Both characters must have the same length of multi-byte form."
 (require 'bytecomp)
 
 ;; Reduce the number of split Info files.
-(require 'informat)
-(let* ((fn (symbol-function 'Info-split))
-       (fns (prin1-to-string fn)))
-  (when (string-match "\\([\t\n ]+\\)50000\\([\t\n ]+\\)" fns)
-    (condition-case nil
-	(fset 'Info-split (read (replace-match "\\1200000\\2" nil nil fns)))
-      (error
-       (fset 'Info-split fn)))))
+(if (featurep 'xemacs)
+    (if (load "informat.el" t t)
+	(let* ((fn (symbol-function 'Info-split))
+	       (fns (prin1-to-string fn)))
+	  (load "informat.elc" t t)
+	  (when (and (string-match "\\([\t\n ]+\\)50000\\([\t\n )]+\\)" fns)
+		     (condition-case nil
+			 (setq fn (byte-compile
+				   (read (replace-match "\\1200000\\2" nil nil
+							fns))))
+		       (error nil))
+		     (fset 'Info-split fn)))))
+  (require 'informat)
+  (let* ((fn (symbol-function 'Info-split))
+	 (fns (prin1-to-string fn)))
+    (when (string-match "\\([\t\n ]+\\)50000\\([\t\n ]+\\)" fns)
+      (condition-case nil
+	  (fset 'Info-split (read (replace-match "\\1200000\\2" nil nil fns)))
+	(error
+	 (fset 'Info-split fn))))))
 
 (defun infohack-texi-format (file &optional addsuffix)
   (let ((auto-save-default nil)
 	(find-file-run-dired nil)
+	(coding-system-for-read (if (featurep 'xemacs)
+				    'iso-2022-7bit
+				  coding-system-for-read))
 	coding-system-for-write
 	(error 0))
     (condition-case err
-- 
1.7.10.4