4 files changed, 96 insertions, 0 deletions
diff --git a/japanese/elisp-manual/files/Makefile.in b/japanese/elisp-manual/files/Makefile.in
new file mode 100644
index 000000000000..564d0332e56a
--- /dev/null
+++ b/japanese/elisp-manual/files/Makefile.in
@@ -0,0 +1,19 @@
+TEXIFILE= elisp.texi
+INFOFILE= ../info/elisp-ja
+
+EMACS?=	emacs
+
+EMACS_ARGS= -batch -nw --multibyte -no-init-file -no-site-file
+EMACS_LOADLIBS= --load=texinfmt.el --load=PORT_TEXIFMT.MK
+EMACS_FUNCALLS= --eval "(port-texinfo-format \"${TEXIFILE}\" 'junet)" 
+
+all: ${INFOFILE}
+
+${INFOFILE}: ${TEXIFILE}
+	${EMACS} ${EMACS_ARGS} ${EMACS_LOADLIBS} ${EMACS_FUNCALLS}
+
+install: all
+	${BSD_INSTALL_DATA} ${INFOFILE} ${PREFIX}/info
+
+clean:
+	rm -f ${INFOFILE}
diff --git a/japanese/elisp-manual/files/PORT_TEXIFMT.MK b/japanese/elisp-manual/files/PORT_TEXIFMT.MK
new file mode 100644
index 000000000000..a050d11992dd
--- /dev/null
+++ b/japanese/elisp-manual/files/PORT_TEXIFMT.MK
@@ -0,0 +1,17 @@
+;;; -*- Emacs-Lisp -*-
+;;; PORT_TEXIFMT.MK --- for texinfo-format
+;;; Code:
+
+(defun port-texinfo-format (file &optional coding-system)
+  (let (obuf)
+    (find-file (expand-file-name file))
+    (setq obuf (current-buffer))
+    (require 'texinfmt)
+    (texinfo-format-buffer t)
+    (if coding-system
+      (set-buffer-file-coding-system coding-system))
+    (save-buffer)
+    (kill-buffer (current-buffer))
+    (kill-buffer obuf)))
+
+;;; PORT_TEXIFMT.MK ends here
diff --git a/japanese/elisp-manual/files/extra-patch-texinfmt.el.patch b/japanese/elisp-manual/files/extra-patch-texinfmt.el.patch
new file mode 100644
index 000000000000..ccf025269b6b
--- /dev/null
+++ b/japanese/elisp-manual/files/extra-patch-texinfmt.el.patch
@@ -0,0 +1,41 @@
+--- patch-texinfmt.el.orig	Fri Mar  3 21:26:16 2000
++++ patch-texinfmt.el	Thu Jul 13 18:17:38 2000
+@@ -1,5 +1,5 @@
+---- texinfmt.el-ORIG	Sun May 30 04:21:06 1999
+-+++ texinfmt.el	Thu Jan 13 10:52:58 2000
++--- texinfmt.el.orig	Thu Jul 13 18:12:19 2000
+++++ texinfmt.el	Thu Jul 13 18:17:28 2000
+ @@ -1111,6 +1111,78 @@
+  
+  ;;; @node, @menu, @detailmenu
+@@ -112,17 +112,18 @@
+      (texinfo-discard-command)
+      (setq texinfo-last-node name)
+      (let ((tem (if texinfo-fold-nodename-case (downcase name) name)))
+-@@ -1212,7 +1308,8 @@
++@@ -1212,7 +1308,9 @@
+          (insert (or fname (car args)) ": ")
+          (if (nth 3 args)
+              (insert "(" (nth 3 args) ")"))
+--        (insert (car args))))))
++-        (and (car args) (insert (car args)))))))
+ +        (insert (or (car args) ""))
+ +        (or (save-excursion (looking-at "[.,]")) (insert "."))))))
+++
+  
+  (put 'pxref 'texinfo-format 'texinfo-format-pxref)
+  (defun texinfo-format-pxref ()
+-@@ -1220,6 +1317,7 @@
++@@ -1220,6 +1318,7 @@
+    (or (save-excursion
+          (forward-char -2)
+          (looking-at "::"))
+@@ -130,7 +131,7 @@
+        (insert ".")))
+  
+  ;; @inforef{NODE, FNAME, FILE}
+-@@ -1230,7 +1328,8 @@
++@@ -1230,7 +1329,8 @@
+    (let ((args (texinfo-format-parse-args)))
+      (texinfo-discard-command)
+      (if (nth 1 args)
diff --git a/japanese/elisp-manual/files/patch-aa b/japanese/elisp-manual/files/patch-aa
new file mode 100644
index 000000000000..e5d449d4c9b1
--- /dev/null
+++ b/japanese/elisp-manual/files/patch-aa
@@ -0,0 +1,19 @@
+--- elisp.texi.~1~	Mon Mar  6 12:40:41 2000
++++ elisp.texi	Wed Mar 29 17:50:21 2000
+@@ -1,13 +1,13 @@
+ \input texinfo  @c -*-texinfo-*-
+ @c %**start of header
+-@setfilename elisp
++@setfilename ../info/elisp-ja
+ @c @settitle GNU Emacs Lisp Reference Manual
+ @settitle GNU Emacs Lispリファレンスマニュアル
+ @c %**end of header
+ 
+-@dircategory Editors
++@dircategory Emacs Lisp programming
+ @direntry
+-* Elisp: (elisp).	The Emacs Lisp Reference Manual.
++* Elisp manual-ja: (elisp-ja).	The Emacs Lisp Reference Manual. (Japanese)
+ @end direntry
+ 
+ @smallbook