File:  [Local Repository] / gnujdoc / tagify.el
Revision 1.1: download - view: text, annotated - select for diffs
Mon Jun 24 11:02:43 2002 UTC (18 years, 3 months ago) by futoshi
Branches: MAIN
CVS tags: HEAD
Add Texinfo-4.2.  This manual uses makeinfo command.

    1: ;; tagify.el -- make info files for info-stnd to for XEmacs
    2: 
    3: ;; Copyright (C) 2002 Free Software Foundation, Inc.
    4: 
    5: ;; This program is free software; you can redistribute it and/or
    6: ;; modify it under the terms of the GNU General Public License as
    7: ;; published by the Free Software Foundation; either version 2, or (at
    8: ;; your option) any later version.
    9: 
   10: ;; This program is distributed in the hope that it will be useful, but
   11: ;; WITHOUT ANY WARRANTY; without even the implied warranty of
   12: ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   13: ;; General Public License for more details.
   14: 
   15: ;; You should have received a copy of the GNU General Public License
   16: ;; along with GNU Emacs; see the file COPYING.  If not, write to the
   17: ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   18: ;; Boston, MA 02111-1307, USA.
   19: 
   20: ;; This Emacs lisp is almost from makeinfo.el.
   21: 
   22: (or (featurep 'mule)
   23:     (error "Emacs without mule is not supported"))
   24: (require 'texinfmt)
   25: 
   26: (if (featurep 'xemacs)
   27:     (set-language-environment "Japanese")
   28:   ;; GNU Emacs
   29:   (if (>= emacs-major-version 20)
   30:       (progn (set-language-environment "Japanese")
   31: 	     (and (= emacs-major-version 20)
   32: 		  (> emacs-minor-version 2);; Emacs 20.2 dumps core
   33: 		  (set-terminal-coding-system 'euc-japan)))))
   34: 
   35: (find-file (car command-line-args-left))
   36: 
   37: (if (featurep 'xemacs)
   38:     (setq coding-system-for-write buffer-file-coding-system)
   39: ;; GNU Emacs
   40: (if (>= emacs-major-version 20)
   41:     (setq coding-system-for-write buffer-file-coding-system)
   42: )
   43: 
   44: ;; Without this, MULE 2.3 saves file with iso-2022-jp
   45: (if (= emacs-major-version 19)
   46:     (setq-default file-coding-system file-coding-system)
   47: ))
   48: 
   49: (Info-tagify)
   50: (save-buffer)
   51: (kill-emacs)

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>