Re: non key-words in xemacs to be upper case

[johndoe@world.std.com (j. doe)]

well, aside from the fact that you're bible is wrong!!!  (only joking.  don't
want to start any religious arguments here...)

try setting the variable ada-case-identifier in your ada-mode-hook to be
upcase-word.  the following is how i forced attributes to be all upper case.

(setq ada-mode-hook
      '(lambda nil
	(setq ada-case-attribute 'upcase-word)))

just put that line in your .emacs (or in a file loaded by your .emacs) .

--johndoe