Google
 
Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/wjn.elib
There are no other files named wjn.elib in the archive.
(W
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
   I$0:TCYJ/V7d	o~|Ga}	"q2	<YD	lR
`
ljvK3X@JL~Yey-		[e& Setup WJN LibraryBlack Screen ModeCaps Lock ModeFunny ModeInitialize TerminalMatching Case Search ModeWhite Screen Mode^R Close and Sign Mail^R Close Message^R MUDTEC Yank^R No Operation^R Open Message!^R Self Capitalize and Insert^R Top of Screen~DIRECTORY~~DOC~ & Setup WJN Library~DOC~ Black Screen Mode~DOC~ Caps Lock Mode~DOC~ Funny Mode~DOC~ Initialize Terminal#~DOC~ Matching Case Search Mode~DOC~ White Screen Mode ~DOC~ ^R Close and Sign Mail~DOC~ ^R Close Message~DOC~ ^R MUDTEC Yank~DOC~ ^R No Operation~DOC~ ^R Open Message'~DOC~ ^R Self Capitalize and Insert~DOC~ ^R Top of Screen~DOC~ ~Filename~~Filename~

~INVERT~n0FO..QWJN Loaded"E
F[BBIND
GSet Mode Line Hook
ZJ
@I/0FO..QCaps Lock Mode"GI Caps'/
13I10I
@I/FSBothCase"EI Match'/
13I10I
HXSet Mode Line Hook
F]BBIND
1M.VWJN Loaded'
0FO..QWJN Setup Hook[0
FQ0"GM0']0FSImageOut<FSImageOut
FSImageOut[FSImageOut
?FSImageOut2FSImageOut;FSImageOut
5FSImageOutlFSImageOut;:@FO..QCaps Lock Mode"L
0M.CCaps Lock Mode!* Insert as if Caps Lock key were used!
[0
a-1[1
M.M^R Self Capitalize and Insert[2
A-1[3
Q0"G26<Q2,%1FS^RCMACRO>'"#
26<%3
Q3,%1FS^RCMACRO>'
]3]2]1]0
1FSModeChange'
QCaps Lock Mode-1"L1'"#0'[0
FF"G"G1'"#0'U0'
Q0UCaps Lock Mode]0Q..0-32U..0
:M..0MM^R Goto End
FSSHPOS"NM(M.M^R CRLF)'
I				    Happy Hacking,
13I10I
I				the .
.-1[0
FSXUNAMEF6
-S.Q0,.+1K]0ZJ$FTo:[0
:EW0 HACTRNPW:EF]0,FSImageOut<FSImageOut
FSImageOut[FSImageOut
FF"E7'"#+0'FSImageOut
mFSImageOut
FSImageOut[FSImageOut
?FSImageOut2FSImageOutlFSImageOutFSTTYInitUQCase Search"E1'"#0'[0
FF"G"G0'"#1'U0'
Q0UCase Search]0
1FSModeChange8MMInsert FileWJN:WJN_RE >
4MM^R Indent Rigidly	0:F)FSImageOut<FSImageOut
FSImageOut[FSImageOut
?FSImageOut5FSImageOuthFSImageOut
FSImageOut[FSImageOut
?FSImageOut2FSImageOutlFSImageOutWJNWJN's EMACS functions.(S Do these things when you load WJN.)C Set VT100 screen to white-on-black._C Simulate Caps-lock key.
A positive argument turns the mode on.
A zero or negative argument turns it off.
With no argument, the mode is toggled.
The mode can also be changed by setting the variable
Caps Lock Mode.^R May capitalize before inserting.
The character that invoked this is inserted.
If Caps Lock Mode is positive, it is capitalized first.^R Close and sign mail.$^R Send TTY message to ITS user.,C Set VT100 "funny mode".
The argument is sent to the VT100 in the Select Graphic Rendition command.
0 turns off all graphic rendition modes.
1 sets Bold (increased intensity).
4 sets Underscore.
5 sets Blink.
7 sets Negative (reverse) image ("funny mode").
With no argument, 7 is assumed.C Set up EMACS for using terminal.
To be used when an EMACS is continued on a different terminal type than
what it started on.C Toggle or set mode for matching case search.
With no argument, toggle the mode.
A positive argument sets to search only for exact match.
A negative argument or 0 allows match independent of case.
The Mode can also be changed by setting the variable
Case Search.h^R Yank in message being replied to.
It is assumed that the message has been placed in WJN:WJN_RE >*^R Simply return, having done nothing.3^R Setup for composing and sending TTY message.0^R Scroll so that point is at top of screen.)C Set VT100 screen to black-on-white.& Setup WJN Library
Black Screen Mode
Caps Lock Mode
^R Self Capitalize and Insert
^R Close and Sign Mail
^R Close Message
Funny Mode
Initialize Terminal
Matching Case Search Mode
^R MUDTEC Yank
^R No Operation
^R Open Message
^R Top of Screen
White Screen Mode
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2