idle.suspend.process.names is a globalvar, not part of idle.profile

lispusers/BICLOCK

@@ -1,15 +1,13 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-
(FILECREATED "12-Sep-88 01:29:15" {ERINYES}<LISPUSERS>MEDLEY>BICLOCK.;5
 38172  
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-      changes to%:  (FNS BICLOCK BICLOCKPROCESS)
-                    (VARS BICLOCKCOMS)
+
(FILECREATED "15-Jul-2026 16:32:51" {DSK}<Users>larry>il>medley>LISPUSERS>BICLOCK.;2
 37975  
 
-      previous date%: "14-Dec-87 17:32:47" {ERINYES}<LISPUSERS>MEDLEY>BICLOCK.;2)
+      :EDIT-BY "lmm"
 
+      :CHANGES-TO (VARS BICLOCKCOMS)
+
+      :PREVIOUS-DATE "12-Sep-88 01:29:15" {DSK}<Users>larry>il>medley>LISPUSERS>BICLOCK.;1)
 
-(* "
-Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Linkoeping.  All rights reserved.
-")
 
 (PRETTYCOMPRINT BICLOCKCOMS)
 
@@ -27,7 +25,7 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link
                                 BICLOCKINITIALPROPS BICLOCKIDLEPROPS]
         [DECLARE%: DONTEVAL@LOAD DOCOPY (VARS (BICLOCKWINDOW (BICLOCK BICLOCKINITIALPROPS]
         (ADDVARS (IDLE.FUNCTIONS (Biclock 'IDLE.BICLOCK))
-               (IDLE.SUSPEND.PROCESS.NAMES BICLOCKPROCESS))
+               (IDLE.SUSPEND.PROCESS.NAMES BICLOCKPROCESS BICLOCKPROCESS#2))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                              (NLAML)
                                                                              (LAMA BICLOCK])
@@ -634,7 +632,7 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link
 (DECLARE%: EVAL@COMPILE
 
 (DATATYPE BICLOCKPARMS
 (SECONDSMODE COLORMODE MARKMODE DIGMODE CHIMEMODE ROMANDIGS ALARMTIME 
-                                  ADJUSTALARM ADJUSTEVENT))
+                              ADJUSTALARM ADJUSTEVENT))
 
 (RECORD UPTIMEREC
 (YEAR MONTH DAY HOUR MINUTE SECOND QQQ))
 )
@@ -654,8 +652,8 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link
 
 (RPAQ? BICLOCKWINDOW
 )
 
-(RPAQ? BICLOCKDEFAULTPROPS
 '(SECONDS T COLOR SHADOW MARKS NIL DIGITS 1 CHIME NIL ALARM NIL SIZE 
-                                       152 HORIZONTAL LEFT-OF-LOGO VERTICAL TOP CREATE T))
+(RPAQ? BICLOCKDEFAULTPROPS
 '(SECONDS T COLOR SHADOW MARKS NIL DIGITS 1 CHIME NIL ALARM NIL SIZE 152 
+                                   HORIZONTAL LEFT-OF-LOGO VERTICAL TOP CREATE T))
 
 (RPAQ? BICLOCKUSERPROPS
 )
 
@@ -672,7 +670,7 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link
 
 (ADDTOVAR IDLE.FUNCTIONS
 (Biclock 'IDLE.BICLOCK))
 
-(ADDTOVAR IDLE.SUSPEND.PROCESS.NAMES
 BICLOCKPROCESS)
+(ADDTOVAR IDLE.SUSPEND.PROCESS.NAMES
 BICLOCKPROCESS BICLOCKPROCESS#2)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA
 )
@@ -681,10 +679,9 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988 by Bernt Nilsson @ University of Link
 
 (ADDTOVAR LAMA
 BICLOCK)
 )
-(PUTPROPS BICLOCK COPYRIGHT ("Bernt Nilsson @ University of Linkoeping" 1984 1985 1986 1987 1988))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1744 36493 (BICLOCK 1754 . 7779) (BICLOCKBEFN 7781 . 13339) (BICLOCKCFN 13341 . 13412) 
-(BICLOCKFINDFONT 13414 . 14853) (BICLOCKNRFN 14855 . 16271) (BICLOCKPROCESS 16273 . 32113) (
-BICLOCKRPFN 32115 . 32188) (BICLOCKRSFN 32190 . 32347) (BICLOCKSETALARM 32349 . 34451) (
-BICLOCKSETALARM1 34453 . 35474) (BICLOCKSETALARM2 35476 . 35811) (IDLE.BICLOCK 35813 . 36491)))))
+  (FILEMAP (NIL (1637 36386 (BICLOCK 1647 . 7672) (BICLOCKBEFN 7674 . 13232) (BICLOCKCFN 13234 . 13305) 
+(BICLOCKFINDFONT 13307 . 14746) (BICLOCKNRFN 14748 . 16164) (BICLOCKPROCESS 16166 . 32006) (
+BICLOCKRPFN 32008 . 32081) (BICLOCKRSFN 32083 . 32240) (BICLOCKSETALARM 32242 . 34344) (
+BICLOCKSETALARM1 34346 . 35367) (BICLOCKSETALARM2 35369 . 35704) (IDLE.BICLOCK 35706 . 36384)))))
 STOP

