# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1112059593 0
# Node ID a0bf3de65b02aca57198cdaac6a887741fa0d0af
# Parent  4b6f377ee2253519c378f0aa48d3fb6599d363fe
Add comments before all calls of update-coding-systems-internal.

diff -r 4b6f377ee225 -r a0bf3de65b02 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Tue Mar 29 01:15:30 2005 +0000
+++ b/lisp/international/mule-cmds.el	Tue Mar 29 01:26:33 2005 +0000
@@ -384,6 +384,7 @@
 	;; CODING-SYSTEM is no-conversion or undecided.
 	(error "Can't prefer the coding system `%s'" coding-system))
     (set coding-category (or base coding-system))
+    ;; Changing the binding of a coding category requires this call.
     (update-coding-systems-internal)
     (or (eq coding-category (car coding-category-list))
 	;; We must change the order.
@@ -1691,6 +1692,7 @@
      coding-category-ccl
      coding-category-binary))
 
+  ;; Changing the binding of a coding category requires this call.
   (update-coding-systems-internal)
 
   (set-default-coding-systems nil)
@@ -1904,6 +1906,7 @@
 	  (while priority
 	    (set (car categories) (car priority))
 	    (setq priority (cdr priority) categories (cdr categories)))
+	  ;; Changing the binding of a coding category requires this call.
 	  (update-coding-systems-internal)))))
 
 (defsubst princ-list (&rest args)