diff options
| author | Richard M. Stallman <rms@gnu.org> | 2003-07-13 00:20:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2003-07-13 00:20:39 +0000 |
| commit | 485fe977a0675ce3fad9b14ce187341d40d684f8 (patch) | |
| tree | d83a88f5d2e1859ae5134cf5669392c9e722de6f /lisp/progmodes | |
| parent | 19c5fddbc3f8a8da51fbf2fb78fae04adebdae86 (diff) | |
| download | emacs-485fe977a0675ce3fad9b14ce187341d40d684f8.tar.gz | |
(c-declare-lang-variables): Don't use mapcan.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/cc-engine.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 7d0d146a744..dd1e1d62974 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -155,12 +155,13 @@ (defmacro c-declare-lang-variables () `(progn - ,@(mapcan (lambda (init) - `(,(if (elt init 2) - `(defvar ,(car init) nil ,(elt init 2)) - `(defvar ,(car init) nil)) - (make-variable-buffer-local ',(car init)))) - (cdr c-lang-variable-inits)))) + ,@(apply 'nconc + (mapcar (lambda (init) + `(,(if (elt init 2) + `(defvar ,(car init) nil ,(elt init 2)) + `(defvar ,(car init) nil)) + (make-variable-buffer-local ',(car init)))) + (cdr c-lang-variable-inits))))) (c-declare-lang-variables) |