327 |
(mapc (function (lambda (x) (set (car x) (cdr x)))) |
(mapc (function (lambda (x) (set (car x) (cdr x)))) |
328 |
prio-list) |
prio-list) |
329 |
(set-coding-priority (mapcar #'car prio-list)) |
(set-coding-priority (mapcar #'car prio-list)) |
330 |
|
(update-coding-systems-internal) |
331 |
(detect-coding-region ,from ,to)) |
(detect-coding-region ,from ,to)) |
332 |
;; We must restore the internal database. |
;; We must restore the internal database. |
333 |
(set-coding-priority coding-category-list) |
(set-coding-priority coding-category-list) |