Mercurial > emacs

changeset 49027:5634505237fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ucs-unify-8859, ucs-fragment-8859): Call optimize-char-coding-system-table.
author Dave Love <fx@gnu.org>
date Fri, 03 Jan 2003 20:12:17 +0000
parents 4ecab4bfe0cd
children 79573bfb2899
files lisp/international/ucs-tables.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/ucs-tables.el	Fri Jan 03 20:11:15 2003 +0000
+++ b/lisp/international/ucs-tables.el	Fri Jan 03 20:12:17 2003 +0000
@@ -1202,7 +1202,8 @@
 	;; 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 @@
 	  (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.