ada-outline-level

ada-outline-level is a compiled Lisp function in `ada-mode.el'.

(ada-outline-level)

This is so that `current-column' DTRT in otherwise-hidden text.