/usr/share/xemacs21/mule-packages/etc/start-files/French/locale-start.el is in xemacs21-mulesupport 2009.02.17.dfsg.2-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 | ;;; locale-start.el --- Version francisée de l'écran d'acceuil
;; Copyright (C) 1999 Didier Verna.
;; Author: Didier Verna <didier@xemacs.org>
;; Maintainer: Didier Verna <didier@xemacs.org>
;; Created: Thu Mar 11 09:49:36 1999 under XEmacs 21.2 (beta 12)
;; Last Revision: Thu Mar 11 10:08:32 1999
;; 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 of the License, 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 this program; if not, write to the Free Software
;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;;; Commentary:
;; Contents management by FCM version 0.1.
;;; TODO:
;;; Change Log:
;;; Code:
(if (fboundp 'splash-frame-body)
;; old way
(defun splash-frame-body ()
`[((face (blue bold underline)
"\nDistribution, license de reproduction, garanties:\n\n")
"Visitez le site web d'XEmacs à http://www.xemacs.org !\n\n"
,@(if (featurep 'sparcworks)
`( "\
Sun fournit un support pour le paquet d'intégration Workshop/XEmacs seulement.
Tous les autres paquets d'XEmacs sont fournis «TEL QUEL».\n"
,@(let ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES")
(getenv "LANG"))))
(if (and
(not (featurep 'mule)) ;; Already got mule?
;; No Mule support on tty's yet
(not (eq 'tty (console-type)))
lang ;; Non-English locale?
(not (string= lang "C"))
(not (string-match "^en" lang))
;; Comes with Sun WorkShop
(locate-file "xemacs-mule" exec-path))
'( "\
Cette version d'XEmacs a été compilée avec le support Latin-1 seul.
Pour manipuler d'autres langages, vous devez disposer d'une version
multi-lingue (`Mule') d'XEmacs, soit en utilisant la commande `xemacs-mule',
soit en positionnant la resource X `ESERVE*defaultXEmacsPath: xemacs-mule' en
démarrant XEmacs depuis le WorkShop de Sun.
\n")))))
((key describe-no-warranty)
": "(face (red bold) "XEmacs est fournit SANS AUCUNE GARANTIE\n"))
((key describe-copying)
": conditions pour distribuer des copies d'XEmacs\n")
((key describe-distribution)
": comment obtenir la dernière version\n")
"\n--\n"
(face italic "\
Copyright (C) 1985-1998 Free Software Foundation, Inc.
Copyright (C) 1990-1994 Lucid, Inc.
Copyright (C) 1993-1997 Sun Microsystems, Inc. Tous droits réservés.
Copyright (C) 1994-1996 Board of Trustees, University of Illinois
Copyright (C) 1995-2004 Ben Wing\n"))
((face (blue bold underline) "\nInformation, aide en ligne:\n\n")
"XEmacs vient avec une documentation fournie...\n\n"
,@(if (string-match "beta" emacs-version)
`((key describe-beta)
": " (face (red bold)
"Ceci est une version expérimentale d'XEmacs.\n"))
`( "\n"))
((key xemacs-local-faq)
": la FAQ d'XEmacs (un F " (face underline "majuscule") " !)\n")
((key help-with-tutorial)
": le tutoriel d'XEmacs (figure aussi dans le menu "
(face bold "Aide") ")\n")
((key help-command)
": de l'aide sur l'utilisation d'XEmacs (figure aussi dans le menu "
(face bold "Aide") ")\n")
((key info) ": la documentation en-ligne\n\n")
((key describe-project) ": à propos du projet GNU\n")
((key about-xemacs) ": à propos des développeurs d'XEmacs\n"))
((face (blue bold underline) "\nLes choses utiles:\n\n")
"Ce que vous devriez savoir rapidement...\n\n"
((key find-file) ": visiter un fichier\n")
((key save-buffer) ": sauvegarder les modifiactions\n")
((key advertised-undo) ": annuler les modifications\n")
((key save-buffers-kill-emacs) ": sortir d'XEmacs\n"))
])
;; new way
(defun splash-screen-window-body ()
`(
(face (blue bold underline)
"#### Entries utiles dans le menu Aide:\n\n")
,@(if (string-match "beta" emacs-version)
`((face bold "Beta Info:")
(face (red bold)
" Ceci est une version expérimentale d'XEmacs.\n"))
`( ""))
(face bold "XEmacs FAQ:")
" Lisez la FAQ d'XEmacs.\n"
(face bold "Info (Online Docs):")
" Lisez la documentation en-ligne.\n"
(face bold "Tutorial:")
" Lisez le tutoriel d'XEmacs.\n"
(face bold "Samples->View Sample init.el:") ;; #### translation
" Un fichier utile d'initialization.\n"
(face bold "About XEmacs:")
" À propos des développeurs d'XEmacs.\n"
"\n"
(face (bold blue) "Site web d'XEmacs:")
" http://www.xemacs.org/\n\n"
,@(if (featurep 'sparcworks)
`( "\
Sun fournit un support pour le paquet d'intégration Workshop/XEmacs seulement.
Tous les autres paquets d'XEmacs sont fournis «TEL QUEL».\n"
,@(let ((lang (or (getenv "LC_ALL") (getenv "LC_MESSAGES")
(getenv "LANG"))))
(if (and
(not (featurep 'mule)) ;; Already got mule?
lang ;; Non-English locale?
(not (string= lang "C"))
(not (string-match "^en" lang))
;; Comes with Sun WorkShop
(locate-file "xemacs-mule" exec-path))
'( "\
Cette version d'XEmacs a été compilée avec le support Latin-1 seul.
Pour manipuler d'autres langages, vous devez disposer d'une version
multi-lingue (`Mule') d'XEmacs, soit en utilisant la commande `xemacs-mule',
soit en positionnant la resource X `ESERVE*defaultXEmacsPath: xemacs-mule' en
démarrant XEmacs depuis le WorkShop de Sun.
\n")))))
(face italic "\
Copyright (C) 1985-1999 Free Software Foundation, Inc.
Copyright (C) 1990-1994 Lucid, Inc.
Copyright (C) 1993-1997 Sun Microsystems, Inc. Tous droits réservés.
Copyright (C) 1994-1996 Board of Trustees, University of Illinois.
Copyright (C) 1995-2004 Ben Wing.\n")
))
(defun splash-screen-tty-body ()
`(
(face italic "[`C-' signifie la touche Contrôle,`M-' signifie la touche Méta]\n\n")
,@(if (string-match "beta" emacs-version)
`((key describe-beta)
": " (face (red bold)
"Ceci est une version expérimentale d'XEmacs.\n"))
`( "\n"))
((key xemacs-local-faq)
": Lisez la FAQ d'XEmacs. (Un F " (face underline "majuscule") " !)\n")
((key info) ": Lisez la documentation en-ligne.\n")
((key help-command)
": De l'aide sur l'utilisation d'XEmacs.\n")
((key help-with-tutorial)
": Lisez le tutoriel d'XEmacs.\n")
((key view-sample-init-el) ;; #### translation?
": Regardez le fichier sample init.el.\n")
((key about-xemacs) ": À propos des développeurs d'XEmacs.\n\n")
(face (bold blue) "Site web d'XEmacs: ")
"http://www.xemacs.org/\n\n"
(face italic "\
Copyright (C) 1985-1999 Free Software Foundation, Inc.
Copyright (C) 1990-1994 Lucid, Inc.
Copyright (C) 1993-1997 Sun Microsystems, Inc. Tous droits réservés.
Copyright (C) 1994-1996 Board of Trustees, University of Illinois.
Copyright (C) 1995-2004 Ben Wing.")
; ((key find-file) ": visiter un fichier\n")
; ((key save-buffer) ": sauvegarder les modifiactions\n")
; ((key advertised-undo) ": annuler les modifications\n")
; ((key save-buffers-kill-emacs) ": sortir d'XEmacs\n")
))
)
;;; locale-start.el ends here
|