# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192244396 0
# Node ID dab83b84683040f37d74e6acc1a8f0c2be812242
# Parent  5d24da5e0deb776fb6c06cf927e0ef0d7c1811c6
(ebnf-map-name, ebnf-dimensions): Use mapc rather than mapcar.

diff -r 5d24da5e0deb -r dab83b846830 lisp/progmodes/ebnf2ps.el
--- a/lisp/progmodes/ebnf2ps.el	Sat Oct 13 02:59:21 2007 +0000
+++ b/lisp/progmodes/ebnf2ps.el	Sat Oct 13 02:59:56 2007 +0000
@@ -5004,11 +5004,11 @@
 
 (defvar ebnf-map-name
   (let ((map (make-vector 256 ?\_)))
-    (mapcar #'(lambda (char)
-		(aset map char char))
-	    (concat "#$%&+-.0123456789=?@~"
-		    "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
-		    "abcdefghijklmnopqrstuvwxyz"))
+    (mapc #'(lambda (char)
+	      (aset map char char))
+	  (concat "#$%&+-.0123456789=?@~"
+		  "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+		  "abcdefghijklmnopqrstuvwxyz"))
     map))
 
 
@@ -5553,7 +5553,7 @@
   (ebnf-log "(ebnf-dimensions tree)")
   (let ((ebnf-total (length tree))
 	(ebnf-nprod 0))
-    (mapcar 'ebnf-production-dimension tree))
+    (mapc 'ebnf-production-dimension tree))
   tree)