Skip to content

Improves tracking in Tedit windows, Tedit follows WHENOPERATEDONFN documentation #2742

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
rmkaplan merged 4 commits into from
Sep 14, 2026
Merged

Improves tracking in Tedit windows, Tedit follows WHENOPERATEDONFN documentation #2742

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
f43a5ef
Improves tracking in Tedit windows, Tedit follows WHENOPERATEDONFN d…
rmkaplan Aug 26, 2026
48a3775
Missed an update
rmkaplan Aug 26, 2026
ca38335
Incorporate fix from PR #2743
rmkaplan Sep 7, 2026
02b20b4
Tedit's PAGEFORMATTING state was changed and converted to a datatype …
rmkaplan Sep 7, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
39 changes: 20 additions & 19 deletions doctools/IMTEDIT
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)

(FILECREATED "12-Apr-2024 19:58:59" {WMEDLEY}<doctools>IMTEDIT.;5 117369
(FILECREATED " 6-Sep-2026 23:30:13" {WMEDLEY}<doctools>IMTEDIT.;6 117480

:EDIT-BY rmk

:CHANGES-TO (FNS MAKE.IM.DOCUMENT)
:CHANGES-TO (FNS GET.FOLIO.STRING)

:PREVIOUS-DATE " 6-Mar-2024 21:18:02" {WMEDLEY}<doctools>IMTEDIT.;4)
:PREVIOUS-DATE "12-Apr-2024 19:58:59" {WMEDLEY}<doctools>IMTEDIT.;5)


(PRETTYCOMPRINT IMTEDITCOMS)
Expand Down Expand Up @@ -810,14 +810,15 @@
(RETURN OBJ])