sources/IDLER

@@ -1,15 +1,13 @@
-(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
+(DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 4-Oct-2022 16:42:36" {DSK}<home>larry>medley>sources>IDLER.;2
 47709  
+
(FILECREATED "15-Jul-2026 16:47:22" {DSK}<Users>larry>il>medley>sources>IDLER.;3
 47462  
 
-      :CHANGES-TO (FNS \IDLE.OUT)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "28-Sep-2022 19:54:40" {DSK}<home>larry>medley>sources>IDLER.;1)
+      :CHANGES-TO (FNS \IDLER)
 
+      :PREVIOUS-DATE " 4-Oct-2022 16:42:36" {DSK}<Users>larry>il>medley>sources>IDLER.;1)
 
-(* ; "
-Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT IDLERCOMS)
 
@@ -237,7 +235,8 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
             (T (TERPRI PROMPTWINDOW])
 
 (\IDLER

-  [LAMBDA (FROMTIMEOUT)
                                      (* ; "Edited 28-Sep-2022 09:05 by lmm")


+  [LAMBDA (FROMTIMEOUT)
                                      (* ; "Edited 15-Jul-2026 16:44 by lmm")


+                                                             (* ; "Edited 28-Sep-2022 09:05 by lmm")


                                                              (* ; "Edited 22-Sep-2022 15:04 by lmm")


                                                              (* ; "Edited 29-Jun-88 14:36 by drc:")

 
@@ -268,12 +267,6 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
                   (\USEREVENT 'AFTERDOSAVEVM]
               (RESETSAVE NIL (LIST (FUNCTION NOTIFY.EVENT)
                                    \IDLING.OVER))
-              [for
 X in
 IDLE.SUSPEND.PROCESS.NAMES bind
 PROC do
 
-                                                             (* ; 
-
                                "Turn off things like CROCK, LAFITEMAILWATCH, SPACEWINDOW, REMINDERS")

-                                                                (COND
-                                                                   ((SETQ PROC (FIND.PROCESS X))
-                                                                    (PROCESS.EVAL PROC '(\IDLE.WAIT
]
               (RESETSAVE \AFTERLOGINFNS NIL)                 (* ; 
 
                                                   "So that SETPASSWORD doesn't trigger any activity")

               [for
 X in
 IDLE.RESETVARS do
                    (* ; 
@@ -297,6 +290,10 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
 
               (RESETSAVE (CHANGENAME '\LOGIN.READ 'PROVIDE.PROMPTING.WINDOW '\IDLE.PROMPTING.WINDOW)
                      '(CHANGENAME \LOGIN.READ \IDLE.PROMPTING.WINDOW PROVIDE.PROMPTING.WINDOW))
+              [MAP.PROCESSES (FUNCTION (LAMBDA (PROC)
+                                         (IF
 (MEMB (FETCH
 (PROCESS PROCNAME) OF
 PROC)
+                                                   IDLE.SUSPEND.PROCESS.NAMES)
+                                             THEN
 (PROCESS.EVAL PROC '(\IDLE.WAIT
]
               (COND
                  ((OR [AND FROMTIMEOUT (NOT (AND (SMALLP IDLE.TIMEOUT)
                                                  (\SECONDSCLOCKGREATERP \LASTUSERACTION
@@ -910,13 +907,12 @@ Copyright (c) 1985-1990, 1992, 2022 by Venue & Xerox Corporation.
 
 (GLOBALVARS IDLE.FUNCTIONS IDLE.BOUNCING.BOX)
 )
-(PUTPROPS IDLER COPYRIGHT ("Venue & Xerox Corporation" 1985 1986 1987 1988 1989 1990 1992 2022))
 (DECLARE%: DONTCOPY
-  (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)))))
+  (FILEMAP (NIL (7265 37333 (IDLE 7275 . 7723) (IDLE.SET.OPTION 7725 . 11024) (IDLE.SHOW.OPTIONS 11026
+ . 11590) (IDLE.SHOW.OPTION 11592 . 13116) (\IDLER 13118 . 22420) (\IDLE.WAIT 22422 . 22525) (
+\OK.TO.IDLE? 22527 . 22705) (\IDLE.TIME 22707 . 23489) (\IDLE.OUT 23491 . 24012) (\IDLE.EXIT? 24014 . 
+28000) (\IDLE.PROMPT.WATCHER 28002 . 28648) (\IDLE.EXIT.ABORT 28650 . 28918) (\IDLE.PROMPTING.WINDOW 
+28920 . 29655) (\IDLE.IS.PREVIOUS 29657 . 31516) (\IDLE.ISMEMBER 31518 . 34121) (\IDLE.AUTHENTICATE 
+34123 . 36243) (\IDLERKEYACTION 36245 . 37331)) (42588 47102 (IDLE.BOUNCING.BOX 42598 . 44061) (
+IDLE.BITMAP 44063 . 46166) (IDLE.RANDOM 46168 . 47100)))))
 STOP