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 |