diff options
| author | Glenn Morris | 2007-10-13 02:59:56 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-10-13 02:59:56 +0000 |
| commit | a6d6a87a4550c1a39bccaa816a83d8b20ba99ea6 (patch) | |
| tree | 7518471217b56779c816da28ed3b640d0f20ee91 | |
| parent | 3d1ead4bca71af499a1d9970ab4adbd9ac7bc313 (diff) | |
| download | emacs-a6d6a87a4550c1a39bccaa816a83d8b20ba99ea6.tar.gz emacs-a6d6a87a4550c1a39bccaa816a83d8b20ba99ea6.zip | |
(ebnf-map-name, ebnf-dimensions): Use mapc rather than mapcar.
| -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." | |||
| 5004 | 5004 | ||
| 5005 | (defvar ebnf-map-name | 5005 | (defvar ebnf-map-name |
| 5006 | (let ((map (make-vector 256 ?\_))) | 5006 | (let ((map (make-vector 256 ?\_))) |
| 5007 | (mapcar #'(lambda (char) | 5007 | (mapc #'(lambda (char) |
| 5008 | (aset map char char)) | 5008 | (aset map char char)) |
| 5009 | (concat "#$%&+-.0123456789=?@~" | 5009 | (concat "#$%&+-.0123456789=?@~" |
| 5010 | "ABCDEFGHIJKLMNOPQRSTUVWXYZ" | 5010 | "ABCDEFGHIJKLMNOPQRSTUVWXYZ" |
| 5011 | "abcdefghijklmnopqrstuvwxyz")) | 5011 | "abcdefghijklmnopqrstuvwxyz")) |
| 5012 | map)) | 5012 | map)) |
| 5013 | 5013 | ||
| 5014 | 5014 | ||
| @@ -5553,7 +5553,7 @@ killed after process termination." | |||
| 5553 | (ebnf-log "(ebnf-dimensions tree)") | 5553 | (ebnf-log "(ebnf-dimensions tree)") |
| 5554 | (let ((ebnf-total (length tree)) | 5554 | (let ((ebnf-total (length tree)) |
| 5555 | (ebnf-nprod 0)) | 5555 | (ebnf-nprod 0)) |
| 5556 | (mapcar 'ebnf-production-dimension tree)) | 5556 | (mapc 'ebnf-production-dimension tree)) |
| 5557 | tree) | 5557 | tree) |
| 5558 | 5558 | ||
| 5559 | 5559 | ||