[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Kenichi Handa]

Index: emacs/lisp/international/mule-cmds.el
diff -c emacs/lisp/international/mule-cmds.el:1.267 
emacs/lisp/international/mule-cmds.el:1.268
*** emacs/lisp/international/mule-cmds.el:1.267 Fri Mar 25 15:41:42 2005
--- emacs/lisp/international/mule-cmds.el       Tue Mar 29 01:26:33 2005
***************
*** 384,389 ****
--- 384,390 ----
        ;; 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,1696 ****
--- 1692,1698 ----
       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,1909 ****
--- 1906,1912 ----
          (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)