Mercurial > emacs
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))) |