Reduce the number of split Info files.

diff --git a/ChangeLog b/ChangeLog
index b40eb45..0adf714 100644 (file)
--- 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 (file)
--- a/infohack.el
+++ b/infohack.el
@@ -89,6 +89,16 @@ Both characters must have the same length of multi-byte form."
 \f
 (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)