/[emacs]/emacs/lisp/international/ucs-tables.el
ViewVC logotype

Diff of /emacs/lisp/international/ucs-tables.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by eliz, Fri Dec 7 17:39:26 2001 UTC revision 1.5 by fx, Wed Dec 12 19:17:44 2001 UTC
# Line 1276  can cope with separate Latin-1 and Latin Line 1276  can cope with separate Latin-1 and Latin
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.

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26