Mercurial > hg > xemacs-beta
comparison lisp/locale/ja/locale-start.el @ 70:131b0175ea99 r20-0b30
Import from CVS: tag r20-0b30
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:02:59 +0200 |
| parents | |
| children | 538048ae2ab8 |
comparison
equal
deleted
inserted
replaced
| 69:804d1389bcd6 | 70:131b0175ea99 |
|---|---|
| 1 (defun startup-splash-frame-body () | |
| 2 `("\n" ,(emacs-version) "\n" | |
| 3 (face bold-italic "\ | |
| 4 Copyright (C) 1985-1996 Free Software Foundation, Inc. | |
| 5 Copyright (C) 1990-1994 Lucid, Inc. | |
| 6 Copyright (C) 1993-1996 Sun Microsystems, Inc. All Rights Reserved. | |
| 7 Copyright (C) 1994-1996 Board of Trustees, University of Illinois | |
| 8 Copyright (C) 1995-1996 Ben Wing\n\n") | |
| 9 | |
| 10 ,@(if (featurep 'sparcworks) | |
| 11 `( "\ | |
| 12 Sun provides support for the WorkShop/XEmacs integration package only. | |
| 13 All other XEmacs packages are provided to you \"AS IS\". | |
| 14 For full details, type " (key describe-no-warranty) | |
| 15 " to refer to the GPL Version 2, dated June 1991.\n\n" | |
| 16 ,@(let ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES") (getenv "LANG")))) | |
| 17 (if (and | |
| 18 (not (featurep 'mule)) ; Already got mule? | |
| 19 (not (eq 'tty (console-type))) ; No Mule support on tty's yet | |
| 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 | |
| 30 '("XEmacs comes with ABSOLUTELY NO WARRANTY; type " | |
| 31 (key describe-no-warranty) " for full details.\n")) | |
| 32 | |
| 33 "You may give out copies of XEmacs; type " | |
| 34 (key describe-copying) " to see the conditions.\n" | |
| 35 "Type " (key describe-distribution) | |
| 36 " for information on getting the latest version.\n\n" | |
| 37 | |
| 38 "Type " (key help-command) " or use the " (face bold "Help") " menu to get help.\n" | |
| 39 "Type " (key advertised-undo) " to undo changes (`C-' means use the Control key).\n" | |
| 40 "To get out of XEmacs, type " (key save-buffers-kill-emacs) ".\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) ( "\ | |
| 45 For tips and answers to frequently asked questions, see the XEmacs FAQ. | |
| 46 \(It's on the Help menu, or type " (key xemacs-local-faq) " [a capital F!].\)")))) | |
| 47 | |
| 48 | |
| 49 (defun command-line-do-help (arg) | |
| 50 "Print the $(BF|K\(B XEmacs usage message and exit." | |
| 51 (let ((standard-output 'external-debugging-output)) | |
| 52 (princ (concat "\n" (emacs-version) "\n\n")) | |
| 53 (princ | |
| 54 (if (featurep 'x) | |
| 55 (concat "XEmacs accepts all standard X Toolkit command line options.\n" | |
| 56 "In addition, the") | |
| 57 "The")) | |
| 58 (princ " following options are accepted: | |
| 59 | |
| 60 -t <device> Use TTY <device> instead of the terminal for input | |
| 61 and output. This implies the -nw option. | |
| 62 -nw Inhibit the use of any window-system-specific | |
| 63 display code: use the current tty. | |
| 64 -batch Execute noninteractively (messages go to stderr). | |
| 65 -debug-init Enter the debugger if an error in the init file occurs. | |
| 66 -unmapped Do not map the initial frame. | |
| 67 -no-site-file Do not load the site-specific init file (site-start.el). | |
| 68 -no-init-file Do not load the user-specific init file (~/.emacs). | |
| 69 -q Same as -no-init-file. | |
| 70 -user <user> Load user's init file instead of your own. | |
| 71 -u <user> Same as -user.\n") | |
| 72 (let ((l command-switch-alist) | |
| 73 (insert (lambda (&rest x) | |
| 74 (princ " ") | |
| 75 (let ((len 2)) | |
| 76 (while x | |
| 77 (princ (car x)) | |
| 78 (incf len (length (car x))) | |
| 79 (setq x (cdr x))) | |
| 80 (when (>= len 24) | |
| 81 (terpri) (setq len 0)) | |
| 82 (while (< len 24) | |
| 83 (princ " ") | |
| 84 (incf len)))))) | |
| 85 (while l | |
| 86 (let ((name (car (car l))) | |
| 87 (fn (cdr (car l))) | |
| 88 doc arg cons) | |
| 89 (cond | |
| 90 ((and (symbolp fn) (get fn 'undocumented)) nil) | |
| 91 (t | |
| 92 (setq doc (documentation fn)) | |
| 93 (if (member doc '(nil "")) (setq doc "(undocumented)")) | |
| 94 (cond ((string-match "\n\\(<.*>\\)\n?\\'" doc) | |
| 95 ;; Doc of the form "The frobber switch\n<arg1> <arg2>" | |
| 96 (setq arg (substring doc (match-beginning 1) (match-end 1)) | |
| 97 doc (substring doc 0 (match-beginning 0)))) | |
| 98 ((string-match "\n+\\'" doc) | |
| 99 (setq doc (substring doc 0 (match-beginning 0))))) | |
| 100 (if (and (setq cons (rassq fn command-switch-alist)) | |
| 101 (not (eq cons (car l)))) | |
| 102 (setq doc (format "Same as %s." (car cons)))) | |
| 103 (if arg | |
| 104 (funcall insert name " " arg) | |
| 105 (funcall insert name)) | |
| 106 (princ doc) | |
| 107 (terpri)))) | |
| 108 (setq l (cdr l)))) | |
| 109 (princ "\ | |
| 110 +N <file> Start displaying <file> at line N. | |
| 111 | |
| 112 Anything else is considered a file name, and is placed into a buffer for | |
| 113 editing. | |
| 114 | |
| 115 XEmacs has an online tutorial and manuals. Type ^Ht (Control-h t) after | |
| 116 starting XEmacs to run the tutorial. Type ^Hi to enter the manual browser. | |
| 117 Type ^H^H^H (Control-h Control-h Control-h) to get more help options.\n") | |
| 118 | |
| 119 (kill-emacs 0))) |