From 716c3024cd70198aa0f32ef5ba94bb7428188c4b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 13 Oct 1994 03:35:55 +0000 Subject: (ada-mode): Rename end-comment-column to ada-comment-end-column. (ada-inline-comment): Likewise. (ada-comment-end-column): Declare variable. --- lisp/ada.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lisp/ada.el') 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 " -- ")) -- cgit v1.2.3