/[emacs]/emacs/lisp/international/mule.el
ViewVC logotype

Diff of /emacs/lisp/international/mule.el

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

revision 1.141.2.19 by fx, Thu Jun 27 21:40:53 2002 UTC revision 1.141.2.20 by fx, Wed Jul 3 22:37:38 2002 UTC
# Line 1442  character, say TO-ALT, FROM is also tran Line 1442  character, say TO-ALT, FROM is also tran
1442              (let ((to-alt (aref table to)))              (let ((to-alt (aref table to)))
1443                (if (and to-alt (> to-i 0))                (if (and to-alt (> to-i 0))
1444                    (setq to to-alt)))                    (setq to to-alt)))
1445                ;; Fixme: set-char-table-default is now a no-op.
1446              (if (> from-i 0)              (if (> from-i 0)
1447                  (set-char-table-default table from to)                  (set-char-table-default table from to)
1448                (aset table from to))                (aset table from to))
# Line 1540  the table in `translation-table-vector'. Line 1541  the table in `translation-table-vector'.
1541  (setq ignore-relative-composition  (setq ignore-relative-composition
1542        (make-char-table 'ignore-relative-composition))        (make-char-table 'ignore-relative-composition))
1543    
1544    (make-obsolete 'set-char-table-default
1545                   "Generic characters no longer exist" "22.1")
1546  ;;;  ;;;
1547  (provide 'mule)  (provide 'mule)
1548    

Legend:
Removed from v.1.141.2.19  
changed lines
  Added in v.1.141.2.20

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