275 |
cmd (key-binding keyseq t)) |
cmd (key-binding keyseq t)) |
276 |
(not (eq cmd 'universal-argument-other-key))) |
(not (eq cmd 'universal-argument-other-key))) |
277 |
(let ((current-prefix-arg prefix-arg) |
(let ((current-prefix-arg prefix-arg) |
278 |
;; Have to bind `last-command-char' here so that |
;; Have to bind `last-command-char' here so that |
279 |
;; `digit-argument', for isntance, can compute the |
;; `digit-argument', for isntance, can compute the |
280 |
;; prefix arg. |
;; prefix arg. |
281 |
(last-command-char (aref keyseq 0))) |
(last-command-char (aref keyseq 0))) |
303 |
o coding system of a newly created buffer |
o coding system of a newly created buffer |
304 |
o default coding system for subprocess I/O |
o default coding system for subprocess I/O |
305 |
This also sets the following values: |
This also sets the following values: |
306 |
o default value used as file-name-coding-system for converting file names. |
o default value used as `file-name-coding-system' for converting file names. |
307 |
o default value for the command `set-terminal-coding-system' (not on MSDOS) |
o default value for the command `set-terminal-coding-system' (not on MSDOS) |
308 |
o default value for the command `set-keyboard-coding-system'." |
o default value for the command `set-keyboard-coding-system'." |
309 |
(check-coding-system coding-system) |
(check-coding-system coding-system) |
412 |
|
|
413 |
(defun find-coding-systems-region (from to) |
(defun find-coding-systems-region (from to) |
414 |
"Return a list of proper coding systems to encode a text between FROM and TO. |
"Return a list of proper coding systems to encode a text between FROM and TO. |
415 |
|
If FROM is a string, find coding systems in that instead of the buffer. |
416 |
All coding systems in the list can safely encode any multibyte characters |
All coding systems in the list can safely encode any multibyte characters |
417 |
in the text. |
in the text. |
418 |
|
|
728 |
is meant for, and how to use it. |
is meant for, and how to use it. |
729 |
charset value is a list of the character sets used by this |
charset value is a list of the character sets used by this |
730 |
language environment. |
language environment. |
731 |
sample-text value is one line of text, |
sample-text value is an expression which is evalled to generate |
732 |
written using those character sets, |
a line of text written using characters appropriate |
733 |
appropriate for this language environment. |
for this language environment. |
734 |
setup-function value is a function to call to switch to this |
setup-function value is a function to call to switch to this |
735 |
language environment. |
language environment. |
736 |
exit-function value is a function to call to leave this |
exit-function value is a function to call to leave this |
807 |
`language-info-alist' for the meanings of KEY and INFO. |
`language-info-alist' for the meanings of KEY and INFO. |
808 |
|
|
809 |
Optional arg PARENTS is a list of parent menu names; it specifies |
Optional arg PARENTS is a list of parent menu names; it specifies |
810 |
where to put this language environment in the |
where to put this language environment in the |
811 |
Describe Language Environment and Set Language Environment menus. |
Describe Language Environment and Set Language Environment menus. |
812 |
For example, (\"European\") means to put this language environment |
For example, (\"European\") means to put this language environment |
813 |
in the European submenu in each of those two menus." |
in the European submenu in each of those two menus." |
874 |
name))) |
name))) |
875 |
|
|
876 |
;;; Multilingual input methods. |
;;; Multilingual input methods. |
877 |
(defgroup leim nil |
(defgroup leim nil |
878 |
"LEIM: Libraries of Emacs Input Methods." |
"LEIM: Libraries of Emacs Input Methods." |
879 |
:group 'mule) |
:group 'mule) |
880 |
|
|
1127 |
default t)) |
default t)) |
1128 |
default)) |
default)) |
1129 |
(unless default-input-method |
(unless default-input-method |
1130 |
(prog1 |
(prog1 |
1131 |
(setq default-input-method current-input-method) |
(setq default-input-method current-input-method) |
1132 |
(when (interactive-p) |
(when (interactive-p) |
1133 |
(customize-mark-as-set 'default-input-method))))))) |
(customize-mark-as-set 'default-input-method))))))) |
1154 |
(activate-input-method input-method) |
(activate-input-method input-method) |
1155 |
(describe-current-input-method)) |
(describe-current-input-method)) |
1156 |
(activate-input-method current)) |
(activate-input-method current)) |
1157 |
(error |
(error |
1158 |
(activate-input-method current) |
(activate-input-method current) |
1159 |
(help-setup-xref (list #'describe-input-method input-method) |
(help-setup-xref (list #'describe-input-method input-method) |
1160 |
(interactive-p)) |
(interactive-p)) |
1220 |
the minibuffer. |
the minibuffer. |
1221 |
|
|
1222 |
See also the variable `input-method-highlight-flag'." |
See also the variable `input-method-highlight-flag'." |
1223 |
:type '(choice (const t) (const nil) (const complex-only) (const default)) |
:type '(choice (const :tag "Always" t) (const :tag "Never" nil) |
1224 |
|
(const complex-only) (const default)) |
1225 |
:group 'mule) |
:group 'mule) |
1226 |
|
|
1227 |
(defcustom input-method-highlight-flag t |
(defcustom input-method-highlight-flag t |
1326 |
|
|
1327 |
The default status is as follows: |
The default status is as follows: |
1328 |
|
|
1329 |
The default value of buffer-file-coding-system is nil. |
The default value of `buffer-file-coding-system' is nil. |
1330 |
The default coding system for process I/O is nil. |
The default coding system for process I/O is nil. |
1331 |
The default value for the command `set-terminal-coding-system' is nil. |
The default value for the command `set-terminal-coding-system' is nil. |
1332 |
The default value for the command `set-keyboard-coding-system' is nil. |
The default value for the command `set-keyboard-coding-system' is nil. |
1502 |
(setq default-sendmail-coding-system default-coding) |
(setq default-sendmail-coding-system default-coding) |
1503 |
(apply 'set-coding-system-priority priority)))) |
(apply 'set-coding-system-priority priority)))) |
1504 |
|
|
|
;; Print all arguments with `princ', then print "\n". |
|
1505 |
(defsubst princ-list (&rest args) |
(defsubst princ-list (&rest args) |
1506 |
|
"Print all arguments with `princ', then print \"\n\"." |
1507 |
(while args (princ (car args)) (setq args (cdr args))) |
(while args (princ (car args)) (setq args (cdr args))) |
1508 |
(princ "\n")) |
(princ "\n")) |
1509 |
|
|
1870 |
For example, the locale name \"ja_JP.EUC\" might name a locale |
For example, the locale name \"ja_JP.EUC\" might name a locale |
1871 |
for Japanese in Japan using the `japanese-iso-8bit' coding-system. |
for Japanese in Japan using the `japanese-iso-8bit' coding-system. |
1872 |
|
|
1873 |
If LOCALE-NAME is nil, its value is looked up via `locale-codeset' |
If LOCALE-NAME is nil, its value is taken from the environment |
1874 |
using nl_langinfo(3), if that function is available in the system's |
variables LC_ALL, LC_CTYPE and LANG (the first one that is set). |
|
library, otherwise it is simply taken from the environment variables |
|
|
LC_ALL, LC_CTYPE and LANG \(the first one that is set). |
|
1875 |
|
|
1876 |
The locale names supported by your system can typically be found in a |
The locale names supported by your system can typically be found in a |
1877 |
directory named `/usr/share/locale' or `/usr/lib/locale'. LOCALE-NAME |
directory named `/usr/share/locale' or `/usr/lib/locale'. LOCALE-NAME |
1898 |
(setq files (cdr files))) |
(setq files (cdr files))) |
1899 |
(car files))) |
(car files))) |
1900 |
|
|
1901 |
(let ((locale (or locale-name (locale-codeset)))) |
(let ((locale locale-name)) |
1902 |
|
|
1903 |
(unless locale |
(unless locale |
1904 |
;; Use the first of these three environment variables |
;; Use the first of these three environment variables |