Skip to content

Commit 86f5aad

Browse files
rmkaplanrmkaplan
authored
Tedit: eliminate some CHARLOOKS fields, change Charlooks menu, add pagenum object, a few cleanups (#2004)
* CHARLOOKS fields, Charlooks menu, pagenum object, a few cleanups * Add TEDIT-DEBUG * Glitch in redo * Select left of EOL
1 parent fc36176 commit 86f5aad

29 files changed

+1811
-1681
lines changed

‎internal/TEDIT-DEBUG‎

Lines changed: 82 additions & 79 deletions
Large diffs are not rendered by default.

‎internal/TEDIT-DEBUG.LCOM‎

584 Bytes
Binary file not shown.

‎library/IMAGEOBJ‎

Lines changed: 13 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED " 7-Jul-2024 21:04:16" {WMEDLEY}<library>IMAGEOBJ.;3 34260
3+
(FILECREATED " 7-Dec-2024 19:44:25" {WMEDLEY}<library>IMAGEOBJ.;4 34381
44

55
:EDIT-BY rmk
66

77
:CHANGES-TO (FNS GET.OBJ.FROM.USER)
88

9-
:PREVIOUS-DATE " 7-Dec-95 13:21:56" {WMEDLEY}<library>IMAGEOBJ.;1)
9+
:PREVIOUS-DATE " 7-Jul-2024 21:04:16" {WMEDLEY}<library>IMAGEOBJ.;3)
1010

1111

