432 |
enable-multibyte-characters |
enable-multibyte-characters |
433 |
(featurep 'mule))) |
(featurep 'mule))) |
434 |
|
|
|
(defun mm-iso-8859-x-to-15-region (&optional b e) |
|
|
(if (fboundp 'char-charset) |
|
|
(let (charset item c inconvertible) |
|
|
(save-restriction |
|
|
(if e (narrow-to-region b e)) |
|
|
(goto-char (point-min)) |
|
|
(skip-chars-forward "\0-\177") |
|
|
(while (not (eobp)) |
|
|
(cond |
|
|
((not (setq item (assq (char-charset (setq c (char-after))) |
|
|
mm-iso-8859-x-to-15-table))) |
|
|
(forward-char)) |
|
|
((memq c (cdr (cdr item))) |
|
|
(setq inconvertible t) |
|
|
(forward-char)) |
|
|
(t |
|
|
(insert (prog1 (+ c (car (cdr item))) (delete-char 1)))) |
|
|
(skip-chars-forward "\0-\177")))) |
|
|
(not inconvertible)))) |
|
|
|
|
435 |
(defun mm-sort-coding-systems-predicate (a b) |
(defun mm-sort-coding-systems-predicate (a b) |
436 |
(> (length (memq a mm-coding-system-priorities)) |
(> (length (memq a mm-coding-system-priorities)) |
437 |
(length (memq b mm-coding-system-priorities)))) |
(length (memq b mm-coding-system-priorities)))) |