# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1192244416 0
# Node ID 12b40810304b819c55305d5dee0ab4edeaffcf28
# Parent  dab83b84683040f37d74e6acc1a8f0c2be812242
(ebnf-yac-token-table): Use mapc rather than mapcar.

diff -r dab83b846830 -r 12b40810304b lisp/progmodes/ebnf-yac.el
--- a/lisp/progmodes/ebnf-yac.el	Sat Oct 13 02:59:56 2007 +0000
+++ b/lisp/progmodes/ebnf-yac.el	Sat Oct 13 03:00:16 2007 +0000
@@ -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=?@[\\]^_`~")