# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 958931142 0
# Node ID 39b69af53e85d74c1a1986c1c4bb7566c0b3ef18
# Parent  9b29679df9935f350557ad539fe8cf7fe1bdf97e
(detect-coding-with-priority): Use mapc.  Remove redundant lambda.

diff -r 9b29679df993 -r 39b69af53e85 lisp/international/mule-util.el
--- 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)