procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ada-mode): Rename end-comment-column to ada-comment-end-column.

Browse source 
(ada-inline-comment): Likewise.
(ada-comment-end-column): Declare variable.
This commit is contained in:
Richard M. Stallman 1994-10-13 03:35:55 +00:00
parent dab0cb9564
commit 716c3024cd
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ada.el
View file

@ -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 " -- "))