diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-10-13 02:59:56 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-10-13 02:59:56 +0000 |
| commit | a6d6a87a4550c1a39bccaa816a83d8b20ba99ea6 (patch) | |
| tree | 7518471217b56779c816da28ed3b640d0f20ee91 /lisp/progmodes/ebnf2ps.el | |
| parent | 3d1ead4bca71af499a1d9970ab4adbd9ac7bc313 (diff) | |
| download | emacs-a6d6a87a4550c1a39bccaa816a83d8b20ba99ea6.tar.gz | |
(ebnf-map-name, ebnf-dimensions): Use mapc rather than mapcar.
Diffstat (limited to 'lisp/progmodes/ebnf2ps.el')
| -rw-r--r-- | lisp/progmodes/ebnf2ps.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el index be25293c643..66aefe66045 100644 --- a/lisp/progmodes/ebnf2ps.el +++ b/lisp/progmodes/ebnf2ps.el @@ -5004,11 +5004,11 @@ killed after process termination." (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 @@ killed after process termination." (ebnf-log "(ebnf-dimensions tree)") (let ((ebnf-total (length tree)) (ebnf-nprod 0)) - (mapcar 'ebnf-production-dimension tree)) + (mapc 'ebnf-production-dimension tree)) tree) |