--- a/lisp/locale/ja/locale-start.el	Mon Aug 13 09:35:15 2007 +0200
+++ b/lisp/locale/ja/locale-start.el	Mon Aug 13 09:36:16 2007 +0200
@@ -1,119 +1,161 @@
+;;; @(#)locale-start.el.euc	1.7 97/03/06 13:43:21
+;;; locale/ja/locale-start.el --- startup.el customized for ja locale.
+;;;			This file, being an .el file, 
+;;;			must be in ISO 2022 encoding after installation.
+;; Copyright (C) 1985-1986, 1990, 1992-1995 Free Software Foundation, Inc.
+;; Copyright (c) 1993-1997 Sun Microsystems, Inc.
+;; Copyright (C) 1995 Board of Trustees, University of Illinois
+
+;; Maintainer: XEmacs
+;; Keywords: internal
+
+;; This file is part of XEmacs.
+
+;; XEmacs 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.
+
+;; XEmacs 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 XEmacs; see the file COPYING.  If not, write to the Free
+;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+
 (defun startup-splash-frame-body ()
   `("\n" ,(emacs-version) "\n"
     (face bold-italic "\
 Copyright (C) 1985-1996 Free Software Foundation, Inc.
 Copyright (C) 1990-1994 Lucid, Inc.
-Copyright (C) 1993-1996 Sun Microsystems, Inc. All Rights Reserved.
+Copyright (C) 1993-1997 Sun Microsystems, Inc. All Rights Reserved.
 Copyright (C) 1994-1996 Board of Trustees, University of Illinois
 Copyright (C) 1995-1996 Ben Wing\n\n")
     
     ,@(if (featurep 'sparcworks)
           `( "\
-Sun provides support for the WorkShop/XEmacs integration package only.
-All other XEmacs packages are provided to you \"AS IS\".
-For full details, type " (key describe-no-warranty)
-" to refer to the GPL Version 2, dated June 1991.\n\n"
-,@(let ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") (getenv "LANG"))))
-    (if (and
-         (not (featurep 'mule))         ; Already got mule?
-         (not (eq 'tty (console-type))) ; No Mule support on tty's yet
-         lang                           ; Non-English locale?
-         (not (string-equal lang "C"))
-         (not (string-match "^en" lang))
-         (locate-file "xemacs-mule" exec-path)) ; Comes with Sun WorkShop
-        '( "\
-This version of XEmacs has been built with support for Latin-1 languages only.
-To handle other languages you need to run a Multi-lingual (`Mule') version of
-XEmacs, by either running the command `xemacs-mule', or by using the X resource
-`ESERVE*defaultXEmacsPath: xemacs-mule' when starting XEmacs from Sun WorkShop.\n\n"))))
+$(B%5%s$O!"(BWorkShop/Emacs $(BE}9g2=%Q%C%1!<%8$N$_$r%5%]!<%H$7$^$9!#(B
+$(BB>$N(B XEmacs $(B%Q%C%1!<%8$O$9$Y$F!"!V8=>u$N$^$^!W$G6!5k$5$l$^$9!#(B
+$(B>\:Y(B ($(B1QJ8(B) $(B$O(B" (key describe-no-warranty) "$(B$H%?%$%W$7$F!"(B
+1991 $(BG/(B 6 $(B7nHG(B GPL $(B%P!<%8%g%s(B 2 $(B$r$4Mw$/$@$5$$!#(B
+$(BK\(B XEmacs $(B$O4pK\%a%K%e!<$K8B$jF|K\8l2=$5$l$F$$$^$9!#AH$_9~$^$l$?(B
+$(B%a!<%k(B (VM$(B!"(BMH) $(B$d%K%e!<%9$rFI$`$?$a$N%Q%C%1!<%8(B (Gnus) $(BEy$O!"(B
+$(BF|K\8l$r40`z$K$O=hM}$G$-$^$;$s$N$G!"$4;HMQ$K$J$k>l9g$O==J,$4Cm0U(B
+$(B$/$@$5$$!#(B\n")
+
+        '("XEmacs $(B$K$O(B *$(B$^$C$?$/2?$N(B* $(BJ]>c$b$"$j$^$;$s!#>\:Y$O!"(B"
+          (key describe-no-warranty) "$(B$r%?%$%W$7$F$/$@$5$$!#(B\n"))
 
-        '("XEmacs comes with ABSOLUTELY NO WARRANTY; type "
-          (key describe-no-warranty) " for full details.\n"))
+    "XEmacs $(B$NJ#@=$O5v2D$5$l$F$$$^$9!#5v2D$N>r7o$r8+$k$K$O!"(B\n"
+    (key describe-copying) " $(B$H%?%$%W$7$F$/$@$5$$!#(B\n"
+    "$(B:G?7HG$N<hF@J}K!$K$D$$$F$O!"(B" (key describe-distribution)
+    " $(B$H%?%$%W$7$F$/$@$5$$!#(B\n\n"
     
-    "You may give out copies of XEmacs; type "
-    (key describe-copying) " to see the conditions.\n"
-    "Type " (key describe-distribution)
-    " for information on getting the latest version.\n\n"
-
-    "Type " (key help-command) " or use the " (face bold "Help") " menu to get help.\n"
-    "Type " (key advertised-undo) " to undo changes  (`C-' means use the Control key).\n"
-    "To get out of XEmacs, type " (key save-buffers-kill-emacs) ".\n"
-    "Type " (key help-with-tutorial) " for a tutorial on using XEmacs.\n"
-    "Type " (key info) " to enter Info, "
-    "which you can use to read online documentation.\n\n"
+    "$(B%X%k%W>pJs$r8+$k$K$O!"(B" (key help-command) " $(B$H%?%$%W!"$^$?$O(B" 
+    (face bold "$(B%X%k%W(B") "$(B%a%K%e!<$r;HMQ(B\n"
+    "$(B$7$F$/$@$5$$(B\n"
+    (key advertised-undo) " $(B$K$h$jJQ99$r<h$j>C$;$^$;$9!#(B(C- $(B$O!"(BControl $(B%-!<$G$9!#(B)\n"
+    "XEmacs $(B$r=*N;$9$k$K$O!"(B" (key save-buffers-kill-emacs) " $(B$H%?%$%W$7$F$/$@$5$$!#(B\n"
+    (key help-with-tutorial) " $(B$G(B XEmacs $(B$N;HMQJ}K!$N<B=,$r3+;O$G$-$^$9!#(B\n"
+    (key info) " $(B$K$h$j!"(BInfo $(B%b!<%I$KF~$j!"%*%s%i%$%s$N%I%-%e%a%s%H$r(B\n"
+    "$(BFI$`$3$H$,$G$-$^$9!#(B\n"
     (face (bold red) ( "\
-For tips and answers to frequently asked questions, see the XEmacs FAQ.
-\(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)"))))
+$(BIQHK$K?R$M$i$l$k<ALd$H$=$NEz$($O!"(BXEmacs $(BLdEz=8$K$"$j$^$9!#(B\n"
+    "$(B%X%k%W%a%K%e!<$r;HMQ$9$k$+!"(B"(key xemacs-local-faq) " $(B$H%?%$%W$7$F$/$@$5$$!#(B"))))
 
 
 (defun command-line-do-help (arg)
-  "Print the $(BF|K\(B XEmacs usage message and exit."
+  "Print the XEmacs usage message and exit."
   (let ((standard-output 'external-debugging-output))
     (princ (concat "\n" (emacs-version) "\n\n"))
     (princ
      (if (featurep 'x)
-	 (concat "XEmacs accepts all standard X Toolkit command line options.\n"
-		 "In addition, the")
-       "The"))
-    (princ " following options are accepted:
+	 "XEmacs $(B$O!"(BX $(B%D!<%k%-%C%H$NI8=`%3%^%s%I%*%W%7%g%s$r$9$Y$FG'<1$7$^$9!#(B\n$(B$=$l$K2C$($F!"(B"
+       "XEmacs $(B$O!"(B "))
+    (princ " $(B0J2<$N%*%W%7%g%s$rG'<1$7!"=P8==g$K=hM}$7$^$9(B:
 
-  -t <device>           Use TTY <device> instead of the terminal for input
-                        and output.  This implies the -nw option.
-  -nw                   Inhibit the use of any window-system-specific
-                        display code: use the current tty.
-  -batch                Execute noninteractively (messages go to stderr).
-  -debug-init           Enter the debugger if an error in the init file occurs.
-  -unmapped             Do not map the initial frame.
-  -no-site-file         Do not load the site-specific init file (site-start.el).
-  -no-init-file         Do not load the user-specific init file (~/.emacs).
-  -q                    Same as -no-init-file.
-  -user <user>          Load user's init file instead of your own.
-  -u <user>             Same as -user.\n")
-   (let ((l command-switch-alist)
-	  (insert (lambda (&rest x)
-		    (princ "  ")
-		    (let ((len 2))
-		      (while x
-			(princ (car x))
-			(incf len (length (car x)))
-			(setq x (cdr x)))
-		      (when (>= len 24)
-			(terpri) (setq len 0))
-		      (while (< len 24)
-			(princ " ")
-			(incf len))))))
-      (while l
-        (let ((name (car (car l)))
-              (fn (cdr (car l)))
-	      doc arg cons)
-	  (cond
-	   ((and (symbolp fn) (get fn 'undocumented)) nil)
-	   (t
-	    (setq doc (documentation fn))
-	    (if (member doc '(nil "")) (setq doc "(undocumented)"))
-	    (cond ((string-match "\n\\(<.*>\\)\n?\\'" doc)
-		   ;; Doc of the form "The frobber switch\n<arg1> <arg2>"
-		   (setq arg (substring doc (match-beginning 1) (match-end 1))
-			 doc (substring doc 0 (match-beginning 0))))
-		  ((string-match "\n+\\'" doc)
-		   (setq doc (substring doc 0 (match-beginning 0)))))
-	    (if (and (setq cons (rassq fn command-switch-alist))
-		     (not (eq cons (car l))))
-		(setq doc (format "Same as %s." (car cons))))
-	    (if arg
-		(funcall insert name " " arg)
-	      (funcall insert name))
-	    (princ doc)
-	    (terpri))))
-        (setq l (cdr l))))
-    (princ "\
-  +N <file>             Start displaying <file> at line N.
+  -t $(B%G%P%$%9L>(B         $(BC<Kv$NBe$o$j$K;XDj$N(B TTY $(B%G%P%$%9$r;HMQ$7$FF~=PNO$r(B
+			$(B9T$J$&!#(B-nw $(B$,<+F0E*$K2>Dj$5$l$k!#(B
+  -nw                   $(B%&%#%s%I%&%7%9%F%`$r;HMQ$;$:!"8=(B TTY $(B$r;HMQ!#(B($(BCm(B: TTY 
+                        $(B%b!<%I$G$NF|K\8lI=<($O!"K\%P!<%8%g%s$N(B XEmacs $(B$G$O$G$-(B
+                        $(B$^$;$s!#(B)
+  -batch                $(BHsBPOCE*;HMQ!#%a%C%;!<%8$O!"I8=`%(%i!<(B (stderr) $(B%X!#(B
+  -debug-init           $(B=i4|2=%U%!%$%k$G$N%(%i!<H/@8;~$K$O%G%P%C%,$r5/F0!#(B
+  -unmapped             $(B=i4|%U%l!<%`$N%^%C%W$r$7$J$$!#(B
+  -no-site-file         $(B%5%$%HFC2==i4|2=%U%!%$%k(B (site-start.el) $(B$rFI$_9~$^$J$$!#(B
+  -no-init-file         $(B%f!<%6!<FC2==i4|2=%U%!%$%k(B (~/.emacs) $(B$rFI$_9~$^$J$$!#(B
+  -q                    -no-init-file $(B$HF15A!#(B
+  -user $(B%f!<%6!<L>(B      $(B<+J,$N=i4|2=%U%!%$%k$NBe$o$j$K;XDj%f!<%6!<$N%U%!%$%k$r;HMQ!#(B
+  -u $(B%f!<%6!<L>(B         -user $(B$HF15A!#(B\n")
+;; $(B1Q8lHG$G$O!"0J2<$N$h$&$J%3!<%I$K$h$j!"%I%-%e%a%s%H$N0lIt$,I=<($5$l$F$$$?$,!"(B
+;; $(B$3$l$G$O!"1Q8l$N%I%-%e%a%s%H$7$+I=<($G$-$J$$$N$G!"$3$N%3!<%I$O%3%a%s%H%"%&%H$7!"(B
+;; $(BC1=c$K@bL@$r0u;z$9$k%3!<%I$HCV$-49$($k!#(B
+;;   (let ((l command-switch-alis\nt)
+;;	  (insert (lambda (&rest x)
+;;		    (princ "  ")
+;;		    (let ((len 2))
+;;		      (while x
+;;			(princ (car x))
+;;			(incf len (length (car x)))
+;;			(setq x (cdr x)))
+;;		      (when (>= len 24)
+;;			(terpri) (setq len 0))
+;;		      (while (< len 24)
+;;			(princ " ")
+;;			(incf len))))))
+;;      (while l
+;;        (let ((name (car (car l)))
+;;              (fn (cdr (car l)))
+;;	      doc arg cons)
+;;	  (cond
+;;	   ((and (symbolp fn) (get fn 'undocumented)) nil)
+;;	   (t
+;;	    (setq doc (documentation fn))
+;;	    (if (member doc '(nil "")) (setq doc "(undocumented)"))
+;;	    (cond ((string-match "\n\\(<.*>\\)\n?\\'" doc)
+;;		   ;; Doc of the form "The frobber switch\n<arg1> <arg2>"
+;;		   (setq arg (substring doc (match-beginning 1) (match-end 1))
+;;			 doc (substring doc 0 (match-beginning 0))))
+;;		  ((string-match "\n+\\'" doc)
+;;		   (setq doc (substring doc 0 (match-beginning 0)))))
+;;	    (if (and (setq cons (rassq fn command-switch-alist))
+;;		     (not (eq cons (car l))))
+;;		(setq doc (format "Same as %s." (car cons))))
+;;
+;;	    (if arg
+;;		(funcall insert name " " arg)
+;;	      (funcall insert name))
+;;	    (princ doc)
+;;	    (terpri))))
+;;        (setq l (cdr l))))
+;; $(BCV$-49$(ItJ,3+;O(B
+  (princ "\
+  -help                 XEmacs $(B;HMQK!$rI=<($7$F=*N;!#(B
+  -flags                -help $(B$HF15A!#(B
+  -h                    -help $(B$HF15A!#(B
+  -?                    -help $(B$HF15A!#(B
+  -version              $(B%P!<%8%g%s>pJs$rI=<($7$F=*N;!#(B
+  -V                    -version $(B$HF15A!#(B
+  -funcall $(B4X?tL>(B       $(B;XDj$N(B lisp $(B4X?t$r0z?t$J$7$G5/F0!#(B
+  -f $(B4X?tL>(B             -funcall $(B$HF15A!#(B
+  -eval $(B%U%)!<%`(B        lisp $(B$N%U%)!<%`$rI>2A!#0zMQ(B (quote) $(B$OCm0U?<$/9T$J$C$F$/$@$5$$!#(B
+  -load $(B%U%!%$%kL>(B      $(B;XDj$N(B lisp $(B%3!<%I$r(B XEmacs $(B$KFI$_9~$`!#(B
+  -l $(B%U%!%$%kL>(B         -load $(B$HF15A!#(B
+  -insert $(B%U%!%$%kL>(B    $(B8=%P%C%U%!$K%U%!%$%k$rA^F~!#(B
+  -i $(B%U%!%$%kL>(B         -insert $(B$HF15A!#(B
+  -kill                 XEmacs $(B$r=*N;!#(B
+  -tooltalk             ToolTalk $(B%5!<%P!<$K@\B3!#(B\n")
+;; $(BCV$-49$(ItJ,=*N;(B
+  (princ "\
+  +N $(B%U%!%$%kL>(B         $(B;XDj%U%!%$%k$r(B N $(B9TL\$+$iI=<(!#(B
 
-Anything else is considered a file name, and is placed into a buffer for
-editing.
+$(BB>$N$9$Y$F7A<0$N0z?t$O%U%!%$%kL>$H2r<a$5$l!"JT=8$N$?$a$K%P%C%U%!$KFI$_9~$^(B
+$(B$l$^$9!#(B
 
-XEmacs has an online tutorial and manuals.  Type ^Ht (Control-h t) after
-starting XEmacs to run the tutorial.  Type ^Hi to enter the manual browser.
-Type ^H^H^H (Control-h Control-h Control-h) to get more help options.\n")
-
+XEmacs $(B$K$O!"%*%s%i%$%s$N<+=,=q$H%^%K%e%"%k(B  ($(BN>J}$H$b1Q8lHG$N$_(B) $(B$,IUB0$7(B
+$(B$F$$$^$9!#<+=,=q$r3+;O$9$k$K$O!"(BXEmacs $(B3+;O8e$K!"(B^Ht (Control-h t) $(B$r%?%$%W(B
+$(B$7$F$/$@$5$$!#%^%K%e%"%k$rFI$`$K$O!"(B^Hi$(B!"$5$i$K>\$7$$%X%k%W>pJs$O!"(B^H^H^H 
+(Control-h $(B$r(B 3 $(B2s(B) $(B$r%?%$%W$7$F$/$@$5$$!#(B\n")
     (kill-emacs 0)))