/[emacs]/emacs/lisp/progmodes/cmacexp.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/cmacexp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by lektu, Tue Aug 30 10:36:40 2005 UTC revision 1.45 by deego, Sun Sep 18 12:31:27 2005 UTC
# Line 346  Optional arg DISPLAY non-nil means show Line 346  Optional arg DISPLAY non-nil means show
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")

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26