From: Dave Love Date: Sun, 21 May 2000 17:48:48 +0000 (+0000) Subject: (detect-coding-with-priority): Use mapc. Remove redundant lambda. X-Git-Tag: emacs-pretest-21.0.90~3832 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cb7216a79a8a82cafaccf5506d187d3ac6ff4711;p=emacs.git (detect-coding-with-priority): Use mapc. Remove redundant lambda. --- 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 + + * 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 * 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)