From 256d0feff9ae8c9e3f561186a3ef7d84c53a50b5 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 3 Jul 2002 22:37:38 +0000 Subject: [PATCH] (set-char-table-default): Make obsolete. --- lisp/international/mule.el | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 42112a216e6..2150870aa39 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1442,6 +1442,7 @@ character, say TO-ALT, FROM is also translated to TO-ALT." (let ((to-alt (aref table to))) (if (and to-alt (> to-i 0)) (setq to to-alt))) + ;; Fixme: set-char-table-default is now a no-op. (if (> from-i 0) (set-char-table-default table from to) (aset table from to)) @@ -1540,6 +1541,8 @@ the table in `translation-table-vector'." (setq ignore-relative-composition (make-char-table 'ignore-relative-composition)) +(make-obsolete 'set-char-table-default + "Generic characters no longer exist" "22.1") ;;; (provide 'mule) -- 2.39.5