Mercurial > emacs

changeset 85221:dab83b846830

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ebnf-map-name, ebnf-dimensions): Use mapc rather than mapcar.
author Glenn Morris <rgm@gnu.org>
date Sat, 13 Oct 2007 02:59:56 +0000
parents 5d24da5e0deb
children 12b40810304b
files lisp/progmodes/ebnf2ps.el
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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)