github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-16 00:34:03 +00:00
Code Issues Projects Releases Wiki Activity

Tedit changes so that TEDIT.GETSYNTAX conforms to documentation, fixes Sketch backspace

Browse Source
This commit is contained in:
rmkaplan 2025-11-08 13:34:29 -08:00
parent 1466ab5187
commit 4133da4556
4 changed files with 93 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
library/tedit/TEDIT-COMMAND
View File

@ -1,14 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "17-Jul-2025 00:24:49" 
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-COMMAND.;165 19015
(FILECREATED " 8-Nov-2025 10:03:19" {WMEDLEY}<library>TEDIT>TEDIT-COMMAND.;166 19030
:EDIT-BY rmk
:CHANGES-TO (FNS \TEDIT.COMMAND.RESET.SETUP)
:CHANGES-TO (FNS \TEDIT.COMMAND.FUNCTION?)
:PREVIOUS-DATE "23-Mar-2025 15:27:20"
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT-COMMAND.;163)
:PREVIOUS-DATE "17-Jul-2025 00:24:49" {WMEDLEY}<library>TEDIT>TEDIT-COMMAND.;165)
(PRETTYCOMPRINT TEDIT-COMMANDCOMS)
@ -137,7 +135,8 @@
(FSETTOBJ TEXTOBJ EDITOPACTIVE NIL)))])
(\TEDIT.COMMAND.FUNCTION?
[LAMBDA (TSTREAM CHARCODE) (* ; "Edited 23-Mar-2025 15:27 by rmk")
[LAMBDA (TSTREAM CHARCODE) (* ; "Edited 8-Nov-2025 10:00 by rmk")
(* ; "Edited 23-Mar-2025 15:27 by rmk")
(DECLARE (SPECVARS TSTREAM CHARCODE))
(* ;; "If CHARCODE is a function in TSTREAM's read table, execute the function.")
@ -145,7 +144,7 @@
(LET ((TEXTOBJ (GETTSTR TSTREAM TEXTOBJ))
FN)
(DECLARE (SPECVARS TEXTOBJ))
(CL:WHEN [AND (EQ (\TEDIT.TTC FUNCTIONCALL)
(CL:WHEN [AND (EQ (\TEDIT.TTC FN)
(\SYNCODE (fetch READSA of (FGETTOBJ TEXTOBJ TXTRTBL))
CHARCODE))
(SETQ FN (CAR (fetch MACROFN of (GETHASH CHARCODE (fetch READMACRODEFS
@ -303,7 +302,7 @@
(GLOBALVARS || TEDIT.INTERRUPTS)
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (2709 10263 (\TEDIT.COMMAND.LOOP 2719 . 9060) (\TEDIT.COMMAND.FUNCTION? 9062 . 10261)) (
10264 18725 (\TEDIT.INTERRUPT.SETUP 10274 . 11921) (\TEDIT.MARKACTIVE 11923 . 12252) (
\TEDIT.MARKINACTIVE 12254 . 12470) (\TEDIT.COMMAND.RESET.SETUP 12472 . 18723)))))
(FILEMAP (NIL (2625 10278 (\TEDIT.COMMAND.LOOP 2635 . 8976) (\TEDIT.COMMAND.FUNCTION? 8978 . 10276)) (
10279 18740 (\TEDIT.INTERRUPT.SETUP 10289 . 11936) (\TEDIT.MARKACTIVE 11938 . 12267) (
\TEDIT.MARKINACTIVE 12269 . 12485) (\TEDIT.COMMAND.RESET.SETUP 12487 . 18738)))))
STOP

BIN
library/tedit/TEDIT-COMMAND.LCOM
View File

Binary file not shown.

141
library/tedit/TEDIT-FNKEYS
View File

@ -1,12 +1,15 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED " 7-Aug-2025 15:00:51" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;294 106161
(FILECREATED " 8-Nov-2025 13:32:36" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;299 107884
:EDIT-BY rmk
:CHANGES-TO (VARS TEDIT-FNKEYSCOMS)
:CHANGES-TO (FNS TEDIT.GETSYNTAX TEDIT.GETFUNCTION TEDIT.CLEAR.CHARBINDINGS
TEDIT.GET.CHARACTION TEDIT.GET.ALL.CHARBINDINGS TEDIT.GET.ALL.CHARACTIONS
TEDIT.SETFUNCTION)
(VARS TEDIT.BASIC.CHARBINDINGS \TEDIT.TTCCODES)
:PREVIOUS-DATE " 6-Aug-2025 08:59:59" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;293)
:PREVIOUS-DATE " 7-Aug-2025 15:00:51" {WMEDLEY}<library>TEDIT>TEDIT-FNKEYS.;294)
(PRETTYCOMPRINT TEDIT-FNKEYSCOMS)
@ -124,7 +127,8 @@
RDTBL])
(TEDIT.CLEAR.CHARBINDINGS
[LAMBDA (RDTBL BINDINGS) (* ; "Edited 5-Apr-2025 11:36 by rmk")
[LAMBDA (RDTBL BINDINGS) (* ; "Edited 8-Nov-2025 10:00 by rmk")
(* ; "Edited 5-Apr-2025 11:36 by rmk")
(* ; "Edited 18-Mar-2025 11:10 by rmk")
(* ; "Edited 15-Mar-2025 12:02 by rmk")
@ -142,7 +146,7 @@
[if (EQ BINDINGS T)
then [MAPHASH (fetch READMACRODEFS of RDTBL)
(FUNCTION (LAMBDA (VAL CHARCODE)
(CL:WHEN (EQ (\TEDIT.TTC FUNCTIONCALL)
(CL:WHEN (EQ (\TEDIT.TTC FN)
(\SYNCODE (fetch READSA of RDTBL)
CHARCODE))
(TEDIT.SETFUNCTION CHARCODE NIL RDTBL)
@ -163,7 +167,8 @@
RDTBL))])])
(TEDIT.GET.CHARACTION
[LAMBDA (CHARCODE BINDINGS) (* ; "Edited 5-Apr-2025 11:36 by rmk")
[LAMBDA (CHARCODE BINDINGS) (* ; "Edited 8-Nov-2025 10:00 by rmk")
(* ; "Edited 5-Apr-2025 11:36 by rmk")
(* ; "Edited 19-Mar-2025 14:51 by rmk")
(* ; "Edited 18-Mar-2025 11:07 by rmk")
(* ; "Edited 17-Mar-2025 09:43 by rmk")
@ -195,7 +200,7 @@
[MAPHASH (fetch READMACRODEFS of RDTBL)
(FUNCTION (LAMBDA (VAL CCODE)
(CL:WHEN (AND (EQ CCODE CHARCODE)
(EQ (\TEDIT.TTC FUNCTIONCALL)
(EQ (\TEDIT.TTC FN)
(\SYNCODE (fetch READSA of RDTBL)
CHARCODE)))
(for CA in TEDIT.CHARACTIONS when (EQUAL (CADR CA)
@ -238,7 +243,8 @@
CHARS)])
(TEDIT.GET.ALL.CHARBINDINGS
[LAMBDA (RDTBL RETURNCODES) (* ; "Edited 23-Apr-2025 10:11 by rmk")
[LAMBDA (RDTBL RETURNCODES) (* ; "Edited 8-Nov-2025 10:00 by rmk")
(* ; "Edited 23-Apr-2025 10:11 by rmk")
(* ; "Edited 7-Apr-2025 22:11 by rmk")
(* ; "Edited 5-Apr-2025 11:37 by rmk")
(* ; "Edited 18-Mar-2025 20:51 by rmk")
@ -256,7 +262,7 @@
(LET (ACTIONS)
[MAPHASH (fetch READMACRODEFS of RDTBL)
(FUNCTION (LAMBDA (VAL CCODE)
(CL:WHEN (EQ (\TEDIT.TTC FUNCTIONCALL)
(CL:WHEN (EQ (\TEDIT.TTC FN)
(\SYNCODE (fetch READSA of RDTBL)
CCODE))
(for CA ANAME in TEDIT.CHARACTIONS when (LISTP CA)
@ -272,7 +278,7 @@
[for A S in ACTIONS do (SETQ S (SORT (CDR A)))
(RPLACD A (CL:IF RETURNCODES
S
(CHARCODE.ENCODE S))]
(CHARCODE.ENCODE S))]
ACTIONS])
(TEDIT.CHARBINDINGS.INVERT
@ -300,7 +306,8 @@
(RETURN ACTIONSPERCHAR])
(TEDIT.GET.ALL.CHARACTIONS
[LAMBDA (RDTBL RETURNCODES) (* ; "Edited 23-Apr-2025 10:11 by rmk")
[LAMBDA (RDTBL RETURNCODES) (* ; "Edited 8-Nov-2025 10:00 by rmk")
(* ; "Edited 23-Apr-2025 10:11 by rmk")
(* ; "Edited 5-Apr-2025 11:37 by rmk")
(* ; "Edited 18-Mar-2025 20:51 by rmk")
(CL:UNLESS (READTABLEP RDTBL)
@ -314,7 +321,7 @@
(LET (ACTIONS)
[MAPHASH (fetch READMACRODEFS of RDTBL)
(FUNCTION (LAMBDA (VAL CCODE)
(CL:WHEN (EQ (\TEDIT.TTC FUNCTIONCALL)
(CL:WHEN (EQ (\TEDIT.TTC FN)
(\SYNCODE (fetch READSA of RDTBL)
CCODE))
(for CA ANAME in TEDIT.CHARACTIONS when (LISTP CA)
@ -330,7 +337,7 @@
[for A S in ACTIONS do (SETQ S (SORT (CDR A)))
(RPLACD A (CL:IF RETURNCODES
S
(CHARCODE.ENCODE S))]
(CHARCODE.ENCODE S))]
ACTIONS])
(TEDIT.CONFLICTING.CHARBINDINGS
@ -1308,24 +1315,41 @@
RTBL])
(TEDIT.GETSYNTAX
[LAMBDA (CH TABLE) (* ; "Edited 29-May-2025 16:20 by rmk")
[LAMBDA (CH TABLE) (* ; "Edited 8-Nov-2025 13:32 by rmk")
(* ; "Edited 29-May-2025 16:20 by rmk")
(* ; "Edited 12-Mar-2025 12:55 by rmk")
(* ; "Edited 24-Dec-2023 09:47 by rmk")
(* ; "Edited 31-Mar-87 10:01 by jds")
(* ;; "Find TEdit's interpretation of a given character")
(* ;; "SKETCH uses this function.")
(CAR (find TTC (SYNCODE _ (\SYNCODE (fetch READSA of (if (NULL TABLE)
then TEDIT.READTABLE
elseif (TEXTSTREAM TABLE T)
then (OR (GETTOBJ (TEXTOBJ TABLE)
TXTRTBL)
TEDIT.READTABLE)
else TABLE))
(CL:IF (OR (LITATOM CH)
(STRINGP CH))
(CHARCODE.DECODE CH)
CH))) in \TEDIT.TTCCODES suchthat (EQ SYNCODE (CADR TTC])
(LET
((ACTION (TEDIT.GET.CHARACTION CH TABLE)))
(if ACTION
then
(* ;; "Map back to syntax-class names just for those defined classes, otherwise FN, for compatibility with documentation and history. But (OR (CAR (MKLIST ACTION)) 'NONE) would be simpler and more informative")
(OR (find CLASS in '(CHARDELETE WORDDELETE DELETE UNDO REDO NEXT)
suchthat (OR (EQ CLASS ACTION)
(MEMB CLASS ACTION)))
'FN)
else
(* ;;
 "Old code: actions associated with particular class names--really now just picks out NONE")
(CAR (find TTC (SYNCODE _ (\SYNCODE (fetch READSA
of (if (NULL TABLE)
then TEDIT.READTABLE
elseif (TEXTSTREAM TABLE T)
then (OR (GETTOBJ (TEXTOBJ TABLE)
TXTRTBL)
TEDIT.READTABLE)
else TABLE))
(CL:IF (OR (LITATOM CH)
(STRINGP CH))
(CHARCODE.DECODE CH)
CH))) in \TEDIT.TTCCODES
suchthat (EQ SYNCODE (CADR TTC])
(TEDIT.SETSYNTAX
[LAMBDA (CHAR CLASS RDTBL) (* ; "Edited 13-Mar-2025 21:52 by rmk")
@ -1351,7 +1375,8 @@
(\TEDIT.TTC NONE))))])
(TEDIT.GETFUNCTION
[LAMBDA (CHARCODE RDTBL) (* ; "Edited 5-Apr-2025 11:37 by rmk")
[LAMBDA (CHARCODE RDTBL) (* ; "Edited 8-Nov-2025 11:13 by rmk")
(* ; "Edited 5-Apr-2025 11:37 by rmk")
(* ; "Edited 13-Mar-2025 22:56 by rmk")
(* ; "Edited 7-Mar-2025 12:02 by rmk")
(* jds "19-Sep-85 17:06")
@ -1368,14 +1393,15 @@
TEDIT.READTABLE)
else RDTBL))
(CL:WHEN (AND (READTABLEP RDTBL)
(EQ (\TEDIT.TTC FUNCTIONCALL)
(EQ (\TEDIT.TTC FN)
(\SYNCODE (fetch READSA of RDTBL)
CHARCODE))
(fetch READMACRODEFS of RDTBL))
[CAR (FETCH MACROFN OF (GETHASH CHARCODE (fetch READMACRODEFS of RDTBL])])
(TEDIT.SETFUNCTION
[LAMBDA (CHARCODE FN RDTBL) (* ; "Edited 13-Mar-2025 22:51 by rmk")
[LAMBDA (CHARCODE FN RDTBL) (* ; "Edited 8-Nov-2025 10:02 by rmk")
(* ; "Edited 13-Mar-2025 22:51 by rmk")
(* ; "Edited 7-Mar-2025 12:03 by rmk")
(* ; "Edited 31-Mar-87 10:58 by jds")
(* ;
@ -1396,7 +1422,7 @@
(\SETSYNCODE (fetch READSA of RDTBL)
CHARCODE
(CL:IF FN
(\TEDIT.TTC FUNCTIONCALL)
(\TEDIT.TTC FN)
(\TEDIT.TTC NONE)))
(CL:UNLESS (fetch READMACRODEFS of RDTBL)
(replace READMACRODEFS of RDTBL with (HARRAY 50))) (* ;
@ -1460,7 +1486,7 @@
(CHARDELETE 1)
(WORDDELETE 2)
(DELETE 3)
(FUNCTIONCALL 4)
(FN 4)
(REDO 5)
(UNDO 6)
(CMD 7)
@ -1718,7 +1744,8 @@
(CHARDELETE "BS" "^A")
(* ; "CHARDELETE/WORDDELETE are TTC")
(CHARDELETE.FORWARD "^W" "^U")
((CHARDELETE.FORWARD DELETE)
"^W" "^U")
(* ; "keyactions for DEL key ??")
(WORDDELELETE)
(WORDDELETE.FORWARD)
@ -1939,29 +1966,29 @@
(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
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (3941 22863 (TEDIT.INSTALL.CHARBINDINGS 3951 . 7842) (TEDIT.CLEAR.CHARBINDINGS 7844 .
10522) (TEDIT.GET.CHARACTION 10524 . 13270) (TEDIT.GET.CHARBINDING 13272 . 15411) (
TEDIT.GET.ALL.CHARBINDINGS 15413 . 17729) (TEDIT.CHARBINDINGS.INVERT 17731 . 19461) (
TEDIT.GET.ALL.CHARACTIONS 19463 . 21549) (TEDIT.CONFLICTING.CHARBINDINGS 21551 . 22861)) (22923 32978
(\TEDIT.KEY.CHARLOOKS 22933 . 24125) (\TEDIT.KEY.QUAD 24127 . 26220) (\TEDIT.DEFAULTSSEL 26222 . 26833
) (\TEDIT.SETDEFAULT.FROM.SEL 26835 . 27512) (\TEDIT.KEY.SIZE 27514 . 28710) (\TEDIT.SUBSCRIPTSEL
28712 . 28915) (\TEDIT.SUPERSCRIPTSEL 28917 . 29121) (\TEDIT.KEY.TRANSFORM 29123 . 31120) (
\TEDIT.KEY.OPENLINE 31122 . 31576) (\TEDIT.KEY.FAMILYN 31578 . 32976)) (32979 33268 (CAP-CASECODE
32989 . 33266)) (33302 36734 (\TEDIT.SHOWCARETLOOKS 33312 . 35827) (\TEDIT.DESCRIBEFONT 35829 . 36732)
) (36765 51738 (\TEDIT.ONECHAR.BACKWARD 36775 . 37922) (\TEDIT.ONECHAR.FORWARD 37924 . 39160) (
\TEDIT.ONELINE.UP 39162 . 42123) (\TEDIT.ONELINE.DOWN 42125 . 43782) (\TEDIT.ONELINE.MOVE 43784 .
46071) (\TEDIT.ONEWORD.BACKWARD 46073 . 47261) (\TEDIT.ONEWORD.FORWARD 47263 . 48450) (
\TEDIT.LINE.BEGIN 48452 . 49531) (\TEDIT.LINE.END 49533 . 50770) (\TEDIT.DOCUMENT.BEGIN 50772 . 51131)
(\TEDIT.DOCUMENT.END 51133 . 51736)) (51739 53781 (\TEDIT.LINEDELETE.FORWARD 51749 . 52748) (
\TEDIT.LINEDELETE.BACKWARD 52750 . 53779)) (53782 56310 (\TEDIT.KEY.NEST 53792 . 56308)) (56311 57593
(\TEDIT.KEY.WRAP 56321 . 57591)) (57684 65732 (\TEDIT.KEY.FIND 57694 . 62872) (
\TEDIT.KEY.FIND.SEARCHSTRING 62874 . 64014) (\TEDIT.GET.TARGET.STRING 64016 . 65730)) (65763 68395 (
\TEDIT.KEY.SUBSTITUTE 65773 . 65994) (\TEDIT.MANPAGE 65996 . 67243) (\TEDIT.CALL.ED 67245 . 68075) (
\TEDIT.SELECT.ALL 68077 . 68393)) (68422 74112 (\TEDIT.CLIPBOARD 68432 . 70187) (
\TEDIT.COPYTOCLIPBOARD 70189 . 70969) (\TEDIT.EXTRACTTOCLIPBOARD 70971 . 71166) (\TEDIT.WRITE.SEL
71168 . 74110)) (74278 86280 (\TEDIT.READTABLE 74288 . 75224) (\TEDIT.WORDBOUND.READTABLE 75226 .
78165) (TEDIT.GETSYNTAX 78167 . 79596) (TEDIT.SETSYNTAX 79598 . 80803) (TEDIT.GETFUNCTION 80805 .
82070) (TEDIT.SETFUNCTION 82072 . 84058) (TEDIT.WORDGET 84060 . 84321) (TEDIT.WORDSET 84323 . 84954) (
TEDIT.ATOMBOUND.READTABLE 84956 . 86278)) (98109 105097 (TEDIT.BUTTONS.BUILD 98119 . 103365) (
TEDIT.BUTTONBITMAP.FILL 103367 . 105095)))))
(FILEMAP (NIL (4188 23498 (TEDIT.INSTALL.CHARBINDINGS 4198 . 8089) (TEDIT.CLEAR.CHARBINDINGS 8091 .
10868) (TEDIT.GET.CHARACTION 10870 . 13715) (TEDIT.GET.CHARBINDING 13717 . 15856) (
TEDIT.GET.ALL.CHARBINDINGS 15858 . 18269) (TEDIT.CHARBINDINGS.INVERT 18271 . 20001) (
TEDIT.GET.ALL.CHARACTIONS 20003 . 22184) (TEDIT.CONFLICTING.CHARBINDINGS 22186 . 23496)) (23558 33613
(\TEDIT.KEY.CHARLOOKS 23568 . 24760) (\TEDIT.KEY.QUAD 24762 . 26855) (\TEDIT.DEFAULTSSEL 26857 . 27468
) (\TEDIT.SETDEFAULT.FROM.SEL 27470 . 28147) (\TEDIT.KEY.SIZE 28149 . 29345) (\TEDIT.SUBSCRIPTSEL
29347 . 29550) (\TEDIT.SUPERSCRIPTSEL 29552 . 29756) (\TEDIT.KEY.TRANSFORM 29758 . 31755) (
\TEDIT.KEY.OPENLINE 31757 . 32211) (\TEDIT.KEY.FAMILYN 32213 . 33611)) (33614 33903 (CAP-CASECODE
33624 . 33901)) (33937 37369 (\TEDIT.SHOWCARETLOOKS 33947 . 36462) (\TEDIT.DESCRIBEFONT 36464 . 37367)
) (37400 52373 (\TEDIT.ONECHAR.BACKWARD 37410 . 38557) (\TEDIT.ONECHAR.FORWARD 38559 . 39795) (
\TEDIT.ONELINE.UP 39797 . 42758) (\TEDIT.ONELINE.DOWN 42760 . 44417) (\TEDIT.ONELINE.MOVE 44419 .
46706) (\TEDIT.ONEWORD.BACKWARD 46708 . 47896) (\TEDIT.ONEWORD.FORWARD 47898 . 49085) (
\TEDIT.LINE.BEGIN 49087 . 50166) (\TEDIT.LINE.END 50168 . 51405) (\TEDIT.DOCUMENT.BEGIN 51407 . 51766)
(\TEDIT.DOCUMENT.END 51768 . 52371)) (52374 54416 (\TEDIT.LINEDELETE.FORWARD 52384 . 53383) (
\TEDIT.LINEDELETE.BACKWARD 53385 . 54414)) (54417 56945 (\TEDIT.KEY.NEST 54427 . 56943)) (56946 58228
(\TEDIT.KEY.WRAP 56956 . 58226)) (58319 66367 (\TEDIT.KEY.FIND 58329 . 63507) (
\TEDIT.KEY.FIND.SEARCHSTRING 63509 . 64649) (\TEDIT.GET.TARGET.STRING 64651 . 66365)) (66398 69030 (
\TEDIT.KEY.SUBSTITUTE 66408 . 66629) (\TEDIT.MANPAGE 66631 . 67878) (\TEDIT.CALL.ED 67880 . 68710) (
\TEDIT.SELECT.ALL 68712 . 69028)) (69057 74747 (\TEDIT.CLIPBOARD 69067 . 70822) (
\TEDIT.COPYTOCLIPBOARD 70824 . 71604) (\TEDIT.EXTRACTTOCLIPBOARD 71606 . 71801) (\TEDIT.WRITE.SEL
71803 . 74745)) (74913 87995 (\TEDIT.READTABLE 74923 . 75859) (\TEDIT.WORDBOUND.READTABLE 75861 .
78800) (TEDIT.GETSYNTAX 78802 . 81113) (TEDIT.SETSYNTAX 81115 . 82320) (TEDIT.GETFUNCTION 82322 .
83686) (TEDIT.SETFUNCTION 83688 . 85773) (TEDIT.WORDGET 85775 . 86036) (TEDIT.WORDSET 86038 . 86669) (
TEDIT.ATOMBOUND.READTABLE 86671 . 87993)) (99832 106820 (TEDIT.BUTTONS.BUILD 99842 . 105088) (
TEDIT.BUTTONBITMAP.FILL 105090 . 106818)))))
STOP

BIN
library/tedit/TEDIT-FNKEYS.LCOM
View File

Binary file not shown.