github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-17 09:03:14 +00:00
Code Issues Projects Releases Wiki Activity

TEDIT: TEDIT_SEE sets initial DEFAULTFONT for Lisp source files

Browse Source
This commit is contained in:
rmkaplan 2021-10-13 10:10:58 -07:00
parent e6cf869a23
commit 1ad92b3dd4
2 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
library/TEDIT
View File

@ -1,12 +1,12 @@
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
(FILECREATED "11-Oct-2021 14:03:12" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;17 142229
(FILECREATED "13-Oct-2021 10:00:40" 
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;19 142287
changes to%: (FNS TEDIT-SEE)
previous date%: " 8-Oct-2021 22:12:18"
{DSK}<Users>kaplan>Local>medley3.5>git-medley>library>TEDIT.;16)
previous date%: "11-Oct-2021 14:03:12"
{DSK}<Users>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

BIN
library/TEDIT.LCOM
View File

Binary file not shown.