From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.6 required=5.0 tests=BAYES_40,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,c984a7f4a0ab0148
X-Google-Attributes: gid103376,public
From: johndoe@world.std.com (j. doe)
Subject: Re: non key-words in xemacs to be upper case
Date: 1996/08/17
Message-ID: <kdk9uyljl4.fsf@sampson.camb>#1/1
X-Deja-AN: 174665983
sender: johndoe@sampson.camb
x-nntp-posting-host: sampson.camb.inmet.com
references: <BADE.96Aug16132224@vicos_2.news>
to: bade@vicos_2.news (Frank.Bade)
organization: myself?
newsgroups: comp.lang.ada
Date: 1996-08-17T00:00:00+00:00
List-Id: <comp.lang.ada>


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