From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 26 Sep 2007 00:19:29 +0000 (+0000)
Subject: (describe-current-coding-system): Use `mapc' rather than `mapcar'.
X-Git-Tag: emacs-pretest-23.0.90~10632
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1249c1d1739d98675de09ac85a5b3cf89be44887;p=emacs.git

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

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 21b0b3485f1..df01247cd01 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -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)