/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.267 by monnier, Fri Mar 25 15:41:42 2005 UTC revision 1.268 by handa, Tue Mar 29 01:26:33 2005 UTC
# Line 384  See also `coding-category-list' and `cod Line 384  See also `coding-category-list' and `cod
384          ;; CODING-SYSTEM is no-conversion or undecided.          ;; CODING-SYSTEM is no-conversion or undecided.
385          (error "Can't prefer the coding system `%s'" coding-system))          (error "Can't prefer the coding system `%s'" coding-system))
386      (set coding-category (or base coding-system))      (set coding-category (or base coding-system))
387        ;; Changing the binding of a coding category requires this call.
388      (update-coding-systems-internal)      (update-coding-systems-internal)
389      (or (eq coding-category (car coding-category-list))      (or (eq coding-category (car coding-category-list))
390          ;; We must change the order.          ;; We must change the order.
# Line 1691  The default status is as follows: Line 1692  The default status is as follows:
1692       coding-category-ccl       coding-category-ccl
1693       coding-category-binary))       coding-category-binary))
1694    
1695      ;; Changing the binding of a coding category requires this call.
1696    (update-coding-systems-internal)    (update-coding-systems-internal)
1697    
1698    (set-default-coding-systems nil)    (set-default-coding-systems nil)
# Line 1904  of `buffer-file-coding-system' set by th Line 1906  of `buffer-file-coding-system' set by th
1906            (while priority            (while priority
1907              (set (car categories) (car priority))              (set (car categories) (car priority))
1908              (setq priority (cdr priority) categories (cdr categories)))              (setq priority (cdr priority) categories (cdr categories)))
1909              ;; Changing the binding of a coding category requires this call.
1910            (update-coding-systems-internal)))))            (update-coding-systems-internal)))))
1911    
1912  (defsubst princ-list (&rest args)  (defsubst princ-list (&rest args)

Legend:
Removed from v.1.267  
changed lines
  Added in v.1.268

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26