From: Glenn Morris <rgm@gnu.org>
Date: Sat, 13 Oct 2007 03:00:16 +0000 (+0000)
Subject: (ebnf-yac-token-table): Use mapc rather than mapcar.
X-Git-Tag: emacs-pretest-23.0.90~10377
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d66fabc7fa9c284c7c97edbfff387bb6fe67d39;p=emacs.git

(ebnf-yac-token-table): Use mapc rather than mapcar.
---

diff --git a/lisp/progmodes/ebnf-yac.el b/lisp/progmodes/ebnf-yac.el
index c1b00bdddfc..14640649d02 100644
--- a/lisp/progmodes/ebnf-yac.el
+++ b/lisp/progmodes/ebnf-yac.el
@@ -273,12 +273,12 @@
   ;; control character & 8-bit character are set to `error'
   (let ((table (make-vector 256 'error)))
     ;; upper & lower case letters:
-    (mapcar
+    (mapc
      #'(lambda (char)
 	 (aset table char 'non-terminal))
      "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz")
     ;; printable characters:
-    (mapcar
+    (mapc
      #'(lambda (char)
 	 (aset table char 'character))
      "!#$&()*+-.0123456789=?@[\\]^_`~")