Mercurial > emacs

changeset 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 9b29679df993
children 52ff4adda042
files lisp/international/mule-util.el
diffstat 1 files changed, 3 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-util.el	Sun May 21 17:41:51 2000 +0000
+++ b/lisp/international/mule-util.el	Sun May 21 17:45:42 2000 +0000
@@ -270,10 +270,9 @@
 	      (coding-category-list coding-category-list)
 	      ,@(mapcar (function (lambda (x) (list x x)))
 			coding-category-list))
-	 (mapcar (function (lambda (x) (set (car x) (cdr x))))
-		 prio-list)
-	 (set-coding-priority (mapcar (function (lambda (x) (car x)))
-				      prio-list))
+	 (mapc (function (lambda (x) (set (car x) (cdr x))))
+	       prio-list)
+	 (set-coding-priority (mapcar #'car prio-list))
 	 (detect-coding-region ,from ,to))
      ;; We must restore the internal database.
      (set-coding-priority coding-category-list)