Mercurial > hg > xemacs-beta

comparison lisp/locale/ja/locale-start.el @ 149:538048ae2ab8 r20-3b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b1
author cvs
date Mon, 13 Aug 2007 09:36:16 +0200
parents 131b0175ea99
children 59463afc5666
comparison
equal deleted inserted replaced
148:f659db2a1f73 149:538048ae2ab8
1 ;;; @(#)locale-start.el.euc 1.7 97/03/06 13:43:21
2 ;;; locale/ja/locale-start.el --- startup.el customized for ja locale.
3 ;;; This file, being an .el file,
4 ;;; must be in ISO 2022 encoding after installation.
5 ;; Copyright (C) 1985-1986, 1990, 1992-1995 Free Software Foundation, Inc.
6 ;; Copyright (c) 1993-1997 Sun Microsystems, Inc.
7 ;; Copyright (C) 1995 Board of Trustees, University of Illinois
8
9 ;; Maintainer: XEmacs
10 ;; Keywords: internal
11
12 ;; This file is part of XEmacs.
13
14 ;; XEmacs is free software; you can redistribute it and/or modify it
15 ;; under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
17 ;; any later version.
18
19 ;; XEmacs is distributed in the hope that it will be useful, but
20 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
22 ;; General Public License for more details.
23
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with XEmacs; see the file COPYING. If not, write to the Free
26 ;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
27
1 (defun startup-splash-frame-body () 28 (defun startup-splash-frame-body ()
2 `("\n" ,(emacs-version) "\n" 29 `("\n" ,(emacs-version) "\n"
3 (face bold-italic "\ 30 (face bold-italic "\
4 Copyright (C) 1985-1996 Free Software Foundation, Inc. 31 Copyright (C) 1985-1996 Free Software Foundation, Inc.
5 Copyright (C) 1990-1994 Lucid, Inc. 32 Copyright (C) 1990-1994 Lucid, Inc.
6 Copyright (C) 1993-1996 Sun Microsystems, Inc. All Rights Reserved. 33 Copyright (C) 1993-1997 Sun Microsystems, Inc. All Rights Reserved.
7 Copyright (C) 1994-1996 Board of Trustees, University of Illinois 34 Copyright (C) 1994-1996 Board of Trustees, University of Illinois
8 Copyright (C) 1995-1996 Ben Wing\n\n") 35 Copyright (C) 1995-1996 Ben Wing\n\n")
9 36
10 ,@(if (featurep 'sparcworks) 37 ,@(if (featurep 'sparcworks)
11 `( "\ 38 `( "\
12 Sun provides support for the WorkShop/XEmacs integration package only. 39 $(B%5%s$O!"(BWorkShop/Emacs $(BE}9g2=%Q%C%1!<%8$N$_$r%5%]!<%H$7$^$9!#(B
13 All other XEmacs packages are provided to you \"AS IS\". 40 $(BB>$N(B XEmacs $(B%Q%C%1!<%8$O$9$Y$F!"!V8=>u$N$^$^!W$G6!5k$5$l$^$9!#(B
14 For full details, type " (key describe-no-warranty) 41 $(B>\:Y(B ($(B1QJ8(B) $(B$O(B" (key describe-no-warranty) "$(B$H%?%$%W$7$F!"(B
15 " to refer to the GPL Version 2, dated June 1991.\n\n" 42 1991 $(BG/(B 6 $(B7nHG(B GPL $(B%P!<%8%g%s(B 2 $(B$r$4Mw$/$@$5$$!#(B
16 ,@(let ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") (getenv "LANG")))) 43 $(BK\(B XEmacs $(B$O4pK\%a%K%e!<$K8B$jF|K\8l2=$5$l$F$$$^$9!#AH$_9~$^$l$?(B
17 (if (and 44 $(B%a!<%k(B (VM$(B!"(BMH) $(B$d%K%e!<%9$rFI$`$?$a$N%Q%C%1!<%8(B (Gnus) $(BEy$O!"(B
18 (not (featurep 'mule)) ; Already got mule? 45 $(BF|K\8l$r40`z$K$O=hM}$G$-$^$;$s$N$G!"$4;HMQ$K$J$k>l9g$O==J,$4Cm0U(B
19 (not (eq 'tty (console-type))) ; No Mule support on tty's yet 46 $(B$/$@$5$$!#(B\n")
20 lang ; Non-English locale?
21 (not (string-equal lang "C"))
22 (not (string-match "^en" lang))
23 (locate-file "xemacs-mule" exec-path)) ; Comes with Sun WorkShop
24 '( "\
25 This version of XEmacs has been built with support for Latin-1 languages only.
26 To handle other languages you need to run a Multi-lingual (`Mule') version of
27 XEmacs, by either running the command `xemacs-mule', or by using the X resource
28 `ESERVE*defaultXEmacsPath: xemacs-mule' when starting XEmacs from Sun WorkShop.\n\n"))))
29 47
30 '("XEmacs comes with ABSOLUTELY NO WARRANTY; type " 48 '("XEmacs $(B$K$O(B *$(B$^$C$?$/2?$N(B* $(BJ]>c$b$"$j$^$;$s!#>\:Y$O!"(B"
31 (key describe-no-warranty) " for full details.\n")) 49 (key describe-no-warranty) "$(B$r%?%$%W$7$F$/$@$5$$!#(B\n"))
50
51 "XEmacs $(B$NJ#@=$O5v2D$5$l$F$$$^$9!#5v2D$N>r7o$r8+$k$K$O!"(B\n"
52 (key describe-copying) " $(B$H%?%$%W$7$F$/$@$5$$!#(B\n"
53 "$(B:G?7HG$N<hF@J}K!$K$D$$$F$O!"(B" (key describe-distribution)
54 " $(B$H%?%$%W$7$F$/$@$5$$!#(B\n\n"
32 55
33 "You may give out copies of XEmacs; type " 56 "$(B%X%k%W>pJs$r8+$k$K$O!"(B" (key help-command) " $(B$H%?%$%W!"$^$?$O(B"
34 (key describe-copying) " to see the conditions.\n" 57 (face bold "$(B%X%k%W(B") "$(B%a%K%e!<$r;HMQ(B\n"
35 "Type " (key describe-distribution) 58 "$(B$7$F$/$@$5$$(B\n"
36 " for information on getting the latest version.\n\n" 59 (key advertised-undo) " $(B$K$h$jJQ99$r<h$j>C$;$^$;$9!#(B(C- $(B$O!"(BControl $(B%-!<$G$9!#(B)\n"
37 60 "XEmacs $(B$r=*N;$9$k$K$O!"(B" (key save-buffers-kill-emacs) " $(B$H%?%$%W$7$F$/$@$5$$!#(B\n"
38 "Type " (key help-command) " or use the " (face bold "Help") " menu to get help.\n" 61 (key help-with-tutorial) " $(B$G(B XEmacs $(B$N;HMQJ}K!$N<B=,$r3+;O$G$-$^$9!#(B\n"
39 "Type " (key advertised-undo) " to undo changes (`C-' means use the Control key).\n" 62 (key info) " $(B$K$h$j!"(BInfo $(B%b!<%I$KF~$j!"%*%s%i%$%s$N%I%-%e%a%s%H$r(B\n"
40 "To get out of XEmacs, type " (key save-buffers-kill-emacs) ".\n" 63 "$(BFI$`$3$H$,$G$-$^$9!#(B\n"
41 "Type " (key help-with-tutorial) " for a tutorial on using XEmacs.\n"
42 "Type " (key info) " to enter Info, "
43 "which you can use to read online documentation.\n\n"
44 (face (bold red) ( "\ 64 (face (bold red) ( "\
45 For tips and answers to frequently asked questions, see the XEmacs FAQ. 65 $(BIQHK$K?R$M$i$l$k<ALd$H$=$NEz$($O!"(BXEmacs $(BLdEz=8$K$"$j$^$9!#(B\n"
46 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)")))) 66 "$(B%X%k%W%a%K%e!<$r;HMQ$9$k$+!"(B"(key xemacs-local-faq) " $(B$H%?%$%W$7$F$/$@$5$$!#(B"))))
47 67
48 68
49 (defun command-line-do-help (arg) 69 (defun command-line-do-help (arg)
50 "Print the $(BF|K\(B XEmacs usage message and exit." 70 "Print the XEmacs usage message and exit."
51 (let ((standard-output 'external-debugging-output)) 71 (let ((standard-output 'external-debugging-output))
52 (princ (concat "\n" (emacs-version) "\n\n")) 72 (princ (concat "\n" (emacs-version) "\n\n"))
53 (princ 73 (princ
54 (if (featurep 'x) 74 (if (featurep 'x)
55 (concat "XEmacs accepts all standard X Toolkit command line options.\n" 75 "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"
56 "In addition, the") 76 "XEmacs $(B$O!"(B "))
57 "The")) 77 (princ " $(B0J2<$N%*%W%7%g%s$rG'<1$7!"=P8==g$K=hM}$7$^$9(B:
58 (princ " following options are accepted:
59 78
60 -t <device> Use TTY <device> instead of the terminal for input 79 -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
61 and output. This implies the -nw option. 80 $(B9T$J$&!#(B-nw $(B$,<+F0E*$K2>Dj$5$l$k!#(B
62 -nw Inhibit the use of any window-system-specific 81 -nw $(B%&%#%s%I%&%7%9%F%`$r;HMQ$;$:!"8=(B TTY $(B$r;HMQ!#(B($(BCm(B: TTY
63 display code: use the current tty. 82 $(B%b!<%I$G$NF|K\8lI=<($O!"K\%P!<%8%g%s$N(B XEmacs $(B$G$O$G$-(B
64 -batch Execute noninteractively (messages go to stderr). 83 $(B$^$;$s!#(B)
65 -debug-init Enter the debugger if an error in the init file occurs. 84 -batch $(BHsBPOCE*;HMQ!#%a%C%;!<%8$O!"I8=`%(%i!<(B (stderr) $(B%X!#(B
66 -unmapped Do not map the initial frame. 85 -debug-init $(B=i4|2=%U%!%$%k$G$N%(%i!<H/@8;~$K$O%G%P%C%,$r5/F0!#(B
67 -no-site-file Do not load the site-specific init file (site-start.el). 86 -unmapped $(B=i4|%U%l!<%`$N%^%C%W$r$7$J$$!#(B
68 -no-init-file Do not load the user-specific init file (~/.emacs). 87 -no-site-file $(B%5%$%HFC2==i4|2=%U%!%$%k(B (site-start.el) $(B$rFI$_9~$^$J$$!#(B
69 -q Same as -no-init-file. 88 -no-init-file $(B%f!<%6!<FC2==i4|2=%U%!%$%k(B (~/.emacs) $(B$rFI$_9~$^$J$$!#(B
70 -user <user> Load user's init file instead of your own. 89 -q -no-init-file $(B$HF15A!#(B
71 -u <user> Same as -user.\n") 90 -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
72 (let ((l command-switch-alist) 91 -u $(B%f!<%6!<L>(B -user $(B$HF15A!#(B\n")
73 (insert (lambda (&rest x) 92 ;; $(B1Q8lHG$G$O!"0J2<$N$h$&$J%3!<%I$K$h$j!"%I%-%e%a%s%H$N0lIt$,I=<($5$l$F$$$?$,!"(B
74 (princ " ") 93 ;; $(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
75 (let ((len 2)) 94 ;; $(BC1=c$K@bL@$r0u;z$9$k%3!<%I$HCV$-49$($k!#(B
76 (while x 95 ;; (let ((l command-switch-alis\nt)
77 (princ (car x)) 96 ;; (insert (lambda (&rest x)
78 (incf len (length (car x))) 97 ;; (princ " ")
79 (setq x (cdr x))) 98 ;; (let ((len 2))
80 (when (>= len 24) 99 ;; (while x
81 (terpri) (setq len 0)) 100 ;; (princ (car x))
82 (while (< len 24) 101 ;; (incf len (length (car x)))
83 (princ " ") 102 ;; (setq x (cdr x)))
84 (incf len)))))) 103 ;; (when (>= len 24)
85 (while l 104 ;; (terpri) (setq len 0))
86 (let ((name (car (car l))) 105 ;; (while (< len 24)
87 (fn (cdr (car l))) 106 ;; (princ " ")
88 doc arg cons) 107 ;; (incf len))))))
89 (cond 108 ;; (while l
90 ((and (symbolp fn) (get fn 'undocumented)) nil) 109 ;; (let ((name (car (car l)))
91 (t 110 ;; (fn (cdr (car l)))
92 (setq doc (documentation fn)) 111 ;; doc arg cons)
93 (if (member doc '(nil "")) (setq doc "(undocumented)")) 112 ;; (cond
94 (cond ((string-match "\n\\(<.*>\\)\n?\\'" doc) 113 ;; ((and (symbolp fn) (get fn 'undocumented)) nil)
95 ;; Doc of the form "The frobber switch\n<arg1> <arg2>" 114 ;; (t
96 (setq arg (substring doc (match-beginning 1) (match-end 1)) 115 ;; (setq doc (documentation fn))
97 doc (substring doc 0 (match-beginning 0)))) 116 ;; (if (member doc '(nil "")) (setq doc "(undocumented)"))
98 ((string-match "\n+\\'" doc) 117 ;; (cond ((string-match "\n\\(<.*>\\)\n?\\'" doc)
99 (setq doc (substring doc 0 (match-beginning 0))))) 118 ;; ;; Doc of the form "The frobber switch\n<arg1> <arg2>"
100 (if (and (setq cons (rassq fn command-switch-alist)) 119 ;; (setq arg (substring doc (match-beginning 1) (match-end 1))
101 (not (eq cons (car l)))) 120 ;; doc (substring doc 0 (match-beginning 0))))
102 (setq doc (format "Same as %s." (car cons)))) 121 ;; ((string-match "\n+\\'" doc)
103 (if arg 122 ;; (setq doc (substring doc 0 (match-beginning 0)))))
104 (funcall insert name " " arg) 123 ;; (if (and (setq cons (rassq fn command-switch-alist))
105 (funcall insert name)) 124 ;; (not (eq cons (car l))))
106 (princ doc) 125 ;; (setq doc (format "Same as %s." (car cons))))
107 (terpri)))) 126 ;;
108 (setq l (cdr l)))) 127 ;; (if arg
109 (princ "\ 128 ;; (funcall insert name " " arg)
110 +N <file> Start displaying <file> at line N. 129 ;; (funcall insert name))
130 ;; (princ doc)
131 ;; (terpri))))
132 ;; (setq l (cdr l))))
133 ;; $(BCV$-49$(ItJ,3+;O(B
134 (princ "\
135 -help XEmacs $(B;HMQK!$rI=<($7$F=*N;!#(B
136 -flags -help $(B$HF15A!#(B
137 -h -help $(B$HF15A!#(B
138 -? -help $(B$HF15A!#(B
139 -version $(B%P!<%8%g%s>pJs$rI=<($7$F=*N;!#(B
140 -V -version $(B$HF15A!#(B
141 -funcall $(B4X?tL>(B $(B;XDj$N(B lisp $(B4X?t$r0z?t$J$7$G5/F0!#(B
142 -f $(B4X?tL>(B -funcall $(B$HF15A!#(B
143 -eval $(B%U%)!<%`(B lisp $(B$N%U%)!<%`$rI>2A!#0zMQ(B (quote) $(B$OCm0U?<$/9T$J$C$F$/$@$5$$!#(B
144 -load $(B%U%!%$%kL>(B $(B;XDj$N(B lisp $(B%3!<%I$r(B XEmacs $(B$KFI$_9~$`!#(B
145 -l $(B%U%!%$%kL>(B -load $(B$HF15A!#(B
146 -insert $(B%U%!%$%kL>(B $(B8=%P%C%U%!$K%U%!%$%k$rA^F~!#(B
147 -i $(B%U%!%$%kL>(B -insert $(B$HF15A!#(B
148 -kill XEmacs $(B$r=*N;!#(B
149 -tooltalk ToolTalk $(B%5!<%P!<$K@\B3!#(B\n")
150 ;; $(BCV$-49$(ItJ,=*N;(B
151 (princ "\
152 +N $(B%U%!%$%kL>(B $(B;XDj%U%!%$%k$r(B N $(B9TL\$+$iI=<(!#(B
111 153
112 Anything else is considered a file name, and is placed into a buffer for 154 $(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
113 editing. 155 $(B$l$^$9!#(B
114 156
115 XEmacs has an online tutorial and manuals. Type ^Ht (Control-h t) after 157 XEmacs $(B$K$O!"%*%s%i%$%s$N<+=,=q$H%^%K%e%"%k(B ($(BN>J}$H$b1Q8lHG$N$_(B) $(B$,IUB0$7(B
116 starting XEmacs to run the tutorial. Type ^Hi to enter the manual browser. 158 $(B$F$$$^$9!#<+=,=q$r3+;O$9$k$K$O!"(BXEmacs $(B3+;O8e$K!"(B^Ht (Control-h t) $(B$r%?%$%W(B
117 Type ^H^H^H (Control-h Control-h Control-h) to get more help options.\n") 159 $(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
118 160 (Control-h $(B$r(B 3 $(B2s(B) $(B$r%?%$%W$7$F$/$@$5$$!#(B\n")
119 (kill-emacs 0))) 161 (kill-emacs 0)))