ada-create-case-exception-substring is an interactive compiled Lisp function in `ada-mode.el'.

(ada-create-case-exception-substring &optional WORD)

Define the substring WORD as an exception for the casing system.
If WORD is not given, then the current word in the buffer is used instead,
or the selected region if any is active.
The new word is added to the first file in `ada-case-exception-file'.
When auto-casing a word, this substring will be special-cased, unless the
word itself has a special casing.