From: Glenn Morris <rgm@gnu.org>
Date: Sat, 13 Oct 2007 02:59:56 +0000 (+0000)
Subject: (ebnf-map-name, ebnf-dimensions): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10378
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a6d6a87a4550c1a39bccaa816a83d8b20ba99ea6;p=emacs.git

(ebnf-map-name, ebnf-dimensions): Use mapc rather than mapcar.
---

diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index be25293c643..66aefe66045 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -5004,11 +5004,11 @@ killed after process termination."
 
 (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 @@ killed after process termination."
   (ebnf-log "(ebnf-dimensions tree)")
   (let ((ebnf-total (length tree))
 	(ebnf-nprod 0))
-    (mapcar 'ebnf-production-dimension tree))
+    (mapc 'ebnf-production-dimension tree))
   tree)