(byte-compile-file): Don't write output if error.

[gnu-emacs] / lisp / ada.el

diff --git a/lisp/ada.el b/lisp/ada.el
index f3746313998ffc4ac98170cdb937ffe7dbbabb88..8ee750fc6c0a6aedd7a8f893aedb0c2bc31dec64 100644 (file)
--- a/lisp/ada.el
+++ b/lisp/ada.el
@@ -1,11 +1,10 @@
 ;;; ada.el --- Ada editing support package in GNUlisp.  v1.0
 
+;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
+
 ;; Author: Vincent Broman <broman@bugs.nosc.mil>
-;; Last-Modified: 30 Jan 1991
 ;; Keywords: languages
 
-;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -167,8 +166,8 @@ Variable `ada-indent' controls the number of spaces for indent/undent."
   (setq comment-column 41)
   (make-local-variable 'comment-start-skip)
   (setq comment-start-skip "--+ *")
-  (make-local-variable 'comment-indent-hook)
-  (setq comment-indent-hook 'c-comment-indent)
+  (make-local-variable 'comment-indent-function)
+  (setq comment-indent-function 'c-comment-indent)
   (make-local-variable 'parse-sexp-ignore-comments)
   (setq parse-sexp-ignore-comments t)
   (run-hooks 'ada-mode-hook))
@@ -394,7 +393,7 @@ Indent for the first line of code."
   (ada-tab))
 
 (defun ada-loop ()
-  "Insert a skeleton loop statement.  exit statement added by hand."
+  "Insert a skeleton loop statement.  The exit statement is added by hand."
   (interactive)
   (insert "loop ")
   (let* ((ada-loop-name (read-string "[loop name]: "))