2443 |
(coding-system-put cs 'translation-table-for-input cs))))) |
(coding-system-put cs 'translation-table-for-input cs))))) |
2444 |
(optimize-char-table ucs-mule-to-mule-unicode) |
(optimize-char-table ucs-mule-to-mule-unicode) |
2445 |
(dolist (c safe-charsets) |
(dolist (c safe-charsets) |
2446 |
(aset table (make-char c) t)) |
(aset table (make-char c) t)))) |
|
(coding-system-put 'mule-utf-8 'safe-charsets |
|
|
(append (coding-system-get 'mule-utf-8 'safe-charsets) |
|
|
safe-charsets)) |
|
|
(register-char-codings 'mule-utf-8 table))) |
|
2447 |
|
|
2448 |
(defvar translation-table-for-input (make-translation-table)) |
(defvar translation-table-for-input (make-translation-table)) |
2449 |
|
|