From 7de350175d5cef9faac20a05d908af62d9e7d9b9 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 3 Jan 2003 20:12:17 +0000 Subject: [PATCH] (ucs-unify-8859, ucs-fragment-8859): Call optimize-char-coding-system-table. --- lisp/international/ucs-tables.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/international/ucs-tables.el b/lisp/international/ucs-tables.el index 01ec4ec0873..9a14da44a01 100644 --- a/lisp/international/ucs-tables.el +++ b/lisp/international/ucs-tables.el @@ -1202,7 +1202,8 @@ everything on input operations." ;; Update the table of what encodes to what. (register-char-codings coding-system table) (coding-system-put coding-system 'translation-table-for-encode table))) - (add-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup))) + (add-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup)) + (optimize-char-coding-system-table)) (defun ucs-fragment-8859 (for-encode for-decode) "Undo the unification done by `ucs-unify-8859'. @@ -1265,7 +1266,8 @@ unification on input operations." (set-char-table-parent safe nil)) (coding-system-put coding-system 'translation-table-for-encode nil))) (optimize-char-coding-system-table) - (remove-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup))) + (remove-hook 'minibuffer-setup-hook 'ucs-minibuffer-setup)) + (optimize-char-coding-system-table)) (defun ucs-insert (arg) "Insert the Emacs character representation of the given Unicode. -- 2.39.2