Interlisp.medley/lispusers/TEDITDORADOKEYS.DATABASE

(PROGN (PRIN1 "Use LOADDB to load database files!
" T) (ERROR!))
("28-Oct-87 19:53:12" . {ERINYES}<LISPUSERS>LYRIC>TEDITDORADOKEYS.;2)
FNS (\TEDIT.BOLD.SEL.OFF \TEDIT.BOLD.SEL.ON \TEDIT.CENTER.SEL \TEDIT.CENTER.SEL.REV 
\TEDIT.DEFAULTS.CARET \TEDIT.DEFAULTSSEL \TEDIT.SETDEFAULT.FROM.SEL \TEDIT.FIND \TEDIT.ITALIC.SEL.OFF 
\TEDIT.ITALIC.SEL.ON \TEDIT.LARGERSEL \TEDIT.LCASE.SEL \TEDIT.SHOWCARETLOOKS \TEDIT.SMALLERSEL 
\TEDIT.SUBSCRIPTSEL \TEDIT.SUPERSCRIPTSEL \TEDIT.UCASE.SEL \TEDIT.UNDERLINE.SEL.OFF 
\TEDIT.UNDERLINE.SEL.ON \TEDIT.STRIKEOUT.SEL.ON \TEDIT.STRIKEOUT.SEL.OFF \TEDIT.DK.ABORT 
\TEDIT.DK.FIND \TEDIT.DK.SUBSTITUTE \TEDIT.DK.INSERT-PARENS \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES)
(READATABASE)
(
CALL \TEDIT.BOLD.SEL.OFF (TEDIT.LOOKS) \TEDIT.BOLD.SEL.ON (TEDIT.LOOKS) \TEDIT.CENTER.SEL (FETCHFIELD 
\PARAS.IN.SEL TEDIT.GET.PARALOOKS LISTGET MEMB CONSTANT TEDIT.SETSEL CONS DREVERSE) 
\TEDIT.CENTER.SEL.REV (FETCHFIELD \PARAS.IN.SEL TEDIT.GET.PARALOOKS LISTGET MEMB CONSTANT TEDIT.SETSEL
 CONS DREVERSE) \TEDIT.DEFAULTS.CARET (NCREATE \TEDIT.SHOWCARETLOOKS) \TEDIT.DEFAULTSSEL (TEDIT.LOOKS 
NCREATE) \TEDIT.SETDEFAULT.FROM.SEL (TEDIT.GET.LOOKS \TEDIT.PARSE.CHARLOOKS.LIST) \TEDIT.FIND (TEXTOBJ
 FETCHFIELD TEDIT.GETINPUT WINDOWPROP TEDIT.FIND MKSTRING ADD1 IDIFFERENCE \TEDIT.GET.INSERT.CHARLOOKS
) \TEDIT.ITALIC.SEL.OFF (TEDIT.LOOKS) \TEDIT.ITALIC.SEL.ON (TEDIT.LOOKS) \TEDIT.LARGERSEL (
\TEDIT.LARGER.CARET TEDIT.LOOKS LIST) \TEDIT.LCASE.SEL (TEDIT.SEL.AS.STRING FETCHFIELD L-CASE RPLACA) 
\TEDIT.SHOWCARETLOOKS (FETCHFIELD CONCAT \TK.DESCRIBEFONT) \TEDIT.SMALLERSEL (\TEDIT.SMALLER.CARET 
TEDIT.LOOKS LIST) \TEDIT.SUBSCRIPTSEL (TEDIT.LOOKS LIST) \TEDIT.SUPERSCRIPTSEL (TEDIT.LOOKS LIST) 
\TEDIT.UCASE.SEL (TEDIT.SEL.AS.STRING FETCHFIELD U-CASE RPLACA) \TEDIT.UNDERLINE.SEL.OFF (TEDIT.LOOKS)
 \TEDIT.UNDERLINE.SEL.ON (TEDIT.LOOKS) \TEDIT.STRIKEOUT.SEL.ON (TEDIT.LOOKS) \TEDIT.STRIKEOUT.SEL.OFF 
(TEDIT.LOOKS) \TEDIT.DK.ABORT (TEDIT.GET) \TEDIT.DK.FIND (TEXTOBJ MKLIST FETCHFIELD TEDIT.GETINPUT 
WINDOWPROP TEDIT.SEL.AS.STRING TEDIT.FIND MKSTRING ADD1 IDIFFERENCE \TEDIT.GET.INSERT.CHARLOOKS) 
\TEDIT.DK.SUBSTITUTE (TEDIT.SUBSTITUTE) \TEDIT.DK.INSERT-PARENS (FETCHFIELD TEDIT.SETSEL + -) 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES (FETCHFIELD TEDIT.SETSEL + -) \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES
 (FETCHFIELD TEDIT.SETSEL + -) NIL
BIND \TEDIT.BOLD.SEL.OFF (CHARCODE) \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV
 NIL \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL (TEXTOBJ) \TEDIT.SETDEFAULT.FROM.SEL (TEXTOBJ) 
\TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF (CHARCODE) \TEDIT.ITALIC.SEL.ON (TEXTOBJ) \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS (SEL) \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL (TEXTOBJ) 
\TEDIT.SUPERSCRIPTSEL (TEXTOBJ) \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF (TEXTOBJ) 
\TEDIT.UNDERLINE.SEL.ON (TEXTOBJ) \TEDIT.STRIKEOUT.SEL.ON (TEXTOBJ) \TEDIT.STRIKEOUT.SEL.OFF (TEXTOBJ)
 \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS (TEXTOBJ) 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES (TEXTOBJ) \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES (TEXTOBJ) NIL
NLAMBDA \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL
 \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (CHARCODE
) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND (CHARCODE) \TEDIT.DK.SUBSTITUTE 
NIL \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES (CHARCODE) NIL
NOBIND \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL 
\TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
RECORD \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL (
TEDITHISTORYEVENT TEXTOBJ) \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL (TEDITHISTORYEVENT TEXTOBJ) \TEDIT.UNDERLINE.SEL.OFF NIL 
\TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT 
NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
CREATE \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET (CHARLOOKS) \TEDIT.DEFAULTSSEL (CHARLOOKS) \TEDIT.SETDEFAULT.FROM.SEL NIL 
\TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL 
\TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
FETCH \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (CH# DCH) \TEDIT.CENTER.SEL.REV
 (CH# DCH) \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND
 (\WINDOW SEL) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL (CH# DCH POINT TXTHISTORY) \TEDIT.SHOWCARETLOOKS (CARETLOOKS CLFONT CLOFFSET CLOLINE 
CLULINE) \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL (CH#
 DCH POINT TXTHISTORY) \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND (\WINDOW 
SEL) \TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS (CH# CHLIM) 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES (CH# CHLIM) \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES (CH# CHLIM) NIL
REPLACE \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL
 \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (CH# 
CHLIM DCH POINT CARETLOOKS \INSERTNEXTCH) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL 
\TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL (THACTION) \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL 
\TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL (THACTION) \TEDIT.UNDERLINE.SEL.OFF
 NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL 
\TEDIT.DK.ABORT NIL \TEDIT.DK.FIND (CH# CHLIM DCH POINT CARETLOOKS \INSERTNEXTCH) \TEDIT.DK.SUBSTITUTE
 NIL \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
REFFREE \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL
 \TEDIT.DEFAULTS.CARET (TEDIT.DEFAULT.CHARLOOKS) \TEDIT.DEFAULTSSEL (TEDIT.DEFAULT.CHARLOOKS) 
\TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL 
\TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL 
\TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL 
\TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT 
NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
REF \TEDIT.BOLD.SEL.OFF (TEXTSTREAM TEXTOBJ SEL) \TEDIT.BOLD.SEL.ON (TEXTSTREAM TEXTOBJ SEL) 
\TEDIT.CENTER.SEL (SEL TEXTOBJ TEXTSTREAM PARA SAVECH# SAVEDCH) \TEDIT.CENTER.SEL.REV (SEL TEXTOBJ 
TEXTSTREAM PARA SAVECH# SAVEDCH) \TEDIT.DEFAULTS.CARET (TEXTSTREAM TEXTOBJ SEL) \TEDIT.DEFAULTSSEL (
TEXTSTREAM SEL) \TEDIT.SETDEFAULT.FROM.SEL (TEXTSTREAM SEL LOOKS) \TEDIT.FIND (TEXTSTREAM) 
\TEDIT.ITALIC.SEL.OFF (TEXTSTREAM TEXTOBJ SEL) \TEDIT.ITALIC.SEL.ON (TEXTSTREAM SEL) \TEDIT.LARGERSEL 
(TEXTSTREAM TEXTOBJ SEL) \TEDIT.LCASE.SEL (STREAM SEL STR POS LEN POINT TEXTOBJ) \TEDIT.SHOWCARETLOOKS
 (TEXTOBJ TEXTSTREAM LOOKS) \TEDIT.SMALLERSEL (TEXTSTREAM TEXTOBJ SEL) \TEDIT.SUBSCRIPTSEL (TEXTSTREAM
 SEL) \TEDIT.SUPERSCRIPTSEL (TEXTSTREAM SEL) \TEDIT.UCASE.SEL (STREAM SEL STR POS LEN POINT TEXTOBJ) 
\TEDIT.UNDERLINE.SEL.OFF (TEXTSTREAM SEL) \TEDIT.UNDERLINE.SEL.ON (TEXTSTREAM SEL) 
\TEDIT.STRIKEOUT.SEL.ON (TEXTSTREAM SEL) \TEDIT.STRIKEOUT.SEL.OFF (TEXTSTREAM SEL) \TEDIT.DK.ABORT (
TEXTOBJ) \TEDIT.DK.FIND (TEXTSTREAM) \TEDIT.DK.SUBSTITUTE (TEXTSTREAM) \TEDIT.DK.INSERT-PARENS (SEL 
TEXTSTREAM CHLIM CH1) \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES (SEL TEXTSTREAM CHLIM CH1) 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES (SEL TEXTSTREAM CHLIM CH1) NIL
SETFREE \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL
 \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL (TEDIT.DEFAULT.CHARLOOKS)
 \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL 
\TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
SET \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (LOOKS OLDQUAD NEWQUAD PARASEL 
NEWQUADS) \TEDIT.CENTER.SEL.REV (LOOKS OLDQUAD NEWQUAD PARASEL NEWQUADS) \TEDIT.DEFAULTS.CARET NIL 
\TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (W TARGET SEL CH) 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND (W TARGET SEL CH) 
\TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
SMASHFREE \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV 
NIL \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL 
\TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
SMASH \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (NEWQUADS) 
\TEDIT.CENTER.SEL.REV (NEWQUADS) \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL 
\TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (SEL TEXTOBJ) \TEDIT.ITALIC.SEL.OFF NIL 
\TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL 
\TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND (SEL TEXTOBJ) \TEDIT.DK.SUBSTITUTE NIL
 \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
PROP \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (QUAD) \TEDIT.CENTER.SEL.REV (
QUAD) \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (
TEDIT.LAST.FIND.STRING) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND (
TEDIT.LAST.FIND.STRING) \TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
TEST \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (TARGET CH
) \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND (TARGET CH) \TEDIT.DK.SUBSTITUTE 
NIL \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
TESTFREE \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (TEDIT.FNKEY.VERBOSE) 
\TEDIT.CENTER.SEL.REV (TEDIT.FNKEY.VERBOSE) \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL 
\TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL 
\TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL 
\TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL 
\TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT 
NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
PREDICATE \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV 
NIL \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL (SHIFTDOWNP) \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL (SHIFTDOWNP) \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL
 NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL 
\TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL 
\TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
EFFECT \TEDIT.BOLD.SEL.OFF (\TEDIT.BOLD.CARET.OFF) \TEDIT.BOLD.SEL.ON (\TEDIT.BOLD.CARET.ON) 
\TEDIT.CENTER.SEL (MAPC LISTPUT TEDIT.PARALOOKS TEDIT.PROMPTPRINT) \TEDIT.CENTER.SEL.REV (MAPC LISTPUT
 TEDIT.PARALOOKS TEDIT.PROMPTPRINT) \TEDIT.DEFAULTS.CARET (TEDIT.CARETLOOKS) \TEDIT.DEFAULTSSEL NIL 
\TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND (\SHOWSEL TEDIT.PROMPTPRINT REPLACEFIELD 
TEDIT.RESET.EXTEND.PENDING.DELETE \FIXSEL TEDIT.NORMALIZECARET) \TEDIT.ITALIC.SEL.OFF (
\TEDIT.ITALIC.CARET.OFF) \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL (TEDIT.DELETE 
TEDIT.INSERT TEDIT.SETSEL TEDIT.NORMALIZECARET) \TEDIT.SHOWCARETLOOKS (TEDIT.PROMPTPRINT) 
\TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL (TEDIT.DELETE
 TEDIT.INSERT TEDIT.SETSEL TEDIT.NORMALIZECARET) \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND (
\SHOWSEL TEDIT.PROMPTPRINT REPLACEFIELD TEDIT.RESET.EXTEND.PENDING.DELETE \FIXSEL TEDIT.NORMALIZECARET
) \TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS (TEDIT.INSERT) 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES (TEDIT.INSERT) \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES (TEDIT.INSERT)
 NIL
CLISP \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL (for in do) 
\TEDIT.CENTER.SEL.REV (for in do) \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL 
\TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL 
\TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL 
\TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL 
\TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT 
NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL 
\TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL \TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
SPECVARS \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV 
NIL \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL 
\TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
LOCALVARS \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV 
NIL \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL 
\TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
APPLY \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL 
\TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
ERROR \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL 
\TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
LOCALFREEVARS \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL 
\TEDIT.CENTER.SEL.REV NIL \TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL 
NIL \TEDIT.FIND NIL \TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL 
\TEDIT.LCASE.SEL NIL \TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL 
\TEDIT.SUPERSCRIPTSEL NIL \TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL 
\TEDIT.DK.SUBSTITUTE NIL \TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
ARGS \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL 
\TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL
USERTEMPLATES SETQ.NOREF (CALL SET EVAL . PPE) WINDOWADDPROP (CALL EVAL PROP EVAL EVAL . PPE) 
SPREADAPPLY* (CALL FUNCTIONAL |..| EVAL) WINDOWPROP (CALL EVAL PROP EVAL . PPE) PERFORM (MACRO ARGS (
PERFORMTRAN ARGS T)) CATCH (CALL CALL CALL |..| EVAL) REF (CALL EVAL (IF (AND (CONSP EXPR) (EQ (CAR 
EXPR) (QUOTE QUOTE))) (NIL FETCH) EVAL)) DOVEIO.LOCKMEM (CALL |..| EVAL) \DoveIO.LockMem (CALL |..| 
EVAL) SCRATCHASH MACRO \\\\DoveIO.LockMem (CALL |..| EVAL) WINDOWDELPROP (CALL EVAL PROP EVAL . PPE) 
perform (MACRO ARGS (PERFORMTRAN ARGS T)) \\DoveIO.LockMem (CALL |..| EVAL) TESTRELQ MACRO GETRELQ 
MACRO SPREADAPPLY (CALL FUNCTIONAL EVAL . PPE) RUN-SUPER (CALL |..| EVAL) UNINTERRUPTABLY (CALL |..| 
EVAL) SHAZAM (CALL |..| NIL) OP# (CALL) NIL
0 \TEDIT.BOLD.SEL.OFF NIL \TEDIT.BOLD.SEL.ON NIL \TEDIT.CENTER.SEL NIL \TEDIT.CENTER.SEL.REV NIL 
\TEDIT.DEFAULTS.CARET NIL \TEDIT.DEFAULTSSEL NIL \TEDIT.SETDEFAULT.FROM.SEL NIL \TEDIT.FIND NIL 
\TEDIT.ITALIC.SEL.OFF NIL \TEDIT.ITALIC.SEL.ON NIL \TEDIT.LARGERSEL NIL \TEDIT.LCASE.SEL NIL 
\TEDIT.SHOWCARETLOOKS NIL \TEDIT.SMALLERSEL NIL \TEDIT.SUBSCRIPTSEL NIL \TEDIT.SUPERSCRIPTSEL NIL 
\TEDIT.UCASE.SEL NIL \TEDIT.UNDERLINE.SEL.OFF NIL \TEDIT.UNDERLINE.SEL.ON NIL \TEDIT.STRIKEOUT.SEL.ON 
NIL \TEDIT.STRIKEOUT.SEL.OFF NIL \TEDIT.DK.ABORT NIL \TEDIT.DK.FIND NIL \TEDIT.DK.SUBSTITUTE NIL 
\TEDIT.DK.INSERT-PARENS NIL \TEDIT.DK.INSERT-NEUTRAL-DOUBLEQUOTES NIL 
\TEDIT.DK.INSERT-REAL-DOUBLEQUOTES NIL NIL

)