346 |
(format "\n#line %d \"%s\"\n" startlinenum filename))) |
(format "\n#line %d \"%s\"\n" startlinenum filename))) |
347 |
|
|
348 |
;; Call the preprocessor. |
;; Call the preprocessor. |
349 |
(if display (message mymsg)) |
(if display (message "%s" mymsg)) |
350 |
(setq exit-status |
(setq exit-status |
351 |
(call-process-region 1 (point-max) |
(call-process-region 1 (point-max) |
352 |
shell-file-name |
shell-file-name |
353 |
t (list t tempname) nil "-c" |
t (list t tempname) nil "-c" |
354 |
cppcommand)) |
cppcommand)) |
355 |
(if display (message (concat mymsg "done"))) |
(if display (message "%s" (concat mymsg "done"))) |
356 |
(if (= (buffer-size) 0) |
(if (= (buffer-size) 0) |
357 |
;; Empty output is normal after a fatal error. |
;; Empty output is normal after a fatal error. |
358 |
(insert "\nPreprocessor produced no output\n") |
(insert "\nPreprocessor produced no output\n") |