278 |
buffer-file-coding-system))) |
buffer-file-coding-system))) |
279 |
(list (read-coding-system |
(list (read-coding-system |
280 |
(if default |
(if default |
281 |
(format "Coding system for following command (default, %s): " default) |
(format "Coding system for following command (default %s): " default) |
282 |
"Coding system for following command: ") |
"Coding system for following command: ") |
283 |
default)))) |
default)))) |
284 |
(let* ((keyseq (read-key-sequence |
(let* ((keyseq (read-key-sequence |
616 |
(interactive |
(interactive |
617 |
(list (let ((default (or buffer-file-coding-system 'us-ascii))) |
(list (let ((default (or buffer-file-coding-system 'us-ascii))) |
618 |
(read-coding-system |
(read-coding-system |
619 |
(format "Coding-system (default, %s): " default) |
(format "Coding-system (default %s): " default) |
620 |
default)))) |
default)))) |
621 |
(let ((pos (unencodable-char-position (point) (point-max) coding-system))) |
(let ((pos (unencodable-char-position (point) (point-max) coding-system))) |
622 |
(if pos |
(if pos |
1490 |
"Describe input method INPUT-METHOD." |
"Describe input method INPUT-METHOD." |
1491 |
(interactive |
(interactive |
1492 |
(list (read-input-method-name |
(list (read-input-method-name |
1493 |
"Describe input method (default, current choice): "))) |
"Describe input method (default current choice): "))) |
1494 |
(if (and input-method (symbolp input-method)) |
(if (and input-method (symbolp input-method)) |
1495 |
(setq input-method (symbol-name input-method))) |
(setq input-method (symbol-name input-method))) |
1496 |
(help-setup-xref (list #'describe-input-method |
(help-setup-xref (list #'describe-input-method |
1810 |
specifies the character set for the major languages of Western Europe." |
specifies the character set for the major languages of Western Europe." |
1811 |
(interactive (list (read-language-name |
(interactive (list (read-language-name |
1812 |
nil |
nil |
1813 |
"Set language environment (default, English): "))) |
"Set language environment (default English): "))) |
1814 |
(if language-name |
(if language-name |
1815 |
(if (symbolp language-name) |
(if (symbolp language-name) |
1816 |
(setq language-name (symbol-name language-name))) |
(setq language-name (symbol-name language-name))) |
1986 |
(interactive |
(interactive |
1987 |
(list (read-language-name |
(list (read-language-name |
1988 |
'documentation |
'documentation |
1989 |
"Describe language environment (default, current choice): "))) |
"Describe language environment (default current choice): "))) |
1990 |
(if (null language-name) |
(if (null language-name) |
1991 |
(setq language-name current-language-environment)) |
(setq language-name current-language-environment)) |
1992 |
(if (or (null language-name) |
(if (or (null language-name) |
2014 |
(l (copy-sequence input-method-alist))) |
(l (copy-sequence input-method-alist))) |
2015 |
(insert "Input methods") |
(insert "Input methods") |
2016 |
(when input-method |
(when input-method |
2017 |
(insert " (default, " input-method ")") |
(insert " (default " input-method ")") |
2018 |
(setq input-method (assoc input-method input-method-alist)) |
(setq input-method (assoc input-method input-method-alist)) |
2019 |
(setq l (cons input-method (delete input-method l)))) |
(setq l (cons input-method (delete input-method l)))) |
2020 |
(insert ":\n") |
(insert ":\n") |