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