Changeset 4018 for vendor/emacs-CVS_HEAD/lisp/international/mule-cmds.el

Timestamp:

2006年01月28日 09時46分44秒 (3 years ago)

Author:

miyoshi

Message:

Update.

Files:

• vendor/emacs-CVS_HEAD/lisp/international/mule-cmds.el (modified) (4 diffs)

vendor/emacs-CVS_HEAD/lisp/international/mule-cmds.el

@@ -1127 +1127 @@
-  (if (symbolp lang-env)
-      (setq lang-env (symbol-name lang-env)))
+  (set-language-info-internal lang-env key info)
+  (if (equal lang-env current-language-environment)
+      (set-language-environment lang-env)))
+
+(defun set-language-info-internal (lang-env key info)
+  "Internal use only.
+Arguments are the same as `set-language-info'."
-  (let (lang-slot key-slot)
-    (setq lang-slot (assoc lang-env language-info-alist))
@@ -1197 +1204 @@
-      (cons lang-env 'setup-specified-language-environment) t)
-
-
-
-
+
+
+
+
+
-
-(defun read-language-name (key prompt &optional default)
@@ -1790 +1799 @@
-  "Set up the display table and terminal coding system for LANGUAGE-NAME."
-  (let ((coding (get-language-info language-name 'unibyte-display)))
-
+
+
+
-        (standard-display-european-internal)
-      ;; The following 2 lines undo the 8-bit display that we set up
@@ -2130 +2141 @@
-    ;; en_IN -- fx.
-    ("en_IN" "English" utf-8) ; glibc uses utf-8 for English in India
-. "Latin-1"
+"English" iso-8859-1
-    ("eo" . "Latin-3") ; Esperanto
-    ("es" "Spanish" iso-8859-1)