diff options
| author | Juanma Barranquero | 2007-09-26 00:12:23 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2007-09-26 00:12:23 +0000 |
| commit | 9b97ee2e4732fc31187ee110394579eea9b0f422 (patch) | |
| tree | 22ef4a116c08bc7aef06a7222aefe9254655a0c2 | |
| parent | 56a1431a050a598a236480d92ce634e65fe0ca38 (diff) | |
| download | emacs-9b97ee2e4732fc31187ee110394579eea9b0f422.tar.gz emacs-9b97ee2e4732fc31187ee110394579eea9b0f422.zip | |
(easy-mmode-define-syntax): Use `mapc' rather than `mapcar'.
| -rw-r--r-- | lisp/emacs-lisp/easy-mmode.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 80d1625ec9b..8d4274d63a3 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -456,7 +456,7 @@ ARGS is a list of additional keyword arguments." | |||
| 456 | (let ((char (car cs)) | 456 | (let ((char (car cs)) |
| 457 | (syntax (cdr cs))) | 457 | (syntax (cdr cs))) |
| 458 | (if (sequencep char) | 458 | (if (sequencep char) |
| 459 | (mapcar (lambda (c) (modify-syntax-entry c syntax st)) char) | 459 | (mapc (lambda (c) (modify-syntax-entry c syntax st)) char) |
| 460 | (modify-syntax-entry char syntax st)))) | 460 | (modify-syntax-entry char syntax st)))) |
| 461 | (if parent (set-char-table-parent | 461 | (if parent (set-char-table-parent |
| 462 | st (if (symbolp parent) (symbol-value parent) parent))) | 462 | st (if (symbolp parent) (symbol-value parent) parent))) |