(detect-coding-with-priority): Use mapc. Remove redundant lambda.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3abe1253ce69c8f9211edb2c52f87d638dacd10..6f19f4141d3dcc2760cbd9e6081e04f5b8bf5b76 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,23 @@
+2000-05-21  Dave Love  <fx@gnu.org>
+
+       * international/mule-util.el (detect-coding-with-priority): Use
+       mapc.  Remove redundant lambda.
+
+       * international/mule-diag.el (list-non-iso-charset-chars)
+       (describe-fontset): Remove redundant lambda.
+
+       * emulation/crisp.el (brief-mode): New alias.
+
+       * emacs-lisp/ring.el (ring-elements): New function.
+
+       * emacs-lisp/easymenu.el (easy-menu-create-menu)
+       (easy-menu-do-add-item): Use keywordp.
+
+       * emacs-lisp/byte-opt.el: Update side-effect free function lists.
+
+       * replace.el: Doc and error message fixes.
+       (replace-highlight): Use facep, not internal-find-face.
+
 2000-05-20  Stefan Monnier  <monnier@cs.yale.edu>
 
        * international/ccl.el (ccl-compile-map-multiple): Don't quote lambda.

diff --git a/lisp/international/mule-util.el b/lisp/international/mule-util.el
index 63f7f16ad74871656657a5dc89a4c5b0bd7ba00b..a7a53e5a3ed935f8dc0b24e0771679ffffefa7cd 100644 (file)
--- a/lisp/international/mule-util.el
+++ b/lisp/international/mule-util.el
@@ -270,10 +270,9 @@ coding systems ordered by priority."
              (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)