# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190765969 0
# Node ID 90defdcad2cb5bfe8d4ed5efbb1b42a9eb7ebd8d
# Parent  696d139056188666f1fd2ee4a2a31eb5c458ad12
(describe-current-coding-system): Use `mapc' rather than `mapcar'.

diff -r 696d13905618 -r 90defdcad2cb lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Wed Sep 26 00:18:58 2007 +0000
+++ b/lisp/international/mule-diag.el	Wed Sep 26 00:19:29 2007 +0000
@@ -839,7 +839,7 @@
 	    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)