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): ") |