X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/33b522e057365ad8c639f8b147eb7b0cb9390525..818226ac7eafb08656e40657c51b87ddcddfe0a5:/lisp/progmodes/idlwave.el

diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el
index b1c3216a21..a49f70aa0b 100644
--- a/lisp/progmodes/idlwave.el
+++ b/lisp/progmodes/idlwave.el
@@ -5,7 +5,6 @@
 ;;         Chris Chase <chase@att.com>
 ;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu>
 ;; Version: 4.15
-;; Date: $Date: 2003/02/14 09:59:13 $
 ;; Keywords: languages
 
 ;; This file is part of GNU Emacs.
@@ -1399,7 +1398,7 @@ the leftover unidentified statements containing an equal sign."  )
 ;; Note that this is documented in the v18 manuals as being a string
 ;; of length one rather than a single character.
 ;; The code in this file accepts either format for compatibility.
-(defvar idlwave-comment-indent-char ?\
+(defvar idlwave-comment-indent-char ?\s
   "Character to be inserted for IDL comment indentation.
 Normally a space.")
 
@@ -3889,9 +3888,12 @@ you specify /."
 		  (progn
 		    (message (concat "Tagging " item "..."))
 		    (setq errbuf (get-buffer-create "*idltags-error*"))
-		    (setq status (+ status
-				    (call-process "sh" nil errbuf nil "-c"
-						  (concat cmd append item))))
+		    (setq status
+			  (+ status
+			     (if (eq 0 (call-process "sh" nil errbuf nil "-c"
+						     (concat cmd append item)))
+				 0
+			       1)))
 		    ;;
 		    ;; Append additional tags
 		    (setq append " --append ")
@@ -8251,4 +8253,5 @@ This function was written since `list-abbrevs' looks terrible for IDLWAVE mode."
 
 (provide 'idlwave)
 
+;;; arch-tag: f77f3b0c-c37c-424f-a328-0886fd42b6fb
 ;;; idlwave.el ends here