Rmk30 another tedit release

library/TEXEC

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-
(FILECREATED "28-Mar-2024 00:09:16" |{WMEDLEY}<library>TEXEC.;6|
 185248 
+
(FILECREATED " 3-Apr-2024 13:24:22" |{WMEDLEY}<library>TEXEC.;7|
 185333 
 
       :EDIT-BY |rmk|
 
-      :CHANGES-TO (FNS TEXEC.DEFAULT.MENUFN TEXEC.SHRINK.ICONCREATE)
+      :CHANGES-TO (FNS TEXEC.DEFAULT.MENUFN)
 
-      :PREVIOUS-DATE "18-Jun-2023 09:48:54" |{WMEDLEY}<library>TEXEC.;5|)
+      :PREVIOUS-DATE "28-Mar-2024 00:09:16" |{WMEDLEY}<library>TEXEC.;6|)
 
 
 (PRETTYCOMPRINT TEXECCOMS)
@@ -184,7 +184,8 @@
           TEXSTREAM)))
 
 (TEXEC.DEFAULT.MENUFN

-  (LAMBDA (W)
                                               (* \; "Edited 28-Mar-2024 00:06 by rmk")


+  (LAMBDA (W)
                                               (* \; "Edited  3-Apr-2024 13:24 by rmk")


+                                                            (* \; "Edited 28-Mar-2024 00:06 by rmk")


                                                            (* \; "Edited 13-Jun-90 00:16 by mitani")

 
     (* |;;| 
@@ -219,7 +220,7 @@
                       (|replace|
 (TEXTOBJ EDITOPACTIVE) |of|
 TEXTOBJ |with|
 (OR (CAR ITEM)
                                                                                 T))
                                                              (* \; 
-
                                                          "So we ca ntell the guy WHAT op is active.")

+
                                                          "So we can tell the guy what op is active.")

                       (SELECTQ (CAR ITEM)
                           (|Put| (TEDIT.PUT TEXTOBJ NIL NIL (TEXTPROP TEXTOBJ 'CLEARPUT)))
                           (|Plain-Text| (TEDIT.PUT TEXTOBJ NIL NIL T))
@@ -2984,21 +2985,21 @@
 
 (RPAQ? TEXEC.BUFFERLIMIT
 10000)
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (3048 171118 (TEXEC.BACKSKREAD 3058 . 7682) (TEXEC.OPENTEXTSTREAM 7684 . 9742) (
-TEXEC.DEFAULT.MENUFN 9744 . 13790) (TEXEC.DO?CMD 13792 . 19110) (TEXEC.CREATEMENU 19112 . 19570) (
-TEXEC.GET 19572 . 28407) (TEXEC.INCLUDE 28409 . 41794) (TEXEC.FIND.FORWARD 41796 . 54684) (
-TEXEC.FIND.BACKWARD 54686 . 68188) (TEXEC.MENU.WHENHELDFN 68190 . 68849) (TEXEC.SHRINK.ICONCREATE 
-68851 . 71607) (TEXEC.FILLBUFFER 71609 . 88043) (TEXEC.FILLBUFFER.TCLASS 88045 . 94385) (
-TEXEC.CHSELPENDING 94387 . 102877) (TEXEC.FILLBUFFER.CHARDELETE 102879 . 104934) (
-TEXEC.FILLBUFFER.WORDDELETE 104936 . 110064) (TEXEC.FILLBUFFER.LINEDELETE 110066 . 112948) (
-TEXEC.PARENCOUNT 112950 . 114339) (TEXEC.PARENMATCH 114341 . 115881) (TEXEC.FLASHCARET 115883 . 118542
-) (TEXEC.TEXTSTREAM.TO.LINEBUF 118544 . 121231) (TEXEC.FIX 121233 . 124402) (TEXEC.NTHBUFCHARBACK 
-124404 . 125467) (TEXEC.NTHBACKCHNUM 125469 . 126754) (TEXEC.EOTP 126756 . 127489) (TEXEC.GETKEY 
-127491 . 130407) (TEXEC.INSERTCHAR 130409 . 132710) (TEXEC.DELETE 132712 . 133487) (TEXEC.\\CHDEL1 
-133489 . 136614) (TEXEC.?EQUAL 136616 . 137665) (TEDIT.SCROLL? 137667 . 142630) (TEXEC.DISPLAYTEXT 
-142632 . 149407) (\\TEXEC.TEXTBOUT 149409 . 152417) (\\TEXEC.TEXTBOUT1 152419 . 158053) (
-\\TEXEC.TEXTBOUT2 158055 . 160386) (\\TEXEC.TEXTBOUT3 160388 . 161778) (\\TEXEC.TEXTBOUT4 161780 . 
-163823) (\\TEXEC.SELFN 163825 . 165200) (TEXEC.PRINTARGS 165202 . 170165) (TEXEC.PROCENTRYFN 170167 . 
-170708) (TEXEC.PROCEXITFN 170710 . 171116)) (171178 177553 (TEXEC 171188 . 175610) (TTEXEC 175612 . 
-177551)))))
+  (FILEMAP (NIL (3024 171203 (TEXEC.BACKSKREAD 3034 . 7658) (TEXEC.OPENTEXTSTREAM 7660 . 9718) (
+TEXEC.DEFAULT.MENUFN 9720 . 13875) (TEXEC.DO?CMD 13877 . 19195) (TEXEC.CREATEMENU 19197 . 19655) (
+TEXEC.GET 19657 . 28492) (TEXEC.INCLUDE 28494 . 41879) (TEXEC.FIND.FORWARD 41881 . 54769) (
+TEXEC.FIND.BACKWARD 54771 . 68273) (TEXEC.MENU.WHENHELDFN 68275 . 68934) (TEXEC.SHRINK.ICONCREATE 
+68936 . 71692) (TEXEC.FILLBUFFER 71694 . 88128) (TEXEC.FILLBUFFER.TCLASS 88130 . 94470) (
+TEXEC.CHSELPENDING 94472 . 102962) (TEXEC.FILLBUFFER.CHARDELETE 102964 . 105019) (
+TEXEC.FILLBUFFER.WORDDELETE 105021 . 110149) (TEXEC.FILLBUFFER.LINEDELETE 110151 . 113033) (
+TEXEC.PARENCOUNT 113035 . 114424) (TEXEC.PARENMATCH 114426 . 115966) (TEXEC.FLASHCARET 115968 . 118627
+) (TEXEC.TEXTSTREAM.TO.LINEBUF 118629 . 121316) (TEXEC.FIX 121318 . 124487) (TEXEC.NTHBUFCHARBACK 
+124489 . 125552) (TEXEC.NTHBACKCHNUM 125554 . 126839) (TEXEC.EOTP 126841 . 127574) (TEXEC.GETKEY 
+127576 . 130492) (TEXEC.INSERTCHAR 130494 . 132795) (TEXEC.DELETE 132797 . 133572) (TEXEC.\\CHDEL1 
+133574 . 136699) (TEXEC.?EQUAL 136701 . 137750) (TEDIT.SCROLL? 137752 . 142715) (TEXEC.DISPLAYTEXT 
+142717 . 149492) (\\TEXEC.TEXTBOUT 149494 . 152502) (\\TEXEC.TEXTBOUT1 152504 . 158138) (
+\\TEXEC.TEXTBOUT2 158140 . 160471) (\\TEXEC.TEXTBOUT3 160473 . 161863) (\\TEXEC.TEXTBOUT4 161865 . 
+163908) (\\TEXEC.SELFN 163910 . 165285) (TEXEC.PRINTARGS 165287 . 170250) (TEXEC.PROCENTRYFN 170252 . 
+170793) (TEXEC.PROCEXITFN 170795 . 171201)) (171263 177638 (TEXEC 171273 . 175695) (TTEXEC 175697 . 
+177636)))))
 STOP