|
149
|
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
|
|
70
|
28 (defun startup-splash-frame-body ()
|
|
|
29 `("\n" ,(emacs-version) "\n"
|
|
|
30 (face bold-italic "\
|
|
|
31 Copyright (C) 1985-1996 Free Software Foundation, Inc.
|
|
|
32 Copyright (C) 1990-1994 Lucid, Inc.
|
|
149
|
33 Copyright (C) 1993-1997 Sun Microsystems, Inc. All Rights Reserved.
|
|
70
|
34 Copyright (C) 1994-1996 Board of Trustees, University of Illinois
|
|
|
35 Copyright (C) 1995-1996 Ben Wing\n\n")
|
|
|
36
|
|
|
37 ,@(if (featurep 'sparcworks)
|
|
|
38 `( "\
|
|
151
|
39 $B%5%s$O!"(BWorkShop/Emacs $BE}9g2=%Q%C%1!<%8$N$_$r%5%]!<%H$7$^$9!#(B
|
|
|
40 $BB>$N(B XEmacs $B%Q%C%1!<%8$O$9$Y$F!"!V8=>u$N$^$^!W$G6!5k$5$l$^$9!#(B
|
|
|
41 $B>\:Y(B ($B1QJ8(B) $B$O(B" (key describe-no-warranty) "$B$H%?%$%W$7$F!"(B
|
|
|
42 1991 $BG/(B 6 $B7nHG(B GPL $B%P!<%8%g%s(B 2 $B$r$4Mw$/$@$5$$!#(B
|
|
|
43 $BK\(B XEmacs $B$O4pK\%a%K%e!<$K8B$jF|K\8l2=$5$l$F$$$^$9!#AH$_9~$^$l$?(B
|
|
|
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
|
|
|
45 $BF|K\8l$r40`z$K$O=hM}$G$-$^$;$s$N$G!"$4;HMQ$K$J$k>l9g$O==J,$4Cm0U(B
|
|
|
46 $B$/$@$5$$!#(B\n")
|
|
149
|
47
|
|
151
|
48 '("XEmacs $B$K$O(B *$B$^$C$?$/2?$N(B* $BJ]>c$b$"$j$^$;$s!#>\:Y$O!"(B"
|
|
|
49 (key describe-no-warranty) "$B$r%?%$%W$7$F$/$@$5$$!#(B\n"))
|
|
70
|
50
|
|
151
|
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"
|
|
70
|
55
|
|
151
|
56 "$B%X%k%W>pJs$r8+$k$K$O!"(B" (key help-command) " $B$H%?%$%W!"$^$?$O(B"
|
|
|
57 (face bold "$B%X%k%W(B") "$B%a%K%e!<$r;HMQ(B\n"
|
|
|
58 "$B$7$F$/$@$5$$(B\n"
|
|
|
59 (key advertised-undo) " $B$K$h$jJQ99$r<h$j>C$;$^$;$9!#(B(C- $B$O!"(BControl $B%-!<$G$9!#(B)\n"
|
|
|
60 "XEmacs $B$r=*N;$9$k$K$O!"(B" (key save-buffers-kill-emacs) " $B$H%?%$%W$7$F$/$@$5$$!#(B\n"
|
|
|
61 (key help-with-tutorial) " $B$G(B XEmacs $B$N;HMQJ}K!$N<B=,$r3+;O$G$-$^$9!#(B\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"
|
|
|
63 "$BFI$`$3$H$,$G$-$^$9!#(B\n"
|
|
70
|
64 (face (bold red) ( "\
|
|
151
|
65 $BIQHK$K?R$M$i$l$k<ALd$H$=$NEz$($O!"(BXEmacs $BLdEz=8$K$"$j$^$9!#(B\n"
|
|
|
66 "$B%X%k%W%a%K%e!<$r;HMQ$9$k$+!"(B"(key xemacs-local-faq) " $B$H%?%$%W$7$F$/$@$5$$!#(B"))))
|
|
70
|
67
|
|
|
68
|
|
|
69 (defun command-line-do-help (arg)
|
|
149
|
70 "Print the XEmacs usage message and exit."
|
|
70
|
71 (let ((standard-output 'external-debugging-output))
|
|
|
72 (princ (concat "\n" (emacs-version) "\n\n"))
|
|
|
73 (princ
|
|
|
74 (if (featurep 'x)
|
|
151
|
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"
|
|
|
76 "XEmacs $B$O!"(B "))
|
|
|
77 (princ " $B0J2<$N%*%W%7%g%s$rG'<1$7!"=P8==g$K=hM}$7$^$9(B:
|
|
70
|
78
|
|
151
|
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
|
|
|
80 $B9T$J$&!#(B-nw $B$,<+F0E*$K2>Dj$5$l$k!#(B
|
|
|
81 -nw $B%&%#%s%I%&%7%9%F%`$r;HMQ$;$:!"8=(B TTY $B$r;HMQ!#(B($BCm(B: TTY
|
|
|
82 $B%b!<%I$G$NF|K\8lI=<($O!"K\%P!<%8%g%s$N(B XEmacs $B$G$O$G$-(B
|
|
|
83 $B$^$;$s!#(B)
|
|
|
84 -batch $BHsBPOCE*;HMQ!#%a%C%;!<%8$O!"I8=`%(%i!<(B (stderr) $B%X!#(B
|
|
|
85 -debug-init $B=i4|2=%U%!%$%k$G$N%(%i!<H/@8;~$K$O%G%P%C%,$r5/F0!#(B
|
|
|
86 -unmapped $B=i4|%U%l!<%`$N%^%C%W$r$7$J$$!#(B
|
|
|
87 -no-site-file $B%5%$%HFC2==i4|2=%U%!%$%k(B (site-start.el) $B$rFI$_9~$^$J$$!#(B
|
|
|
88 -no-init-file $B%f!<%6!<FC2==i4|2=%U%!%$%k(B (~/.emacs) $B$rFI$_9~$^$J$$!#(B
|
|
|
89 -q -no-init-file $B$HF15A!#(B
|
|
|
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
|
|
|
91 -u $B%f!<%6!<L>(B -user $B$HF15A!#(B\n")
|
|
|
92 ;; $B1Q8lHG$G$O!"0J2<$N$h$&$J%3!<%I$K$h$j!"%I%-%e%a%s%H$N0lIt$,I=<($5$l$F$$$?$,!"(B
|
|
|
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
|
|
|
94 ;; $BC1=c$K@bL@$r0u;z$9$k%3!<%I$HCV$-49$($k!#(B
|
|
149
|
95 ;; (let ((l command-switch-alis\nt)
|
|
|
96 ;; (insert (lambda (&rest x)
|
|
|
97 ;; (princ " ")
|
|
|
98 ;; (let ((len 2))
|
|
|
99 ;; (while x
|
|
|
100 ;; (princ (car x))
|
|
|
101 ;; (incf len (length (car x)))
|
|
|
102 ;; (setq x (cdr x)))
|
|
|
103 ;; (when (>= len 24)
|
|
|
104 ;; (terpri) (setq len 0))
|
|
|
105 ;; (while (< len 24)
|
|
|
106 ;; (princ " ")
|
|
|
107 ;; (incf len))))))
|
|
|
108 ;; (while l
|
|
|
109 ;; (let ((name (car (car l)))
|
|
|
110 ;; (fn (cdr (car l)))
|
|
|
111 ;; doc arg cons)
|
|
|
112 ;; (cond
|
|
|
113 ;; ((and (symbolp fn) (get fn 'undocumented)) nil)
|
|
|
114 ;; (t
|
|
|
115 ;; (setq doc (documentation fn))
|
|
|
116 ;; (if (member doc '(nil "")) (setq doc "(undocumented)"))
|
|
|
117 ;; (cond ((string-match "\n\\(<.*>\\)\n?\\'" doc)
|
|
|
118 ;; ;; Doc of the form "The frobber switch\n<arg1> <arg2>"
|
|
|
119 ;; (setq arg (substring doc (match-beginning 1) (match-end 1))
|
|
|
120 ;; doc (substring doc 0 (match-beginning 0))))
|
|
|
121 ;; ((string-match "\n+\\'" doc)
|
|
|
122 ;; (setq doc (substring doc 0 (match-beginning 0)))))
|
|
|
123 ;; (if (and (setq cons (rassq fn command-switch-alist))
|
|
|
124 ;; (not (eq cons (car l))))
|
|
|
125 ;; (setq doc (format "Same as %s." (car cons))))
|
|
|
126 ;;
|
|
|
127 ;; (if arg
|
|
|
128 ;; (funcall insert name " " arg)
|
|
|
129 ;; (funcall insert name))
|
|
|
130 ;; (princ doc)
|
|
|
131 ;; (terpri))))
|
|
|
132 ;; (setq l (cdr l))))
|
|
151
|
133 ;; $BCV$-49$(ItJ,3+;O(B
|
|
149
|
134 (princ "\
|
|
151
|
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
|
|
149
|
151 (princ "\
|
|
151
|
152 +N $B%U%!%$%kL>(B $B;XDj%U%!%$%k$r(B N $B9TL\$+$iI=<(!#(B
|
|
70
|
153
|
|
151
|
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
|
|
|
155 $B$l$^$9!#(B
|
|
70
|
156
|
|
151
|
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
|
|
|
158 $B$F$$$^$9!#<+=,=q$r3+;O$9$k$K$O!"(BXEmacs $B3+;O8e$K!"(B^Ht (Control-h t) $B$r%?%$%W(B
|
|
|
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
|
|
|
160 (Control-h $B$r(B 3 $B2s(B) $B$r%?%$%W$7$F$/$@$5$$!#(B\n")
|
|
70
|
161 (kill-emacs 0)))
|
