1 |
;;; mule-cmds.el --- Commands for mulitilingual environment |
;;; mule-cmds.el --- commands for mulitilingual environment |
2 |
|
|
3 |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
5 |
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 2000, 2001 Free Software Foundation, Inc. |
6 |
|
|
7 |
;; Keywords: mule, multilingual |
;; Keywords: mule, multilingual, i18n |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
23 |
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
24 |
;; Boston, MA 02111-1307, USA. |
;; Boston, MA 02111-1307, USA. |
25 |
|
|
26 |
|
;;; Commentary: |
27 |
|
|
28 |
;;; Code: |
;;; Code: |
29 |
|
|
30 |
(eval-when-compile (defvar dos-codepage)) |
(eval-when-compile (defvar dos-codepage)) |
1653 |
(defvar locale-translation-file-name nil |
(defvar locale-translation-file-name nil |
1654 |
"File name for the system's file of locale-name aliases, or nil if none.") |
"File name for the system's file of locale-name aliases, or nil if none.") |
1655 |
|
|
1656 |
;; The following definitions might as well be marked as constants and |
(defvar locale-language-names |
|
;; purecopied, since they're normally used on startup, and probably |
|
|
;; should reflect the facilities of the base Emacs. |
|
|
(defconst locale-language-names |
|
1657 |
(purecopy |
(purecopy |
1658 |
'( |
'( |
1659 |
;; Locale names of the form LANGUAGE[_TERRITORY][.CODESET][@MODIFIER] |
;; Locale names of the form LANGUAGE[_TERRITORY][.CODESET][@MODIFIER] |
1737 |
("lb" . "Latin-1") ; Luxemburgish |
("lb" . "Latin-1") ; Luxemburgish |
1738 |
; ln Lingala |
; ln Lingala |
1739 |
("lo" . "Lao") ; Laothian |
("lo" . "Lao") ; Laothian |
1740 |
("lt" . "Latin-4") ; Lithuanian |
("lt" . "Lithuanian") |
1741 |
("lv" . "Latin-4") ; Latvian, Lettish |
("lv" . "Latvian") ; Latvian, Lettish |
1742 |
; mg Malagasy |
; mg Malagasy |
1743 |
("mi" . "Latin-7") ; Maori |
("mi" . "Latin-7") ; Maori |
1744 |
("mk" . "Latin-5") ; Macedonian |
("mk" . "Latin-5") ; Macedonian |