From 58122db362a23c5d11087f7294a2e69a3abcb049 Mon Sep 17 00:00:00 2001 From: rmkaplan <69548581+rmkaplan@users.noreply.github.com> Date: Mon, 20 Jan 2025 12:05:47 -0800 Subject: [PATCH] Open man page with TEDIT READONLY-QUIET instead of OPENTEXTSTREAM (#1933) Tedit process enables meta key commands Find, Open, Documentation --- lispusers/DINFO | 51 +++++++++++++++++++++++-------------------- lispusers/DINFO.LCOM | Bin 29915 -> 29959 bytes 2 files changed, 27 insertions(+), 24 deletions(-) diff --git a/lispusers/DINFO b/lispusers/DINFO index 37a6c501..12b94118 100644 --- a/lispusers/DINFO +++ b/lispusers/DINFO @@ -1,12 +1,12 @@ (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) -(FILECREATED "11-Apr-2024 08:27:34" {WMEDLEY}DINFO.;13 65523 +(FILECREATED "25-May-2024 13:19:49" {WMEDLEY}DINFO.;14 65819 :EDIT-BY rmk - :CHANGES-TO (FNS DINFO.OPENTEXTSTREAM) + :CHANGES-TO (FNS DINFO.OPENTEXTSTREAM DINFO.UPDATE.TEXT.DISPLAY) - :PREVIOUS-DATE "10-Mar-2024 15:38:36" {WMEDLEY}DINFO.;12) + :PREVIOUS-DATE "11-Apr-2024 08:27:34" {WMEDLEY}DINFO.;13) (PRETTYCOMPRINT DINFOCOMS) @@ -988,17 +988,18 @@ (DEFINEQ (DINFO.UPDATE.TEXT.DISPLAY - [LAMBDA (GRAPH NODE SEL OFF?) (* ; "Edited 3-Feb-2022 11:50 by rmk") + [LAMBDA (GRAPH NODE SEL OFF?) (* ; "Edited 25-May-2024 13:16 by rmk") + (* drc%: "25-Jan-86 18:18") (* drc%: "25-Jan-86 18:18") (LET ((WINDOW (fetch (DINFOGRAPH WINDOW) of GRAPH)) (FILENAME (DINFO.GET.FILENAME GRAPH NODE)) (FROM (fetch (DINFONODE FROMBYTE) of NODE)) (TO (fetch (DINFONODE TOBYTE) of NODE)) - (PROPS (APPEND (LIST 'READONLY T 'NOTITLE T 'TITLEMENUFN 'DINFO.TITLEMENUFN) + (PROPS (APPEND (LIST 'READONLY 'QUIET 'NOTITLE T 'TITLEMENUFN (FUNCTION DINFO.TITLEMENUFN)) (fetch (DINFOGRAPH TEXTPROPS) of GRAPH))) (OLD.TEXTSTREAM (WINDOWPROP (fetch (DINFOGRAPH WINDOW) of GRAPH) 'TEXTSTREAM)) - TEXTSTREAM FULLFILENAME) (* Default directory and host.) + TEXTSTREAM FULLFILENAME) (* ; "Default directory and host.") (if (OR OFF? (NULL FILENAME)) then (OPENTEXTSTREAM (CL:UNLESS OFF? (OPENSTRINGSTREAM "This node has no text")) WINDOW NIL NIL PROPS) @@ -1036,7 +1037,8 @@ (PROMPTPRINT "DInfo is busy"]) (DINFO.OPENTEXTSTREAM - [LAMBDA (FILE WINDOW FROM TO PROPS) (* ; "Edited 10-Apr-2024 23:46 by rmk") + [LAMBDA (FILE WINDOW FROM TO PROPS) (* ; "Edited 25-May-2024 13:17 by rmk") + (* ; "Edited 10-Apr-2024 23:46 by rmk") (* ; "Edited 10-Mar-2024 15:37 by rmk") (* drc%: "25-Jan-86 18:24") (RESETFORM (TTYDISPLAYSTREAM (GETPROMPTWINDOW WINDOW)) @@ -1053,7 +1055,8 @@ (CLEARW T) (CLEARW WINDOW) [RESETSAVE NIL `(AND RESETSTATE (WINDOWPROP ,WINDOW 'LAST.TEXT NIL] - (PROG1 (OPENTEXTSTREAM FILE WINDOW FROM TO PROPS) + (PROG1 (TEDIT (OPENTEXTSTREAM FILE NIL FROM TO PROPS) + WINDOW) (replace (DINFOGRAPH LAST.TEXT) of (DINFOGRAPH WINDOW) with THIS.TEXT))]) (DINFO.SHOWSEL @@ -1110,21 +1113,21 @@ (SETTEMPLATE 'DINFOGRAPHPROP 'MACRO) ) (DECLARE%: DONTCOPY - (FILEMAP (NIL (4556 6015 (DINFOGRAPHPROP 4556 . 6015)) (7269 24407 (DINFO 7279 . 8893) (DINFO.UPDATE -8895 . 11759) (DINFOGRAPH 11761 . 12179) (DINFO.SPECIAL.UPDATE 12181 . 13879) (DINFO.READ.GRAPH 13881 - . 15736) (DINFO.WRITE.GRAPH 15738 . 16828) (DINFO.SELECT.GRAPH 16830 . 17737) (DINFO.DEFAULT.MENU -17739 . 20263) (DINFO.FIND 20265 . 22851) (DINFO.LOOKUP 22853 . 24405)) (24408 27102 ( -DINFO.READ.KOTO.GRAPH 24418 . 27100)) (27103 29417 (DINFO.SETUP.WINDOW 27113 . 27794) (DINFO.CLOSEFN -27796 . 28229) (DINFO.SHRINKFN 28231 . 28427) (DINFO.EXPANDFN 28429 . 28986) (DINFO.ICONFN 28988 . -29415)) (29418 40740 (DINFO.ADD.FMENU 29428 . 30523) (DINFO.CREATE.FMENU 30525 . 34552) ( -DINFO.FMW.CLOSEFN 34554 . 35399) (DINFO.FMENU.HANDLER 35401 . 36040) (DINFO.UPDATE.FMENU 36042 . 38231 -) (DINFO.TOGGLE.MENU 38233 . 38823) (DINFO.TOGGLE.GRAPH 38825 . 39324) (DINFO.TOGGLE.HISTORY 39326 . -39870) (DINFO.TOGGLE.TEXT 39872 . 40738)) (40741 48536 (DINFO.UPDATE.MENU.DISPLAY 40751 . 44872) ( -DINFO.UPDATE.FROM.MENU 44874 . 45173) (DINFO.UPDATE.HISTORY 45175 . 47705) (DINFO.HISTORIC.UPDATE -47707 . 48534)) (48537 58866 (DINFO.UPDATE.GRAPH.DISPLAY 48547 . 49999) (DINFO.UPDATE.FROM.GRAPH 50001 - . 50477) (DINFO.GET.GRAPH.WINDOW 50479 . 51064) (DINFO.CREATE.GRAPH.WINDOW 51066 . 52183) ( -DINFO.SHOWGRAPH 52185 . 53910) (DINFO.INVERT.NODE 53912 . 55300) (DINFO.LAYOUTGRAPH 55302 . 58864)) ( -58867 64936 (DINFO.UPDATE.TEXT.DISPLAY 58877 . 60825) (DINFO.TITLEMENUFN 60827 . 61952) ( -DINFO.OPENTEXTSTREAM 61954 . 63296) (DINFO.SHOWSEL 63298 . 64031) (DINFO.GET.FILENAME 64033 . 64934))) + (FILEMAP (NIL (4582 6041 (DINFOGRAPHPROP 4582 . 6041)) (7295 24433 (DINFO 7305 . 8919) (DINFO.UPDATE +8921 . 11785) (DINFOGRAPH 11787 . 12205) (DINFO.SPECIAL.UPDATE 12207 . 13905) (DINFO.READ.GRAPH 13907 + . 15762) (DINFO.WRITE.GRAPH 15764 . 16854) (DINFO.SELECT.GRAPH 16856 . 17763) (DINFO.DEFAULT.MENU +17765 . 20289) (DINFO.FIND 20291 . 22877) (DINFO.LOOKUP 22879 . 24431)) (24434 27128 ( +DINFO.READ.KOTO.GRAPH 24444 . 27126)) (27129 29443 (DINFO.SETUP.WINDOW 27139 . 27820) (DINFO.CLOSEFN +27822 . 28255) (DINFO.SHRINKFN 28257 . 28453) (DINFO.EXPANDFN 28455 . 29012) (DINFO.ICONFN 29014 . +29441)) (29444 40766 (DINFO.ADD.FMENU 29454 . 30549) (DINFO.CREATE.FMENU 30551 . 34578) ( +DINFO.FMW.CLOSEFN 34580 . 35425) (DINFO.FMENU.HANDLER 35427 . 36066) (DINFO.UPDATE.FMENU 36068 . 38257 +) (DINFO.TOGGLE.MENU 38259 . 38849) (DINFO.TOGGLE.GRAPH 38851 . 39350) (DINFO.TOGGLE.HISTORY 39352 . +39896) (DINFO.TOGGLE.TEXT 39898 . 40764)) (40767 48562 (DINFO.UPDATE.MENU.DISPLAY 40777 . 44898) ( +DINFO.UPDATE.FROM.MENU 44900 . 45199) (DINFO.UPDATE.HISTORY 45201 . 47731) (DINFO.HISTORIC.UPDATE +47733 . 48560)) (48563 58892 (DINFO.UPDATE.GRAPH.DISPLAY 48573 . 50025) (DINFO.UPDATE.FROM.GRAPH 50027 + . 50503) (DINFO.GET.GRAPH.WINDOW 50505 . 51090) (DINFO.CREATE.GRAPH.WINDOW 51092 . 52209) ( +DINFO.SHOWGRAPH 52211 . 53936) (DINFO.INVERT.NODE 53938 . 55326) (DINFO.LAYOUTGRAPH 55328 . 58890)) ( +58893 65232 (DINFO.UPDATE.TEXT.DISPLAY 58903 . 60963) (DINFO.TITLEMENUFN 60965 . 62090) ( +DINFO.OPENTEXTSTREAM 62092 . 63592) (DINFO.SHOWSEL 63594 . 64327) (DINFO.GET.FILENAME 64329 . 65230))) )) STOP diff --git a/lispusers/DINFO.LCOM b/lispusers/DINFO.LCOM index 503546fef8125e27cbdf97106b7cd5e3b22bebad..d2035c3749a340398ba60cbf889440024000779f 100644 GIT binary patch delta 872 zcmZuvO^ee|6rG4|wJ;yj87zq7o!8A2Nyy7b+th`G^mQ6+lbF0%6+{MRrV~bH)DD6m z)}0^->iYry0THA-5nL#^aHk7VSK>;+y*s`AP^QCVaY^ny_q=n?%hw;${h!jK_Pl1w zt<~GIrfLRIy-KaBVLjebdPWhlWMW7MLuwHqj^7I0CX?$})(9lqKS%1~nn6Yszfvr8Yb`+e#6tX`T}7N5z3LzXG*cCP=h0FLxaJl`m! zI#c+F4;%02bscK1SND~u;kP4(327zqqLc5L5X8LgdNsd|LIR+cwZBu*!D;#ttDgm0 zDuEv`kF$$B;uu&9s5xrkr|Yf!Z&Gl4&#^gBLxtA4(G>611gBw#w!>Knlv<~8W^*5D z&?gGSdkCOn!3rCTiX#>dg_Wu3ZWgXkb!>#YyvbV3i|Za}DrU)QE?4$;sb!3@E^0v- zMdE+2<#8Y@p&c}!f+3?N@n>eCR~m1PCMG@LJOk6;b38iq{9yyo-}%^O9CQ^ho|^A9 zFM&Ct7!u;ohLM;+T1mH?YUl3DE`XG^mBcXqC({sJ6-Y)=xKi$ zev@d#0L^lU?HK04raICau%Li_T*S7cQ-@#$6fX`FKVZ#{JO&EnTcC7$K>#P|s;Vk5 zSl_ujfb(Ri(pb1M>Gx9Ra@H2FP(=W`RM5esl<2}khB!dQqSg%8XZA34bj#6AQAJfm z#$VBg5?T|_%ircSDqc1&iWilN%tPUJ+KVDTT2YfU_E?sU-&EcfBy}5h#c#M;#Kswl zsMWqm#;@8R@mG1YjCJ!2WxQWEJ#;AEZPZaNer$Z+BQ~`Cs1vJMH|}RF07A$Ni4zua zc8h0R<_m#f3`vjo{iq%HrK<$6O-~~&8@wRSSmy>{lfWqnOs9}kl+h--H>EH(THwWz z=W>{M4p*mT`M}_H-PH9sOJTB<{Y|&767XJ`Y&P zqFyHgqG9oVSTeO)&6mR@j4cZPujXtEE2*1w!P4M3x3EgpX6qbTgTTot(s>jg0b(t` zjIel+m*xLI%da7A{3-u<0X-H^wss0B@Aa1!=f%>fyhyC6?$KCreYA=6@$1o@`G3x3 B%2@ya