Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

!* -*- TECO -*- !
!* [toed.xkl.com]DXX:<EMACS>NCASE.EMACS.2,  9-Apr-96 18:26:21, Edit by ALDERSON!
!* Reconstituted from sourceless library file !

!~Filename~:! !New experimental word case-conversion commands.!
NCASE

!& Setup NCASE Library:! !S Put these commands on keys.!

0fo..qNCASE_Setup_Hook[0
q0"n:m0'
m.m^R_Lowercase_Wordu..L
m.m^R_Uppercase_Wordu..U
m.m^R_Uppercase_Initialu..C

!^R Lowercase Word:! !^R Convert next or previous word to lower case.
In the middle of a word, that word is converted.  Between words, when the
previous character typed was an inserting character, the previous word is
case-converted; otherwise, the next word is converted and moved over, so that
repeated use converts successive words.  A numeric argument (positive or
negative) specifies precisely how many words to convert and in which
direction, starting from point.!

f@m(m.m&_Case_Word)fc0

!^R Uppercase Word:! !^R Convert next or previous word to upper case.
In the middle of a word, that word is converted.  Between words, when the
previous character typed was an inserting character, the previous word is
case-converted; otherwise, the next word is converted and moved over, so that
repeated use converts successive words.  A numeric argument (positive or
negative) specifies precisely how many words to convert and in which
direction, starting from point.!

f@m(m.m&_Case_Word)@fc0

!^R Uppercase Initial:! !^R Convert word to lower case with capital initial.
In the middle of a word, that word is converted.  Between words, when the
previous character typed was an inserting character, the previous word is
case-converted; otherwise, the next word is converted and moved over, so that
repeated use converts successive words.  A numeric argument (positive or
negative) specifies precisely how many words to convert and in which
direction, starting from point.!

f@m(m.m&_Case_Word)f(fc)[1[2
.(q2j:fwl1@fc)j0

!& Case Word:! !S Subroutine for word case conversions.
We move the cursor, tell ^R about the changes, and return the range of
addresses to be operated on by the caller.!

[0
ff"e
A,0a"c0,1a"c
.-b"n-fwl'ofwd''
fs^rprev[1
128-q1"g27-q1"n
-fwf(f)'''
!Fwd!
fwf(f)f(l)