From e5593ba0dc2b5659aa37215fa4ae51f5416c05e6 Mon Sep 17 00:00:00 2001
From: Larry Masinter <lmm@acm.org>
Date: Sat, 31 Dec 2022 08:44:22 -0800
Subject: [PATCH] notify \IDLING.OVER in \IDLE.OUT (#973)

\IDLE.OUT is a backgrround function. For reasons not well understood, sometimes after returning from LOGOUT, the RESETSAVED notify to \IDLING.OVER doesn't happen.
This change insures that it does.
(found during testing of LOGOUT/return from LOGOUT with changing ethernet enalbing)
---
 sources/IDLER      |  36 +++++++++++++++++++-----------------
 sources/IDLER.LCOM | Bin 24993 -> 25004 bytes
 2 files changed, 19 insertions(+), 17 deletions(-)

diff --git a/sources/IDLER b/sources/IDLER
index 2101da77..0ad4e9eb 100644
--- a/sources/IDLER
+++ b/sources/IDLER
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "28-Sep-2022 19:54:40" {DSK}<home>larry>medley>sources>IDLER.;10
 47564  
+
(FILECREATED " 4-Oct-2022 16:42:36" {DSK}<home>larry>medley>sources>IDLER.;2
 47709  
 
-      :CHANGES-TO (FNS IDLE.RANDOM)
+      :CHANGES-TO (FNS \IDLE.OUT)
 
-      :PREVIOUS-DATE "22-Sep-2022 16:50:17" {DSK}<home>larry>medley>sources>IDLER.;1)
+      :PREVIOUS-DATE "28-Sep-2022 19:54:40" {DSK}<home>larry>medley>sources>IDLER.;1)
 
 
 (* ; "
@@ -435,13 +435,15 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
                          (T "."])
 
 (\IDLE.OUT

-  [LAMBDA NIL                                                (* bvm%: "16-Sep-85 18:34")

-    (AND (NOT \IDLING)
-         (LET [(TIMEOUT (LISTGET IDLE.PROFILE 'TIMEOUT]
-              (AND (SMALLP TIMEOUT)
-                   (GREATERP TIMEOUT 0)
-                   (\SECONDSCLOCKGREATERP \LASTUSERACTION (TIMES TIMEOUT 60))
-                   (IDLE
 T])
+  [LAMBDA NIL
                                                (* ; "Edited  4-Oct-2022 16:41 by lmm")

+                                                             (* bvm%: "16-Sep-85 18:34")

+    (CL:WHEN (NOT \IDLING)
+        (NOTIFY.EVENT \IDLING.OVER)
+        (LET [(TIMEOUT (LISTGET IDLE.PROFILE 'TIMEOUT]
+             (AND (SMALLP TIMEOUT)
+                  (GREATERP TIMEOUT 0)
+                  (\SECONDSCLOCKGREATERP \LASTUSERACTION (TIMES TIMEOUT 60))
+                  (IDLE
 T))))])
 
 (\IDLE.EXIT?

   [LAMBDA NIL
                                                (* ; "Edited 22-Nov-88 15:25 by drc:")

@@ -910,11 +912,11 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
 )
 (PUTPROPS IDLER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1992 2022))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (7318 37338 (IDLE 7328 . 7776) (IDLE.SET.OPTION 7778 . 11077) (IDLE.SHOW.OPTIONS 11079
- . 11643) (IDLE.SHOW.OPTION 11645 . 13169) (\IDLER 13171 . 22573) (\IDLE.WAIT 22575 . 22678) (
-\OK.TO.IDLE? 22680 . 22858) (\IDLE.TIME 22860 . 23642) (\IDLE.OUT 23644 . 24017) (\IDLE.EXIT? 24019 . 
-28005) (\IDLE.PROMPT.WATCHER 28007 . 28653) (\IDLE.EXIT.ABORT 28655 . 28923) (\IDLE.PROMPTING.WINDOW 
-28925 . 29660) (\IDLE.IS.PREVIOUS 29662 . 31521) (\IDLE.ISMEMBER 31523 . 34126) (\IDLE.AUTHENTICATE 
-34128 . 36248) (\IDLERKEYACTION 36250 . 37336)) (42593 47107 (IDLE.BOUNCING.BOX 42603 . 44066) (
-IDLE.BITMAP 44068 . 46171) (IDLE.RANDOM 46173 . 47105)))))
+  (FILEMAP (NIL (7315 37483 (IDLE 7325 . 7773) (IDLE.SET.OPTION 7775 . 11074) (IDLE.SHOW.OPTIONS 11076
+ . 11640) (IDLE.SHOW.OPTION 11642 . 13166) (\IDLER 13168 . 22570) (\IDLE.WAIT 22572 . 22675) (
+\OK.TO.IDLE? 22677 . 22855) (\IDLE.TIME 22857 . 23639) (\IDLE.OUT 23641 . 24162) (\IDLE.EXIT? 24164 . 
+28150) (\IDLE.PROMPT.WATCHER 28152 . 28798) (\IDLE.EXIT.ABORT 28800 . 29068) (\IDLE.PROMPTING.WINDOW 
+29070 . 29805) (\IDLE.IS.PREVIOUS 29807 . 31666) (\IDLE.ISMEMBER 31668 . 34271) (\IDLE.AUTHENTICATE 
+34273 . 36393) (\IDLERKEYACTION 36395 . 37481)) (42738 47252 (IDLE.BOUNCING.BOX 42748 . 44211) (
+IDLE.BITMAP 44213 . 46316) (IDLE.RANDOM 46318 . 47250)))))
 STOP
diff --git a/sources/IDLER.LCOM b/sources/IDLER.LCOM
index 276b58a3cf82cc4798c4757227f13f938d051cbc..abe1deb907bd9afb81d0f88a2281308f052af102 100644
GIT binary patch
delta 347
zcmZvYy-LJD6ooUTDa1lVyGxLe6d9ArpF0*BlF2#{XWV2G5iFG56=lI{AH*e3u)SS+
zn=O0?pTb8l0TCCx%`NWXyXTzs2EA?2>&-p{j+`zX;t~R0L<2(oXtfv}5gT-4>*&!i
zqM^TfKb+t3tYBEy3Z7rU$m^njzfz2`0kenYeD*&hG;H0<dBM_>C5mOR{piO<J3+Qj
zAc$jk1T?)&#F$l%l3?Yc0{z#64fMKX4VQK0WIe7uLl@l_njV{04jv3TF2-0kth7Np
zM@ZA|wSKyIvNP=V(LC9G+S9D?6oy<7y6xIL@WCS>q~iH4W(^an_Z;-NBB@keu`)>&
Tmje3Q6u)9a7hc?bnjiEVA@fyN

delta 378
zcmZvXze>YU9EB6yvg#n>@FPe~hs2wkf6d)Oa#KUo+>)EvrJ!O1iqVK|2XXKT1WTU4
z*$zToo%%vPg3&3U!<o+E<2$R3__`5a#yhyD^5Ra#2xHJ)VwuE5%WHQ}M_rI)?6g`$
zbe$M@`MLWP1u@l9FA3NXu5Ljd7v)8DQ^34}a8Z`UJ<J|v)nX29fTn4(1k>|*F@-;5
zn;1y$N=g{T)K96G(V!XqBPYXSP``_v0Rq#pY!iro>?M85)r^4>CLE-eT^GnGr6&=~
zxf(RkhKXC3Y+^O9ob^h4KG;s87z9@o1mUcSaQXFt>eJ2<6%@;aA10VKOgQyf5^z6e
r{-FOWnvNQ8!+}Zc@hs;w_53Vi3Ftk@q9J8@2D(wlTl;JA@Qr)}ccNii