(GET.FOLIO.STRING
[LAMBDA (OBJ STREAM) (* mjs "19-Sep-85 14:59")
[LAMBDA (OBJ STREAM) (* ; "Edited 6-Sep-2026 23:30 by rmk")
(* mjs "19-Sep-85 14:59")
(PROG ([CHAPNUM.INFO (MKLIST (IMAGEOBJPROP OBJ 'IM.CHAPNUM.DATA]
CHAPNUM PAGENUM)
(SETQ CHAPNUM (CAR CHAPNUM.INFO))
[SETQ PAGENUM (COND
((DISPLAYSTREAMP STREAM)
"xx")
(T (PROG [(TEDIT.PAGE (fetch (PAGEFORMATTINGSTATE PAGE#) of
(T (PROG [(TEDIT.PAGE (fetch (PAGEFORMATTINGSTATE PAGENUM) of
FORMATTINGSTATE
))
(NUMBER.PAGENUMS (LENGTH (CDR CHAPNUM.INFO]
Expand Down Expand Up @@ -2413,17 +2414,17 @@ IM.TEDIT.DUMP.COMMANDS 20423 . 23976) (IM.TEDIT.DUMP.FOOTNOTES 23978 . 24419) (I
24421 . 25195) (INDEXX.PARSE.TYPE 25197 . 26492) (FORMAT.DEF 26494 . 28625) (FORMAT.LISPWORD 28627 .
28778) (MAKE.IM.DOCUMENT 28780 . 37558) (PRINT.NOTE 37560 . 37774) (SEND.INFO 37776 . 38701)) (38817
42835 (IM.VRULE.DISPLAYFN 38827 . 39151) (CREATE.VRULE.OBJECT 39153 . 40933) (PRINT.VRULES.ON.PAGE
40935 . 42833)) (42997 47752 (IM.FOLIO.DISPLAYFN 43007 . 43685) (IM.FOLIO.SIZEFN 43687 . 44536) (
CREATE.FOLIO.OBJECT 44538 . 46084) (GET.FOLIO.STRING 46086 . 47750)) (47888 94128 (ARG#TOPROG 47898 .
48037) (BIGLISPCODE#TOPROG 48039 . 49275) (BRACKET#TOPROG 49277 . 49441) (CHAPTER#TOPROG 49443 . 52124
) (COMMENT#TOPROG 52126 . 52678) (DEF#TOPROG 52680 . 56015) (FIGURE#TOPROG 56017 . 57361) (FN#TOPROG
57363 . 57760) (FNDEF#TOPROG 57762 . 61654) (FOOT#TOPROG 61656 . 62197) (INCLUDE#TOPROG 62199 . 62514)
(INDEX#TOPROG 62516 . 63606) (INDEXX#TOPROG 63608 . 65689) (IT#TOPROG 65691 . 65832) (LBRACKET#TOPROG
65834 . 65988) (LISP#TOPROG 65990 . 66131) (LISPCODE#TOPROG 66133 . 67252) (LISPWORD#TOPROG 67254 .
67994) (LIST#TOPROG 67996 . 72418) (MACDEF#TOPROG 72420 . 73598) (NOTE#TOPROG 73600 . 74280) (
PRINT.SPECIAL.CHARS#TOPROG 74282 . 75259) (PROPDEF#TOPROG 75261 . 75538) (RBRACKET#TOPROG 75540 .
75694) (REF#TOPROG 75696 . 83535) (RM#TOPROG 83537 . 83675) (SUB#TOPROG 83677 . 83825) (SUBSEC#TOPROG
83827 . 88330) (SUPER#TOPROG 88332 . 88486) (TABLE#TOPROG 88488 . 92440) (TAG#TOPROG 92442 . 92709) (
TERM#TOPROG 92711 . 93024) (VAR#TOPROG 93026 . 93429) (VARDEF#TOPROG 93431 . 94126)) (111920 116862 (
TRANSLATE.DUMPOUT 111930 . 116461) (TRANSLATE.SAVE.DUMPOUT 116463 . 116860)))))
40935 . 42833)) (42997 47863 (IM.FOLIO.DISPLAYFN 43007 . 43685) (IM.FOLIO.SIZEFN 43687 . 44536) (
CREATE.FOLIO.OBJECT 44538 . 46084) (GET.FOLIO.STRING 46086 . 47861)) (47999 94239 (ARG#TOPROG 48009 .
48148) (BIGLISPCODE#TOPROG 48150 . 49386) (BRACKET#TOPROG 49388 . 49552) (CHAPTER#TOPROG 49554 . 52235
) (COMMENT#TOPROG 52237 . 52789) (DEF#TOPROG 52791 . 56126) (FIGURE#TOPROG 56128 . 57472) (FN#TOPROG
57474 . 57871) (FNDEF#TOPROG 57873 . 61765) (FOOT#TOPROG 61767 . 62308) (INCLUDE#TOPROG 62310 . 62625)
(INDEX#TOPROG 62627 . 63717) (INDEXX#TOPROG 63719 . 65800) (IT#TOPROG 65802 . 65943) (LBRACKET#TOPROG
65945 . 66099) (LISP#TOPROG 66101 . 66242) (LISPCODE#TOPROG 66244 . 67363) (LISPWORD#TOPROG 67365 .
68105) (LIST#TOPROG 68107 . 72529) (MACDEF#TOPROG 72531 . 73709) (NOTE#TOPROG 73711 . 74391) (
PRINT.SPECIAL.CHARS#TOPROG 74393 . 75370) (PROPDEF#TOPROG 75372 . 75649) (RBRACKET#TOPROG 75651 .
75805) (REF#TOPROG 75807 . 83646) (RM#TOPROG 83648 . 83786) (SUB#TOPROG 83788 . 83936) (SUBSEC#TOPROG
83938 . 88441) (SUPER#TOPROG 88443 . 88597) (TABLE#TOPROG 88599 . 92551) (TAG#TOPROG 92553 . 92820) (
TERM#TOPROG 92822 . 93135) (VAR#TOPROG 93137 . 93540) (VARDEF#TOPROG 93542 . 94237)) (112031 116973 (
TRANSLATE.DUMPOUT 112041 . 116572) (TRANSLATE.SAVE.DUMPOUT 116574 . 116971)))))
STOP
Binary file modified doctools/IMTEDIT.LCOM
View file
Open in desktop
Binary file not shown.
98 changes: 45 additions & 53 deletions internal/TEDIT-DEBUG
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10 :FORMAT :UTF-8)

(FILECREATED "28-Jul-2026 00:46:35" {MEDLEY}<internal>TEDIT-DEBUG.;222 145608
(FILECREATED "16-Aug-2026 13:01:09" {MEDLEY}<internal>TEDIT-DEBUG.;224 145548

:EDIT-BY rmk

:CHANGES-TO (FNS SPF SPR PLCHAIN SPR2 SPPRINT SPF1 SPF2 FILEBYTES TFILEBYTES)
(VARS TEDIT-DEBUGCOMS)
:CHANGES-TO (FNS SPPRINT.OBJ)

:PREVIOUS-DATE " 4-Jul-2026 21:21:14" {MEDLEY}<internal>TEDIT-DEBUG.;209)
:PREVIOUS-DATE " 1-Aug-2026 21:19:41" {MEDLEY}<internal>TEDIT-DEBUG.;223)


(PRETTYCOMPRINT TEDIT-DEBUGCOMS)
Expand Down Expand Up @@ -35,7 +34,7 @@
(FNS IPC ILINES ISEL ITS IPANES ITL IHIST IPCTB IMB ICL IPL ICARET INSPECTPIECES
INSPECTFILEPIECES))
(COMS (* ; "Show")
(FNS SP SL SSP SLF SHOWLINE SLL STBYTES SSEL SHOWPLOOKS)
(FNS SP SL SSP SLF SHOWLINE SLL STBYTES SSEL)
(FNS SPF SPR)
(* ; "Page frames and page regions")
(FNS STL CLEARTHISLINE CHARSLOTP \TLVALIDATE))
Expand Down Expand Up @@ -904,20 +903,6 @@
(for I from (GETSEL SEL CH#) to (GETSEL SEL CHLAST) do (PRINTOUT OFILE (TEDIT.NTHCHAR TEXTOBJ I))
)
(TERPRI OFILE])

(SHOWPLOOKS
[LAMBDA (PLOOKS OFILE) (* ; "Edited 1-Jul-2026 21:41 by rmk")
(PRINTOUT OFILE "1ST=" (GETPLOOKS PLOOKS 1STLEFTMAR)
" LM="
(GETPLOOKS PLOOKS LEFTMAR)
" RM="
(GETPLOOKS PLOOKS RIGHTMAR)
" DEFTAB="
(GETPLOOKS PLOOKS FMTDEFAULTTAB)
%#
(CL:IF (GETPLOOKS PLOOKS FMTTABS)
(PRINTOUT NIL " TABS=" (GETPLOOKS PLOOKS FMTTABS))
"")])
)
(DEFINEQ

Expand Down Expand Up @@ -1632,7 +1617,8 @@
OSTREAM)))])

(SPPRINT.OBJ
[LAMBDA (OBJ STREAM POS) (* ; "Edited 9-Jan-2025 16:48 by rmk")
[LAMBDA (OBJ STREAM POS) (* ; "Edited 16-Aug-2026 13:00 by rmk")
(* ; "Edited 9-Jan-2025 16:48 by rmk")
(* ; "Edited 6-Oct-2024 20:54 by rmk")
(* ; "Edited 29-Sep-2024 14:45 by rmk")
(* ; "Edited 29-Aug-2024 10:44 by rmk")
Expand All @@ -1656,10 +1642,16 @@
(for SOBJ in (IMAGEOBJPROP OBJ 'SUBOBJECTS)
do (PRINTOUT STREAM (IMAGEOBJPROP SOBJ 'IDENTIFIER)
" ")))
(if (OR (IMAGEOBJPROP OBJ 'IDENTIFIER)
(IMAGEOBJPROP OBJ 'LABEL))
then (PRIN1 (OR (IMAGEOBJPROP OBJ 'IDENTIFIER)
(IMAGEOBJPROP OBJ 'LABEL))
(if (IMAGEOBJPROP OBJ 'IDENTIFIER)
then (PRIN1 (IMAGEOBJPROP OBJ 'IDENTIFIER)
STREAM)
elseif (IMAGEOBJPROP OBJ 'LABEL)
then (PRIN4 (SELCHARQ [AND [EQ 1 (NCHARS (IMAGEOBJPROP OBJ
'LABEL]
(CHCON1 (IMAGEOBJPROP OBJ 'LABEL]
(EOL 'EOL)
(TAB 'TAB)
(IMAGEOBJPROP OBJ 'LABEL))
STREAM)
elseif (IMAGEOBJPROP OBJ 'PREPRINTFN)
then (LET ((PPRINT (APPLY* (IMAGEOBJPROP OBJ 'PREPRINTFN)
Expand Down Expand Up @@ -2683,33 +2675,33 @@
(ADDTOVAR LAMA )
)
(DECLARE%: DONTCOPY
(FILEMAP (NIL (5247 7806 (GTO 5257 . 5507) (GTS 5509 . 7280) (GTW 7282 . 7438) (GSEL 7440 . 7804)) (
7839 8960 (TEST.TEMPLATE 7849 . 8958)) (8961 9896 (TESTACTION 8971 . 9894)) (9921 24402 (IPC 9931 .
11435) (ILINES 11437 . 13978) (ISEL 13980 . 14591) (ITS 14593 . 16317) (IPANES 16319 . 16554) (ITL
16556 . 16975) (IHIST 16977 . 19639) (IPCTB 19641 . 20067) (IMB 20069 . 20828) (ICL 20830 . 21531) (
IPL 21533 . 22073) (ICARET 22075 . 22602) (INSPECTPIECES 22604 . 23734) (INSPECTFILEPIECES 23736 .
24400)) (24424 51595 (SP 24434 . 29549) (SL 29551 . 33553) (SSP 33555 . 35421) (SLF 35423 . 44570) (
SHOWLINE 44572 . 48245) (SLL 48247 . 48994) (STBYTES 48996 . 50722) (SSEL 50724 . 51085) (SHOWPLOOKS
51087 . 51593)) (51596 55934 (SPF 51606 . 54403) (SPR 54405 . 55932)) (55980 68332 (STL 55990 . 64830)
(CLEARTHISLINE 64832 . 65312) (CHARSLOTP 65314 . 66633) (\TLVALIDATE 66635 . 68330)) (68358 73731 (
NTHPIECE 68368 . 69500) (NPIECES 69502 . 70367) (NTHPIECECHAR 70369 . 71677) (SELPIECE 71679 . 72121)
(PIECENUM 72123 . 72842) (PCBYTES 72844 . 73729)) (73732 78383 (FILEBYTES 73742 . 76221) (TFILEBYTES
76223 . 78381)) (78384 79712 (TRELMOVE 78394 . 78641) (TSCROLL 78643 . 78809) (TSCROLL* 78811 . 79710)
) (79713 82764 (TRY 79723 . 80992) (TEDITCLOSEW 80994 . 81337) (PARALASTWITHOUTEOL 81339 . 82224) (
FIXPARALAST 82226 . 82762)) (82765 98544 (SPPRINT 82775 . 90488) (SPPRINT.CHAR 90490 . 91474) (
SPPRINT.OBJ 91476 . 94534) (SHOWPIECEBYTES 94536 . 96092) (CHECKPLENGTHS 96094 . 96551) (SBT 96553 .
97690) (COPYPCHAIN 97692 . 98542)) (98545 100606 (POSLINE 98555 . 100604)) (100607 101216 (PICAS
100617 . 101214)) (101217 102104 (PRESPLIT 101227 . 102102)) (102105 103822 (ALLTL 102115 . 103372) (
NTHCHARSLOT 103374 . 103820)) (103848 114043 (PLCHAIN 103858 . 104368) (PRINTLINE 104370 . 107360) (
SL.GETLINES 107362 . 110655) (CHECKLINES 110657 . 111637) (COLLECTLINES 111639 . 111891) (NTHLINE
111893 . 112898) (HEIGHT 112900 . 113188) (LINEBOTS 113190 . 114041)) (114044 116492 (IPC.DECODEARGS
114054 . 116490)) (116493 118871 (SLF.FATPLEN 116503 . 117362) (FILEPIECE 117364 . 118869)) (118904
119672 (SELTEDIT 118914 . 119670)) (119742 126279 (PPARA 119752 . 120602) (PRUN 120604 . 122353) (
ADDLINEPOSITIONS 122355 . 123784) (SBR 123786 . 124440) (SBC 124442 . 126277)) (126336 128108 (OLDWI
126346 . 126717) (COMP 126719 . 126914) (DFR 126916 . 128106)) (128109 129142 (DFGV 128119 . 128645) (
GDIRECTORIES 128647 . 129140)) (129143 135050 (TTEST 129153 . 133685) (LTEST 133687 . 135048)) (135364
136056 (SHOWSAFE 135374 . 136054)) (136109 136556 (MYH 136119 . 136554)) (136801 137896 (DFVENUE
136811 . 137690) (VSEE 137692 . 137894)) (137897 138351 (PTT 137907 . 138349)) (138710 140487 (
DEBUGOUTPUT.STREAM 138720 . 140485)) (140488 143202 (TEDIT-DEBUG 140498 . 143200)) (143203 143695 (
HEXTOHILO 143213 . 143553) (CW 143555 . 143693)) (143696 145432 (TRENAME 143706 . 145430)))))
(FILEMAP (NIL (5147 7706 (GTO 5157 . 5407) (GTS 5409 . 7180) (GTW 7182 . 7338) (GSEL 7340 . 7704)) (
7739 8860 (TEST.TEMPLATE 7749 . 8858)) (8861 9796 (TESTACTION 8871 . 9794)) (9821 24302 (IPC 9831 .
11335) (ILINES 11337 . 13878) (ISEL 13880 . 14491) (ITS 14493 . 16217) (IPANES 16219 . 16454) (ITL
16456 . 16875) (IHIST 16877 . 19539) (IPCTB 19541 . 19967) (IMB 19969 . 20728) (ICL 20730 . 21431) (
IPL 21433 . 21973) (ICARET 21975 . 22502) (INSPECTPIECES 22504 . 23634) (INSPECTFILEPIECES 23636 .
24300)) (24324 50987 (SP 24334 . 29449) (SL 29451 . 33453) (SSP 33455 . 35321) (SLF 35323 . 44470) (
SHOWLINE 44472 . 48145) (SLL 48147 . 48894) (STBYTES 48896 . 50622) (SSEL 50624 . 50985)) (50988 55326
(SPF 50998 . 53795) (SPR 53797 . 55324)) (55372 67724 (STL 55382 . 64222) (CLEARTHISLINE 64224 .
64704) (CHARSLOTP 64706 . 66025) (\TLVALIDATE 66027 . 67722)) (67750 73123 (NTHPIECE 67760 . 68892) (
NPIECES 68894 . 69759) (NTHPIECECHAR 69761 . 71069) (SELPIECE 71071 . 71513) (PIECENUM 71515 . 72234)
(PCBYTES 72236 . 73121)) (73124 77775 (FILEBYTES 73134 . 75613) (TFILEBYTES 75615 . 77773)) (77776
79104 (TRELMOVE 77786 . 78033) (TSCROLL 78035 . 78201) (TSCROLL* 78203 . 79102)) (79105 82156 (TRY
79115 . 80384) (TEDITCLOSEW 80386 . 80729) (PARALASTWITHOUTEOL 80731 . 81616) (FIXPARALAST 81618 .
82154)) (82157 98484 (SPPRINT 82167 . 89880) (SPPRINT.CHAR 89882 . 90866) (SPPRINT.OBJ 90868 . 94474)
(SHOWPIECEBYTES 94476 . 96032) (CHECKPLENGTHS 96034 . 96491) (SBT 96493 . 97630) (COPYPCHAIN 97632 .
98482)) (98485 100546 (POSLINE 98495 . 100544)) (100547 101156 (PICAS 100557 . 101154)) (101157 102044
(PRESPLIT 101167 . 102042)) (102045 103762 (ALLTL 102055 . 103312) (NTHCHARSLOT 103314 . 103760)) (
103788 113983 (PLCHAIN 103798 . 104308) (PRINTLINE 104310 . 107300) (SL.GETLINES 107302 . 110595) (
CHECKLINES 110597 . 111577) (COLLECTLINES 111579 . 111831) (NTHLINE 111833 . 112838) (HEIGHT 112840 .
113128) (LINEBOTS 113130 . 113981)) (113984 116432 (IPC.DECODEARGS 113994 . 116430)) (116433 118811 (
SLF.FATPLEN 116443 . 117302) (FILEPIECE 117304 . 118809)) (118844 119612 (SELTEDIT 118854 . 119610)) (
119682 126219 (PPARA 119692 . 120542) (PRUN 120544 . 122293) (ADDLINEPOSITIONS 122295 . 123724) (SBR
123726 . 124380) (SBC 124382 . 126217)) (126276 128048 (OLDWI 126286 . 126657) (COMP 126659 . 126854)
(DFR 126856 . 128046)) (128049 129082 (DFGV 128059 . 128585) (GDIRECTORIES 128587 . 129080)) (129083
134990 (TTEST 129093 . 133625) (LTEST 133627 . 134988)) (135304 135996 (SHOWSAFE 135314 . 135994)) (
136049 136496 (MYH 136059 . 136494)) (136741 137836 (DFVENUE 136751 . 137630) (VSEE 137632 . 137834))
(137837 138291 (PTT 137847 . 138289)) (138650 140427 (DEBUGOUTPUT.STREAM 138660 . 140425)) (140428
143142 (TEDIT-DEBUG 140438 . 143140)) (143143 143635 (HEXTOHILO 143153 . 143493) (CW 143495 . 143633))
(143636 145372 (TRENAME 143646 . 145370)))))
STOP
Binary file modified internal/TEDIT-DEBUG.LCOM
View file
Open in desktop
Binary file not shown.
Loading