Mercurial > emacs

comparison lisp/international/mule-util.el @ 29058:39b69af53e85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(detect-coding-with-priority): Use mapc. Remove redundant lambda.
author Dave Love <fx@gnu.org>
date Sun, 21 May 2000 17:45:42 +0000
parents e47fb07b39d4
children 4ed4a700358b
comparison
equal deleted inserted replaced
29057:9b29679df993 29058:39b69af53e85
268 `(unwind-protect 268 `(unwind-protect
269 (let* ((prio-list ,priority-list) 269 (let* ((prio-list ,priority-list)
270 (coding-category-list coding-category-list) 270 (coding-category-list coding-category-list)
271 ,@(mapcar (function (lambda (x) (list x x))) 271 ,@(mapcar (function (lambda (x) (list x x)))
272 coding-category-list)) 272 coding-category-list))
273 (mapcar (function (lambda (x) (set (car x) (cdr x)))) 273 (mapc (function (lambda (x) (set (car x) (cdr x))))
274 prio-list) 274 prio-list)
275 (set-coding-priority (mapcar (function (lambda (x) (car x))) 275 (set-coding-priority (mapcar #'car prio-list))
276 prio-list))
277 (detect-coding-region ,from ,to)) 276 (detect-coding-region ,from ,to))
278 ;; We must restore the internal database. 277 ;; We must restore the internal database.
279 (set-coding-priority coding-category-list) 278 (set-coding-priority coding-category-list)
280 (update-coding-systems-internal))) 279 (update-coding-systems-internal)))
281 280