# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782019355 0
# Node ID 93bb180ef5da918ae8dabbbf7c48cb2bcf5ae5ee
# Parent  a7ac5850ecb433018e35cef614af7e1444dd5457
(ada-mode): Rename end-comment-column to ada-comment-end-column.
(ada-inline-comment): Likewise.
(ada-comment-end-column): Declare variable.

diff -r a7ac5850ecb4 -r 93bb180ef5da lisp/=ada.el
--- a/lisp/=ada.el	Thu Oct 13 03:29:22 1994 +0000
+++ b/lisp/=ada.el	Thu Oct 13 03:35:55 1994 +0000
@@ -191,6 +191,8 @@
 
 (defvar ada-indent 4 "*Value is the number of columns to indent in Ada-Mode.")
 
+(defvar ada-comment-end-column)
+
 ;;;###autoload
 (defun ada-mode ()
 "This is a mode intended to support program development in Ada.
@@ -228,8 +230,8 @@
   (setq mode-name "Ada")
   (make-local-variable 'comment-column)
   (setq comment-column 41)
-  (make-local-variable 'end-comment-column)
-  (setq end-comment-column 72)
+  (make-local-variable 'ada-comment-end-column)
+  (setq ada-comment-end-column 72)
   (set-syntax-table ada-mode-syntax-table)
   (make-local-variable 'paragraph-start)
   (setq paragraph-start (concat "^$\\|" page-delimiter))
@@ -684,7 +686,7 @@
 start a new line."
   (interactive)
   (end-of-line)
-  (if (> (current-column) end-comment-column) (newline))
+  (if (> (current-column) ada-comment-end-column) (newline))
   (if (< (current-column) comment-column) (indent-to comment-column))
   (insert " -- "))