Re: I can't convert Texinfo-4.2's Texinfo source files to Info with Emacs.

[Nishio Futoshi]

西尾です。

tagify.el を作ってみました。とはいうものの、ほとんど makeinfo.el をそ
のまま利用しています。
# 利用しないものを削除して、(Info-tagify)を追加しただけです。

$ makeinfo --no-split foo.texi
$ emacs -q -no-site-file -batch -l tagify.el foo.info

で利用できると思います。XEmacsの場合は、emacsをxemacsにしても大丈夫だ
と思います。XEmacs 21.1で試しました。

試していただいて問題が無ければ、Texinfo-4.2以降はこれを利用したいと思
います。以下、tagify.elの内容です。

-----ここから------
;; tagify.el -- make info files for info-stnd to for XEmacs and Emacs

;; Copyright (C) 2002 Free Software Foundation, Inc.

;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
;; published by the Free Software Foundation; either version 2, or (at
;; your option) any later version.

;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;; General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

(or (featurep 'mule)
    (error "Emacs without mule is not supported"))
(require 'texinfmt)

(if (featurep 'xemacs)
    (set-language-environment "Japanese")
  ;; GNU Emacs
  (if (>= emacs-major-version 20)
      (progn (set-language-environment "Japanese")
             (and (= emacs-major-version 20)
                  (> emacs-minor-version 2);; Emacs 20.2 dumps core
                  (set-terminal-coding-system 'euc-japan)))))

(find-file (car command-line-args-left))

(if (featurep 'xemacs)
    (setq coding-system-for-write buffer-file-coding-system)
;; GNU Emacs
(if (>= emacs-major-version 20)
    (setq coding-system-for-write buffer-file-coding-system)
)

;; Without this, MULE 2.3 saves file with iso-2022-jp
(if (= emacs-major-version 19)
    (setq-default file-coding-system file-coding-system)
))

(Info-tagify)
(save-buffer)
(kill-emacs)
-----ここまで-----

# 今日は飲み会だったので寝ます。