informat.el: `Info-split' split size (was: registry doc patch)

[Reiner Steib]

On Wed, Sep 24 2008, Katsumi Yamaoka wrote:

> BTW, with MAKEINFO=no the Gnus Info files are divided into 24
> files (gnus, gnus-1, ..., gnus-23).  Those are too small, aren't
> they?  The threshold is hard-coded in `Info-split' (informat.el).

,----[ <f1> f Info-split RET ]
| Info-split is an interactive autoloaded Lisp function in `informat'.
| (Info-split)
| 
| Split an info file into an indirect file plus bounded-size subfiles.
| Each subfile will be up to 50,000 characters plus one node. [...]
`----

I think the threshold should not be hard-coded and it's default should
be like makeinfo's so that we don't need such workarounds:

> A workaround I added to the Japanese edition of the Gnus Info is:
>
> ;; Reduce the number of split Info files.
> (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))))))

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/