github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-05-27 07:07:39 +00:00
Code Issues Projects Releases Wiki Activity
Files
81640cd59445ddcaad64baa46db6b9cd04bbdbb3
Interlisp.medley/library/tedit/TEDIT-FNKEYS.LCOM
rmkaplan 406b509b38 Rmk185 tedit window and process glitches (#2604) 
* Substantive changes aimed to improve behavior of secondary selections as mouse moves around the screen, and to make sure the process does not reopen an inactive window after it has been deactivated and closed.

* Line-selection requires a click in the line-select region, just moving the mouse there doesn't change the current selection.

* A few other minor bug fixes
---------

Co-authored-by: Nick Briggs <nicholas.h.briggs@gmail.com>
2026-05-20 18:51:55 -07:00

531 lines
39 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
(FILECREATED "16-May-2026 22:20:12" ("compiled on " {MEDLEY}<library>TEDIT>TEDIT-FNKEYS.;319)
"15-May-2026 14:49:15" brecompiled exprs%: TEDIT.SETSYNTAX in "FULL 15-May-2026 ..." dated
"15-May-2026 14:49:24")
(FILECREATED "16-May-2026 22:20:12" {MEDLEY}<library>TEDIT>TEDIT-FNKEYS.;319 109301 :EDIT-BY rmk
:CHANGES-TO (FNS TEDIT.SETSYNTAX) :PREVIOUS-DATE " 8-Feb-2026 19:54:41"
{MEDLEY}<library>TEDIT>TEDIT-FNKEYS.;318)
TEDIT.INSTALL.CHARBINDINGS :D8
(P 3 CHAR P 2 ACTION P 1 CB I 2 CHARACTIONS I 1 RDTBL I 0 CHARBINDINGS) ´@µ `b¦@ ¿B§`b¿A ³4Aµ `°'i
²AÉÉBµ`…A b¿@A
@!HµAY²9Igð³/IBZ²&I°dK §K [€KJA µáHX°¼(168 TEDIT.SETFUNCTION 158 CHARCODE.DECODE 151 CHARCODEP 103 TEDIT.CONFLICTING.CHARBINDINGS 98 \APPEND2 93 TEDIT.GET.ALL.CHARBINDINGS 83 \ILLEGAL.ARG 52 TEXTSTREAM 34 READTABLEP 17 \ILLEGAL.ARG)
(125 * 76 TEDIT.READTABLE 67 TEXTOBJ 60 STREAM 44 TEDIT.READTABLE 25 TEDIT.CHARACTIONS 7 TEDIT.CHARBINDINGS)
()
TEDIT.CLEAR.CHARBINDINGSA0001 :D8
(I 1 CHARCODE I 0 VAL F 1 RDTBL) TQÉAlÿñ²HÉ€ŸAHÉ€
µj‚HAÂlð´AhQ A ´A AQ (81 TEDIT.SETSYNTAX 74 \TEDIT.TTCCLASS 66 \TEDIT.TTCCLASS 60 TEDIT.SETFUNCTION 39 GETHASH)
(32 CHARTABLE 22 CHARTABLE 5 READTABLEP)
()
TEDIT.CLEAR.CHARBINDINGS :D8
(P 2 CHARCODE P 1 CB I 1 BINDINGS I 0 RDTBL) @ ³4@µ `°'i
²@ÉÉBµ`…@ b€@É´%Adið²¿@Ég
A!HµhY²EIdgð²6¿°7dZ §J Z€Jh@ ¿I žI J@ ¿µÍHX°°(170 TEDIT.SETSYNTAX 163 \TEDIT.TTCCLASS 155 \TEDIT.TTCCLASS 147 TEDIT.SETFUNCTION 137 CHARCODE.DECODE 130 CHARCODEP 92 MAPHASH 54 \ILLEGAL.ARG 23 TEXTSTREAM 5 READTABLEP)
(116 * 87 TEDIT.CLEAR.CHARBINDINGSA0001 80 READTABLEP 63 READTABLEP 47 TEDIT.READTABLE 38 TEXTOBJ 31 STREAM 15 TEDIT.READTABLE)
()
TEDIT.GET.CHARACTION :D8
(P 8 VAL P 7 RDTBL P 6 C P 4 CB I 1 BINDINGS I 0 CHARCODE) $ @ ¨@ b¿Ad²`AHµ
Id¢±ê\²#Lgð³LMµhšL»Jµ+KhZ¹HX°Ì¾@N ‘N…N ð•NµÙi°ÖM]°ÍK&º°Ù¦`°.Ai
²A ÉBµ`<00>A µA A OÉ_¿@lÿñ² OÉ€²@OÉ€
µjƒO@Âlð´‚±ÿ?@OÉ
_´‚±ÿ'`_µh_¿OOô–Oµñi°îO°ã(245 GETHASH 213 GETHASH 166 \ILLEGAL.ARG 158 READTABLEP 137 TEXTOBJ 129 TEXTSTREAM 96 CHARCODE.DECODE 87 CHARCODEP 12 CHARCODE.DECODE 5 CHARCODEP)
(259 TEDIT.CHARACTIONS 238 READTABLEP 206 CHARTABLE 194 CHARTABLE 176 READTABLEP 151 TEDIT.READTABLE 142 TEXTOBJ 120 TEDIT.READTABLE 47 *)
()
TEDIT.GET.CHARBINDINGA0001 :D8
(I 1 CCODE I 0 VAL F 0 CHARS F 1 IMPL F 2 RETURNCODES) Q@ô´R‘A…A Pc(16 CHARCODE.ENCODE)
NIL
()
TEDIT.GET.CHARBINDING :D8
(P 2 CHARS P 1 IMPL P 0 RDTBL I 2 RETURNCODES I 1 BINDINGS I 0 ACTION) iAdœ¿@Ah
µ `°-i
²A ÉBµ`<00>A µA @`I´HÉg
J(101 MAPHASH 68 \ILLEGAL.ARG 60 READTABLEP 39 TEXTOBJ 31 TEXTSTREAM 15 \APPEND2)
(96 TEDIT.GET.CHARBINDINGA0001 89 READTABLEP 74 TEDIT.CHARACTIONS 53 TEDIT.READTABLE 44 TEXTOBJ 23 TEDIT.READTABLE)
()
TEDIT.GET.ALL.CHARBINDINGSA0001 :D8
(P 2 ANAME P 1 CA I 1 CCODE I 0 VAL F 6 ACTIONS F 7 RDTBL) ~WÉAlÿñ²HÉ€ŸAHÉ€
µj‚HAÂlð´`QHµhY²1Igð³'I@ô²IºI]Vµ
MhVc ¼AL»LK¿HX°Ä(40 GETHASH)
(79 * 58 TEDIT.CHARACTIONS 33 CHARTABLE 23 CHARTABLE 6 READTABLEP)
()
TEDIT.GET.ALL.CHARBINDINGS :D8
(P 3 S P 2 A P 0 ACTIONS I 1 RETURNCODES I 0 RDTBL) |@ ³4@µ `°'i
²@ÉÉBµ`…@ b¿@Ég
Hi
H!IµHZ »JA‘K…K ¿IY°â(115 CHARCODE.ENCODE 103 SORT 85 SORT 78 MAPHASH 54 \ILLEGAL.ARG 23 TEXTSTREAM 5 READTABLEP)
(73 TEDIT.GET.ALL.CHARBINDINGSA0001 66 READTABLEP 47 TEDIT.READTABLE 38 TEXTOBJ 31 STREAM 15 TEDIT.READTABLE)
()
TEDIT.CHARBINDINGS.INVERT :D8
(P 13 APC P 9 CACTIONS P 8 CODE P 7 CHAR P 3 CA P 2 ACTIONSPERCHAR P 1 CB I 1 RETURNCODES I 0 CHARBINDINGS) ”@QHµJi
¿A³zJ°tY²Idg𑿈1 NµHX°Ñ_ _¿0 O_Jµ
OhJZ_¿I_O
¬O½OM¼ML¿N^°¸d
Od µîJi
(145 SORT 132 CHARCODE.ENCODE 98 MEMBER 61 CHARCODE.DECODE 14 SORT)
(35 *)
()
TEDIT.GET.ALL.CHARACTIONSA0001 :D8
(P 2 ANAME P 1 CA I 1 CCODE I 0 VAL F 6 BINDINGS F 7 RDTBL F 8 RETURNCODES) …WÉAlÿñ²HÉ€ŸAHÉ€
µj‚HAÂlð´`QHµhY²8Igð³.I@ô²%W‘A…A ]Vµ
MhVc ¼IL»LK¿HX°½(102 CHARCODE.ENCODE 40 GETHASH)
(79 * 58 TEDIT.CHARACTIONS 33 CHARTABLE 23 CHARTABLE 6 READTABLEP)
()
TEDIT.GET.ALL.CHARACTIONS :D8
(P 1 B P 0 BINDINGS I 1 RETURNCODES I 0 RDTBL) n@ ³4@µ `°'i
²@ÉÉBµ`…@ b¿@Ég
Hi
H<>dId µïH(100 SORT 85 SORT 78 MAPHASH 54 \ILLEGAL.ARG 23 TEXTSTREAM 5 READTABLEP)
(73 TEDIT.GET.ALL.CHARACTIONSA0001 66 READTABLEP 47 TEDIT.READTABLE 38 TEXTOBJ 31 STREAM 15 TEDIT.READTABLE)
()
TEDIT.CONFLICTING.CHARBINDINGS :D8
(P 4 CA I 1 NOERROR I 0 CHARBINDINGS) :@ AHµI´AªoI
I\d˜»Jµ
KhZY¿HX°ØK&Z°÷(28 ERROR 5 TEDIT.CHARBINDINGS.INVERT)
NIL
( 22 "Conflicting key bindings")
\TEDIT.KEY.CHARLOOKS :D8
(P 0 CURLOOKS I 2 NEWVALUE I 1 PROP I 0 TSTREAM) h@ Bgð²HA'gð•g„gb¿@ÉÉÉ jð›@ABh
Š@ABh
¿@ (101 \TEDIT.SHOWCARETLOOKS 94 \TEDIT.CHANGE.CHARLOOKS 82 TEDIT.CARETLOOKS 5 TEDIT.GET.LOOKS)
(66 SELECTION 61 SELECTION 54 TEXTOBJ 47 STREAM 38 ON 32 OFF 25 ON 14 TOGGLE)
()
\TEDIT.KEY.QUAD :D8
(P 0 NEWQUAD I 1 REVERSE I 0 TSTREAM) Ÿ@ÉÊ8jð´‚±ˆg@ g'A•o„o
µgh@H
@Hdgð—¿o°4dgð—¿o°$dgð—¿o°gð•o„oi (156 TEDIT.PROMPTPRINT 80 TEDIT.PARALOOKS 58 MEMB 34 TEDIT.GET.PARALOOKS)
(137 JUSTIFIED 122 CENTERED 106 RIGHT 90 LEFT 67 LEFT 39 QUAD 28 QUAD 12 TEXTOBJ 5 STREAM)
( 150 "" 144 "Justified" 130 "Centered" 114 "Aligned right" 98 "Aligned left" 53 (LEFT JUSTIFIED CENTERED RIGHT)
47 (RIGHT CENTERED JUSTIFIED LEFT))
\TEDIT.DEFAULTSSEL :D8
(I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) T@AÉ@!`H
0HÉ
°dYI»LµKh]<5D>K&¼µëMºdJ
¿B @AB (81 \TEDIT.SHOWCARETLOOKS 73 TEDIT.LOOKS 22 NCREATE2)
(31 CHARLOOKS 16 |CHARLOOKSTYPE#| 6 TEXTOBJ)
()
\TEDIT.SETDEFAULT.FROM.SEL :D8
(I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) A@B
hA HI@I(19 \TEDIT.PARSE.CHARLOOKS.LIST 12 TEDIT.GET.LOOKS)
(5 TEXTOBJ)
()
\TEDIT.KEY.SIZE :D8
(I 1 INCREMENT I 0 TSTREAM) R@ ³I@gAh
–@ @Ad3 •¿jAñ§Agð•o„oo
id h(77 TEDIT.PROMPTPRINT 70 CONCAT 29 \TEDIT.SHOWCARETLOOKS 22 \TEDIT.CHANGE.CHARLOOKS 5 \TEDIT.READONLY)
(47 - 13 SIZEINCREMENT)
( 65 " font is not available" 60 "Larger" 54 "Smaller")
\TEDIT.SUBSCRIPTSEL :D8
(I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @gmþhB (16 TEDIT.LOOKS)
(5 OFFSETINCREMENT)
()
\TEDIT.SUPERSCRIPTSEL :D8
(I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @glhB (16 TEDIT.LOOKS)
(5 OFFSETINCREMENT)
()
\TEDIT.KEY.TRANSFORM :D8
(P 1 SEL P 0 TEXTOBJ I 1 CHARFN I 0 TSTREAM) ‹@Ñ@‡@ÉHɹHÉjñ´]IhH h@ Ah@ @I @ Ii@ HÊFjð´)HÉHgHÉHA
A(89 \TEDIT.SHOWSEL 81 \TEDIT.RESET.EXTEND.PENDING.DELETE 75 \TEDIT.REPLACE.SELPIECES 68 \TEDIT.SELPIECES.CHARTRANSFORM 60 \TEDIT.SELPIECES.COPY 53 \TEDIT.SELPIECES)
(132 TEDITHISTORYEVENT 124 TEXTOBJ 116 :Transform 111 TEDITHISTORYEVENT 103 TEXTOBJ 37 SELECTION 30 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
()
\TEDIT.KEY.OPENLINE :D8
(I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) @g
@AB (18 \TEDIT.ONECHAR.BACKWARD 10 TEDIT.INSERT)
(5 %
)
()
\TEDIT.KEY.FAMILYN :D8
(P 0 NEWFAMILY I 1 CHARCODE I 0 TSTREAM F 1 TEDIT.FONTFAMILIES) mA ´eQAn0Ù
@ ³MH³@oAn0Ùo id @gHh
–@ @oH
id h(104 TEDIT.PROMPTPRINT 97 CONCAT 84 \TEDIT.SHOWCARETLOOKS 77 \TEDIT.CHANGE.CHARLOOKS 61 TEDIT.PROMPTPRINT 54 CONCAT 28 \TEDIT.READONLY 18 NTH 5 CHARCODEP)
(68 FAMILY)
( 91 "Cannot switch to font family " 49 " is not specified" 39 "Font family ")
CAP-CASECODE :D8
(I 1 INDEX I 0 CHAR) Akð–@ @ (16 L-CASECODE 9 U-CASECODE)
NIL
()
\TEDIT.SHOWCARETLOOKS :D8
(P 0 LOOKS I 0 TSTREAM) Þ@ É4@HÉ Hɲ!HÉjð³oHÉ
„oHÊjð¥o„oHÊ0jð¥o„oHÊ jð¥o„oHÊ0jð¥o„oHÉgð–o°oHÉ
i (219 TEDIT.PROMPTPRINT 213 CONCAT 207 CONCAT 202 L-CASE 64 CONCAT 24 \TEDIT.DESCRIBEFONT 5 TEXTOBJ)
(195 CHARLOOKS 175 BLACK 168 CHARLOOKS 145 CHARLOOKS 122 CHARLOOKS 99 CHARLOOKS 76 CHARLOOKS 57 CHARLOOKS 40 CHARLOOKS 30 CHARLOOKS 17 CHARLOOKS)
( 189 " color " 182 "" 162 "" 156 " unbreakable" 139 "" 133 " underlined" 116 "" 110 " overlined" 93 ""
87 " strikeout" 70 "" 51 " offset ")
\TEDIT.DESCRIBEFONT :D8
(I 0 FONT) <00>@g
i
o@g
@g
gð–o°o@g
@g
gð–o°o@g
(140 CONCAT 134 CONCAT 129 L-CASE 124 FONTPROP 94 FONTPROP 83 CONCAT 78 L-CASE 73 FONTPROP 43 FONTPROP 32 FONTPROP 16 L-CASE 10 FONTPROP)
(119 SLOPE 99 REGULAR 89 SLOPE 68 WEIGHT 48 MEDIUM 38 WEIGHT 27 SIZE 5 FAMILY)
( 113 " " 106 "" 62 " " 55 "" 21 " ")
\TEDIT.ONECHAR.BACKWARD :D8
(P 1 OBJ P 0 PT I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) qAB@B
!Hkñ´VAÊ8jð³0HkÙA
ZÊlð´JÉôJÉYœIg
³Ahhd@h @HkÙjg h(108 \TEDIT.UPDATE.SEL 93 \TEDIT.SHOWSEL 78 IMAGEOBJPROP 43 \TEDIT.CHTOPC 18 TEDIT.GETPOINT)
(103 LEFT 73 FIELDPREFIX 60 IMAGEOBJ 11 SELECTION 5 TEXTOBJ)
()
\TEDIT.ONECHAR.FORWARD :D8
(P 1 OBJ P 0 PT I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) oBA@B
!HAÉñ³QAÊ8jð³.HA
ZÊlð´JÉôJÉYœIg
³Ahhd@h @Hjg h(106 \TEDIT.UPDATE.SEL 93 \TEDIT.SHOWSEL 78 IMAGEOBJPROP 43 \TEDIT.CHTOPC 18 TEDIT.GETPOINT)
(101 RIGHT 73 FIELDSUFFIX 60 IMAGEOBJ 11 TEXTOBJ 5 SELECTION)
()
\TEDIT.ONELINE.UP :D8
(P 9 LN P 8 L1 P 7 FIRSTONE P 6 PANE P 2 LINEPANE P 1 LINE P 0 CHNO I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) î
AB@B
!BÉBÉAC MdÓ¿Mɵ±€¾Lµ°x_¿Kµ°n_¿O²HOÉýñ­HOÉkØýñ“Oµ#O´HOÉýñhð´HOÉkØýñ´OYµ<03>ÉÊ&jð³"O£I_¿Ng
ɵ)O¹NºI´7kIÉkÙñ³-BIÉÊ&jð³IHJ@ Œ¾L¼K»±ÿVIÉÉ@ h(233 \TEDIT.ONELINE.MOVE 211 \TEDIT.LASTVALIDLINE 164 GETWINDOWPROP 18 TEDIT.GETPOINT)
(169 PANEPROPS 159 PANEPROPS 112 LINEDESCRIPTOR 81 LINEDESCRIPTOR 38 TEXTOBJ 11 SELECTION 5 TEXTOBJ)
()
\TEDIT.ONELINE.DOWN :D8
(P 7 LN P 6 L1 P 5 CHNO P 2 NEXTCHNO P 1 NEXTLINE P 0 LINE I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) “AB0BÉBÉ@B
#Lµ…¾KµHd²ÉkØAÉýñ´BHÉkØ@ _¿N²MNÉýñ«MNÉkØýñ’Nµ#O´MOÉýñhð´MOÉkØýñ´OX³¢L¼K»°<C2BB>(69 \TEDIT.ONELINE.MOVE 27 TEDIT.GETPOINT)
(113 LINEDESCRIPTOR 84 LINEDESCRIPTOR 11 SELECTION 5 TEXTOBJ)
()
\TEDIT.ONELINE.MOVE :D8
(P 10 CHARCL P 9 CHARW P 8 CHAR P 7 CHARSLOT P 5 X P 4 TARGX P 3 THISLINE P 1 TEXTOBJ P 0 TARGETLINE I 2 TSTREAM I 1 CHNO I 0 SEL) Ö BA
BÉIÊ8jð´‚±¹IÉ8HÉ
Iɵ#I@Édgð”¿@ÉŠgð´@ÉZ¿JIÉ8T NdØ¿NÉ_¿KÉ_¿OÉ_¿OÉ_¿OÉ_¿OOð³)LOÔ¼MLñ®MLOâÙýñ³AkÔ°AkÔb¿OlÐ_°ÁHÉb¿@hB BAjg B (211 \TEDIT.SCROLL.CARET 205 \TEDIT.UPDATE.SEL 192 \TEDIT.SHOWSEL 6 \TEDIT.FORMATLINE)
(200 LEFT 105 THISLINE 94 THISLINE 86 THISLINE 62 RIGHT 50 LEFT 12 STREAM)
()
\TEDIT.ONEWORD.BACKWARD :D8
(P 2 FIRST P 1 LAST P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) BA @ kÙ1@H
ZH@J
»dKñ‘¿KY@JIJÙkØg A (63 TEDIT.NORMALIZECARET 57 \TEDIT.UPDATE.SEL 32 \TEDIT.WORD.LAST 23 \TEDIT.WORD.FIRST 11 TEDIT.GETPOINT 5 \TEDIT.RESET.EXTEND.PENDING.DELETE)
(52 LEFT)
()
\TEDIT.ONEWORD.FORWARD :D8
(P 2 FIRST P 1 LAST P 0 HERE I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) @A @ 1@H
YH@I
»dKñ¡¿KZ@JIJÙkØg A (61 TEDIT.NORMALIZECARET 55 \TEDIT.UPDATE.SEL 30 \TEDIT.WORD.FIRST 21 \TEDIT.WORD.LAST 11 TEDIT.GETPOINT 5 \TEDIT.RESET.EXTEND.PENDING.DELETE)
(50 RIGHT)
()
\TEDIT.LINE.BEGIN :D8
(P 0 L1 I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) ,BAÉJA H´A @HÉjg (41 \TEDIT.UPDATE.SEL 26 \TEDIT.RESET.EXTEND.PENDING.DELETE 14 \TEDIT.SEL.L1)
(36 LEFT 6 TEXTOBJ)
()
\TEDIT.LINE.END :D8
(P 0 LN I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) /BhA H´!A @HÉjHÉ•g„g (44 \TEDIT.UPDATE.SEL 19 \TEDIT.RESET.EXTEND.PENDING.DELETE 7 \TEDIT.SEL.LN)
(39 RIGHT 33 LEFT)
()
\TEDIT.DOCUMENT.BEGIN :D8
(I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) @kjg A (18 TEDIT.NORMALIZECARET 12 TEDIT.SETSEL)
(7 LEFT)
()
\TEDIT.DOCUMENT.END :D8
(I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) %A A @AÉkØjg @ (34 TEDIT.NORMALIZECARET 28 TEDIT.SETSEL 11 \TEDIT.RESET.EXTEND.PENDING.DELETE 5 \TEDIT.RESET.EXTEND.PENDING.DELETE)
(23 LEFT)
()
\TEDIT.LINEDELETE.FORWARD :D8
(P 1 HERE P 0 LINE I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) 5BhA H´'@ Yhd@h BIHÉkØIÙ @B
(50 \TEDIT.DELETE 43 \TEDIT.UPDATE.SEL 29 \TEDIT.SHOWSEL 19 TEDIT.GETPOINT 7 \TEDIT.SEL.LN)
NIL
()
\TEDIT.LINEDELETE.BACKWARD :D8
(P 1 HERE P 0 LINE I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) 3BhA H´%@ Yhd@h BIHÉIÙ @B
(48 \TEDIT.DELETE 41 \TEDIT.UPDATE.SEL 29 \TEDIT.SHOWSEL 19 TEDIT.GETPOINT 7 \TEDIT.SEL.L1)
NIL
()
\TEDIT.LINEDELETE :D8
(P 0 LINE I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) 2BhA H´$hd@h BHÉHÉkØHÉÙ @B
(47 \TEDIT.DELETE 40 \TEDIT.UPDATE.SEL 22 \TEDIT.SHOWSEL 7 \TEDIT.SEL.L1)
NIL
()
\TEDIT.KEY.NEST :D8
(P 7 LOOKS P 6 CHNO P 5 TARGETSEL P 4 DELTA P 1 SEL P 0 TEXTOBJ I 1 OUTFLAG I 0 TSTREAM F 8 TEDIT.NESTWIDTH) Ú@É!HÉYhH @g
µWI #A´jLÙ¼hd@h ¿IjÏ¿KµIkÏ¿Ii@ ¿@ h¾@N
_gOg'LØ ¿OgOg'LØ ¿OgOg'LÙºjJñ¡J€j ¿MNk ¿@OM ¿K[±ÿz(209 \TEDIT.CHANGE.PARALOOKS 199 \TEDIT.UPDATE.SEL 190 LISTPUT 159 LISTPUT 136 LISTPUT 114 TEDIT.GET.PARALOOKS 103 TEDIT.PROMPTCLEAR 96 \TEDIT.SHOWSEL 71 \TEDIT.SHOWSEL 52 \TEDIT.COPYSEL 42 GETTEXTPROP 31 \TEDIT.PARACHNOS)
(174 RIGHTMARGIN 167 RIGHTMARGIN 151 1STLEFTMARGIN 144 1STLEFTMARGIN 128 LEFTMARGIN 121 LEFTMARGIN 37 NESTWIDTH 23 SELECTION 16 TEXTOBJ 5 STREAM)
()
\TEDIT.KEY.WRAP :D8
(P 5 UNDOEVENT P 4 POINT P 3 DCH P 2 CH# P 1 SEL P 0 TEXTOBJ I 2 RIGHT I 1 LEFT I 0 TSTREAM) <00>@ÉQHÉYɺIÉ »Iɼh½@BIÉ
@IÉ
kÙ
@AJ @JA KØB ØL Hd H HgJKL
hgABh (141 \TEDIT.HISTORYADD.COMPOSITE 122 \TEDIT.HISTORY.EVENT 107 \TEDIT.POPEVENT 101 \TEDIT.POPEVENT 94 TEDIT.SETSEL 87 NCHARS 79 NCHARS 71 TEDIT.INSERT 63 TEDIT.INSERT 58 \TEDIT.NTHCHARLOOKS)
(131 :Wrap 113 :Sel 49 SELECTION 23 SELECTION 16 TEXTOBJ 5 STREAM)
()
\TEDIT.KEY.FINDA0001 :D8
(NAME SI::*UNWIND-PROTECT* P 2 CH P 1 SEL P 0 TEXTOBJ I 0 SI::*CLEANUP-FORMS* F 3 TSTREAM F 4 SEARCHSTRING F 5 BACKWARD F 6 SI::*RESETFORMS* F 7 AGAIN) ISÑS‡SÉ!HɹhºoHo
hVc T³HWU c´‚±ökT ñ’±éhdSh U²)SoTo i ¿ST i °'SoTo i ¿ST i Zd²tHoTo i S IJkñ•g„gSJJU•g„gHÊ:jð¥g„g
HdI
4S SoTo i h(324 TEDIT.PROMPTPRINT 318 CONCAT 300 TEDIT.NORMALIZECARET 292 \TEDIT.GET.INSERT.CHARLOOKS 284 \TEDIT.UPDATE.SEL 216 \TEDIT.RESET.EXTEND.PENDING.DELETE 210 TEDIT.PROMPTPRINT 204 CONCAT 183 \TEDIT.FIND 177 MKSTRING 169 TEDIT.PROMPTPRINT 163 CONCAT 144 \TEDIT.FIND.BACKWARD 138 MKSTRING 130 TEDIT.PROMPTPRINT 124 CONCAT 104 \TEDIT.SHOWSEL 90 NCHARS 75 \TEDIT.KEY.FIND.SEARCHSTRING 56 \TEDIT.MARKACTIVE)
(278 NORMAL 272 PENDINGDEL 260 RIGHT 254 LEFT 239 CHAR 233 WORD 222 SELECTION 37 SELECTION 30 TEXTOBJ 21 TEXTOBJ 14 STREAM 5 TEXTOBJ)
( 313 "%" not found" 307 "%"" 199 "%" found" 193 "%"" 158 "%"" 152 "Searching for %"" 119 "%"" 113 "Searching backward for %""
51 "Find" 45 (PROGN (\TEDIT.MARKINACTIVE OLDVALUE)))
\TEDIT.KEY.FIND :D8
(P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 SEARCHSTRING I 2 BACKWARD I 1 AGAIN I 0 TSTREAM F 3 LISPXHIST) &@ bS!g ¿$(31 SI::RESETUNWIND 26 \MVLIST 21 \TEDIT.KEY.FINDA0001 5 TEXTSTREAM)
(16 SI::RESETUNWIND)
()
\TEDIT.KEY.FIND.SEARCHSTRING :D8
(P 0 SEARCHSTRING I 2 BACKWARD I 1 AGAIN I 0 TEXTOBJ) GAœ@g
X€H³1@g
¸@B•o„oH X´@gH H(67 PUTTEXTPROP 52 TEDIT.GETINPUT 31 \TEDIT.GET.TARGET.STRING 15 GETTEXTPROP)
(61 TEDIT.LAST.FIND.STRING 26 TEDIT.LAST.FIND.STRING 10 TEDIT.LAST.FIND.STRING)
( 46 "Search string: " 40 "Backward search string: ")
\TEDIT.GET.TARGET.STRINGA0001 :D8
(P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 TEXTOBJ F 3 SI::NLSETQ-VALUE) i@R hcg(10 TEDIT.SEL.AS.STRING)
(19 :NORMAL)
()
\TEDIT.GET.TARGET.STRING :D8
(P 6 I P 4 *CONDITION-HANDLER-BINDINGS* P 3 SI::*NLSETQFLAG* P 2 *PROCEED-CASES* P 1 SI::NLSETQ-VALUE P 0 PREV I 1 PROP I 0 TEXTOBJ F 7 *PROCEED-CASES* F 8 *CONDITION-HANDLER-BINDINGS*) …@A
Hµ5k@ÉÉ ñ³i`WioWJ gð´I kNMó³-HN
o
²HNkÙ
l'ð¤Nµ i†NkÔ^°Óh²’H(110 NTHCHARCODE 99 MEMB 89 NTHCHARCODE 73 NCHARS 55 \TEDIT.GET.TARGET.STRINGA0001 11 STRINGP 6 GETTEXTPROP)
(61 :NORMAL 34 SI::NLSETQ-PROCEED-CASE)
( 94 (35 27 42) 43 (CL:ERROR . SI::NLSETQHANDLER))
\TEDIT.KEY.SUBSTITUTE :D8
(I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @hdi (8 TEDIT.SUBSTITUTE)
NIL
()
\TEDIT.MANPAGE :D8
(P 0 KEY I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) K@ g
³8@ @B
H˜H jð<6A>@oid @B
h(70 GENERIC.MAN.LOOKUP 65 TEDIT.SEL.AS.STRING 57 TEDIT.PROMPTPRINT 41 NCHARS 30 TEDIT.SEL.AS.STRING 23 TEDIT.PROMPTCLEAR 15 GETWINDOWUSERPROP 5 \TEDIT.PRIMARYPANE)
(10 DINFOGRAPH)
( 50 "Please select a man-page key")
\TEDIT.CALL.ED :D8
(P 0 SYMBOL I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) ^@ @B
d£d‘h H˜H jð<6A>@oid H ›Ho
@Ho
id (91 TEDIT.PROMPTPRINT 84 CONCAT 71 ED 59 TYPESOF 52 TEDIT.PROMPTPRINT 36 NCHARS 25 MKATOM 12 TEDIT.SEL.AS.SEXPR 5 TEDIT.PROMPTCLEAR)
NIL
( 79 " has no definitions to edit" 66 (:DONTWAIT :DISPLAY) 45 "Please select a symbol to edit")
\TEDIT.SELECT.ALL :D8
(I 2 SEL I 1 TEXTOBJ I 0 TEXTSTREAM) @kAÉg (19 TEDIT.SETSEL)
(14 LEFT 7 TEXTOBJ)
()
\TEDIT.CLIPBOARD :D8
(P 3 I F 4 WHEELSCROLLINTERRUPTS) ±nvg` nVg` ncg` nCg` nXg` nxg` @T°;d[ghggKhh` ¿K¸IµHhZ<>H&¹µÆJ(154 TEDIT.SETFUNCTION 107 TEDIT.SETFUNCTION 89 TEDIT.SETFUNCTION 71 TEDIT.SETFUNCTION 53 TEDIT.SETFUNCTION 35 TEDIT.SETFUNCTION 17 TEDIT.SETFUNCTION)
(149 TEDIT.READTABLE 133 WHEELSCROLLENABLED 128 AND 122 LAMBDA 102 TEDIT.READTABLE 97 \TEDIT.EXTRACTTOCLIPBOARD 84 TEDIT.READTABLE 79 \TEDIT.EXTRACTTOCLIPBOARD 66 TEDIT.READTABLE 61 \TEDIT.COPYTOCLIPBOARD 48 TEDIT.READTABLE 43 \TEDIT.COPYTOCLIPBOARD 30 TEDIT.READTABLE 25 PASTEFROMCLIPBOARD 12 TEDIT.READTABLE 7 PASTEFROMCLIPBOARD)
()
\TEDIT.COPYTOCLIPBOARD :D8
(I 3 EXTRACT I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) 5g ´)@µ`i
bd´dg
C´@ (50 TEDIT.DELETE 41 PUTCLIPBOARD 25 TEXTSTREAM 9 \DEFINEDP)
(36 \TEDIT.WRITE.SEL 19 \TTY.PROCESS 4 PUTCLIPBOARD)
()
\TEDIT.EXTRACTTOCLIPBOARD :D8
(I 2 SEL I 1 TEXTOBJ I 0 TSTREAM) @ABi (8 \TEDIT.COPYTOCLIPBOARD)
NIL
()
\TEDIT.WRITE.SEL :D8
(P 8 PRE P 7 CODE P 6 NOBJECTS P 5 OBJECTBYTE P 4 I P 1 SEL P 0 TEXTOBJ I 1 STREAM I 0 TSTREAM) ! @ !HÉYÉ jñ´‚±IÉ
kÙIÉHg
j$LKóª@L
_µ&Njñ´‚±Í@oNoNk𢱩o±¦ šOA
±ˆO ²rNkÔ¾MµdoA
¿Og
A
¿Og
µgºOOlJ_²oA
¿OA
¿oA
°A
‹oO
¿LkÔ\±ÿ3o i h(285 TEDIT.PROMPTPRINT 279 CONCAT 261 ERROR 248 PRINTCCODE 240 PRIN3 228 PRIN4 219 PRIN3 187 IMAGEOBJPROP 174 PRIN4 168 IMAGEOBJPROP 155 PRIN3 135 IMAGEOBJP 125 PRINTCCODE 116 CHARCODEP 71 \TEDIT.NTHCHARCODE 56 GETTEXTPROP 5 TEXTOBJ)
(194 NILL 182 PREPRINTFN 163 GETFN 51 OBJECTBYTE 43 SELECTION 33 SELECTION 17 SELECTION)
( 274 "s" 254 "UNRECOGNIZED TEDIT CHARACTER" 234 "}" 213 " : " 149 "{" 108 "" 96 " image object" 90 "Note: Selection contains ")
\TEDIT.READTABLE :D8
(P 2 RTBL) 4`l2 HdI¿`HdI¿hJ
J(48 TEDIT.INSTALL.CHARBINDINGS 12 HASHARRAY)
(27 |CHARTABLETYPE#| 4 CL::|READTABLEPTYPE#|)
()
\TEDIT.WORDBOUND.READTABLE :D8
(P 52 CODE P 51 CHAR P 50 TABLE P 49 CH P 47 CODE P 46 CHAR P 45 TABLE P 44 CH P 43 CODE P 42 CHAR P 41 TABLE P 40 CH P 39 CODE P 38 CHAR P 37 TABLE P 36 CODE P 35 CHAR P 34 TABLE P 33 CODE P 32 CHAR P 31 TABLE P 30 CODE P 29 CHAR P 28 TABLE P 27 CODE P 26 CHAR P 25 TABLE P 24 CODE P 23 CHAR P 22 TABLE P 21 CODE P 20 CHAR P 19 TABLE P 18 CH P 16 CH P 14 CH P 12 CH P 10 CH P 8 CH P 6 CH P 4 TEXTTTC P 3 READSA P 2 RTBL) u5`l2 HdI¿`HdI¿!JÉ»l¼lÿjNMó²slZlAOO󢱋lzla
OO󢱤l9l0 OOó¢±½nñþnñ!OOó¢±ÔlÏlÁO Oó¢±ílþláO$O"ó¢±o±PKNlO(lÿñ§O&O(O*ÇŠO&O(O* NkÔ^±ÿfKOLO.lÿñ§O,O.O0ÇŠO,O.O0 OkÔ_±ÿJKOLO4lÿñ§O2O4O6ÇŠO2O4O6 OkÔ_±ÿ1KOLO:lÿñ§O8O:O<ÇŠO8O:O< OkÔ_±ÿKOL!O@lÿñ§O>O@OBÇŠO>O@OB OkÔ_±ÿKO L$OFlÿñ§ODOFOHÇŠODOFOH O kÔ_ ±þèKO$L'OLlÿñ§OJOLONÇŠOJOLON O$kÔ_$±þÏd(KOPl+OTlÿñ§OROTOVÇŠOROTOV µÖo°/d,KOX L/O\lÿñ§OZO\O^ÇŠOZO\O^ µÒnð&nð!1ObO`ó³+KObL4Oflÿñ§OdOfOhÇŠOdOfOh ObkÔ_b°ÔJ(616 \SETFATSYNCODE 562 \SETFATSYNCODE 533 CHARCODE.DECODE 507 \SETFATSYNCODE 459 \SETFATSYNCODE 417 \SETFATSYNCODE 375 \SETFATSYNCODE 333 \SETFATSYNCODE 291 \SETFATSYNCODE 249 \SETFATSYNCODE 209 \SETFATSYNCODE 12 HARRAY)
(47 READTABLEP 27 |CHARTABLETYPE#| 4 CL::|READTABLEPTYPE#|)
( 518 (EMQUAD ENQUAD THINSPACE FIGURESPACE) 174 (13 10 13 32 9 12))
TEDIT.GETSYNTAX :D8
(I 1 TABLE I 0 CH) i@A
dgð•gdgð•gdgð•gdgð•gdgð•gdgð•g¥gg(6 TEDIT.GET.CHARACTION)
(102 FN 96 NONE 89 NEXT 82 :NEXT 75 REDO 68 :REDO 61 UNDO 54 :UNDO 47 DELETE 40 :DELETE 33 WORDDELETE 26 :WORDDELETE.BACKWARD 19 CHARDELETE 12 :CHARDELETE.BACKWARD)
()
TEDIT.SETSYNTAX :D8
(P 2 CODE P 1 CHAR P 0 TABLE I 2 RDTBL I 1 CLASS I 0 CHAR) t@d3@ð¦@ –@ €@bBµ `° i
²B ÉBµ `€Bb@B
BÉ@AoµjIlÿñ¤HIJLJHIJ (112 \SETFATSYNCODE 71 TEDIT.GETSYNTAX 46 TEXTOBJ 38 TEXTSTREAM 18 CHARCODE.DECODE 11 STRINGP)
(77 READTABLEP 60 TEDIT.READTABLE 51 TEXTOBJ 30 TEDIT.READTABLE)
( 86 ((NONE . 0) (CHARDELETE . 1) (:CHARDELETE.BACKWARD . 1) (WORDDELETE . 2) (:WORDDELETE.BACKWORD . 2) (DELETE . 3) (:DELETE . 3) (FN . 4) (REDO . 5) (:REDO . 5) (UNDO . 6) (:UNDO . 6) (CMD . 7) (:CMD . 7) (NEXT . 8) (:NEXT . 8) (EXPAND . 9) (:EXPAND . 9) (CHARDELETE.FORWARD . 10) (:CHARDELETE.FORWARD . 10) (:WORDDELETE.FORWARD . 11) (PUNCT . 20) (TEXT . 21) (WHITESPACE . 22)))
TEDIT.GETFUNCTION :D8
(I 1 RDTBL I 0 CHARCODE) “@ ¨@ b¿Aµ `° i
²A ÉBµ `€Abd ´QAÉ@lÿñ²HÉ€Ÿ@HÉ€
µj‚H@Âlð´AÉ´@AÉ
(142 GETHASH 105 GETHASH 63 READTABLEP 39 TEXTOBJ 31 TEXTSTREAM 12 CHARCODE.DECODE 5 CHARCODEP)
(135 READTABLEP 124 READTABLEP 98 CHARTABLE 88 CHARTABLE 71 READTABLEP 53 TEDIT.READTABLE 44 TEXTOBJ 23 TEDIT.READTABLE)
()
TEDIT.SETFUNCTION :D8
(P 2 CODE P 1 CHAR P 0 TABLE I 2 RDTBL I 1 FN I 0 CHARCODE) ‘@ ¨@ b¿Bµ `° i
²B ÉBµ `€BbdÉ@A’l€jIlÿñ¤HIJLJHIJ BɯBl2 ¿@gAhBÉ (142 PUTHASH 116 HARRAY 93 \SETFATSYNCODE 39 TEXTOBJ 31 TEXTSTREAM 12 CHARCODE.DECODE 5 CHARCODEP)
(135 READTABLEP 125 TEDIT 109 READTABLEP 100 READTABLEP 63 READTABLEP 53 TEDIT.READTABLE 44 TEXTOBJ 23 TEDIT.READTABLE)
()
TEDIT.WORDGET :D8
(I 1 TABLE I 0 CH) BAµ`É@d¤ Ilÿñ²HÉ€ŸIHÉ€
µjHIÂ(56 GETHASH 24 CHCON1)
(49 CHARTABLE 39 CHARTABLE 12 READTABLEP 7 TEDIT.WORDBOUND.READTABLE)
()
TEDIT.WORDSET :D8
(P 2 CODE P 1 CHAR P 0 TABLE I 2 TABLE I 1 CLASS I 0 CHARCODE) NBµ`É@d¤ Ad3 ³dgð“¿l‹gð’l<16>lIlÿñ¤HIJÇHIJ (75 \SETFATSYNCODE 24 CHARCODE.DECODE)
(47 WHITESPACE 36 PUNCT 12 READTABLEP 7 TEDIT.WORDBOUND.READTABLE)
()
TEDIT.ATOMBOUND.READTABLE :D8
(P 1 CODE P 0 TABLE I 0 READTABLE F 2 *READTABLE*) d@£Rb¿g@
°dIgH µìg@
°dIgH µìl:gH H(96 TEDIT.WORDSET 78 TEDIT.WORDSET 59 GETSYNTAX 43 TEDIT.WORDSET 24 GETSYNTAX 10 \TEDIT.WORDBOUND.READTABLE)
(90 TEXT 72 PUNCT 53 BREAK 37 TEXT 18 OTHER)
()
TEDIT.BUTTONS.BUILDA0006 :D8
(I 0 X) 9`É6gð´%` g ”@‚@
(54 \TEDIT.COMMAND.FUNCTION? 39 SHIFTDOWNP 29 TEXTSTREAM)
(34 SHIFT 24 \TTY.PROCESS 16 \TEDIT.PROCENTRYFN 9 PROCESS 4 \TTY.PROCESS)
()
TEDIT.BUTTONS.BUILD :D8
(P 15 CHAR P 14 ANAME P 9 CHARS P 8 BUTTON P 0 ITEMS I 3 KEYBINDINGS I 2 NROWS I 1 TITLE I 0 BUTTONSPEC F 16 TEDIT.BUTTONS.WINDOW F 17 TEDIT.BUTTONS.SPEC F 18 TEDIT.BUTTONBITMAP F 19 WBorder) oW šW ’±\@¤W"b¿A§ob¿C§`b¿@@Q Lµ‚±©MX`dH¿Ad˜lmþ ¹dI¿BµkºdJ¿dg¿dg ¿dg¿jdnÿdh»dK
¿h`l×W$ H Öl×ÕlW&ÖÔj c dgo W gjd _dŸd«dh
_QOµ O_³@°W_C_µ°" ’O†O _¿OµOh__¿O_°ÂO&_¿°óO Oh_¿NµOh^½L\±þÓO&¾°öh(334 TEDIT.BUTTONBITMAP.FILL 295 CHARCODE.DECODE 284 CHARCODEP 246 \APPEND2 225 PUTWINDOWPROP 210 PUTWINDOWPROP 205 TEDIT.BUTTONBITMAP.FILL 187 ADDMENU 169 LENGTH 163 BITMAPWIDTH 87 SUBSTRING 14 OPENWP 6 WINDOWP)
(217 ICONPOSITION 195 ICON 153 SCREENWIDTH 127 DEFAULTMENUHELDFN 118 CLRPROMPT 109 TEDIT.BUTTONS.BUILDA0006 68 |MENUTYPE#| 42 TEDIT.CHARBINDINGS)
( 200 (Tedit Buttons) 32 (Tedit Buttons))
TEDIT.BUTTONBITMAP.FILL :D8
(P 3 REGION P 2 QUARTER P 1 DS P 0 BITMAP I 0 X F 4 TEDIT.BUTTONBITMAP F 5 MENUFONT) iT 1H YUI
@d²3¿H lÛº@jJH Jh[I ¿KlJÚ¿@K°jdH H hI H(101 CENTERPRINTINREGION 90 BITMAPHEIGHT 84 BITMAPWIDTH 62 CENTERPRINTINREGION 49 BITMAPWIDTH 34 BITMAPHEIGHT 22 DSPFONT 14 DSPCREATE 5 BITMAPCOPY)
NIL
()
\TEDIT.TTCCLASS :D8
(L (0 CODE/CLASS)) *oHµh¹@d3 ’I<02>Ið•Iµîi°ëHX°âNIL
NIL
( 4 ((NONE . 0) (CHARDELETE . 1) (:CHARDELETE.BACKWARD . 1) (WORDDELETE . 2) (:WORDDELETE.BACKWORD . 2) (DELETE . 3) (:DELETE . 3) (FN . 4) (REDO . 5) (:REDO . 5) (UNDO . 6) (:UNDO . 6) (CMD . 7) (:CMD . 7) (NEXT . 8) (:NEXT . 8) (EXPAND . 9) (:EXPAND . 9) (CHARDELETE.FORWARD . 10) (:CHARDELETE.FORWARD . 10) (:WORDDELETE.FORWARD . 11) (PUNCT . 20) (TEXT . 21) (WHITESPACE . 22)))
(PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
(RPAQQ TEDIT-FNKEYSCOMS ((COMS (* ; "Public functions (binding data below)") (FNS
TEDIT.INSTALL.CHARBINDINGS TEDIT.CLEAR.CHARBINDINGS TEDIT.GET.CHARACTION TEDIT.GET.CHARBINDING
TEDIT.GET.ALL.CHARBINDINGS TEDIT.CHARBINDINGS.INVERT TEDIT.GET.ALL.CHARACTIONS
TEDIT.CONFLICTING.CHARBINDINGS)) (COMS (* ;; "Functions that implement the key actions:") (FNS
\TEDIT.KEY.CHARLOOKS \TEDIT.KEY.QUAD \TEDIT.DEFAULTSSEL \TEDIT.SETDEFAULT.FROM.SEL \TEDIT.KEY.SIZE
\TEDIT.SUBSCRIPTSEL \TEDIT.SUPERSCRIPTSEL \TEDIT.KEY.TRANSFORM \TEDIT.KEY.OPENLINE \TEDIT.KEY.FAMILYN)
(FNS CAP-CASECODE) (* ; "For intiial caps") (FNS \TEDIT.SHOWCARETLOOKS \TEDIT.DESCRIBEFONT)) (* ;
"Moving around") (FNS \TEDIT.ONECHAR.BACKWARD \TEDIT.ONECHAR.FORWARD \TEDIT.ONELINE.UP
\TEDIT.ONELINE.DOWN \TEDIT.ONELINE.MOVE \TEDIT.ONEWORD.BACKWARD \TEDIT.ONEWORD.FORWARD
\TEDIT.LINE.BEGIN \TEDIT.LINE.END \TEDIT.DOCUMENT.BEGIN \TEDIT.DOCUMENT.END) (FNS
\TEDIT.LINEDELETE.FORWARD \TEDIT.LINEDELETE.BACKWARD \TEDIT.LINEDELETE) (FNS \TEDIT.KEY.NEST) (FNS
\TEDIT.KEY.WRAP) (* ; "From TEDITDORADOKEYS") (INITVARS (TEDIT.NESTWIDTH 36)) (* ; "Find") (FNS
\TEDIT.KEY.FIND \TEDIT.KEY.FIND.SEARCHSTRING \TEDIT.GET.TARGET.STRING) (* ; "Miscellaneous") (FNS
\TEDIT.KEY.SUBSTITUTE \TEDIT.MANPAGE \TEDIT.CALL.ED \TEDIT.SELECT.ALL) (* ; "Clipboard") (FNS
\TEDIT.CLIPBOARD \TEDIT.COPYTOCLIPBOARD \TEDIT.EXTRACTTOCLIPBOARD \TEDIT.WRITE.SEL) (VARS (
TEDIT.FNKEY.VERBOSE T)) (COMS (* ; "Read-table Utilities") (GLOBALVARS TEDIT.READTABLE
TEDIT.WORDBOUND.READTABLE) (FNS \TEDIT.READTABLE \TEDIT.WORDBOUND.READTABLE TEDIT.GETSYNTAX
TEDIT.SETSYNTAX TEDIT.GETFUNCTION TEDIT.SETFUNCTION TEDIT.WORDGET TEDIT.WORDSET
TEDIT.ATOMBOUND.READTABLE)) (* ;;
"On-screen formatting buttons (TEDIT.BUTTONS.BUILD) creates the default button menu") (FNS
TEDIT.BUTTONS.BUILD TEDIT.BUTTONBITMAP.FILL) (INITVARS TEDIT.BUTTONS.WINDOW) (VARS TEDIT.BUTTONBITMAP)
(INITVARS (TEDIT.BUTTONS.SPEC (QUOTE ((Bold :BOLD.ON :BOLD.OFF) (Italic :ITALIC.ON :ITALIC.OFF) (Case
:UCASE :LCASE) ((Strike- out) :STRIKEOUT.ON :STRIKEOUT.OFF) ((Under- line) :UNDERLINE.ON
:UNDERLINE.OFF) ((Super/ Sub) :SUPERSCRIPT :SUBSCRIPT) ((Larger Smaller) :LARGER :SMALLER) (Justify
:QUAD) (Defaults :DEFAULTS) (Show :SHOW.CHARLOOKS) (Redo :REDO))))) (* ; "Keybindings") (DECLARE%:
EVAL@COMPILE DONTCOPY (EXPORT (CONSTANTS \TEDIT.TTCCODES) (MACROS \TEDIT.TTC))) (FNS \TEDIT.TTCCLASS)
(VARS ORIG.TEDIT.CHARACTIONS) (INITVARS (TEDIT.CHARACTIONS (APPEND ORIG.TEDIT.CHARACTIONS))) (VARS
TEDIT.BASIC.CHARBINDINGS TEDIT.DORADO.CHARBINDINGS) (INITVARS (TEDIT.CHARBINDINGS (APPEND
TEDIT.BASIC.CHARBINDINGS TEDIT.DORADO.CHARBINDINGS))) (GLOBALVARS TEDIT.CHARBINDINGS TEDIT.CHARACTIONS
) (* ; "Installation") (DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (TEDIT.READTABLE (\TEDIT.READTABLE)) (
TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE))))))
(RPAQ? TEDIT.NESTWIDTH 36)
(RPAQQ TEDIT.FNKEY.VERBOSE T)
(RPAQ? TEDIT.BUTTONS.WINDOW NIL)
(RPAQQ TEDIT.BUTTONBITMAP #*(78 48)OOOOOOOOOOOOOOOOOOOLON@@@@@@@@@@@@@@@AOLO@@@@@@@@@@@@@@@@@CLO@@@@@@@@@@@@@@@@@CLMH@@@@@@@@@@@@@@@@DLNLGOOOOOOOOOOOOOOHHLMFL@@@@@@@@@@@@@@M@LJK@@@@@@@@@@@@@@@B@DMF@@@@@@@@@@@@@@@A@DJN@@@@@@@@@@@@@@@AHDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMD@@@@@@@@@@@@@@@@HDJL@@@@@@@@@@@@@@@@HDMF@@@@@@@@@@@@@@@AHDJJ@@@@@@@@@@@@@@@A@DMG@@@@@@@@@@@@@@@B@DNEL@@@@@@@@@@@@@@O@LLIGOOOOOOOOOOOOOOMHLOBBJJJJJJJJJJJJJJJLLNDEEEEEEEEEEEEEEEEGLOHJJJJJJJJJJJJJJJJKLOLEEEEEEEEEEEEEEEEOLOOOOOOOOOOOOOOOOOOOL
)
(RPAQ? TEDIT.BUTTONS.SPEC (QUOTE ((Bold :BOLD.ON :BOLD.OFF) (Italic :ITALIC.ON :ITALIC.OFF) (Case
:UCASE :LCASE) ((Strike- out) :STRIKEOUT.ON :STRIKEOUT.OFF) ((Under- line) :UNDERLINE.ON
:UNDERLINE.OFF) ((Super/ Sub) :SUPERSCRIPT :SUBSCRIPT) ((Larger Smaller) :LARGER :SMALLER) (Justify
:QUAD) (Defaults :DEFAULTS) (Show :SHOW.CHARLOOKS) (Redo :REDO))))
(RPAQQ ORIG.TEDIT.CHARACTIONS ((* ;;
"This defines Tedit's implementation of the named actions. They are activated by keybinding specifications given to TEDIT.INSTALL.KEYBINDINGS."
) (* ;; "") (* ;; "History") (:UNDO (TEDIT.UNDO TSTREAM)) (:UNDO.UNDO \TEDIT.UNDO.UNDO) (* ; "CHECK")
(:REDO TEDIT.REDO) (* ;; "") (* ;; "Find") (:FIND.FORWARD (\TEDIT.KEY.FIND TSTREAM)) (:FIND.BACKWARD (
\TEDIT.KEY.FIND TSTREAM NIL T)) (:FIND.FORWARD-AGAIN (\TEDIT.KEY.FIND TSTREAM T)) (
:FIND.BACKWARD-AGAIN (\TEDIT.KEY.FIND TSTREAM T T)) (:SUBSTITUTE \TEDIT.KEY.SUBSTITUTE) (:NEXT
TEDIT.NEXT) (* ;; "") (* ;; "Character looks") (:BOLD.ON (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE BOLD) (
QUOTE ON))) (:BOLD.OFF (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE BOLD) (QUOTE OFF))) (:BOLD.TOGGLE (
\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE BOLD) (QUOTE TOGGLE))) (:ITALIC.ON (\TEDIT.KEY.CHARLOOKS TSTREAM (
QUOTE ITALIC) (QUOTE ON))) (:ITALIC.OFF (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE ITALIC) (QUOTE OFF))) (
:ITALIC.TOGGLE (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE ITALIC) (QUOTE TOGGLE))) (:UCASE (
\TEDIT.KEY.TRANSFORM TSTREAM (FUNCTION U-CASECODE))) (:LCASE (\TEDIT.KEY.TRANSFORM TSTREAM (FUNCTION
L-CASECODE))) (:INITIALCAP (\TEDIT.KEY.TRANSFORM TSTREAM (FUNCTION CAP-CASECODE))) (:STRIKEOUT.ON (
\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE STRIKEOUT) (QUOTE ON))) (:STRIKEOUT.OFF (\TEDIT.KEY.CHARLOOKS
TSTREAM (QUOTE STRIKEOUT) (QUOTE OFF))) (:STRIKEOUT.TOGGLE (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE
STRIKEOUT) (QUOTE TOGGLE))) (:UNDERLINE.ON (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE UNDERLINE) (QUOTE ON))
) (:UNDERLINE.OFF (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE UNDERLINE) (QUOTE OFF))) (:UNDERLINE.TOGGLE (
\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE UNDERLINE) (QUOTE TOGGLE))) (:OVERLINE.ON (\TEDIT.KEY.CHARLOOKS
TSTREAM (QUOTE OVERLINE) (QUOTE ON))) (:OVERLINE.OFF (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE OVERLINE) (
QUOTE OFF))) (:OVERLINE.TOGGLE (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE OVERLINE) (QUOTE TOGGLE))) (
:UNBREAKABLE.ON (\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE UNBREAKABLE) (QUOTE ON))) (:UNBREAKABLE.OFF (
\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE UNBREAKABLE) (QUOTE OFF))) (:UNBREAKABLE.TOGGLE (
\TEDIT.KEY.CHARLOOKS TSTREAM (QUOTE UNBREAKABLE) (QUOTE TOGGLE))) (:SUBSCRIPT \TEDIT.SUBSCRIPTSEL) (
:SUPERSCRIPT \TEDIT.SUPERSCRIPTSEL) (:SMALLER (\TEDIT.KEY.SIZE TSTREAM (QUOTE -))) (:LARGER (
\TEDIT.KEY.SIZE TSTREAM (QUOTE +))) (:FAMILYN (\TEDIT.KEY.FAMILYN TSTREAM CHARCODE)) (:DEFAULTS
\TEDIT.DEFAULTSSEL) (:SHOW.CHARLOOKS \TEDIT.SHOWCARETLOOKS) (* ;; "") (* ;; "Paragraph looks") (:NEST
(\TEDIT.KEY.NEST TSTREAM)) (:UNNEST (\TEDIT.KEY.NEST TSTREAM T)) (:QUAD (\TEDIT.KEY.QUAD TSTREAM)) (
:QUAD.REVERSE (\TEDIT.KEY.QUAD TSTREAM T)) (* ;; "") (* ;; "Cursor/selection") (:ONECHAR.BACKWARD
\TEDIT.ONECHAR.BACKWARD) (:ONECHAR.FORWARD \TEDIT.ONECHAR.FORWARD) (:LINE.UP \TEDIT.ONELINE.UP) (
:LINE.DOWN \TEDIT.ONELINE.DOWN) (:ONEWORD.FORWARD \TEDIT.ONEWORD.FORWARD) (:ONEWORD.BACKWARD
\TEDIT.ONEWORD.BACKWARD) (:LINE.BEGIN \TEDIT.LINE.BEGIN) (:LINE.END \TEDIT.LINE.END) (:DOCUMENT.BEGIN
\TEDIT.DOCUMENT.BEGIN) (:DOCUMENT.END \TEDIT.DOCUMENT.END) (:ALL \TEDIT.SELECT.ALL) (* ;; "") (* ;;
"Deletion ") (:CHARDELETE.BACKWARD (\TEDIT.CHARDELETE TSTREAM)) (:CHARDELETE.FORWARD (
\TEDIT.CHARDELETE TSTREAM T)) (:WORDDELETE.BACKWARD \TEDIT.WORDDELETE) (:WORDDELETE.FORWARD
\TEDIT.WORDDELETE.FORWARD) (:LINEDELETE.FORWARD \TEDIT.LINEDELETE.FORWARD) (:LINEDELETE.BACKWARD
\TEDIT.LINEDELETE.BACKWARD) (:LINEDELETE \TEDIT.LINEDELETE) (* ;; "") (* ;; "Miscellaneous") (:MANPAGE
\TEDIT.MANPAGE) (:OPEN.SEDIT \TEDIT.CALL.ED) (:PRINT.MENU \TEDIT.PRINT.MENU) (:EXPAND
\TEDIT.ABBREV.EXPAND) (:GET.OBJECT GET.OBJ.FROM.USER) (:PAGENUMOBJ (TEDIT.INSERT.OBJECT (
TEDIT.PAGENO.CREATE) TSTREAM)) (:OPENLINE \TEDIT.KEY.OPENLINE) (* ;; "") (* ;; "From TEDITDORADOKEYS")
(:WRAP.PARENS (\TEDIT.KEY.WRAP TSTREAM "(" ")")) (:WRAP.NEUTRAL.DOUBLEQUOTES (\TEDIT.KEY.WRAP TSTREAM
"%"" "%"")) (:WRAP.REAL.DOUBLEQUOTES (\TEDIT.KEY.WRAP TSTREAM (CHARACTER (CHARCODE LEFT-DOUBLEQUOTE))
(CHARACTER (CHARCODE RIGHT-DOUBLEQUOTE)))) (* ;; "") (* ;; "Clipboard") (:CLIPBOARD-PASTE
PASTEFROMCLIPBOARD) (:CLIPBOARD-COPY \TEDIT.COPYTOCLIPBOARD) (:CLIPBOARD-EXTRACT
\TEDIT.EXTRACTTOCLIPBOARD) (* ;; "") (* ;; "Wheelscroll") (:WHEELSCROLL-UP (WHEELSCROLL (QUOTE
VERTICAL) T)) (:WHEELSCROLL-DOWN (WHEELSCROLL (QUOTE VERTICAL))) (:WHEELSCROLL-LEFT (WHEELSCROLL (
QUOTE HORIZONTAL))) (:WHEELSCROLL-RIGHT (WHEELSCROLL (QUOTE HORIZONTAL) T))))
(RPAQ? TEDIT.CHARACTIONS (APPEND ORIG.TEDIT.CHARACTIONS))
(RPAQQ TEDIT.BASIC.CHARBINDINGS ((* ;;
"Establishes key bindings for particular Tedit key actions. Function,xxx roughly correspond to Koto release notes, but this preserves the immediately preceding assignments if those drifted away from the Koto notes. There is no obvious way of typing Function. Maybe Meta,^xxx instead, as in DORADO.KEYBINDINGS. (But CTRL collapses upper and lower case)."
) (* ;; "") (* ;; "History") (:UNDO "Meta,u" "Meta,z" "Function,4" "Function,44") (:UNDO.UNDO "Meta,U"
"Meta,Z") (:REDO "Meta,r" "Meta,R" "Function,10" "Function,50") (* ;; "") (* ;; "Find") (
:FIND.FORWARD "Meta,f" "Function,3" "Function,43") (:FIND.BACKWARD "Meta,F") (:FIND.FORWARD-AGAIN
"Meta,g") (:FIND.BACKWARD-AGAIN "Meta,G") (:SUBSTITUTE "Meta,s" "Meta,S") (:NEXT "Meta,N" "Meta,n"
"Function,22") (* ;; "") (* ;; "Character looks") (:BOLD.ON "Function,102") (:BOLD.OFF "Function,142")
(:BOLD.TOGGLE) (:ITALIC.ON "Function,103") (:ITALIC.OFF "Function,143") (:ITALIC.TOGGLE) (:UCASE
"Function,104") (:LCASE "Function,144") (:STRIKEOUT.ON "Function,105") (:STRIKEOUT.OFF "Function,145")
(:STRIKEOUT.TOGGLE) (:UNDERLINE.ON "Function,106") (:UNDERLINE.OFF "Function,146") (:UNDERLINE.TOGGLE
) (:OVERLINE.ON) (:OVERLINE.OFF) (:OVERLINE.TOGGLE) (:SUBSCRIPT "Function,114") (:SUPERSCRIPT
"Function,113") (:SMALLER "Function,110") (:LARGER "Function,150") (:FAMILYN "Meta,One" "Meta,Two"
"Meta,Three" "Meta,Four" "Meta,Five" "Meta,Six") (:DEFAULTS "Function,115" "Function,155") (
:SHOW.CHARLOOKS "Function,1") (* ;; "") (* ;; "Paragraph looks") (:QUAD "Function,101") (:NEST
"Meta,[") (:UNNEST "Meta,]") (* ;; "") (* ;; "Cursor/selection") (:ONECHAR.BACKWARD "Meta,<" "Meta,,")
(* ; "From arrows") (:ONECHAR.FORWARD "Meta,>" "Meta,.") (:LINE.UP "Meta,^") (:LINE.DOWN "Meta,LF") (
:ONEWORD.FORWARD) (:ONEWORD.BACKWARD) (:LINE.BEGIN) (:LINE.END) (:ALL "Meta,a" "Meta,A") (* ;; "") (*
;; "Deletion") (:CHARDELETE.BACKWARD "BS" "^A") (:CHARDELETE.FORWARD RUBOUT) (:WORDDELETE.BACKWARD
"^W") (:WORDDELETE.FORWARD "^U") (:LINEDELETE.FORWARD) (:LINEDELETE.BACKWARD) (:LINEDELETE) (* ;; "")
(* ;; "Miscellaneous") (:MANPAGE "Meta,D" "Meta,d") (:OPEN.SEDIT "Meta,O" "Meta,o") (:PRINT.MENU
"Meta,P" "Meta,p") (:EXPAND "^X") (:GET.OBJECT "^O") (:PAGENUMOBJ "^P") (* ;; "") (* ;;
"Wheelscroll ") (:WHEELSCROLL-UP "WHEELSCROLL-UP") (:WHEELSCROLL-DOWN "WHEELSCROLL-DOWN") (
:WHEELSCROLL-LEFT "WHEELSCROLL-LEFT") (:WHEELSCROLL-RIGHT "WHEELSCROLL-RIGHT") (* ;; "") (* ;;
"Clipboard") (:CLIPBOARD-PASTE "Meta,V" "Meta,v") (:CLIPBOARD-COPY "Meta,C" "Meta,c") (
:CLIPBOARD-EXTRACT "Meta,X" "Meta,x")))
(RPAQQ TEDIT.DORADO.CHARBINDINGS ((* ;;
"Taken from lispusers>TKDORADO, these make the indicated Tedit commands available from the Dorado keyboard."
) (:DEFAULTS "Meta,^V") (:BOLD.ON "Meta,^B" "Meta,b") (:BOLD.OFF "Meta,^N" "Meta,B") (:ITALIC.ON
"Meta,^I" "Meta,i") (:ITALIC.OFF "Meta,^O" "Meta,I") (:OVERLINE.ON "Meta,^D") (:OVERLINE.OFF "Meta,^F"
) (:STRIKEOUT.ON "Meta,^G" "Meta,=") (:STRIKEOUT.OFF "Meta,^H" "Meta,+") (* (UNDERLINE.ON "Meta,^J")
conflicts with :LINE.DOWN) (:UNDERLINE.ON "Meta,-") (:UNDERLINE.OFF "Meta,^K" "Meta,_") (:SMALLER
"Meta,^[") (:LARGER "Meta,^^]") (:SUBSCRIPT "Meta,^^") (:SUPERSCRIPT "Meta,^_") (:QUAD "Meta,^C") (*
;; "Mappings from lispusers>TEDITDORADOKEYS") (* ("Meta,c" QUAD) ("Meta,C" QUAD) ("Meta,x" EXPAND) (
"Meta,X" EXPAND) conflict with clipboard) (* ("Meta,^" SUBSCRIPT) conflicts with LINE.UP) (
:WRAP.PARENS "Meta,(" "Meta,Nine") (:WRAP.NEUTRAL.DOUBLEQUOTES "Meta,%"") (:WRAP.REAL.DOUBLEQUOTES
"Meta,'")))
(RPAQ? TEDIT.CHARBINDINGS (APPEND TEDIT.BASIC.CHARBINDINGS TEDIT.DORADO.CHARBINDINGS))
(RPAQ TEDIT.READTABLE (\TEDIT.READTABLE))
(RPAQ TEDIT.WORDBOUND.READTABLE (\TEDIT.WORDBOUND.READTABLE))
NIL
Reference in New Issue View Git Blame Copy Permalink