(FILECREATED "27-Feb-87 22:27:59" ("compiled on " {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH207.;1) 
"12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08")
(FILECREATED "27-Feb-87 22:26:21" {QV}<NOTECARDS>1.3K>NEXT>RHTPATCH207.;1 4040 changes to: (VARS 
RHTPATCH207COMS))
(PRETTYCOMPRINT RHTPATCH207COMS)
(RPAQQ RHTPATCH207COMS ((* * Fixes bug where TEDIT-PROCESS-KILLER wasn't loaded into latest sysout. 
This loads it and recomputes the CardOps menu.) (* * The following should be put into NOTECARDS coms. 
Perhaps in the same FILES expression with STYLESHEET.) (FILES (FROM LISPUSERS) TEDIT-PROCESS-KILLER) (
* * The rest of this stuff should not be integrated. It's just to recompute make the Card Ops menu get
 recomputed.) (VARS (NC.CardOpsMenu NIL) (NC.CardOpsItems (QUOTE ((Close% Cards (NC.CloseNoteCards NIL
 NIL NIL NC.NoteCardsIconWindow) "Delete several note cards.") (Delete% Cards (NC.DeleteNoteCards NIL 
T NIL NC.NoteCardsIconWindow) "Delete several note cards.") (NF% Indicators% On (NC.ShowNoteFiles) 
"Turn on the NoteFile indicator for all currently open cards" (SUBITEMS (Indicators% Off (
NC.ShowNoteFiles T) "Turn off any NoteFile indicator on each card on the screen."))) (
TEdit% Killer% On (START-TEDIT-KILLER) "Start the TEDIT-KILLER process." (SUBITEMS (TEdit% Killer% Off
 (STOP-TEDIT-KILLER) "Stop the TEDIT-KILLER process.") (New% Process% Limit (SETQ TEDIT-PROCESS-LIMIT 
(OR (NUMBERP (RNUMBER (CONCAT "Old TEdit process limit: " TEDIT-PROCESS-LIMIT) NIL NIL NIL T)) 
TEDIT-PROCESS-LIMIT)) "Change value of TEdit process limit.") (New% Wait% Time (SETQ 
TEDIT-KILLER-WAIT-TIME (OR (NUMBERP (RNUMBER (CONCAT "Old TEdit killer wait time: " 
TEDIT-KILLER-WAIT-TIME) NIL NIL NIL T)) TEDIT-KILLER-WAIT-TIME)) 
"Change value of TEdit killer wait time.")))))))))
(FILESLOAD (FROM LISPUSERS) TEDIT-PROCESS-KILLER)
(RPAQQ NC.CardOpsMenu NIL)
(RPAQQ NC.CardOpsItems ((Close% Cards (NC.CloseNoteCards NIL NIL NIL NC.NoteCardsIconWindow) 
"Delete several note cards.") (Delete% Cards (NC.DeleteNoteCards NIL T NIL NC.NoteCardsIconWindow) 
"Delete several note cards.") (NF% Indicators% On (NC.ShowNoteFiles) 
"Turn on the NoteFile indicator for all currently open cards" (SUBITEMS (Indicators% Off (
NC.ShowNoteFiles T) "Turn off any NoteFile indicator on each card on the screen."))) (
TEdit% Killer% On (START-TEDIT-KILLER) "Start the TEDIT-KILLER process." (SUBITEMS (TEdit% Killer% Off
 (STOP-TEDIT-KILLER) "Stop the TEDIT-KILLER process.") (New% Process% Limit (SETQ TEDIT-PROCESS-LIMIT 
(OR (NUMBERP (RNUMBER (CONCAT "Old TEdit process limit: " TEDIT-PROCESS-LIMIT) NIL NIL NIL T)) 
TEDIT-PROCESS-LIMIT)) "Change value of TEdit process limit.") (New% Wait% Time (SETQ 
TEDIT-KILLER-WAIT-TIME (OR (NUMBERP (RNUMBER (CONCAT "Old TEdit killer wait time: " 
TEDIT-KILLER-WAIT-TIME) NIL NIL NIL T)) TEDIT-KILLER-WAIT-TIME)) 
"Change value of TEdit killer wait time.")))))
(PUTPROPS RHTPATCH207 COPYRIGHT ("Xerox Corporation" 1987))
NIL