From fa39f9ec5d4593f6cf49558aa5cb2989d9263efa Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Sun, 31 Mar 2024 23:52:13 -0700 Subject: [PATCH] Address issue #1635 --- library/tedit/TEDIT-FILE | 56 +++++++++++++++++----------------- library/tedit/TEDIT-FILE.LCOM | Bin 38957 -> 38859 bytes 2 files changed, 28 insertions(+), 28 deletions(-) diff --git a/library/tedit/TEDIT-FILE b/library/tedit/TEDIT-FILE index bb19121e..7f379568 100644 --- a/library/tedit/TEDIT-FILE +++ b/library/tedit/TEDIT-FILE @@ -1,13 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Mar-2024 00:38:51" {WMEDLEY}tedit>TEDIT-FILE.;502 152349 +(FILECREATED "31-Mar-2024 23:50:57" {MEDLEY}tedit>TEDIT-FILE.;2 152351 :EDIT-BY rmk - :CHANGES-TO (FNS TEDIT.PUT.STREAM \TEDIT.PUT.PCTB \TEDIT.PUT.TRAILER \TEDIT.PUT.CHARLOOKS - \TEDIT.PUT.CHARLOOKS1) + :CHANGES-TO (FNS TEDIT.PUT) - :PREVIOUS-DATE " 4-Mar-2024 22:50:23" {WMEDLEY}tedit>TEDIT-FILE.;501) + :PREVIOUS-DATE "11-Mar-2024 00:38:51" {MEDLEY}tedit>TEDIT-FILE.;1) (PRETTYCOMPRINT TEDIT-FILECOMS) @@ -399,7 +398,8 @@ (TEDIT.INCLUDE TSTREAM INFILE START END SAFE T]) (TEDIT.PUT - [LAMBDA (TSTREAM FILE FORCENEW UNFORMATTED? FORMAT) (* ; "Edited 7-Feb-2024 13:31 by rmk") + [LAMBDA (TSTREAM FILE FORCENEW UNFORMATTED? FORMAT) (* ; "Edited 31-Mar-2024 23:50 by rmk") + (* ; "Edited 7-Feb-2024 13:31 by rmk") (* ; "Edited 4-Feb-2024 00:10 by rmk") (* ; "Edited 22-Dec-2023 10:41 by rmk") (* ; "Edited 19-Dec-2023 10:18 by rmk") @@ -423,7 +423,7 @@ (* ;; "PUTFN BEFORE says it can't be saved, even though asked. Let him know") - (TEDIT.PROMPTPRINT "This document cannot be saved" T T) + (TEDIT.PROMPTPRINT TEXTOBJ "This document cannot be saved" T T) (RETURN NIL)) (CL:UNLESS (OR (IGREATERP (TEXTLEN TEXTOBJ) 0) @@ -2435,26 +2435,26 @@ (RPAQ? *TEDIT-FILE-READTABLE* (COPYREADTABLE \ORIGREADTABLE)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4977 31356 (TEDIT.GET 4987 . 9663) (TEDIT.FORMATTEDFILEP 9665 . 10588) (TEDIT.FILEDATE -10590 . 12174) (\TEDIT.GET.IDATE3 12176 . 13571) (TEDIT.INCLUDE 13573 . 20426) (TEDIT.RAW.INCLUDE -20428 . 21236) (TEDIT.PUT 21238 . 28064) (TEDIT.PUT.STREAM 28066 . 31354)) (31418 49820 ( -\TEDIT.GET.FOREIGN.FILE 31428 . 34492) (\TEDIT.GET.UNFORMATTED.FILE 34494 . 38253) ( -\TEDIT.GET.FORMATTED.FILE 38255 . 40921) (\TEDIT.FORMATTEDSTREAMP 40923 . 43610) (\ARBIN 43612 . 44332 -) (\ATMIN 44334 . 44871) (\DWIN 44873 . 45252) (\STRINGIN 45254 . 45962) (\TEDIT.GET.TRAILER 45964 . -48289) (\TEDIT.CACHEFILE 48291 . 49818)) (49986 61364 (\TEDIT.GET.PIECES3 49996 . 59523) ( -\TEDIT.MAKE.STRINGPIECE 59525 . 61362)) (61365 73308 (\TEDIT.GET.UNFORMATTED.FILE.XCCS 61375 . 67491) -(\TEDIT.INTERPRET.XCCS.SHIFTS 67493 . 73306)) (73330 79151 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 73340 . -79149)) (79174 87310 (\TEDIT.GET.CHARLOOKS.LIST 79184 . 79798) (\TEDIT.GET.SINGLE.CHARLOOKS 79800 . -84122) (\TEDIT.GET.CHARLOOKS 84124 . 85454) (\TEDIT.GET.PARALOOKS.INDEX 85456 . 86000) ( -\TEDIT.GET.CHARLOOKS.INDEX 86002 . 87308)) (87311 95549 (\TEDIT.GET.PARALOOKS.LIST 87321 . 87943) ( -\TEDIT.GET.SINGLE.PARALOOKS 87945 . 94957) (\TEDIT.GET.PARALOOKS 94959 . 95547)) (95550 98948 ( -TEDIT.GET.OBJECT 95560 . 98946)) (99010 130965 (\TEDIT.PUT.PCTB 99020 . 112763) (\TEDIT.PUT.TRAILER -112765 . 113532) (\TEDIT.PUT.PCTB.MERGEABLE 113534 . 117052) (\TEDIT.PUT.UTF8.SPLITPIECES 117054 . -122008) (\TEDIT.PUT.PCTB.NEXTNEW 122010 . 125785) (\TEDIT.INSERT.NEWPIECES 125787 . 128563) ( -\TEDIT.PUTRESET 128565 . 128807) (\ARBOUT 128809 . 129533) (\ATMOUT 129535 . 130140) (\DWOUT 130142 . -130421) (\STRINGOUT 130423 . 130963)) (130966 140095 (\TEDIT.PUT.CHARLOOKS.LIST 130976 . 132648) ( -\TEDIT.PUT.SINGLE.CHARLOOKS 132650 . 137894) (\TEDIT.PUT.CHARLOOKS 137896 . 139040) ( -\TEDIT.PUT.CHARLOOKS1 139042 . 140093)) (140096 148134 (\TEDIT.PUT.PARALOOKS.LIST 140106 . 141008) ( -\TEDIT.PUT.SINGLE.PARALOOKS 141010 . 147059) (\TEDIT.PUT.PARALOOKS 147061 . 148132)) (148135 150408 ( -TEDIT.PUT.OBJECT 148145 . 150406)) (150503 152185 (TEDITFROMLISPSOURCE 150513 . 152183))))) + (FILEMAP (NIL (4862 31358 (TEDIT.GET 4872 . 9548) (TEDIT.FORMATTEDFILEP 9550 . 10473) (TEDIT.FILEDATE +10475 . 12059) (\TEDIT.GET.IDATE3 12061 . 13456) (TEDIT.INCLUDE 13458 . 20311) (TEDIT.RAW.INCLUDE +20313 . 21121) (TEDIT.PUT 21123 . 28066) (TEDIT.PUT.STREAM 28068 . 31356)) (31420 49822 ( +\TEDIT.GET.FOREIGN.FILE 31430 . 34494) (\TEDIT.GET.UNFORMATTED.FILE 34496 . 38255) ( +\TEDIT.GET.FORMATTED.FILE 38257 . 40923) (\TEDIT.FORMATTEDSTREAMP 40925 . 43612) (\ARBIN 43614 . 44334 +) (\ATMIN 44336 . 44873) (\DWIN 44875 . 45254) (\STRINGIN 45256 . 45964) (\TEDIT.GET.TRAILER 45966 . +48291) (\TEDIT.CACHEFILE 48293 . 49820)) (49988 61366 (\TEDIT.GET.PIECES3 49998 . 59525) ( +\TEDIT.MAKE.STRINGPIECE 59527 . 61364)) (61367 73310 (\TEDIT.GET.UNFORMATTED.FILE.XCCS 61377 . 67493) +(\TEDIT.INTERPRET.XCCS.SHIFTS 67495 . 73308)) (73332 79153 (\TEDIT.GET.UNFORMATTED.FILE.UTF8 73342 . +79151)) (79176 87312 (\TEDIT.GET.CHARLOOKS.LIST 79186 . 79800) (\TEDIT.GET.SINGLE.CHARLOOKS 79802 . +84124) (\TEDIT.GET.CHARLOOKS 84126 . 85456) (\TEDIT.GET.PARALOOKS.INDEX 85458 . 86002) ( +\TEDIT.GET.CHARLOOKS.INDEX 86004 . 87310)) (87313 95551 (\TEDIT.GET.PARALOOKS.LIST 87323 . 87945) ( +\TEDIT.GET.SINGLE.PARALOOKS 87947 . 94959) (\TEDIT.GET.PARALOOKS 94961 . 95549)) (95552 98950 ( +TEDIT.GET.OBJECT 95562 . 98948)) (99012 130967 (\TEDIT.PUT.PCTB 99022 . 112765) (\TEDIT.PUT.TRAILER +112767 . 113534) (\TEDIT.PUT.PCTB.MERGEABLE 113536 . 117054) (\TEDIT.PUT.UTF8.SPLITPIECES 117056 . +122010) (\TEDIT.PUT.PCTB.NEXTNEW 122012 . 125787) (\TEDIT.INSERT.NEWPIECES 125789 . 128565) ( +\TEDIT.PUTRESET 128567 . 128809) (\ARBOUT 128811 . 129535) (\ATMOUT 129537 . 130142) (\DWOUT 130144 . +130423) (\STRINGOUT 130425 . 130965)) (130968 140097 (\TEDIT.PUT.CHARLOOKS.LIST 130978 . 132650) ( +\TEDIT.PUT.SINGLE.CHARLOOKS 132652 . 137896) (\TEDIT.PUT.CHARLOOKS 137898 . 139042) ( +\TEDIT.PUT.CHARLOOKS1 139044 . 140095)) (140098 148136 (\TEDIT.PUT.PARALOOKS.LIST 140108 . 141010) ( +\TEDIT.PUT.SINGLE.PARALOOKS 141012 . 147061) (\TEDIT.PUT.PARALOOKS 147063 . 148134)) (148137 150410 ( +TEDIT.PUT.OBJECT 148147 . 150408)) (150505 152187 (TEDITFROMLISPSOURCE 150515 . 152185))))) STOP diff --git a/library/tedit/TEDIT-FILE.LCOM b/library/tedit/TEDIT-FILE.LCOM index b8b07c9cf24f486020ac3de56ad937a3f7587a36..783a8d9d5b9c2b3f6a1d5935fec3cae38c286590 100644 GIT binary patch delta 1174 zcmZuw%Wl&^6eVF(qEa@{pq8{(=Fx^Kk!Qx^7ZqTVNfU5v%ds0;x+&C@NNrQnh=*A4 z3xHQ__yYt|w=CGhjujt)#3yhaoTOEoMKW`9&zW=1-1+=9`{PUYU3-C%QggFcqB2#0 zGLy?D*Cbe!o^*HjJ3G-9boW4lH?ftGs=_r68Ks6Ozg2%mRgos}4_YSU`5Qu6c zD0^W59ptEmwhfHD|C3)nNx`X9%q`X$wy5~RLLeMFXDn5jkMgtEmfF+psdH!Wvz>hHoPBU%YOwnI zsoqU0ovq2kkNHCOK0`YX1J8Fo;2Irz^WCP0#fB3A=Q1Q79jhsTGX=z|Wdo-aRzxty z68Xc-#b^2{1d2hS;yM*807a)`E=84LW0a*YS^^uG46Y}fR)BFeff?E=Mm{n1;LK`<+N$aIl1Y!D650Q;{qENi6fwa}#izFN^ zT$amaTxlvu$ky-dZ9~5cPw~0qQ&(^X7VU;3Y~ic~bqI<$UUK}rP`IrR`mxspDTf0> zKytbgPy>nF7g6tJuhWm9AMNh%Z1$r&NJbT!_Ao8}Sy;;O_~zB}`5d4ZX)QXCK+|G2 NcO%0O*XMq{{s*}NC~yD( delta 1276 zcmZuxOKTHR6gCwVBUXI0Rcr8gL2W7tb6@ikA7gUUh9)y{GBFk_SnXIMZBt_Kfnfaw zqRiT@J5lV~z2Hh*_%~d-^vpPET5BN5+WJ78!4_QLBVG3h5H*CrY-0y{3IpMSQ-sAH& zECi}t4T_BxeoMg(=pa_5Rja{vh+?rwU}>?Bwf>83l6-cmQmv_TC0{v+2;~2y6OvgZ z2~;vJtY|TlpDs27%&PCAvW;5cJBaQ_^wn4fqI<8#r}JPpe08hpwVH)8mP7}{4$V@t z8EQ@{?v)zd{FymBb}cxte@~`8esB+dj^5liyBt4cJzzhc?)-22% z*qy2tQRej66=6{*d2Y!GK$vuhC8V{@7hg3M1~3b}hH_H?ZbkI<*oYybyQe1#x;BWf zJ98@TNy3RsnU+RERTtY0T$q?~azlq!q2x3ba7w`qW=pe<4_w<7&rD;en@MAk#w6QH zV?zJ83}faF6Bv~Ph854RJ0bd0{wt+{Q?WCc3I^#}>^5b_U54yBrMd{hN^ z+r7kYpg0=Ad_w_6VXkW9KLxK9#66_C33gdkoK_7NlBfHHlmz9*fDhHo=>3`ebsfl3 zcP+%*f@mbU*us!N5Ut-?TZVoY9^y+SzD_s}Q?;tAaD--pSqSpLO)EN*%Uv~+c#O4y zWN}tBAa0icvk=I8684_