Lines Matching +defs:set +defs:language +defs:info +defs:alist
48 (define-key mule-keymap "f" 'set-buffer-file-coding-system)
50 (define-key mule-keymap "F" 'set-file-name-coding-system)
51 (define-key mule-keymap "t" 'set-terminal-coding-system)
52 (define-key mule-keymap "k" 'set-keyboard-coding-system)
53 (define-key mule-keymap "p" 'set-buffer-process-coding-system)
54 (define-key mule-keymap "x" 'set-selection-coding-system)
55 (define-key mule-keymap "X" 'set-next-selection-coding-system)
56 (define-key mule-keymap "\C-\\" 'set-input-method)
58 (define-key mule-keymap "l" 'set-language-environment)
64 (defvar describe-language-environment-map
67 (defvar setup-language-environment-map
70 (defvar set-coding-system-map
73 (define-key-after mule-menu-keymap [set-language-environment]
74 (list 'menu-item "Set Language Environment" setup-language-environment-map))
81 (define-key-after mule-menu-keymap [set-input-method]
82 '(menu-item "Select Input Method..." set-input-method)
89 (define-key-after mule-menu-keymap [set-various-coding-system]
90 (list 'menu-item "Set Coding Systems" set-coding-system-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")
121 (define-key-after set-coding-system-map [universal-coding-system-argument]
125 (define-key-after set-coding-system-map [separator-1]
128 (define-key-after set-coding-system-map [set-buffer-file-coding-system]
129 '(menu-item "For Saving This Buffer" set-buffer-file-coding-system
132 (define-key-after set-coding-system-map [revert-buffer-with-coding-system]
137 (define-key-after set-coding-system-map [set-file-name-coding-system]
138 '(menu-item "For File Name" set-file-name-coding-system
141 (define-key-after set-coding-system-map [separator-2]
145 (define-key-after set-coding-system-map [set-keyboard-coding-system]
146 '(menu-item "For Keyboard" set-keyboard-coding-system
149 (define-key-after set-coding-system-map [set-terminal-coding-system]
150 '(menu-item "For Terminal" set-terminal-coding-system
154 (define-key-after set-coding-system-map [separator-3]
157 (define-key-after set-coding-system-map [set-selection-coding-system]
158 '(menu-item "For X Selections/Clipboard" set-selection-coding-system
162 (define-key-after set-coding-system-map [set-next-selection-coding-system]
163 '(menu-item "For Next X Selection" set-next-selection-coding-system
167 (define-key-after set-coding-system-map [set-buffer-process-coding-system]
168 '(menu-item "For I/O with Subprocess" set-buffer-process-coding-system
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))
199 "\\(character set\\)\\|"
263 (set-buffer-multibyte new-flag))
307 ;; set's the final `prefix-arg.
323 (defun set-default-coding-systems (coding-system)
331 o default value for the command `set-terminal-coding-system' (not on MSDOS)
332 o default value for the command `set-keyboard-coding-system'
336 (if (fboundp 'ucs-set-table-for-input)
339 (ucs-set-table-for-input buffer))))
356 ;; On non-unix-like systems in particular, these may have been set
359 ;; language environment.
376 o default value for the command `set-terminal-coding-system' (not on MSDOS)
377 o default value for the command `set-keyboard-coding-system'
380 systems set by this function will use that type of EOL conversion.
400 (set coding-category (or base coding-system))
405 (set-coding-priority (list coding-category)))
407 (message "Highest priority is set to %s (base of %s)"
414 (set-default-coding-systems coding-system)))
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:
565 CHARSET is a character set,
567 CHARs are the characters found from the character set.
616 If such a character is found, set point after that character.
635 This variable is set whenever Emacs asks the user which coding system
636 to use in order to write a file. If you set it to nil explicitly,
817 (set-window-configuration window-configuration)
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
1100 This is used to set up the coding system priority
1101 list when you switch to this language environment.
1103 value is a translation table to be set in the
1105 language environment, or a character set from
1107 input-method value is a default input method for this language
1110 language environment.
1122 unibyte-syntax value is a library name to load to set
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))
1347 Every input method should set this to an appropriate value when activated.
1351 It is set to nil by the function `inactivate-input-method'.")
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)))
1474 (defun set-input-method (input-method &optional interactive)
1481 which marks the variable `default-input-method' as set for Custom buffers.
1494 (customize-mark-as-set 'default-input-method))
1513 which marks the variable `default-input-method' as set for Custom buffers."
1533 (customize-mark-as-set 'default-input-method)))))))
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.
1675 When you set some hook function here, that effect usually should not
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'.
1705 This variable should be set only with \\[customize], which is equivalent
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 ()
1733 The default value for the command `set-terminal-coding-system' is nil.
1734 The default value for the command `set-keyboard-coding-system' is nil.
1756 ;; This function formerly set default-enable-multibyte-characters to t,
1775 (set-coding-priority
1795 (set-default-coding-systems nil)
1798 ;; utf-8 is not yet defined, so we set it in set-locale-environment instead.
1801 ;; On non-unix-like systems in particular, these may have been set
1804 ;; language environment.
1823 ;; (set-terminal-coding-system-internal nil)
1824 ;; (set-keyboard-coding-system-internal nil)
1832 (set-overriding-fontspec-internal nil)))
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)))
1843 ;; The following 2 lines undo the 8-bit display that we set up
1852 (set-terminal-coding-system (or coding-system coding)))))
1854 (defun set-language-environment (language-name)
1858 which is the name of a language environment. For example, \"Latin-1\"
1859 specifies the character set for the major languages of Western Europe."
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)
1878 ;; The features might set up coding systems.
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)
1903 ;; Actually set up direct output of non-ASCII characters.
1921 ;; U+2019, normally from the windows-1252 character set. XFree 4
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))
1934 (set-default-coding-systems
1939 (set-coding-priority categories)
1941 (set (car categories) (car 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."
1989 (set-overriding-fontspec-internal
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)))
1997 (let ((set-case-syntax-set-multibyte nil))
2009 (set-char-table-extra-slot case-table 0 nil)
2010 (set-char-table-extra-slot case-table 1 nil)
2011 (set-char-table-extra-slot case-table 2 nil)
2012 (set-standard-case-table case-table))
2016 (set-case-table (standard-case-table)))
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)
2063 (set-buffer standard-output)
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")
2100 (help-xref-button 0 'help-character-set (car l))
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)
2461 (defun set-locale-environment (&optional locale-name)
2463 This sets the language environment, the coding system priority,
2468 language, XX is a country, and CODE specifies a character set and
2475 variables LC_ALL, LC_CTYPE and LANG (the first one that is set).
2482 See also `locale-charset-language-names', `locale-language-names',
2537 ;; an explicit locale name, as their defaults are set from
2539 ;; want to set them to the same value as LC_CTYPE.
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
2583 ;; Set up for this character set. This is now the right way
2585 (set-language-environment language-name)
2591 (set-display-table-and-terminal-coding-system
2592 language-name coding-system))
2599 (car (get-language-info language-name
2601 (if kcs (set-keyboard-coding-system kcs))))
2604 (car (get-language-info language-name 'coding-priority))))
2610 ;; Fixme: perhaps prefer-coding-system should set this too.
2617 ;; selection-coding-system is already set in w32select.c.
2622 (set-keyboard-coding-system code-page-coding)
2623 (set-terminal-coding-system code-page-coding))))
2633 (set-terminal-coding-system 'utf-8)
2634 (set-keyboard-coding-system 'utf-8)))
2639 (paper (locale-info 'paper)))
2680 (set-charset-plist charset
2715 (defvar iso-2022-control-alist
2729 (function (lambda (x) (or (cdr (assq x iso-2022-control-alist))