comparison lisp/international/mule-util.el @ 61065:c40f1d439bcc

(detect-coding-with-priority): Add comment before the call of update-coding-systems-internal.
author Kenichi Handa <handa@m17n.org>
date Tue, 29 Mar 2005 01:27:40 +0000
parents a3bf037cdd99
children f69e81bae6ca
comparison
equal deleted inserted replaced
61064:a0bf3de65b02 61065:c40f1d439bcc
325 ,@(mapcar (function (lambda (x) (list x x))) 325 ,@(mapcar (function (lambda (x) (list x x)))
326 coding-category-list)) 326 coding-category-list))
327 (mapc (function (lambda (x) (set (car x) (cdr x)))) 327 (mapc (function (lambda (x) (set (car x) (cdr x))))
328 prio-list) 328 prio-list)
329 (set-coding-priority (mapcar #'car prio-list)) 329 (set-coding-priority (mapcar #'car prio-list))
330 ;; Changing the binding of a coding category requires this call.
330 (update-coding-systems-internal) 331 (update-coding-systems-internal)
331 (detect-coding-region ,from ,to)) 332 (detect-coding-region ,from ,to))
332 ;; We must restore the internal database. 333 ;; We must restore the internal database.
333 (set-coding-priority coding-category-list) 334 (set-coding-priority coding-category-list)
334 (update-coding-systems-internal))) 335 (update-coding-systems-internal)))