338 |
startup. |
startup. |
339 |
|
|
340 |
A coding system that requires automatic detection of text |
A coding system that requires automatic detection of text |
341 |
encoding (e.g. undecided, unix) can't be preferred. |
encoding (e.g. undecided, unix) can't be preferred.." |
|
|
|
|
See also `coding-category-list' and `coding-system-category'." |
|
342 |
(interactive "zPrefer coding system: ") |
(interactive "zPrefer coding system: ") |
343 |
(if (not (and coding-system (coding-system-p coding-system))) |
(if (not (and coding-system (coding-system-p coding-system))) |
344 |
(error "Invalid coding system `%s'" coding-system)) |
(error "Invalid coding system `%s'" coding-system)) |
432 |
element `undecided'." |
element `undecided'." |
433 |
(find-coding-systems-region string nil)) |
(find-coding-systems-region string nil)) |
434 |
|
|
435 |
|
;; Fixme: re-write |
436 |
(defun find-coding-systems-for-charsets (charsets) |
(defun find-coding-systems-for-charsets (charsets) |
437 |
"Return a list of proper coding systems to encode characters of CHARSETS. |
"Return a list of proper coding systems to encode characters of CHARSETS. |
438 |
CHARSETS is a list of character sets." |
CHARSETS is a list of character sets." |
1135 |
(when (interactive-p) |
(when (interactive-p) |
1136 |
(customize-mark-as-set 'default-input-method))))))) |
(customize-mark-as-set 'default-input-method))))))) |
1137 |
|
|
1138 |
|
(eval-when-compile (autoload 'help-buffer "help-mode")) |
1139 |
|
|
1140 |
(defun describe-input-method (input-method) |
(defun describe-input-method (input-method) |
1141 |
"Describe input method INPUT-METHOD." |
"Describe input method INPUT-METHOD." |
1142 |
(interactive |
(interactive |
1602 |
"' in mode line):\n\t" |
"' in mode line):\n\t" |
1603 |
(coding-system-doc-string (car l)) |
(coding-system-doc-string (car l)) |
1604 |
"\n") |
"\n") |
1605 |
(let ((aliases (coding-system-get (car l) |
(let ((aliases (coding-system-aliases (car l)))) |
|
'alias-coding-systems))) |
|
1606 |
(when aliases |
(when aliases |
1607 |
(insert "\t(alias:") |
(insert "\t(alias:") |
1608 |
(while aliases |
(while aliases |