comparison lisp/international/ucs-tables.el @ 45387:aee6ae77d23b

(unify-8859-on-encoding-mode) (unify-8859-on-decoding-mode): Change :version attributes to strings.
author Markus Rost <rost@math.uni-bielefeld.de>
date Mon, 20 May 2002 03:08:24 +0000
parents a0eaee1a642d
children a7f933a7b003
comparison
equal deleted inserted replaced
45386:453e599fd7f8 45387:aee6ae77d23b
1277 can cope with separate Latin-1 and Latin-9 representations of e-acute. 1277 can cope with separate Latin-1 and Latin-9 representations of e-acute.
1278 1278
1279 See also command `unify-8859-on-decoding-mode'." 1279 See also command `unify-8859-on-decoding-mode'."
1280 :group 'mule 1280 :group 'mule
1281 :global t 1281 :global t
1282 :version 21.3 ; who knows...? 1282 :version "21.3" ; who knows...?
1283 :init-value nil 1283 :init-value nil
1284 (if unify-8859-on-encoding-mode 1284 (if unify-8859-on-encoding-mode
1285 (ucs-unify-8859 t) 1285 (ucs-unify-8859 t)
1286 (ucs-fragment-8859 t))) 1286 (ucs-fragment-8859 t)))
1287 1287
1296 methods produce unified characters. 1296 methods produce unified characters.
1297 1297
1298 See also command `unify-8859-on-encoding-mode'." 1298 See also command `unify-8859-on-encoding-mode'."
1299 :group 'mule 1299 :group 'mule
1300 :global t 1300 :global t
1301 :version 21.3 ; who knows...? 1301 :version "21.3" ; who knows...?
1302 :init-value nil 1302 :init-value nil
1303 (let ((table (if unify-8859-on-decoding-mode ucs-mule-8859-to-mule-unicode))) 1303 (let ((table (if unify-8859-on-decoding-mode ucs-mule-8859-to-mule-unicode)))
1304 (set-char-table-parent standard-translation-table-for-decode table) 1304 (set-char-table-parent standard-translation-table-for-decode table)
1305 (setq-default translation-table-for-input table))) 1305 (setq-default translation-table-for-input table)))
1306 1306