From: yamaoka <yamaoka>
Date: Fri, 30 Nov 2007 02:59:36 +0000 (+0000)
Subject: Reduce the number of split Info files.
X-Git-Tag: ngnus-0_8-doc-ja~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=abe1937ba02643beb5b06d01298dfce5f84a26f5;p=elisp%2Fgnus-doc-ja.git

Reduce the number of split Info files.
---

diff --git a/ChangeLog b/ChangeLog
index b40eb45..0adf714 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2007-11-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* infohack.el: Reduce the number of split Info files.
+
 2007-10-17  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* ptexinfmt.el (texinfo-copying-text, texinfo-copying)
diff --git a/infohack.el b/infohack.el
index fc4ec60..deb90e3 100644
--- a/infohack.el
+++ b/infohack.el
@@ -89,6 +89,16 @@ 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)))))
+
 (defun infohack-texi-format (file &optional addsuffix)
   (let ((auto-save-default nil)
 	(find-file-run-dired nil)