Mercurial > emacs

changeset 85222:12b40810304b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(ebnf-yac-token-table): Use mapc rather than mapcar.
author Glenn Morris <rgm@gnu.org>
date Sat, 13 Oct 2007 03:00:16 +0000
parents dab83b846830
children 455aadb38992
files lisp/progmodes/ebnf-yac.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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=?@[\\]^_`~")