Mercurial > emacs
changeset 9501:93bb180ef5da
(ada-mode): Rename end-comment-column to ada-comment-end-column.
(ada-inline-comment): Likewise.
(ada-comment-end-column): Declare variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 13 Oct 1994 03:35:55 +0000 |
| parents | a7ac5850ecb4 |
| children | 401b9dbedc4e |
| files | lisp/=ada.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 " -- "))