Commit cb7216a7 authored by Dave Love's avatar Dave Love
Browse files

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

parent 45377ab4
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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment