# HG changeset patch # User Richard M. Stallman # Date 1058055627 0 # Node ID b5a29d6f2851909e9495b6c183128e58392549f1 # Parent a39d64d1eb5044b01b6000efb8859ca71170189c (c-declare-lang-variables): Don't use mapcan. diff -r a39d64d1eb50 -r b5a29d6f2851 lisp/progmodes/cc-engine.el --- a/lisp/progmodes/cc-engine.el Sun Jul 13 00:19:56 2003 +0000 +++ b/lisp/progmodes/cc-engine.el Sun Jul 13 00:20:27 2003 +0000 @@ -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)