From 5d66fabc7fa9c284c7c97edbfff387bb6fe67d39 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 13 Oct 2007 03:00:16 +0000 Subject: [PATCH] (ebnf-yac-token-table): Use mapc rather than mapcar. --- lisp/progmodes/ebnf-yac.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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=?@[\\]^_`~") -- 2.39.2