emacs: lisp/progmodes/cmacexp.el comparison

(c-macro-expansion): If the CPP output is empty, just show error messages.

author	Richard M. Stallman <rms@gnu.org>
date	Sat, 13 Aug 1994 23:55:09 +0000
parents	1a837ee93535
children	ccfc2ca24a90

comparison

equal deleted inserted replaced

-:b97057eb17d3
+:fcddf3261917
 ;;; cmacexp.el --- expand C macros in a region
 ;; Copyright (C) 1992, 1994 Free Software Foundation, Inc.
 ;; Author: Francesco Potorti` <pot@cnuce.cnr.it>
-;; Version: $Id: cmacexp.el,v 1.14 1994/05/03 22:17:03 kwzh Exp rms $
+;; Version: $Id: cmacexp.el,v 1.15 1994/08/07 17:23:44 rms Exp rms $
 ;; Adapted-By: ESR
 ;; Keywords: c
 ;; This file is part of GNU Emacs.
 	  (if display (message mymsg))
 	  (setq exit-status
 		(call-process-region 1 (point-max) "sh" t t nil "-c"
 				     (concat cppcommand " 2>" tempname)))
 	  (if display (message (concat mymsg "done")))
-	  ;; Find and delete the mark of the start of the expansion.
+	  (if (= (buffer-size) 0)
-	  ;; Look for `# nn "file.c"' lines and delete them.
+	      ;; Empty output is normal after a fatal error.
-	  (goto-char (point-min))
+	      (insert "\nPreprocessor produced no output\n")
-	  (search-forward startmarker)
+	    ;; Find and delete the mark of the start of the expansion.
-	  (delete-region 1 (point))
+	    ;; Look for `# nn "file.c"' lines and delete them.
+	    (goto-char (point-min))
+	    (search-forward startmarker)
+	    (delete-region 1 (point)))
 	  (while (re-search-forward (concat "^# [0-9]+ \""
 					    (regexp-quote filename)
 					    "\"") nil t)
 	    (beginning-of-line)
 	    (let ((beg (point)))

Mercurial > emacs