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. |
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) |
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) |