diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-13 03:35:55 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-13 03:35:55 +0000 |
| commit | 716c3024cd70198aa0f32ef5ba94bb7428188c4b (patch) | |
| tree | 581f1d1b60bfa4f6d8c31ce7bd09381e774d112c | |
| parent | dab0cb956404af13e6201bf641b54cffab5d0166 (diff) | |
| download | emacs-716c3024cd70198aa0f32ef5ba94bb7428188c4b.tar.gz | |
(ada-mode): Rename end-comment-column to ada-comment-end-column.
(ada-inline-comment): Likewise.
(ada-comment-end-column): Declare variable.
| -rw-r--r-- | lisp/ada.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/ada.el b/lisp/ada.el index 72d00257d78..5ed51e320ca 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 " -- ")) |