Mercurial > emacs
comparison lisp/international/ucs-tables.el @ 41982:21b646d266aa
(unify-8859-on-encoding-mode)
(unify-8859-on-decoding-mode): Swap the code in their bodies. Add
:version.
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 12 Dec 2001 19:17:44 +0000 |
parents | bf766c46ee9d |
children | 44b4a14ae7fc |
comparison
equal
deleted
inserted
replaced
41981:e839854f133e | 41982:21b646d266aa |
---|---|
1274 can cope with separate Latin-1 and Latin-9 representations of e-acute. | 1274 can cope with separate Latin-1 and Latin-9 representations of e-acute. |
1275 | 1275 |
1276 See also command `unify-8859-on-decoding-mode'." | 1276 See also command `unify-8859-on-decoding-mode'." |
1277 :group 'mule | 1277 :group 'mule |
1278 :global t | 1278 :global t |
1279 :version 21.3 ; who knows...? | |
1279 :init-value nil | 1280 :init-value nil |
1280 (if unify-8859-on-encoding-mode | 1281 (if unify-8859-on-encoding-mode |
1281 (set-char-table-parent standard-translation-table-for-decode | 1282 (ucs-unify-8859 t) |
1282 ucs-mule-8859-to-mule-unicode) | 1283 (ucs-fragment-8859 t))) |
1283 (set-char-table-parent standard-translation-table-for-decode nil))) | |
1284 | 1284 |
1285 ;;;###autoload | 1285 ;;;###autoload |
1286 (define-minor-mode unify-8859-on-decoding-mode | 1286 (define-minor-mode unify-8859-on-decoding-mode |
1287 "Set up translation tables for unifying ISO 8859 characters on decoding. | 1287 "Set up translation table for unifying ISO 8859 characters on decoding. |
1288 On decoding, i.e. input operations, non-ASCII characters from the | 1288 On decoding -- i.e. input operations -- non-ASCII characters from the |
1289 built-in ISO 8859 charsets are unified by mapping them into the | 1289 built-in ISO 8859 charsets are unified by mapping them into the |
1290 `iso-latin-1' and `mule-unicode-0100-24ff' charsets. | 1290 `iso-latin-1' and `mule-unicode-0100-24ff' charsets. |
1291 | |
1292 This sets the parent of `standard-translation-table-for-decode'. | |
1291 | 1293 |
1292 See also command `unify-8859-on-encoding-mode'." | 1294 See also command `unify-8859-on-encoding-mode'." |
1293 :group 'mule | 1295 :group 'mule |
1294 :global t | 1296 :global t |
1297 :version 21.3 ; who knows...? | |
1295 :init-value nil | 1298 :init-value nil |
1296 (if unify-8859-on-decoding-mode | 1299 (if unify-8859-on-decoding-mode |
1297 (ucs-unify-8859 t) | 1300 (set-char-table-parent standard-translation-table-for-decode |
1298 (ucs-fragment-8859 t))) | 1301 ucs-mule-8859-to-mule-unicode) |
1302 (set-char-table-parent standard-translation-table-for-decode nil))) | |
1299 | 1303 |
1300 (defun ucs-insert (arg) | 1304 (defun ucs-insert (arg) |
1301 "Insert the Emacs character representation of the given Unicode. | 1305 "Insert the Emacs character representation of the given Unicode. |
1302 Interactively, prompts for a hex string giving the code." | 1306 Interactively, prompts for a hex string giving the code." |
1303 (interactive "sUnicode (hex): ") | 1307 (interactive "sUnicode (hex): ") |