From 1ad92b3dd4ed016621db9fabb85be9384df9cacc Mon Sep 17 00:00:00 2001 From: rmkaplan Date: Wed, 13 Oct 2021 10:10:58 -0700 Subject: [PATCH] TEDIT: TEDIT_SEE sets initial DEFAULTFONT for Lisp source files --- library/TEDIT | 43 ++++++++++++++++++++++--------------------- library/TEDIT.LCOM | Bin 38884 -> 38905 bytes 2 files changed, 22 insertions(+), 21 deletions(-) diff --git a/library/TEDIT b/library/TEDIT index 3d25f0eb..e4939206 100644 --- a/library/TEDIT +++ b/library/TEDIT @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Oct-2021 14:03:12"  -{DSK}kaplan>Local>medley3.5>git-medley>library>TEDIT.;17 142229 +(FILECREATED "13-Oct-2021 10:00:40"  +{DSK}kaplan>Local>medley3.5>git-medley>library>TEDIT.;19 142287 changes to%: (FNS TEDIT-SEE) - previous date%: " 8-Oct-2021 22:12:18" -{DSK}kaplan>Local>medley3.5>git-medley>library>TEDIT.;16) + previous date%: "11-Oct-2021 14:03:12" +{DSK}kaplan>Local>medley3.5>git-medley>library>TEDIT.;18) (* ; " @@ -330,7 +330,7 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (RETURN PROC]) (TEDIT-SEE - [LAMBDA (FILE WINDOW FORMAT) (* ; "Edited 11-Oct-2021 14:02 by rmk:") + [LAMBDA (FILE WINDOW FORMAT) (* ; "Edited 13-Oct-2021 10:00 by rmk:") (* ; "Edited 27-Feb-2021 20:07 by rmk:") (* ; "Edited 1-Feb-88 19:00 by bvm:") @@ -351,6 +351,7 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (* ;; "Lisp source file") (SETQ SEESTREAM (OPENTEXTSTREAM)) + (DSPFONT DEFAULTFONT SEESTREAM) (COPY.TEXT.TO.IMAGE STREAM SEESTREAM) ELSE @@ -2235,7 +2236,7 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (* ; "TEDIT Support information") -(RPAQQ TEDITSYSTEMDATE "11-Oct-2021 14:03:12") +(RPAQQ TEDITSYSTEMDATE "13-Oct-2021 10:00:40") (RPAQ TEDITSUPPORT "TEditSupport.PA") (DEFINEQ @@ -2261,19 +2262,19 @@ Copyright (c) 1983-1993, 1995, 1999, 2018, 2021 by Venue & Xerox Corporation. (PUTPROPS TEDIT COPYRIGHT ("Venue & Xerox Corporation" 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1995 1999 2018 2021)) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4330 117395 (\TEDIT2 4340 . 7091) (COERCETEXTOBJ 7093 . 15869) (TEDIT 15871 . 20840) ( -TEDIT-SEE 20842 . 23071) (TEDIT.CHARWIDTH 23073 . 25097) (TEDIT.COPY 25099 . 33535) (TEDIT.DELETE -33537 . 34227) (TEDIT.DO.BLUEPENDINGDELETE 34229 . 37296) (TEDIT.INSERT 37298 . 42828) (TEDIT.KILL -42830 . 44387) (TEDIT.MAPLINES 44389 . 45788) (TEDIT.MAPPIECES 45790 . 46746) (TEDIT.MOVE 46748 . -56532) (TEDIT.QUIT 56534 . 58534) (TEDIT.STRINGWIDTH 58536 . 59207) (TEDIT.\INSERT 59209 . 61234) ( -TEXTOBJ 61236 . 62361) (TEXTSTREAM 62363 . 63978) (\TEDIT.INCLUDE 63980 . 67880) (\TEDIT.INSERT.PIECES - 67882 . 77797) (\TEDIT.MOVE.PIECEMAPFN 77799 . 79878) (\TEDIT.OBJECT.SHOWSEL 79880 . 83509) ( -\TEDIT.RESTARTFN 83511 . 85506) (\TEDIT.CHARDELETE 85508 . 89470) (\TEDIT.COPY.PIECEMAPFN 89472 . -92697) (\TEDIT.DELETE 92699 . 100217) (\TEDIT.DIFFUSE.PARALOOKS 100219 . 102983) (\TEDIT.FOREIGN.COPY? - 102985 . 106712) (\TEDIT.QUIT 106714 . 109860) (\TEDIT.WORDDELETE 109862 . 114695) (\TEDIT1 114697 . -117393)) (117509 117625 (\CREATE.TEDIT.RESTART.MENU 117519 . 117623)) (117724 121413 (PLCHAIN 117734 - . 118008) (PRINTLINE 118010 . 120774) (SEEFILE 120776 . 121411)) (121454 141097 (TEDIT.INSERT.OBJECT -121464 . 130541) (TEDIT.EDIT.OBJECT 130543 . 132799) (TEDIT.FIND.OBJECT 132801 . 133694) ( -TEDIT.FIND.OBJECT.SUBTREE 133696 . 134502) (TEDIT.PUT.OBJECT 134504 . 136163) (TEDIT.GET.OBJECT 136165 - . 139364) (TEDIT.OBJECT.CHANGED 139366 . 141095)) (141375 141738 (MAKETEDITFORM 141385 . 141736))))) + (FILEMAP (NIL (4330 117453 (\TEDIT2 4340 . 7091) (COERCETEXTOBJ 7093 . 15869) (TEDIT 15871 . 20840) ( +TEDIT-SEE 20842 . 23129) (TEDIT.CHARWIDTH 23131 . 25155) (TEDIT.COPY 25157 . 33593) (TEDIT.DELETE +33595 . 34285) (TEDIT.DO.BLUEPENDINGDELETE 34287 . 37354) (TEDIT.INSERT 37356 . 42886) (TEDIT.KILL +42888 . 44445) (TEDIT.MAPLINES 44447 . 45846) (TEDIT.MAPPIECES 45848 . 46804) (TEDIT.MOVE 46806 . +56590) (TEDIT.QUIT 56592 . 58592) (TEDIT.STRINGWIDTH 58594 . 59265) (TEDIT.\INSERT 59267 . 61292) ( +TEXTOBJ 61294 . 62419) (TEXTSTREAM 62421 . 64036) (\TEDIT.INCLUDE 64038 . 67938) (\TEDIT.INSERT.PIECES + 67940 . 77855) (\TEDIT.MOVE.PIECEMAPFN 77857 . 79936) (\TEDIT.OBJECT.SHOWSEL 79938 . 83567) ( +\TEDIT.RESTARTFN 83569 . 85564) (\TEDIT.CHARDELETE 85566 . 89528) (\TEDIT.COPY.PIECEMAPFN 89530 . +92755) (\TEDIT.DELETE 92757 . 100275) (\TEDIT.DIFFUSE.PARALOOKS 100277 . 103041) (\TEDIT.FOREIGN.COPY? + 103043 . 106770) (\TEDIT.QUIT 106772 . 109918) (\TEDIT.WORDDELETE 109920 . 114753) (\TEDIT1 114755 . +117451)) (117567 117683 (\CREATE.TEDIT.RESTART.MENU 117577 . 117681)) (117782 121471 (PLCHAIN 117792 + . 118066) (PRINTLINE 118068 . 120832) (SEEFILE 120834 . 121469)) (121512 141155 (TEDIT.INSERT.OBJECT +121522 . 130599) (TEDIT.EDIT.OBJECT 130601 . 132857) (TEDIT.FIND.OBJECT 132859 . 133752) ( +TEDIT.FIND.OBJECT.SUBTREE 133754 . 134560) (TEDIT.PUT.OBJECT 134562 . 136221) (TEDIT.GET.OBJECT 136223 + . 139422) (TEDIT.OBJECT.CHANGED 139424 . 141153)) (141433 141796 (MAKETEDITFORM 141443 . 141794))))) STOP diff --git a/library/TEDIT.LCOM b/library/TEDIT.LCOM index 217df6290e03626c85aac2f270aea6be7342f96f..630abb322521625e2e0bfe0c56dac514fb3cb8b4 100644 GIT binary patch delta 658 zcmZuv&1w`u5Z+l3%pL+uj6VnAV^1!!>vYfT{0Ztf)13^=Oi#LdvI*p7j0VAg2swys z9>F*ee2a*C@#e)x@DY3nz1g$7pkVsY)zw{9Uw>cK&&%%b%kGE04QC{ty&X}T5)eDG z?Z~yyU+vruhZqq0_l?rX2_rW=|8d`zFk^TG}snuD9-2wcTs&H@UQ*xqQ+3b@OZE@%rw|g>$^vRl{y< z%>oYx#crM{4HDSkb)J`T!9aWmRjrq>l@t|-7a$R3Vm?GX=buQ|$COJ^qzc3(&}>gD zZB!{h9M8CEW-^FvlB@k>JC-KQrVte?m97_Y23W>r8Yc-;s)B)5Ot<1@B^U4rxM4q9 zso^dwja!_t7UQglw-_9XR8R(-+5LsV-%3g8B-mYCjyOneL!V>ms2eRy(;qmwrbEOm}u*rhC%UlT9GvAqNd!a}kl` z6O04m$zO=D7s21~6Z{Ep)?@<)OdqU-h4h{_l(ar~P|4F-Ip8?r{VRV$Y9} zpTFCED8?{C?_Z8%%th>l=f55^?=#zq{>veb#)C&HFJx+E;$%huH-NW>z1R>iz<_f; zZ@;o9TM%92;WR*u(Fg|ZE_=pitL^^j@K70BCJqz?ka&oKybzYT&dieB8Dvr=P2rT$ zZVbJj{aZa|heKvJdURH=*7n<-F8W~?gU)_e_DyH&mTf-2+q}IDjxX=MR&VZ{3IT`Z zUXj-hP#~zLD0EUvz*zuQoPfH$(BA3uM625mUZ36cp;qs|oUy+QDV0h9