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) ?\()