Google
 

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/capl.pad
There are no other files named capl.pad in the archive.
00M.M^R Extended CommandU:.O(:)	!* Multicode!

M.M^R Up Real LineU:.O(;)		!* Up arrow!
M.M^R Down Real LineU:.O(60)		!* Down Arrow!
2fs^RInitU:.O(62)			!* Left arrow!
6fs^RInitU:.O(=)			!* Right arrow!
M.M^R HomeU:.O(77.)			!* Home key!

M.M^R Backward Kill Word U:.O(127)	!* Break key!
0 U:.O(39)				!* Back tab!

M.M^R invoke inferiorU:.O(+)	!* Status!
M.M^R kill inferiorU:.O(,)		!*   Shifted = Reset!

M.M^R Visit FileU:.O({)		!* PRINT!
M.MFind FileU:.O(|)			!*   Shifted PRINT!
M.M^R Save FileU:.O(})		!*   Control PRINT!
M.MWrite FileU:.O(~)		!*   Control-Shifted PRINT!

!* The following is for the PAGE key!

1,M.M& Setup Page Library"N		!* PAGE Library is loaded!
    M.M^R GOTO Next PageU:.O(-)	!* PAGE key!
    M.M^R GOTO Previous PageU:.O(.)'	!* Shifted!
"#					!* Not loaded!
    M.M^R Next PageU:.O(-)		!* PAGE key!
    M.M^R Previous PageU:.O(.)'	!*   Shifted!

					!* Setup hook in case PAGE Library is!
					!* loaded later.  Check in case it!
					!* already is loaded!

0FO..Q PAGE setup hook "E :I* m.v PAGE setup hook '
qPAGE setup hook u0
@:I*\0W
M.M^R Goto Next PageU:.O(-)
M.M^R Goto Previous PageU:.O(.)
0uPAGE setup hook :m(M.M& Setup PAGE Library)
\ uPAGE setup hook

!* End of PAGE Key!

QEmacs Version-145 "G
    M.M^R Visit In Other WindowU:.O(`)'
"#
    M.M^R Modified Two WindowsU:.O(`)'	!* TAPE key!
M.M^R One WindowU:.O(@)		!* Control TAPE Key!
M.M^R Two WindowsU:.O(^)		!* Control-Shift TAPE key!

M.M^R Next ScreenU:.O([)		!* Scroll DOWN!
M.M^R Previous ScreenU:.O(\)	!* Scroll UP!

M.M^R Indent for CommentU:.O(])	!* TAB Set!
M.M^R Indent RigidlyU:.O(95)		!* TAB Clr!

!* Miscellaneous Command!

M.M^R Toggle ^H Mode U:.O()	!* Escape - Backspace!
M.M^R Execute Minibuffer U:.O(27)	!* Escape - Escape!
M.M^R Half window downU:.O()	!* Escape Control-V!
M.M^R Half Window UpU:.O(V)		!* Escape V!

M.M& CAPL AutoargU0 0-1 [1		!* Auto-arguments on Escape 0 to 9!
10< Q0 U:.O(%1) > ]1			!* Restore Q-register 1!