Mercurial > emacs
comparison lisp/progmodes/ada-mode.el @ 106958:7e2ebba4063d
Tweak docstring and comment.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sat, 23 Jan 2010 13:34:52 +0100 |
parents | 368fd338fecd |
children | bb513dfefeaf |
comparison
equal
deleted
inserted
replaced
106957:368fd338fecd | 106958:7e2ebba4063d |
---|---|
255 If nil, indentation is calculated as usual. | 255 If nil, indentation is calculated as usual. |
256 Note that indentation is calculated only if `ada-indent-comment-as-code' is t. | 256 Note that indentation is calculated only if `ada-indent-comment-as-code' is t. |
257 | 257 |
258 For instance: | 258 For instance: |
259 A := 1; -- A multi-line comment | 259 A := 1; -- A multi-line comment |
260 -- aligned if ada-indent-align-comments is t" | 260 -- aligned if `ada-indent-align-comments' is t" |
261 :type 'boolean :group 'ada) | 261 :type 'boolean :group 'ada) |
262 | 262 |
263 (defcustom ada-indent-comment-as-code t | 263 (defcustom ada-indent-comment-as-code t |
264 "*Non-nil means indent comment lines as code. | 264 "*Non-nil means indent comment lines as code. |
265 A nil value means do not auto-indent comments." | 265 A nil value means do not auto-indent comments." |
4161 (and (forward-word -3) | 4161 (and (forward-word -3) |
4162 (looking-at "\\<package\\>")))))))) | 4162 (looking-at "\\<package\\>")))))))) |
4163 | 4163 |
4164 | 4164 |
4165 (defun ada-in-paramlist-p () | 4165 (defun ada-in-paramlist-p () |
4166 "Return t if point is inside the parameter-list of a declaration, | 4166 "Return t if point is inside the parameter-list of a declaration, but not a subprogram call or aggregate." |
4167 but not a subprogram call or aggregate." | |
4168 (save-excursion | 4167 (save-excursion |
4169 (and | 4168 (and |
4170 (ada-search-ignore-string-comment "(\\|)" t nil t) | 4169 (ada-search-ignore-string-comment "(\\|)" t nil t) |
4171 ;; inside parentheses ? | 4170 ;; inside parentheses ? |
4172 (= (char-after) ?\() | 4171 (= (char-after) ?\() |