github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-04-26 04:08:08 +00:00
Code Issues Projects Releases Wiki Activity

Revert imagetype TEDIT to imagetype TEXT

Browse Source
This commit is contained in:
rmkaplan
2025-09-23 08:21:38 -07:00
parent 3276822c19
commit 49d15bdfd3
2 changed files with 36 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
library/tedit/TEDIT-STREAM
View File

@@ -1,13 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "20-Sep-2025 08:49:36" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;919 191988 (FILECREATED "23-Sep-2025 08:19:29" {MEDLEY}<library>tedit>TEDIT-STREAM.;15 192029
:EDIT-BY rmk :EDIT-BY rmk
:CHANGES-TO (RECORDS TEXTSTREAM) :CHANGES-TO (FNS \TEDIT.TEXTINIT)
(FNS \TEDIT.TEXTINIT \TEDIT.TEXTDSPXPOSITION)
:PREVIOUS-DATE "18-Sep-2025 23:09:35" {WMEDLEY}<library>TEDIT>TEDIT-STREAM.;917) :PREVIOUS-DATE "20-Sep-2025 08:49:36" {MEDLEY}<library>tedit>TEDIT-STREAM.;14)
(PRETTYCOMPRINT TEDIT-STREAMCOMS) (PRETTYCOMPRINT TEDIT-STREAMCOMS)
@@ -1752,7 +1751,8 @@
NEWSTREAM]) NEWSTREAM])
(\TEDIT.TEXTINIT (\TEDIT.TEXTINIT
[LAMBDA NIL (* ; "Edited 20-Sep-2025 08:48 by rmk") [LAMBDA NIL (* ; "Edited 23-Sep-2025 08:19 by rmk")
(* ; "Edited 20-Sep-2025 08:48 by rmk")
(* ; "Edited 18-Sep-2025 14:52 by rmk") (* ; "Edited 18-Sep-2025 14:52 by rmk")
(* ; "Edited 10-Jul-2025 11:28 by rmk") (* ; "Edited 10-Jul-2025 11:28 by rmk")
(* ; "Edited 15-Apr-2025 23:10 by rmk") (* ; "Edited 15-Apr-2025 23:10 by rmk")
@@ -1791,7 +1791,7 @@
(* ;; "(FW8 WORD)") (* ;; "(FW8 WORD)")
(SETQ \TEDITIMAGEOPS (create IMAGEOPS (SETQ \TEDITIMAGEOPS (create IMAGEOPS
IMAGETYPE _ 'TEDIT IMAGETYPE _ 'TEXT
IMXPOSITION _ (FUNCTION \TEDIT.TEXTDSPXPOSITION) IMXPOSITION _ (FUNCTION \TEDIT.TEXTDSPXPOSITION)
IMYPOSITION _ (FUNCTION \TEDIT.TEXTDSPYPOSITION) IMYPOSITION _ (FUNCTION \TEDIT.TEXTDSPYPOSITION)
IMLEFTMARGIN _ (FUNCTION \TEDIT.TEXTLEFTMARGIN) IMLEFTMARGIN _ (FUNCTION \TEDIT.TEXTLEFTMARGIN)
@@ -3135,34 +3135,34 @@
(ADDTOVAR LAMA TEXTPROP) (ADDTOVAR LAMA TEXTPROP)
) )
(DECLARE%: DONTCOPY (DECLARE%: DONTCOPY
(FILEMAP (NIL (36954 67770 (\TEDIT.TEXTBIN 36964 . 47714) (\TEDIT.TEXTPEEKBIN 47716 . 53266) ( (FILEMAP (NIL (36887 67703 (\TEDIT.TEXTBIN 36897 . 47647) (\TEDIT.TEXTPEEKBIN 47649 . 53199) (
\TEDIT.TEXTBACKFILEPTR 53268 . 58941) (\TEDIT.TEXTBOUT 58943 . 63560) (\TEDIT.INSTALL.FILEBUFFER 63562 \TEDIT.TEXTBACKFILEPTR 53201 . 58874) (\TEDIT.TEXTBOUT 58876 . 63493) (\TEDIT.INSTALL.FILEBUFFER 63495
. 67768)) (68668 72959 (\TEDIT.TEXTOUTCHARFN 68678 . 70234) (\TEDIT.TEXTINCCODEFN 70236 . 70975) ( . 67701)) (68601 72892 (\TEDIT.TEXTOUTCHARFN 68611 . 70167) (\TEDIT.TEXTINCCODEFN 70169 . 70908) (
\TEDIT.TEXTBACKCCODEFN 70977 . 71569) (\TEDIT.TEXTFORMATBYTESTREAM 71571 . 72408) ( \TEDIT.TEXTBACKCCODEFN 70910 . 71502) (\TEDIT.TEXTFORMATBYTESTREAM 71504 . 72341) (
\TEDIT.TEXTFORMATBYTESTRING 72410 . 72957)) (73006 84570 (OPENTEXTSTREAM 73016 . 79891) ( \TEDIT.TEXTFORMATBYTESTRING 72343 . 72890)) (72939 84503 (OPENTEXTSTREAM 72949 . 79824) (
COPYTEXTSTREAM 79893 . 83793) (TEDIT.STREAMCHANGEDP 83795 . 84097) (TXTFILE 84099 . 84568)) (84571 COPYTEXTSTREAM 79826 . 83726) (TEDIT.STREAMCHANGEDP 83728 . 84030) (TXTFILE 84032 . 84501)) (84504
115705 (\TEDIT.REOPENTEXTSTREAM 84581 . 85933) (\TEDIT.OPENTEXTSTREAM.PIECES 85935 . 90863) ( 115746 (\TEDIT.REOPENTEXTSTREAM 84514 . 85866) (\TEDIT.OPENTEXTSTREAM.PIECES 85868 . 90796) (
\TEDIT.OPENTEXTSTREAM.PROPS 90865 . 91967) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 91969 . 97210) ( \TEDIT.OPENTEXTSTREAM.PROPS 90798 . 91900) (\TEDIT.OPENTEXTSTREAM.SETUP.SEL 91902 . 97143) (
\TEDIT.OPENTEXTSTREAM.WINDOW 97212 . 100003) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 100005 . 101944) ( \TEDIT.OPENTEXTSTREAM.WINDOW 97145 . 99936) (\TEDIT.OPENTEXTSTREAM.DEFAULTLOOKS 99938 . 101877) (
\TEDIT.OPENTEXTFILE 101946 . 104423) (\TEDIT.CREATE.TEXTSTREAM 104425 . 105572) (\TEDIT.REOPEN.STREAM \TEDIT.OPENTEXTFILE 101879 . 104356) (\TEDIT.CREATE.TEXTSTREAM 104358 . 105505) (\TEDIT.REOPEN.STREAM
105574 . 107910) (\TEDIT.TEXTINIT 107912 . 115703)) (115743 116931 (\TEDIT.TTYBOUT 115753 . 116929)) ( 105507 . 107843) (\TEDIT.TEXTINIT 107845 . 115744)) (115784 116972 (\TEDIT.TTYBOUT 115794 . 116970)) (
117049 137512 (\TEDIT.TEXTCLOSEF 117059 . 118383) (\TEDIT.TEXTDSPFONT 118385 . 119583) ( 117090 137553 (\TEDIT.TEXTCLOSEF 117100 . 118424) (\TEDIT.TEXTDSPFONT 118426 . 119624) (
\TEDIT.TEXTEOFP 119585 . 121340) (\TEDIT.TEXTGETEOFPTR 121342 . 121665) (\TEDIT.TEXTSETEOFPTR 121667 \TEDIT.TEXTEOFP 119626 . 121381) (\TEDIT.TEXTGETEOFPTR 121383 . 121706) (\TEDIT.TEXTSETEOFPTR 121708
. 122954) (\TEDIT.TEXTGETFILEPTR 122956 . 125791) (\TEDIT.TEXTSETFILEINFO 125793 . 126301) ( . 122995) (\TEDIT.TEXTGETFILEPTR 122997 . 125832) (\TEDIT.TEXTSETFILEINFO 125834 . 126342) (
\TEDIT.TEXTOPENF 126303 . 127234) (\TEDIT.TEXTSETEOF 127236 . 127852) (\TEDIT.TEXTSETFILEPTR 127854 . \TEDIT.TEXTOPENF 126344 . 127275) (\TEDIT.TEXTSETEOF 127277 . 127893) (\TEDIT.TEXTSETFILEPTR 127895 .
129964) (\TEDIT.TEXTDSPXPOSITION 129966 . 131449) (\TEDIT.TEXTDSPYPOSITION 131451 . 132192) ( 130005) (\TEDIT.TEXTDSPXPOSITION 130007 . 131490) (\TEDIT.TEXTDSPYPOSITION 131492 . 132233) (
\TEDIT.TEXTLEFTMARGIN 132194 . 132785) (\TEDIT.TEXTCOLOR 132787 . 133370) (\TEDIT.TEXTRIGHTMARGIN \TEDIT.TEXTLEFTMARGIN 132235 . 132826) (\TEDIT.TEXTCOLOR 132828 . 133411) (\TEDIT.TEXTRIGHTMARGIN
133372 . 136661) (\TEDIT.TEXTDSPCHARWIDTH 136663 . 136967) (\TEDIT.TEXTDSPSTRINGWIDTH 136969 . 137275) 133413 . 136702) (\TEDIT.TEXTDSPCHARWIDTH 136704 . 137008) (\TEDIT.TEXTDSPSTRINGWIDTH 137010 . 137316)
(\TEDIT.TEXTDSPLINEFEED 137277 . 137510)) (137550 150163 (\TEDIT.NTHCHARCODE 137560 . 139011) ( (\TEDIT.TEXTDSPLINEFEED 137318 . 137551)) (137591 150204 (\TEDIT.NTHCHARCODE 137601 . 139052) (
\TEDIT.PIECE.NTHCHARCODE 139013 . 142923) (\TEDIT.RPLCHARCODE 142925 . 144383) ( \TEDIT.PIECE.NTHCHARCODE 139054 . 142964) (\TEDIT.RPLCHARCODE 142966 . 144424) (
\TEDIT.PIECE.RPLCHARCODE 144385 . 149808) (\TEDIT.NTHCHARLOOKS 149810 . 150161)) (151210 172304 ( \TEDIT.PIECE.RPLCHARCODE 144426 . 149849) (\TEDIT.NTHCHARLOOKS 149851 . 150202)) (151251 172345 (
\TEDIT.DELETE.SELPIECES 151220 . 154845) (\TEDIT.INSERTCH 154847 . 162886) (\TEDIT.INSERTCH.HISTORY \TEDIT.DELETE.SELPIECES 151261 . 154886) (\TEDIT.INSERTCH 154888 . 162927) (\TEDIT.INSERTCH.HISTORY
162888 . 166352) (\TEDIT.INSERTEOL 166354 . 168179) (\TEDIT.INSERTCH.INSERTION 168181 . 171018) ( 162929 . 166393) (\TEDIT.INSERTEOL 166395 . 168220) (\TEDIT.INSERTCH.INSERTION 168222 . 171059) (
\TEDIT.INSERTCH.EXTEND 171020 . 172302)) (172305 173809 (\TEDIT.NEXTCHANGEABLE.CHNO 172315 . 173030) ( \TEDIT.INSERTCH.EXTEND 171061 . 172343)) (172346 173850 (\TEDIT.NEXTCHANGEABLE.CHNO 172356 . 173071) (
\TEDIT.LASTCHANGEABLE.CHNO 173032 . 173807)) (173810 175514 (\SETUPGETCH 173820 . 175512)) (175572 \TEDIT.LASTCHANGEABLE.CHNO 173073 . 173848)) (173851 175555 (\SETUPGETCH 173861 . 175553)) (175613
180030 (\TEDIT.INSTALL.PIECE 175582 . 180028)) (180068 189169 (TEXTPROP 180078 . 180425) (GETTEXTPROP 180071 (\TEDIT.INSTALL.PIECE 175623 . 180069)) (180109 189210 (TEXTPROP 180119 . 180466) (GETTEXTPROP
180427 . 180671) (PUTTEXTPROP 180673 . 180930) (GETTEXTPROPS 180932 . 181376) (PUTTEXTPROPS 181378 . 180468 . 180712) (PUTTEXTPROP 180714 . 180971) (GETTEXTPROPS 180973 . 181417) (PUTTEXTPROPS 181419 .
182282) (TEXTPROP.ADD 182284 . 182547) (\TEDIT.TEXTPROP 182549 . 189167)) (189170 191240 ( 182323) (TEXTPROP.ADD 182325 . 182588) (\TEDIT.TEXTPROP 182590 . 189208)) (189211 191281 (
\TEDIT.TEXTOBJ.PROPNAMES 189180 . 190132) (\TEDIT.TEXTOBJ.PROPFETCHFN 190134 . 190650) ( \TEDIT.TEXTOBJ.PROPNAMES 189221 . 190173) (\TEDIT.TEXTOBJ.PROPFETCHFN 190175 . 190691) (
\TEDIT.TEXTOBJ.PROPSTOREFN 190652 . 191238))))) \TEDIT.TEXTOBJ.PROPSTOREFN 190693 . 191279)))))
STOP STOP

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

Binary file not shown.