aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/ada.el
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>1994-10-13 03:35:55 +0000
committerRichard M. Stallman <[email protected]>1994-10-13 03:35:55 +0000
commit716c3024cd70198aa0f32ef5ba94bb7428188c4b (patch)
tree581f1d1b60bfa4f6d8c31ce7bd09381e774d112c /lisp/ada.el
parentdab0cb956404af13e6201bf641b54cffab5d0166 (diff)
(ada-mode): Rename end-comment-column to ada-comment-end-column.
(ada-inline-comment): Likewise. (ada-comment-end-column): Declare variable.
Diffstat (limited to 'lisp/ada.el')
-rw-r--r--lisp/ada.el8
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ada.el b/lisp/ada.el
index 72d00257d7..5ed51e320c 100644
--- a/lisp/ada.el
+++ b/lisp/ada.el
@@ -191,6 +191,8 @@ This does a lot more highlighting.")
(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 @@ Variable `ada-indent' controls the number of spaces for indent/undent."
(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 @@ Invoke right after `ada-function-spec' or `ada-procedure-spec'."
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 " -- "))