155 |
|
|
156 |
(defmacro c-declare-lang-variables () |
(defmacro c-declare-lang-variables () |
157 |
`(progn |
`(progn |
158 |
,@(mapcan (lambda (init) |
,@(apply 'nconc |
159 |
`(,(if (elt init 2) |
(mapcar (lambda (init) |
160 |
`(defvar ,(car init) nil ,(elt init 2)) |
`(,(if (elt init 2) |
161 |
`(defvar ,(car init) nil)) |
`(defvar ,(car init) nil ,(elt init 2)) |
162 |
(make-variable-buffer-local ',(car init)))) |
`(defvar ,(car init) nil)) |
163 |
(cdr c-lang-variable-inits)))) |
(make-variable-buffer-local ',(car init)))) |
164 |
|
(cdr c-lang-variable-inits))))) |
165 |
(c-declare-lang-variables) |
(c-declare-lang-variables) |
166 |
|
|
167 |
|
|