1212
(PRETTYCOMPRINT IMAGEOBJCOMS)
@@ -674,7 +674,8 @@
674674
(DEFINEQ
675675

676676
(GET.OBJ.FROM.USER
677-
[LAMBDA (TEXTSTREAM TEXTOBJ) (* ; "Edited 7-Jul-2024 21:04 by rmk")
677+
[LAMBDA (TEXTSTREAM TEXTOBJ) (* ; "Edited 7-Dec-2024 19:44 by rmk")
678+
(* ; "Edited 7-Jul-2024 21:04 by rmk")
678679
(* ; "Edited 26-Apr-91 10:54 by jds")
679680

680681
(* ;; "reads an expression from the user and puts the result into the textstream at the current position of its caret.")
@@ -688,7 +689,7 @@
688689
(TEDIT.INSERT TEXTSTREAM VAL))
689690
(LITATOM (* ;
690691
 "Atoms and strings get inserted as text.")
691-
(TEDIT.INSERT TEXTSTREAM (MKSTRING VAL T)))
692+
(AND VAL (TEDIT.INSERT TEXTSTREAM (MKSTRING VAL T))))
692693
(IMAGEOBJ (* ; "IMAGEOBJs get inserted as is")
693694
(TEDIT.INSERT.OBJECT VAL TEXTSTREAM))
694695
(T [COND
@@ -769,12 +770,12 @@
769770

770771
(FILESLOAD EDITBITMAP)
771772
(DECLARE%: DONTCOPY
772-
(FILEMAP (NIL (2973 7469 (BITMAPTEDITOBJ 2983 . 3626) (COERCETOBITMAP 3628 . 5672) (WINDOWTITLEFONT
773-
5674 . 6021) (\PRINTBINARYBITMAP 6023 . 6814) (\READBINARYBITMAP 6816 . 7467)) (7520 23638 (
774-
BMOBJ.BUTTONEVENTINFN 7530 . 12076) (BMOBJ.COPYFN 12078 . 12704) (BMOBJ.DISPLAYFN 12706 . 16435) (
775-
BMOBJ.IMAGEBOXFN 16437 . 18852) (BMOBJ.PUTFN 18854 . 19786) (BMOBJ.INIT 19788 . 20827) (BMOBJ.GETFN5
776-
20829 . 21419) (BMOBJ.CREATE.MENU 21421 . 23636)) (23728 27012 (SCALED.BITMAP.GETFN 23738 . 24164) (
777-
BMOBJ.GETFN 24166 . 24701) (BMOBJ.GETFN2 24703 . 25188) (BMOBJ.GETFN3 25190 . 25978) (BMOBJ.GETFN4
778-
25980 . 27010)) (28947 34160 (GET.OBJ.FROM.USER 28957 . 30804) (BITMAPOBJ.SNAPW 30806 . 31932) (
779-
PROMPTFOREVALED 31934 . 34158)))))
773+
(FILEMAP (NIL (2975 7471 (BITMAPTEDITOBJ 2985 . 3628) (COERCETOBITMAP 3630 . 5674) (WINDOWTITLEFONT
774+
5676 . 6023) (\PRINTBINARYBITMAP 6025 . 6816) (\READBINARYBITMAP 6818 . 7469)) (7522 23640 (
775+
BMOBJ.BUTTONEVENTINFN 7532 . 12078) (BMOBJ.COPYFN 12080 . 12706) (BMOBJ.DISPLAYFN 12708 . 16437) (
776+
BMOBJ.IMAGEBOXFN 16439 . 18854) (BMOBJ.PUTFN 18856 . 19788) (BMOBJ.INIT 19790 . 20829) (BMOBJ.GETFN5
777+
20831 . 21421) (BMOBJ.CREATE.MENU 21423 . 23638)) (23730 27014 (SCALED.BITMAP.GETFN 23740 . 24166) (
778+
BMOBJ.GETFN 24168 . 24703) (BMOBJ.GETFN2 24705 . 25190) (BMOBJ.GETFN3 25192 . 25980) (BMOBJ.GETFN4
779+
25982 . 27012)) (28949 34281 (GET.OBJ.FROM.USER 28959 . 30925) (BITMAPOBJ.SNAPW 30927 . 32053) (
780+
PROMPTFOREVALED 32055 . 34279)))))
780781
STOP

‎library/IMAGEOBJ.LCOM‎

6 Bytes
Binary file not shown.

‎library/tedit/TEDIT‎

Lines changed: 55 additions & 66 deletions
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,13 @@
11
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
22

3-
(FILECREATED "11-Jan-2025 00:09:59" {WMEDLEY}<library>TEDIT>TEDIT.;737 155171
3+
(FILECREATED " 2-Feb-2025 11:37:42" {WMEDLEY}<library>tedit>TEDIT.;742 154343
44

55
:EDIT-BY rmk
66

7-
:CHANGES-TO (FNS \TEDIT.PARA.FIRST)
7+
:CHANGES-TO (FNS TEDIT.INSERT.OBJECT)
8+
(VARS TEDITCOMS)
89

9-
:PREVIOUS-DATE " 7-Jan-2025 13:31:36" {WMEDLEY}<library>TEDIT>TEDIT.;736)
10+
:PREVIOUS-DATE "31-Jan-2025 09:36:11" {WMEDLEY}<library>tedit>TEDIT.;741)
1011

1112

1213
(PRETTYCOMPRINT TEDITCOMS)
@@ -52,8 +53,7 @@
5253
(FNS TEDIT.INSERT.OBJECT TEDIT.EDIT.OBJECT TEDIT.FIND.OBJECT TEDIT.FIND.OBJECT.BACKWARD
5354
TEDIT.OBJECT.CHANGED TEDIT.MAP.OBJECTS \TEDIT.FIRST.OBJPIECE \TEDIT.NEXT.OBJPIECE)
5455
(FILES IMAGEOBJ))
55-
(FNS \TEDIT.CONCAT.PAGEFRAMES \TEDIT.GET.PAGE.HEADINGS \TEDIT.CONCAT.INSTALL.HEADINGS
56-
\TEDIT.DO.BLUEPENDINGDELETE)
56+
(FNS \TEDIT.CONCAT.PAGEFRAMES \TEDIT.GET.PAGE.HEADINGS \TEDIT.CONCAT.INSTALL.HEADINGS)
5757
(FNS \TEDIT.MOVE.MSG \TEDIT.READONLY)
5858
(FNS TEDIT.NCHARS TEDIT.RPLCHARCODE TEDIT.NTHCHARCODE TEDIT.NTHCHAR \TEDIT.PIECE.NTHCHARCODE)
5959

@@ -747,7 +747,8 @@
747747
(DEFINEQ
748748

749749
(TEDIT.INSERT.OBJECT
750-
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 26-Dec-2024 10:13 by rmk")
750+
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 2-Feb-2025 11:37 by rmk")
751+
(* ; "Edited 26-Dec-2024 10:13 by rmk")
751752
(* ; "Edited 21-Oct-2024 00:26 by rmk")
752753
(* ; "Edited 2-Aug-2024 08:46 by rmk")
753754
(* ; "Edited 30-Jul-2024 22:19 by rmk")
@@ -811,8 +812,8 @@
811812
(\TEDIT.SHOWSEL SEL NIL TEXTOBJ)
812813
(CL:WHEN (type? SELECTION CH#)
813814
(SETQ CH# (GETSEL CH# CH#)))
814-
(\TEDIT.DO.BLUEPENDINGDELETE SEL TEXTOBJ) (* ;
815-
 "Do the pending delete, if there is one.")
815+
(CL:WHEN (FGETTOBJ TEXTOBJ BLUEPENDINGDELETE)
816+
(\TEDIT.DELETE TEXTOBJ SEL T))
816817
(CL:WHEN CH#
817818
(\TEDIT.UPDATE.SEL SEL (IMIN CH# (ADD1 (TEXTLEN TEXTOBJ)))
818819
0
@@ -1080,22 +1081,6 @@
10801081
REGIONFILLMETHOD _ 'HEADING
10811082
REGIONLOCALINFO _ (LIST 'HEADINGTYPE (CAR R))
10821083
REGIONSPEC _ (CADR R])])
1083-
1084-
(\TEDIT.DO.BLUEPENDINGDELETE
1085-
[LAMBDA (SEL TEXTOBJ) (* ; "Edited 27-Nov-2024 12:05 by rmk")
1086-
(* ; "Edited 9-Mar-2024 11:33 by rmk")
1087-
(* ; "Edited 24-Dec-2023 00:01 by rmk")
1088-
(* ; "Edited 8-Jul-2023 22:48 by rmk")
1089-
(* ; "Edited 4-May-2023 00:05 by rmk")
1090-
(* ; "Edited 22-Apr-2023 18:31 by rmk")
1091-
(* ; "Edited 29-May-91 18:21 by jds")
1092-
1093-
(* ;; "Check for blue-pending-delete, and do it if it's there.")
1094-
1095-
(* ;; "Return T if the deletion was made. For people who need to know")
1096-
1097-
(CL:WHEN (GETTOBJ TEXTOBJ BLUEPENDINGDELETE)
1098-
(\TEDIT.DELETE TEXTOBJ SEL T])
10991084
)
11001085
(DEFINEQ
11011086

@@ -2240,7 +2225,8 @@
22402225
SPLASTCHAR _ (CAR LAST])
22412226

22422227
(\TEDIT.PARA.FIRST
2243-
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 11-Jan-2025 00:08 by rmk")
2228+
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 30-Jan-2025 12:02 by rmk")
2229+
(* ; "Edited 11-Jan-2025 00:08 by rmk")
22442230
(* ; "Edited 17-Mar-2024 00:27 by rmk")
22452231
(* ; "Edited 19-Jan-2024 10:10 by rmk")
22462232
(* ; "Edited 26-Dec-2023 09:14 by rmk")
@@ -2254,8 +2240,8 @@
22542240
else (LET (CHPIECE START-OF-PIECE START)
22552241
(DECLARE (SPECVARS START-OF-PIECE))
22562242
(if (type? SELPIECES CHNO)
2257-
then (SETQ CHPIECE (fetch (SELPIECES SPFIRST) of CHNO))
2258-
(SETQ START (fetch (SELPIECES SPFIRSTCHAR) of CHNO))
2243+
then (SETQ CHPIECE (GETSPC CHNO SPFIRST))
2244+
(SETQ START (GETSPC CHNO SPFIRSTCHAR))
22592245
elseif (type? PIECE CHNO)
22602246
then (SETQ START (\TEDIT.PCTOCH CHNO TEXTOBJ))
22612247
(SETQ CHPIECE CHNO)
@@ -2270,18 +2256,20 @@
22702256

22712257
(for PC (PLENTOT _ 0) backpieces (AND CHPIECE (PREVPIECE CHPIECE))
22722258
when (VISIBLEPIECEP PC) until (PPARALAST PC)
2273-
until (AND PROTECTEDNOTOK (fetch (CHARLOOKS CLPROTECTED) of (PLOOKS PC)))
2274-
do (add PLENTOT (PLEN PC)) finally
2259+
until (AND PROTECTEDNOTOK (GETCLOOKS (PLOOKS PC)
2260+
CLPROTECTED)) do (add PLENTOT (PLEN PC))
2261+
finally
22752262

2276-
(* ;; "If the iteration reached the beginning, there is no PREVPIECE. Otherwise, PC is the previous PARALAST, and we have to take its next")
2263+
(* ;; "If the iteration reached the beginning, there is no PREVPIECE. Otherwise, PC is the previous PARALAST, and we have to take its next")
22772264

2278-
(RETURN (CONS (IDIFFERENCE START PLENTOT)
2279-
(CL:IF (PREVPIECE PC)
2280-
(NEXTPIECE PC)
2281-
PC)])
2265+
(RETURN (CONS (IDIFFERENCE START PLENTOT)
2266+
(CL:IF PC
2267+
(NEXTPIECE PC)
2268+
(\TEDIT.FIRSTPIECE TEXTOBJ))])
22822269

22832270
(\TEDIT.PARA.LAST
2284-
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 17-Mar-2024 00:27 by rmk")
2271+
[LAMBDA (TEXTOBJ CHNO PROTECTEDNOTOK) (* ; "Edited 31-Jan-2025 09:33 by rmk")
2272+
(* ; "Edited 17-Mar-2024 00:27 by rmk")
22852273
(* ; "Edited 19-Jan-2024 10:37 by rmk")
22862274
(* ; "Edited 26-Dec-2023 09:14 by rmk")
22872275
(* ; "Edited 24-Dec-2023 22:16 by rmk")
@@ -2295,23 +2283,25 @@
22952283
else (LET (CHPIECE START-OF-PIECE END FORMATTED)
22962284
(DECLARE (SPECVARS START-OF-PIECE))
22972285
(if (type? SELPIECES CHNO)
2298-
then (SETQ CHPIECE (fetch (SELPIECES SPLAST) of CHNO))
2299-
[SETQ END (SUB1 (IDIFFERENCE (fetch (SELPIECES SPLASTCHAR) of CHNO)
2286+
then (SETQ CHPIECE (GETSPC CHNO SPLAST))
2287+
[SETQ END (SUB1 (IDIFFERENCE (GETSPC CHNO SPLASTCHAR)
23002288
(PLEN CHPIECE]
23012289
elseif (type? PIECE CHNO)
23022290
then (SETQ CHPIECE CHNO)
23032291
(SETQ END (\TEDIT.PCTOCH CHNO TEXTOBJ))
2304-
else (SETQ CHPIECE (\TEDIT.CHTOPC (CL:IF (type? SELECTION CHNO)
2305-
(SUB1 (FGETSEL CHNO CHLIM))
2306-
CHNO)
2292+
else (SETQ CHPIECE (\TEDIT.CHTOPC (IMIN (CL:IF (type? SELECTION CHNO)
2293+
(FGETSEL CHNO CHLAST)
2294+
CHNO)
2295+
(TEXTLEN TEXTOBJ))
23072296
TEXTOBJ T))
23082297
(SETQ END START-OF-PIECE)) (* ; "Find the paragraph's last char")
23092298

23102299
(* ;; "END is now the first character of the piece containing CHNO")
23112300

23122301
(for PC (PLENTOT _ 0) inpieces CHPIECE when (VISIBLEPIECEP PC)
23132302
do (add PLENTOT (PLEN PC)) repeatuntil (PPARALAST PC)
2314-
repeatuntil (AND PROTECTEDNOTOK (fetch (CHARLOOKS CLPROTECTED) of (PLOOKS PC)))
2303+
repeatuntil (AND PROTECTEDNOTOK (FGETCLOOKS (PLOOKS PC)
2304+
CLPROTECTED))
23152305
finally (RETURN (CONS (IMIN (IPLUS END PLENTOT -1)
23162306
(FGETTOBJ TEXTOBJ TEXTLEN))
23172307
PC])
@@ -2485,7 +2475,7 @@
24852475
(* ; "TEDIT Support information")
24862476

24872477

2488-
(RPAQQ TEDITSYSTEMDATE "11-Jan-2025 00:09:59")
2478+
(RPAQQ TEDITSYSTEMDATE " 2-Feb-2025 11:37:42")
24892479

24902480

24912481

@@ -2495,28 +2485,27 @@
24952485
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
24962486
(EXTENSION (TEDIT))))
24972487
(DECLARE%: DONTCOPY
2498-
(FILEMAP (NIL (4632 6574 (MAKE-TEDIT-EXPORTS.ALL 4642 . 5188) (UPDATE-TEDIT 5190 . 5803) (EDIT-TEDIT
2499-
5805 . 6572)) (8247 36702 (TEDIT 8257 . 10835) (TEXTSTREAM 10837 . 12757) (TEXTSTREAMP 12759 . 13143)
2500-
(TEDITMENUP 13145 . 13911) (COERCETEXTSTREAM 13913 . 18124) (TEDIT.CONCAT 18126 . 21305) (TEDITSTRING
2501-
21307 . 22160) (TEDIT-SEE 22162 . 22721) (TEDIT.COPY 22723 . 24868) (TEDIT.DELETE 24870 . 26122) (
2502-
TEDIT.INSERT 26124 . 29082) (TEDIT.TERPRI 29084 . 30198) (TEDIT.KILL 30200 . 31116) (TEDIT.QUIT 31118
2503-
. 32893) (TEDIT.MOVE 32895 . 33783) (TEDIT.STRINGWIDTH 33785 . 34456) (TEDIT.CHARWIDTH 34458 . 36700)
2504-
) (36703 38644 (TEXTOBJ 36713 . 37178) (COERCETEXTOBJ 37180 . 38642)) (40044 41100 (TDRIBBLE 40054 .
2505-
41098)) (41141 56210 (TEDIT.INSERT.OBJECT 41151 . 45850) (TEDIT.EDIT.OBJECT 45852 . 48193) (
2506-
TEDIT.FIND.OBJECT 48195 . 49703) (TEDIT.FIND.OBJECT.BACKWARD 49705 . 51632) (TEDIT.OBJECT.CHANGED
2507-
51634 . 54501) (TEDIT.MAP.OBJECTS 54503 . 55738) (\TEDIT.FIRST.OBJPIECE 55740 . 55973) (
2508-
\TEDIT.NEXT.OBJPIECE 55975 . 56208)) (56233 64790 (\TEDIT.CONCAT.PAGEFRAMES 56243 . 61377) (
2509-
\TEDIT.GET.PAGE.HEADINGS 61379 . 62408) (\TEDIT.CONCAT.INSTALL.HEADINGS 62410 . 63741) (
2510-
\TEDIT.DO.BLUEPENDINGDELETE 63743 . 64788)) (64791 68220 (\TEDIT.MOVE.MSG 64801 . 66882) (
2511-
\TEDIT.READONLY 66884 . 68218)) (68221 82842 (TEDIT.NCHARS 68231 . 68604) (TEDIT.RPLCHARCODE 68606 .
2512-
76406) (TEDIT.NTHCHARCODE 76408 . 78765) (TEDIT.NTHCHAR 78767 . 79025) (\TEDIT.PIECE.NTHCHARCODE 79027
2513-
. 82840)) (82888 137270 (\TEDIT1 82898 . 84975) (\TEDIT.INSERT 84977 . 90954) (\TEDIT.MOVE 90956 .
2514-
98355) (\TEDIT.COPY 98357 . 102335) (\TEDIT.REPLACE.SELPIECES 102337 . 106317) (
2515-
\TEDIT.INSERT.SELPIECES 106319 . 109204) (\TEDIT.RESTARTFN 109206 . 111711) (\TEDIT.CHARDELETE 111713
2516-
. 114540) (\TEDIT.COPYPIECE 114542 . 119390) (\TEDIT.APPLY.OBJFN 119392 . 122589) (\TEDIT.DELETE
2517-
122591 . 127400) (\TEDIT.DIFFUSE.PARALOOKS 127402 . 129673) (\TEDIT.WORDDELETE 129675 . 131231) (
2518-
\TEDIT.WORDDELETE.FORWARD 131233 . 132905) (\TEDIT.FINISHEDIT? 132907 . 137268)) (137271 137930 (
2519-
\TEDIT.THELP 137281 . 137928)) (137964 145555 (\TEDIT.PARAPIECES 137974 . 139948) (\TEDIT.PARA.FIRST
2520-
139950 . 142822) (\TEDIT.PARA.LAST 142824 . 145553)) (145556 154521 (\TEDIT.WORD.FIRST 145566 . 150222
2521-
) (\TEDIT.WORD.LAST 150224 . 154519)))))
2488+
(FILEMAP (NIL (4627 6569 (MAKE-TEDIT-EXPORTS.ALL 4637 . 5183) (UPDATE-TEDIT 5185 . 5798) (EDIT-TEDIT
2489+
5800 . 6567)) (8242 36697 (TEDIT 8252 . 10830) (TEXTSTREAM 10832 . 12752) (TEXTSTREAMP 12754 . 13138)
2490+
(TEDITMENUP 13140 . 13906) (COERCETEXTSTREAM 13908 . 18119) (TEDIT.CONCAT 18121 . 21300) (TEDITSTRING
2491+
21302 . 22155) (TEDIT-SEE 22157 . 22716) (TEDIT.COPY 22718 . 24863) (TEDIT.DELETE 24865 . 26117) (
2492+
TEDIT.INSERT 26119 . 29077) (TEDIT.TERPRI 29079 . 30193) (TEDIT.KILL 30195 . 31111) (TEDIT.QUIT 31113
2493+
. 32888) (TEDIT.MOVE 32890 . 33778) (TEDIT.STRINGWIDTH 33780 . 34451) (TEDIT.CHARWIDTH 34453 . 36695)
2494+
) (36698 38639 (TEXTOBJ 36708 . 37173) (COERCETEXTOBJ 37175 . 38637)) (40039 41095 (TDRIBBLE 40049 .
2495+
41093)) (41136 56240 (TEDIT.INSERT.OBJECT 41146 . 45880) (TEDIT.EDIT.OBJECT 45882 . 48223) (
2496+
TEDIT.FIND.OBJECT 48225 . 49733) (TEDIT.FIND.OBJECT.BACKWARD 49735 . 51662) (TEDIT.OBJECT.CHANGED
2497+
51664 . 54531) (TEDIT.MAP.OBJECTS 54533 . 55768) (\TEDIT.FIRST.OBJPIECE 55770 . 56003) (
2498+
\TEDIT.NEXT.OBJPIECE 56005 . 56238)) (56263 63773 (\TEDIT.CONCAT.PAGEFRAMES 56273 . 61407) (
2499+
\TEDIT.GET.PAGE.HEADINGS 61409 . 62438) (\TEDIT.CONCAT.INSTALL.HEADINGS 62440 . 63771)) (63774 67203 (
2500+
\TEDIT.MOVE.MSG 63784 . 65865) (\TEDIT.READONLY 65867 . 67201)) (67204 81825 (TEDIT.NCHARS 67214 .
2501+
67587) (TEDIT.RPLCHARCODE 67589 . 75389) (TEDIT.NTHCHARCODE 75391 . 77748) (TEDIT.NTHCHAR 77750 .
2502+
78008) (\TEDIT.PIECE.NTHCHARCODE 78010 . 81823)) (81871 136253 (\TEDIT1 81881 . 83958) (\TEDIT.INSERT
2503+
83960 . 89937) (\TEDIT.MOVE 89939 . 97338) (\TEDIT.COPY 97340 . 101318) (\TEDIT.REPLACE.SELPIECES
2504+
101320 . 105300) (\TEDIT.INSERT.SELPIECES 105302 . 108187) (\TEDIT.RESTARTFN 108189 . 110694) (
2505+
\TEDIT.CHARDELETE 110696 . 113523) (\TEDIT.COPYPIECE 113525 . 118373) (\TEDIT.APPLY.OBJFN 118375 .
2506+
121572) (\TEDIT.DELETE 121574 . 126383) (\TEDIT.DIFFUSE.PARALOOKS 126385 . 128656) (\TEDIT.WORDDELETE
2507+
128658 . 130214) (\TEDIT.WORDDELETE.FORWARD 130216 . 131888) (\TEDIT.FINISHEDIT? 131890 . 136251)) (
2508+
136254 136913 (\TEDIT.THELP 136264 . 136911)) (136947 144727 (\TEDIT.PARAPIECES 136957 . 138931) (
2509+
\TEDIT.PARA.FIRST 138933 . 141800) (\TEDIT.PARA.LAST 141802 . 144725)) (144728 153693 (
2510+
\TEDIT.WORD.FIRST 144738 . 149394) (\TEDIT.WORD.LAST 149396 . 153691)))))
25222511
STOP

0 commit comments

Comments
 (0)