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

2 files changed, 23 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e3abe1253ce..6f19f4141d3 100644
--- 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 63f7f16ad74..a7a53e5a3ed 100644
--- 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)