Mercurial > emacs
comparison lisp/progmodes/cc-engine.el @ 51888:b5a29d6f2851
(c-declare-lang-variables): Don't use mapcan.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 13 Jul 2003 00:20:27 +0000 |
parents | d508ffa43505 |
children | 668a21083a47 |
comparison
equal
deleted
inserted
replaced
51887:a39d64d1eb50 | 51888:b5a29d6f2851 |
---|---|
153 | 153 |
154 ;; Make declarations for all the `c-lang-defvar' variables in cc-langs. | 154 ;; Make declarations for all the `c-lang-defvar' variables in cc-langs. |
155 | 155 |
156 (defmacro c-declare-lang-variables () | 156 (defmacro c-declare-lang-variables () |
157 `(progn | 157 `(progn |
158 ,@(mapcan (lambda (init) | 158 ,@(apply 'nconc |
159 `(,(if (elt init 2) | 159 (mapcar (lambda (init) |
160 `(defvar ,(car init) nil ,(elt init 2)) | 160 `(,(if (elt init 2) |
161 `(defvar ,(car init) nil)) | 161 `(defvar ,(car init) nil ,(elt init 2)) |
162 (make-variable-buffer-local ',(car init)))) | 162 `(defvar ,(car init) nil)) |
163 (cdr c-lang-variable-inits)))) | 163 (make-variable-buffer-local ',(car init)))) |
164 (cdr c-lang-variable-inits))))) | |
164 (c-declare-lang-variables) | 165 (c-declare-lang-variables) |
165 | 166 |
166 | 167 |
167 ;;; Internal state variables. | 168 ;;; Internal state variables. |
168 | 169 |