Skip to content

Commit 1a8a5ca

Browse files
rmkaplanrmkaplan
authored
Fix TEDIT object insertion (#2279)
1 parent 2961670 commit 1a8a5ca

File tree

2 files changed

+31
-31
lines changed

2 files changed

+31
-31
lines changed

‎library/tedit/TEDIT‎

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

3-
(FILECREATED " 1-Aug-2025 14:50:15" 
4-
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT.;835 145114
3+
(FILECREATED " 6-Sep-2025 09:54:48" {WMEDLEY}<library>TEDIT>TEDIT.;837 145260
54

65
:EDIT-BY rmk
76

8-
:CHANGES-TO (FNS \TEDIT.PARA.FIRST \TEDIT.PARA.LAST)
7+
:CHANGES-TO (FNS \TEDIT.REPLACE.SELPIECES TEDIT.INSERT.OBJECT)
98

10-
:PREVIOUS-DATE "28-Jul-2025 23:49:50"
11-
{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>tedit>TEDIT.;834)
9+
:PREVIOUS-DATE " 1-Aug-2025 14:50:15" {WMEDLEY}<library>TEDIT>TEDIT.;835)
1210

1311

1412
(PRETTYCOMPRINT TEDITCOMS)
@@ -762,7 +760,8 @@
762760
(DEFINEQ
763761

764762
(TEDIT.INSERT.OBJECT
765-
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 28-Jul-2025 23:48 by rmk")
763+
[LAMBDA (OBJECT TSTREAM CH# LOOKS) (* ; "Edited 6-Sep-2025 08:54 by rmk")
764+
(* ; "Edited 28-Jul-2025 23:48 by rmk")
766765
(* ; "Edited 7-May-2025 00:10 by rmk")
767766
(* ; "Edited 21-Apr-2025 22:17 by rmk")
768767
(* ; "Edited 6-Apr-2025 14:10 by rmk")
@@ -824,7 +823,7 @@
824823
0
825824
'LEFT)
826825
(\TEDIT.FIXSEL SEL TSTREAM))
827-
(\TEDIT.INSERT.SELPIECES OBJSELPIECES TEXTOBJ SEL)
826+
(\TEDIT.INSERT.SELPIECES OBJSELPIECES TSTREAM SEL)
828827
(CL:WHEN LOOKS (\TEDIT.CHANGE.CHARLOOKS TSTREAM LOOKS SEL))
829828
(\TEDIT.SCROLL.CARET TSTREAM)
830829
(\TEDIT.SEL.ON TSTREAM])
@@ -1527,7 +1526,8 @@
15271526
(\TEDIT.SCROLL.CARET TOTSTREAM)))])
15281527

