Lines Matching +defs:language +defs:info +defs:alist
58 (define-key mule-keymap "l" 'set-language-environment)
64 (defvar describe-language-environment-map
67 (defvar setup-language-environment-map
73 (define-key-after mule-menu-keymap [set-language-environment]
74 (list 'menu-item "Set Language Environment" setup-language-environment-map))
101 (define-key-after mule-menu-keymap [describe-language-environment]
103 describe-language-environment-map
104 :help "Show multilingual settings for a specific language")
175 (define-key setup-language-environment-map
176 [Default] '(menu-item "Default" setup-specified-language-environment))
178 (define-key describe-language-environment-map
179 [Default] '(menu-item "Default" describe-specified-language-support))
359 ;; language environment.
431 key of the current language environment has higher priorities. See
432 also the documentation of `language-info-alist'.
441 (lang-preferred (get-language-info current-language-environment
562 The return value is an alist of the following format:
905 ;; from file-coding-system-alist).
1026 (not (auto-coding-alist-lookup (or file buffer-file-name "")))
1074 (defvar language-info-alist nil
1075 "Alist of language environment definitions.
1078 where LANGUAGE-NAME is a string, the name of the language environment,
1083 documentation value is documentation of what this language environment
1086 language environment.
1089 for this language environment.
1091 language environment.
1093 language environment.
1095 for saving text written in this language environment.
1098 coding-priority value is a list of coding systems for this language
1101 list when you switch to this language environment.
1105 language environment, or a character set from
1107 input-method value is a default input method for this language
1110 language environment.
1124 language environment.
1129 but as non-ASCII characters in this language
1132 (defun get-language-info (lang-env key)
1133 "Return information listed under KEY for language environment LANG-ENV.
1136 see `language-info-alist'."
1139 (let ((lang-slot (assoc-string lang-env language-info-alist t)))
1143 (defun set-language-info (lang-env key info)
1144 "Modify part of the definition of language environment LANG-ENV.
1146 in the definition of this language environment.
1151 see `language-info-alist'."
1154 (set-language-info-internal lang-env key info)
1155 (if (equal lang-env current-language-environment)
1157 (set-language-environment-coding-systems lang-env))
1159 (set-language-environment-input-method lang-env))
1161 (set-language-environment-nonascii-translation lang-env))
1163 (set-language-environment-charset lang-env))
1165 (set-language-environment-fontset lang-env))
1168 (set-language-environment-unibyte lang-env)))))
1170 (defun set-language-info-internal (lang-env key info)
1172 Arguments are the same as `set-language-info'."
1174 (setq lang-slot (assoc lang-env language-info-alist))
1175 (if (null lang-slot) ; If no slot for the language, add it.
1177 language-info-alist (cons lang-slot language-info-alist)))
1183 (setcdr key-slot (purecopy info))
1184 ;; Update the custom-type of `current-language-environment'.
1185 (put 'current-language-environment 'custom-type
1189 (sort (mapcar 'car language-info-alist) 'string<))))))
1191 (defun set-language-info-alist (lang-env alist &optional parents)
1192 "Store ALIST as the definition of language environment LANG-ENV.
1193 ALIST is an alist of KEY and INFO values. See the documentation of
1194 `language-info-alist' for the meanings of KEY and INFO.
1197 where to put this language environment in the
1199 For example, (\"European\") means to put this language environment
1203 (let ((describe-map describe-language-environment-map)
1204 (setup-map setup-language-environment-map))
1235 ;; Set up menu items for this language env.
1236 (let ((doc (assq 'documentation alist)))
1239 (cons lang-env 'describe-specified-language-support) t)))
1241 (cons lang-env 'setup-specified-language-environment) t)
1243 (dolist (elt alist)
1244 (set-language-info-internal lang-env (car elt) (cdr elt)))
1246 (if (equal lang-env current-language-environment)
1247 (set-language-environment lang-env))))
1249 (defun read-language-name (key prompt &optional default)
1250 "Read a language environment name which has information for KEY.
1251 If KEY is nil, read any language environment.
1252 Prompt with PROMPT. DEFAULT is the default choice of language environment.
1253 This returns a language environment name as a string."
1256 language-info-alist
1262 (get-language-info name key)))
1334 :completion-alist input-method-alist
1336 :set-after '(current-language-environment))
1361 (defvar input-method-alist nil
1368 "Register INPUT-METHOD as an input method for language environment LANG-ENV.
1394 (let ((info (cons lang-env args))
1395 (slot (assoc input-method input-method-alist)))
1397 (setcdr slot info)
1398 (setq slot (cons input-method info))
1399 (setq input-method-alist (cons slot input-method-alist)))))
1417 (input-method (completing-read prompt input-method-alist
1437 (let ((slot (assoc input-method input-method-alist)))
1560 (let ((elt (assoc input-method input-method-alist)))
1672 (defvar set-language-environment-hook nil
1673 "Normal hook run after some language environment is set.
1676 be inherited to another language environment. So, you had better set
1677 another function in `exit-language-environment-hook' (which see) to
1680 (defvar exit-language-environment-hook nil
1681 "Normal hook run after exiting from some language environment.
1682 When this hook is run, the variable `current-language-environment'
1683 is still bound to the language environment being exited.
1686 `set-language-environment-hook' (which-see).")
1688 (put 'setup-specified-language-environment 'apropos-inhibit t)
1690 (defun setup-specified-language-environment ()
1691 "Switch to a specified language environment."
1693 (let (language-name)
1697 (setq language-name (symbol-name last-command-event)))
1699 (set-language-environment language-name)
1700 (customize-mark-as-set 'current-language-environment))
1703 (defcustom current-language-environment "English"
1704 "The last language environment specified with `set-language-environment'.
1706 to using the function `set-language-environment'."
1708 :set (lambda (symbol value) (set-language-environment value))
1711 (if (symbolp current-language-environment)
1712 (symbol-name current-language-environment)
1713 current-language-environment)
1714 language-info-alist t))
1716 ;; custom type will be updated with `set-language-info'.
1717 :type (if language-info-alist
1721 (sort (mapcar 'car language-info-alist) 'string<)))
1726 (defun reset-language-environment ()
1804 ;; language environment.
1834 (reset-language-environment)
1836 (defun set-display-table-and-terminal-coding-system (language-name &optional coding-system)
1838 (let ((coding (get-language-info language-name 'unibyte-display)))
1854 (defun set-language-environment (language-name)
1858 which is the name of a language environment. For example, \"Latin-1\"
1860 (interactive (list (read-language-name
1862 "Set language environment (default English): ")))
1863 (if language-name
1864 (if (symbolp language-name)
1865 (setq language-name (symbol-name language-name)))
1866 (setq language-name "English"))
1867 (let ((slot (assoc-string language-name language-info-alist t)))
1869 (error "Language environment not defined: %S" language-name))
1870 (setq language-name (car slot)))
1871 (if current-language-environment
1872 (let ((func (get-language-info current-language-environment
1874 (run-hooks 'exit-language-environment-hook)
1877 (reset-language-environment)
1879 (let ((required-features (get-language-info language-name 'features)))
1884 (setq current-language-environment language-name)
1886 (set-language-environment-coding-systems language-name)
1887 (set-language-environment-input-method language-name)
1888 (set-language-environment-nonascii-translation language-name)
1889 (set-language-environment-charset language-name)
1890 (set-language-environment-fontset language-name)
1893 (set-language-environment-unibyte language-name))
1895 (let ((func (get-language-info language-name 'setup-function)))
1899 (run-hooks 'set-language-environment-hook)
1927 (defun set-language-environment-coding-systems (language-name)
1928 "Do various coding system setups for language environment LANGUAGE-NAME."
1929 (let* ((priority (get-language-info language-name 'coding-priority))
1946 (defun set-language-environment-input-method (language-name)
1947 "Do various input method setups for language environment LANGUAGE-NAME."
1948 (let ((input-method (get-language-info language-name 'input-method)))
1956 (defun set-language-environment-nonascii-translation (language-name)
1957 "Do unibyte/multibyte translation setup for language environment LANGUAGE-NAME."
1958 (let ((nonascii (get-language-info language-name 'nonascii-translation))
1973 (defun set-language-environment-charset (language-name)
1974 "Do various charset setups for language environment LANGUAGE-NAME."
1976 (not (eq utf-translate-cjk-lang-env language-name))
1978 (dolist (charset (get-language-info language-name 'charset))
1984 (defun set-language-environment-fontset (language-name)
1985 "Do various fontset setups for language environment LANGUAGE-NAME."
1990 (get-language-info language-name 'overriding-fontspec))))
1992 (defun set-language-environment-unibyte (language-name)
1993 "Do various unibyte-mode setups for language environment LANGUAGE-NAME."
1995 (let ((syntax (get-language-info language-name 'unibyte-syntax)))
2018 (set-display-table-and-terminal-coding-system language-name))
2025 (put 'describe-specified-language-support 'apropos-inhibit t)
2027 ;; Print language-specific information such as input methods,
2030 ;; [menu-bar mule describe-language-environment LANGUAGE]
2032 (defun describe-specified-language-support ()
2033 "Describe how Emacs supports the specified language environment."
2035 (let (language-name)
2039 (setq language-name (symbol-name last-command-event))))
2041 (describe-language-environment language-name)))
2043 (defun describe-language-environment (language-name)
2044 "Describe how Emacs supports language environment LANGUAGE-NAME."
2046 (list (read-language-name
2048 "Describe language environment (default current choice): ")))
2049 (if (null language-name)
2050 (setq language-name current-language-environment))
2051 (if (or (null language-name)
2052 (null (get-language-info language-name 'documentation)))
2053 (error "No documentation for the specified language"))
2054 (if (symbolp language-name)
2055 (setq language-name (symbol-name language-name)))
2056 (dolist (feature (get-language-info language-name 'features))
2058 (let ((doc (get-language-info language-name 'documentation)))
2059 (help-setup-xref (list #'describe-language-environment language-name)
2064 (insert language-name " language environment\n\n")
2068 (let ((str (eval (get-language-info language-name 'sample-text))))
2072 (let ((input-method (get-language-info language-name 'input-method))
2073 (l (copy-sequence input-method-alist)))
2077 (setq input-method (assoc input-method input-method-alist))
2081 (when (string= language-name (nth 1 (car l)))
2094 (let ((l (get-language-info language-name 'charset)))
2096 (insert " nothing specific to " language-name "\n")
2106 (let ((l (get-language-info language-name 'coding-system)))
2108 (insert " nothing specific to " language-name "\n")
2138 (defconst locale-language-names
2143 ;; LANGUAGE is a language code taken from ISO 639:1988 (E/F)
2154 ;; most of the regexps in locale-language-names work. Japanese
2156 ;; non-standard section at the bottom of locale-language-names.
2333 ;; The "IPA" Emacs language environment does not correspond
2337 ;; Nonstandard or obsolete language codes
2355 downcased locale specifies the LANG-ENV \(language environtment)
2357 appropriate language environment, the element may have this form:
2359 In this case, LANG-ENV is one of generic language environments for an
2362 (defconst locale-charset-language-names
2375 "List of pairs of locale regexps and charset language names.
2377 specifies the language name whose charset corresponds to that locale.
2378 This language name is used if the locale is not listed in
2379 `locale-language-names'")
2416 (defun locale-name-match (key alist)
2421 (while (and alist (not element))
2422 (if (string-match (concat "\\`\\(?:" (car (car alist)) "\\)") key)
2423 (setq element (car alist)))
2424 (setq alist (cdr alist)))
2435 (defvar locale-charset-alist nil
2436 "Coding system alist keyed on locale-style charset name.
2443 first by case-insensitive lookup in `locale-charset-alist'. Then
2448 (or (car (assoc-string charset locale-charset-alist t))
2449 (let ((cs coding-system-alist)
2463 This sets the language environment, the coding system priority,
2468 language, XX is a country, and CODE specifies a character set and
2482 See also `locale-charset-language-names', `locale-language-names',
2546 (let ((language-name
2547 (locale-name-match locale locale-language-names))
2548 (charset-language-name
2549 (locale-name-match locale locale-charset-language-names))
2560 (if (consp language-name)
2561 ;; locale-language-names specify both lang-env and coding.
2565 (nth 1 language-name))
2566 language-name (car language-name))
2567 ;; Otherwise, if locale is not listed in locale-language-names,
2568 ;; use what listed in locale-charset-language-names.
2569 (if (not language-name)
2570 (setq language-name charset-language-name)))
2581 (when language-name
2585 (set-language-environment language-name)
2592 language-name coding-system))
2599 (car (get-language-info language-name
2604 (car (get-language-info language-name 'coding-priority))))
2639 (paper (locale-info 'paper)))
2715 (defvar iso-2022-control-alist
2729 (function (lambda (x) (or (cdr (assq x iso-2022-control-alist))