From: Dave Love Date: Wed, 3 Jul 2002 22:37:38 +0000 (+0000) Subject: (set-char-table-default): Make obsolete. X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~589 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=256d0feff9ae8c9e3f561186a3ef7d84c53a50b5;p=emacs.git (set-char-table-default): Make obsolete. --- 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)