1276 |
See also command `unify-8859-on-decoding-mode'." |
See also command `unify-8859-on-decoding-mode'." |
1277 |
:group 'mule |
:group 'mule |
1278 |
:global t |
:global t |
1279 |
|
:version 21.3 ; who knows...? |
1280 |
:init-value nil |
:init-value nil |
1281 |
(if unify-8859-on-encoding-mode |
(if unify-8859-on-encoding-mode |
1282 |
(set-char-table-parent standard-translation-table-for-decode |
(ucs-unify-8859 t) |
1283 |
ucs-mule-8859-to-mule-unicode) |
(ucs-fragment-8859 t))) |
|
(set-char-table-parent standard-translation-table-for-decode nil))) |
|
1284 |
|
|
1285 |
;;;###autoload |
;;;###autoload |
1286 |
(define-minor-mode unify-8859-on-decoding-mode |
(define-minor-mode unify-8859-on-decoding-mode |
1287 |
"Set up translation tables for unifying ISO 8859 characters on decoding. |
"Set up translation table for unifying ISO 8859 characters on decoding. |
1288 |
On decoding, i.e. input operations, non-ASCII characters from the |
On decoding -- i.e. input operations -- non-ASCII characters from the |
1289 |
built-in ISO 8859 charsets are unified by mapping them into the |
built-in ISO 8859 charsets are unified by mapping them into the |
1290 |
`iso-latin-1' and `mule-unicode-0100-24ff' charsets. |
`iso-latin-1' and `mule-unicode-0100-24ff' charsets. |
1291 |
|
|
1292 |
|
This sets the parent of `standard-translation-table-for-decode'. |
1293 |
|
|
1294 |
See also command `unify-8859-on-encoding-mode'." |
See also command `unify-8859-on-encoding-mode'." |
1295 |
:group 'mule |
:group 'mule |
1296 |
:global t |
:global t |
1297 |
|
:version 21.3 ; who knows...? |
1298 |
:init-value nil |
:init-value nil |
1299 |
(if unify-8859-on-decoding-mode |
(if unify-8859-on-decoding-mode |
1300 |
(ucs-unify-8859 t) |
(set-char-table-parent standard-translation-table-for-decode |
1301 |
(ucs-fragment-8859 t))) |
ucs-mule-8859-to-mule-unicode) |
1302 |
|
(set-char-table-parent standard-translation-table-for-decode nil))) |
1303 |
|
|
1304 |
(defun ucs-insert (arg) |
(defun ucs-insert (arg) |
1305 |
"Insert the Emacs character representation of the given Unicode. |
"Insert the Emacs character representation of the given Unicode. |