15291528
(\TEDIT.REPLACE.SELPIECES
1530-
[LAMBDA (INSERTSELPIECES TSTREAM SEL) (* ; "Edited 7-May-2025 00:13 by rmk")
1529+
[LAMBDA (INSERTSELPIECES TSTREAM SEL) (* ; "Edited 6-Sep-2025 09:54 by rmk")
1530+
(* ; "Edited 7-May-2025 00:13 by rmk")
15311531
(* ; "Edited 21-Apr-2025 22:29 by rmk")
15321532
(* ; "Edited 19-Mar-2025 15:46 by rmk")
15331533
(* ; "Edited 8-Dec-2024 13:46 by rmk")
@@ -1578,7 +1578,7 @@
15781578

15791579
(CL:WHEN (AND INSERTSELPIECES (IGEQ (SETQ ILEN (GETSPC INSERTSELPIECES SPLEN))
15801580
0)
1581-
(\TEDIT.INSERT.SELPIECES INSERTSELPIECES TEXTOBJ SEL T))
1581+
(\TEDIT.INSERT.SELPIECES INSERTSELPIECES TSTREAM SEL T))
15821582

15831583
(* ;; "If both delete and insert happened, foush the insert event and upgrade the DELEVENT to a single :Replace. The insert has not updated the lines or the selection")
15841584

@@ -2325,26 +2325,26 @@
23252325
(ADDTOVAR PRINTFILETYPES (TEDIT (TEST \TEDIT.GET.TRAILER)
23262326
(EXTENSION (TEDIT))))
23272327
(DECLARE%: DONTCOPY
2328-
(FILEMAP (NIL (4922 7316 (MAKE-TEDIT-EXPORTS.ALL 4932 . 5478) (UPDATE-TEDIT 5480 . 6409) (EDIT-TEDIT
2329-
6411 . 7314)) (8746 36804 (TEDIT 8756 . 11370) (TEXTSTREAM 11372 . 13261) (TEXTSTREAMP 13263 . 13647)
2330-
(COERCETEXTSTREAM 13649 . 17860) (TEDIT.CONCAT 17862 . 21164) (TEDITSTRING 21166 . 22080) (TEDIT-SEE
2331-
22082 . 22641) (TEDIT.COPY 22643 . 24788) (TEDIT.DELETE 24790 . 26151) (TEDIT.INSERT 26153 . 29527) (
2332-
TEDIT.TERPRI 29529 . 30643) (TEDIT.KILL 30645 . 31627) (TEDIT.QUIT 31629 . 32995) (TEDIT.MOVE 32997 .
2333-
33885) (TEDIT.STRINGWIDTH 33887 . 34558) (TEDIT.CHARWIDTH 34560 . 36802)) (36805 38746 (TEXTOBJ 36815
2334-
. 37280) (COERCETEXTOBJ 37282 . 38744)) (40146 41796 (TDRIBBLE 40156 . 41794)) (41837 53624 (
2335-
TEDIT.INSERT.OBJECT 41847 . 45445) (TEDIT.EDIT.OBJECT 45447 . 48387) (TEDIT.OBJECT.CHANGED 48389 .
2336-
51579) (TEDIT.MAP.OBJECTS 51581 . 53152) (\TEDIT.FIRST.OBJPIECE 53154 . 53387) (\TEDIT.NEXT.OBJPIECE
2337-
53389 . 53622)) (53647 61090 (\TEDIT.CONCAT.PAGEFRAMES 53657 . 58724) (\TEDIT.GET.PAGE.HEADINGS 58726
2338-
. 59755) (\TEDIT.CONCAT.INSTALL.HEADINGS 59757 . 61088)) (61091 64698 (\TEDIT.MOVE.MSG 61101 . 63182)
2339-
(\TEDIT.READONLY 63184 . 64696)) (64699 70474 (TEDIT.NCHARS 64709 . 65082) (TEDIT.RPLCHARCODE 65084
2340-
. 68074) (TEDIT.NTHCHARCODE 68076 . 70003) (TEDIT.NTHCHAR 70005 . 70472)) (70520 127440 (\TEDIT1
2341-
70530 . 72607) (\TEDIT.INSERT 72609 . 78974) (\TEDIT.MOVE 78976 . 86882) (\TEDIT.COPY 86884 . 91415) (
2342-
\TEDIT.REPLACE.SELPIECES 91417 . 95844) (\TEDIT.INSERT.SELPIECES 95846 . 98843) (\TEDIT.RESTARTFN
2343-
98845 . 101350) (\TEDIT.CHARDELETE 101352 . 104281) (\TEDIT.COPYPIECE 104283 . 109445) (
2344-
\TEDIT.APPLY.OBJFN 109447 . 112533) (\TEDIT.DELETE 112535 . 116903) (\TEDIT.DIFFUSE.PARALOOKS 116905
2345-
. 119176) (\TEDIT.WORDDELETE 119178 . 120793) (\TEDIT.WORDDELETE.FORWARD 120795 . 122584) (
2346-
\TEDIT.FINISHEDIT? 122586 . 127438)) (127441 128100 (\TEDIT.THELP 127451 . 128098)) (128134 137265 (
2347-
\TEDIT.PARAPIECES 128144 . 130118) (\TEDIT.PARACHNOS 130120 . 131012) (\TEDIT.PARA.FIRST 131014 .
2348-
134115) (\TEDIT.PARA.LAST 134117 . 137263)) (137266 144361 (\TEDIT.WORD.FIRST 137276 . 141280) (
2349-
\TEDIT.WORD.LAST 141282 . 144359)) (144562 144839 (TEDITSYSTEMDATE 144572 . 144837)))))
2328+
(FILEMAP (NIL (4850 7244 (MAKE-TEDIT-EXPORTS.ALL 4860 . 5406) (UPDATE-TEDIT 5408 . 6337) (EDIT-TEDIT
2329+
6339 . 7242)) (8674 36732 (TEDIT 8684 . 11298) (TEXTSTREAM 11300 . 13189) (TEXTSTREAMP 13191 . 13575)
2330+
(COERCETEXTSTREAM 13577 . 17788) (TEDIT.CONCAT 17790 . 21092) (TEDITSTRING 21094 . 22008) (TEDIT-SEE
2331+
22010 . 22569) (TEDIT.COPY 22571 . 24716) (TEDIT.DELETE 24718 . 26079) (TEDIT.INSERT 26081 . 29455) (
2332+
TEDIT.TERPRI 29457 . 30571) (TEDIT.KILL 30573 . 31555) (TEDIT.QUIT 31557 . 32923) (TEDIT.MOVE 32925 .
2333+
33813) (TEDIT.STRINGWIDTH 33815 . 34486) (TEDIT.CHARWIDTH 34488 . 36730)) (36733 38674 (TEXTOBJ 36743
2334+
. 37208) (COERCETEXTOBJ 37210 . 38672)) (40074 41724 (TDRIBBLE 40084 . 41722)) (41765 53661 (
2335+
TEDIT.INSERT.OBJECT 41775 . 45482) (TEDIT.EDIT.OBJECT 45484 . 48424) (TEDIT.OBJECT.CHANGED 48426 .
2336+
51616) (TEDIT.MAP.OBJECTS 51618 . 53189) (\TEDIT.FIRST.OBJPIECE 53191 . 53424) (\TEDIT.NEXT.OBJPIECE
2337+
53426 . 53659)) (53684 61127 (\TEDIT.CONCAT.PAGEFRAMES 53694 . 58761) (\TEDIT.GET.PAGE.HEADINGS 58763
2338+
. 59792) (\TEDIT.CONCAT.INSTALL.HEADINGS 59794 . 61125)) (61128 64735 (\TEDIT.MOVE.MSG 61138 . 63219)
2339+
(\TEDIT.READONLY 63221 . 64733)) (64736 70511 (TEDIT.NCHARS 64746 . 65119) (TEDIT.RPLCHARCODE 65121
2340+
. 68111) (TEDIT.NTHCHARCODE 68113 . 70040) (TEDIT.NTHCHAR 70042 . 70509)) (70557 127586 (\TEDIT1
2341+
70567 . 72644) (\TEDIT.INSERT 72646 . 79011) (\TEDIT.MOVE 79013 . 86919) (\TEDIT.COPY 86921 . 91452) (
2342+
\TEDIT.REPLACE.SELPIECES 91454 . 95990) (\TEDIT.INSERT.SELPIECES 95992 . 98989) (\TEDIT.RESTARTFN
2343+
98991 . 101496) (\TEDIT.CHARDELETE 101498 . 104427) (\TEDIT.COPYPIECE 104429 . 109591) (
2344+
\TEDIT.APPLY.OBJFN 109593 . 112679) (\TEDIT.DELETE 112681 . 117049) (\TEDIT.DIFFUSE.PARALOOKS 117051
2345+
. 119322) (\TEDIT.WORDDELETE 119324 . 120939) (\TEDIT.WORDDELETE.FORWARD 120941 . 122730) (
2346+
\TEDIT.FINISHEDIT? 122732 . 127584)) (127587 128246 (\TEDIT.THELP 127597 . 128244)) (128280 137411 (
2347+
\TEDIT.PARAPIECES 128290 . 130264) (\TEDIT.PARACHNOS 130266 . 131158) (\TEDIT.PARA.FIRST 131160 .
2348+
134261) (\TEDIT.PARA.LAST 134263 . 137409)) (137412 144507 (\TEDIT.WORD.FIRST 137422 . 141426) (
2349+
\TEDIT.WORD.LAST 141428 . 144505)) (144708 144985 (TEDITSYSTEMDATE 144718 . 144983)))))
23502350
STOP

‎library/tedit/TEDIT.LCOM‎

-120 Bytes
Binary file not shown.

0 commit comments

Comments
 (0)