mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

(describe-current-coding-system): Use mapc' rather than mapcar'.

Browse Source
This commit is contained in:
Juanma Barranquero 2007-09-26 00:19:29 +00:00
parent 5078a3282e
commit 1249c1d173
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/international/mule-diag.el
View File

@ -839,7 +839,7 @@ Priority order for recognizing coding systems when reading files:\n")
coding-system codings)
(while categories
(setq coding-system (symbol-value (car categories)))
(mapcar
(mapc
(lambda (x)
(if (and (not (eq x coding-system))
(coding-system-get x 'no-initial-designation)