diff --git a/library/tedit/TEDIT-WINDOW b/library/tedit/TEDIT-WINDOW
index e6993d81..587c8563 100644
--- a/library/tedit/TEDIT-WINDOW
+++ b/library/tedit/TEDIT-WINDOW
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-(FILECREATED "16-May-2026 10:06:53" {MEDLEY}<library>TEDIT>TEDIT-WINDOW.;907 236201 
+(FILECREATED "16-May-2026 10:11:27" {MEDLEY}<library>TEDIT>TEDIT-WINDOW.;908 236338 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS \TEDIT.CURSORINFN)
+      :CHANGES-TO (FNS \TEDIT.CLOSEPANE \TEDIT.CURSORINFN)
 
       :PREVIOUS-DATE "15-May-2026 12:53:42" {MEDLEY}<library>TEDIT>TEDIT-WINDOW.;906)
 
@@ -2565,7 +2565,8 @@
                else (WINDOWPROP PRIMARYPANE 'SAVED-TYPED-REGION WHOLEREGION)))])
 
 (\TEDIT.CLOSEPANE
-  [LAMBDA (PANE DONTCLOSEW)                                  (* ; "Edited  9-May-2025 00:22 by rmk")
+  [LAMBDA (PANE DONTCLOSEW)                                  (* ; "Edited 16-May-2026 10:11 by rmk")
+                                                             (* ; "Edited  9-May-2025 00:22 by rmk")
                                                              (* ; "Edited  6-May-2025 16:04 by rmk")
 
     (* ;; "This removes all of the TEdit triggers on PANE, closes its window unless DONTCLOSEW.")
@@ -2578,8 +2579,8 @@
           (WINDOWPROP PANEWINDOW 'PROCESS.IDLEFN NIL)        (* ; "Restore any disarmed interrupts.")
           (DETACHWINDOW PANEWINDOW)
           (\TEDIT.UNLINKPANE PANE)
-          (for PROP in '(CURSOROUTFN CURSORMOVEDFN BUTTONEVENTFN RIGHTBUTTONFN SCROLLFN AFTERMOVEFN 
-                               REPAINTFN WINDOWENTRYFN NEWREGIONFN)
+          (for PROP in '(CURSOROUTFN CURSORINFN CURSORMOVEDFN BUTTONEVENTFN RIGHTBUTTONFN SCROLLFN 
+                               AFTERMOVEFN REPAINTFN WINDOWENTRYFN NEWREGIONFN)
              do (WINDOWPROP PANEWINDOW PROP NIL))
           (for PROP in '(CLOSEFN RESHAPEFN) do (WINDOWDELPROP PANEWINDOW 'CLOSEFN
                                                       (FUNCTION TEDIT.DEACTIVATE.WINDOW))
@@ -3714,36 +3715,36 @@
 (RPAQ? TEDIT.TITLED.ICON.TEMPLATE (create TITLEDICON ICON _ TEDITICON MASK _ TEDITMASK TITLEREG _ 
                                          TEDIT.ICON.TITLE.REGION))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (17127 18023 (TEDIT.DEFER.UPDATES 17137 . 18021)) (18024 46555 (\TEDIT.WINDOW.CREATE 
-18034 . 24897) (\TEDIT.WINDOW.GETREGION 24899 . 30492) (\TEDIT.WINDOW.SETUP 30494 . 35001) (
-\TEDIT.MINIMAL.WINDOW.SETUP 35003 . 43187) (\TEDIT.CLEARPANE 43189 . 43906) (\TEDIT.FILL.PANES 43908
- . 46553)) (46556 71744 (\TEDIT.CURSORMOVEDFN 46566 . 52093) (\TEDIT.CURSOROUTFN 52095 . 52892) (
-\TEDIT.CURSORINFN 52894 . 54353) (\TEDIT.ACTIVE.WINDOWP 54355 . 55425) (\TEDIT.EXPANDFN 55427 . 55990)
- (\TEDIT.MAINW 55992 . 57272) (\TEDIT.MAINSTREAM 57274 . 57608) (\TEDIT.PRIMARYPANE 57610 . 58380) (
-\TEDIT.PANELIST 58382 . 58878) (\TEDIT.NEWREGIONFN 58880 . 61396) (\TEDIT.SET.WINDOW.EXTENT 61398 . 
-66380) (\TEDIT.SHRINK.ICONCREATE 66382 . 69115) (\TEDIT.SHRINKFN 69117 . 69526) (\TEDIT.PANEREGION 
-69528 . 71742)) (71776 106360 (\TEDIT.BUTTONEVENTFN 71786 . 85952) (\TEDIT.BUTTONEVENTFN.DOOPERATION 
-85954 . 93425) (\TEDIT.BUTTONEVENTFN.GETOPERATION 93427 . 95269) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 
-95271 . 98941) (\TEDIT.BUTTONEVENTFN.INACTIVE 98943 . 101373) (\TEDIT.BUTTONEVENTFN.INTITLE 101375 . 
-103210) (\TEDIT.COPYINSERTFN 103212 . 104344) (\TEDIT.FOREIGN.COPY 104346 . 106358)) (106361 123924 (
-\TEDIT.PANE.SPLIT 106371 . 110319) (\TEDIT.SPLITW 110321 . 118380) (\TEDIT.UNSPLITW 118382 . 122581) (
-\TEDIT.LINKPANES 122583 . 123346) (\TEDIT.UNLINKPANE 123348 . 123922)) (125358 126249 (TEDITWINDOWP 
-125368 . 126247)) (126286 129389 (TEDIT.GETINPUT 126296 . 128739) (\TEDIT.MAKEFILENAME 128741 . 129387
-)) (129438 137521 (TEDIT.PROMPTWINDOW 129448 . 129762) (TEDIT.PROMPTPRINT 129764 . 132731) (
-TEDIT.PROMPTCLEAR 132733 . 134568) (TEDIT.PROMPTFLASH 134570 . 135828) (\TEDIT.PROMPT.PAGEFULLFN 
-135830 . 137519)) (137759 148337 (\TEDIT.FILENAME 137769 . 138541) (\TEDIT.DEFAULT.TITLE 138543 . 
-140922) (\TEDIT.WINDOW.TITLE 140924 . 143093) (\TEDIT.LIKELY.FILENAME 143095 . 145819) (
-\TEDIT.UPDATE.TITLE 145821 . 148335)) (148380 161107 (TEDIT.DEACTIVATE.WINDOW 148390 . 154206) (
-\TEDIT.RESHAPEFN 154208 . 156293) (\TEDIT.REPAINTFN 156295 . 156519) (\TEDIT.CLOSESPLITS 156521 . 
-158966) (\TEDIT.CLOSEPANE 158968 . 161105)) (161108 203907 (\TEDIT.SCROLLFN 161118 . 163349) (
-\TEDIT.SCROLLCH.TOP 163351 . 165462) (\TEDIT.SCROLLCH.BOTTOM 165464 . 169794) (\TEDIT.SCROLLUP 169796
- . 175522) (\TEDIT.TOPLINE.YTOP 175524 . 177193) (\TEDIT.SCROLLDOWN 177195 . 184234) (
-\TEDIT.SCROLL.CARET 184236 . 187074) (\TEDIT.VISIBLECARETP 187076 . 189370) (\TEDIT.VISIBLECHARP 
-189372 . 190463) (\TEDIT.BITMAPLINES 190465 . 194385) (\TEDIT.SETPANE.TOPLINE 194387 . 194999) (
-\TEDIT.SHIFTLINES 195001 . 203905)) (203908 214777 (\TEDIT.ONSCREEN? 203918 . 208469) (
-\TEDIT.ONSCREEN.REGION 208471 . 212122) (\TEDIT.AFTERMOVEFN 212124 . 213021) (OFFSCREENP 213023 . 
-214775)) (214819 217633 (\TEDIT.PROCIDLEFN 214829 . 216489) (\TEDIT.PROCENTRYFN 216491 . 216936) (
-\TEDIT.PROCEXITFN 216938 . 217631)) (217712 230937 (\TEDIT.DOWNCARET 217722 . 218515) (
-\TEDIT.FLASHCARET 218517 . 220628) (\TEDIT.UPCARET 220630 . 221734) (TEDIT.NORMALIZECARET 221736 . 
-224954) (\TEDIT.SETCARET 224956 . 230307) (\TEDIT.CARET 230309 . 230935)))))
+  (FILEMAP (NIL (17144 18040 (TEDIT.DEFER.UPDATES 17154 . 18038)) (18041 46572 (\TEDIT.WINDOW.CREATE 
+18051 . 24914) (\TEDIT.WINDOW.GETREGION 24916 . 30509) (\TEDIT.WINDOW.SETUP 30511 . 35018) (
+\TEDIT.MINIMAL.WINDOW.SETUP 35020 . 43204) (\TEDIT.CLEARPANE 43206 . 43923) (\TEDIT.FILL.PANES 43925
+ . 46570)) (46573 71761 (\TEDIT.CURSORMOVEDFN 46583 . 52110) (\TEDIT.CURSOROUTFN 52112 . 52909) (
+\TEDIT.CURSORINFN 52911 . 54370) (\TEDIT.ACTIVE.WINDOWP 54372 . 55442) (\TEDIT.EXPANDFN 55444 . 56007)
+ (\TEDIT.MAINW 56009 . 57289) (\TEDIT.MAINSTREAM 57291 . 57625) (\TEDIT.PRIMARYPANE 57627 . 58397) (
+\TEDIT.PANELIST 58399 . 58895) (\TEDIT.NEWREGIONFN 58897 . 61413) (\TEDIT.SET.WINDOW.EXTENT 61415 . 
+66397) (\TEDIT.SHRINK.ICONCREATE 66399 . 69132) (\TEDIT.SHRINKFN 69134 . 69543) (\TEDIT.PANEREGION 
+69545 . 71759)) (71793 106377 (\TEDIT.BUTTONEVENTFN 71803 . 85969) (\TEDIT.BUTTONEVENTFN.DOOPERATION 
+85971 . 93442) (\TEDIT.BUTTONEVENTFN.GETOPERATION 93444 . 95286) (\TEDIT.BUTTONEVENTFN.CURSEL.INIT 
+95288 . 98958) (\TEDIT.BUTTONEVENTFN.INACTIVE 98960 . 101390) (\TEDIT.BUTTONEVENTFN.INTITLE 101392 . 
+103227) (\TEDIT.COPYINSERTFN 103229 . 104361) (\TEDIT.FOREIGN.COPY 104363 . 106375)) (106378 123941 (
+\TEDIT.PANE.SPLIT 106388 . 110336) (\TEDIT.SPLITW 110338 . 118397) (\TEDIT.UNSPLITW 118399 . 122598) (
+\TEDIT.LINKPANES 122600 . 123363) (\TEDIT.UNLINKPANE 123365 . 123939)) (125375 126266 (TEDITWINDOWP 
+125385 . 126264)) (126303 129406 (TEDIT.GETINPUT 126313 . 128756) (\TEDIT.MAKEFILENAME 128758 . 129404
+)) (129455 137538 (TEDIT.PROMPTWINDOW 129465 . 129779) (TEDIT.PROMPTPRINT 129781 . 132748) (
+TEDIT.PROMPTCLEAR 132750 . 134585) (TEDIT.PROMPTFLASH 134587 . 135845) (\TEDIT.PROMPT.PAGEFULLFN 
+135847 . 137536)) (137776 148354 (\TEDIT.FILENAME 137786 . 138558) (\TEDIT.DEFAULT.TITLE 138560 . 
+140939) (\TEDIT.WINDOW.TITLE 140941 . 143110) (\TEDIT.LIKELY.FILENAME 143112 . 145836) (
+\TEDIT.UPDATE.TITLE 145838 . 148352)) (148397 161244 (TEDIT.DEACTIVATE.WINDOW 148407 . 154223) (
+\TEDIT.RESHAPEFN 154225 . 156310) (\TEDIT.REPAINTFN 156312 . 156536) (\TEDIT.CLOSESPLITS 156538 . 
+158983) (\TEDIT.CLOSEPANE 158985 . 161242)) (161245 204044 (\TEDIT.SCROLLFN 161255 . 163486) (
+\TEDIT.SCROLLCH.TOP 163488 . 165599) (\TEDIT.SCROLLCH.BOTTOM 165601 . 169931) (\TEDIT.SCROLLUP 169933
+ . 175659) (\TEDIT.TOPLINE.YTOP 175661 . 177330) (\TEDIT.SCROLLDOWN 177332 . 184371) (
+\TEDIT.SCROLL.CARET 184373 . 187211) (\TEDIT.VISIBLECARETP 187213 . 189507) (\TEDIT.VISIBLECHARP 
+189509 . 190600) (\TEDIT.BITMAPLINES 190602 . 194522) (\TEDIT.SETPANE.TOPLINE 194524 . 195136) (
+\TEDIT.SHIFTLINES 195138 . 204042)) (204045 214914 (\TEDIT.ONSCREEN? 204055 . 208606) (
+\TEDIT.ONSCREEN.REGION 208608 . 212259) (\TEDIT.AFTERMOVEFN 212261 . 213158) (OFFSCREENP 213160 . 
+214912)) (214956 217770 (\TEDIT.PROCIDLEFN 214966 . 216626) (\TEDIT.PROCENTRYFN 216628 . 217073) (
+\TEDIT.PROCEXITFN 217075 . 217768)) (217849 231074 (\TEDIT.DOWNCARET 217859 . 218652) (
+\TEDIT.FLASHCARET 218654 . 220765) (\TEDIT.UPCARET 220767 . 221871) (TEDIT.NORMALIZECARET 221873 . 
+225091) (\TEDIT.SETCARET 225093 . 230444) (\TEDIT.CARET 230446 . 231072)))))
 STOP
diff --git a/library/tedit/TEDIT-WINDOW.LCOM b/library/tedit/TEDIT-WINDOW.LCOM
index 3b5f3d24..52afa373 100644
Binary files a/library/tedit/TEDIT-WINDOW.LCOM and b/library/tedit/TEDIT-WINDOW.LCOM differ
