XORCursorPatch is 1186 only (#938)

lispusers/XORCURSORPATCH

@@ -1,34 +0,0 @@
-(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP")
-
(FILECREATED "19-Jul-88 11:37:37" {ERINYES}<LISPUSERS>LYRIC>XORCURSORPATCH.\;1
 1455   
-
-      |changes| |to:|  (VARS XORCURSORPATCHCOMS)
-
-      |previous| |date:| " 7-Oct-86 18:56:37" {PHYLUM}<LISPUSERS>KOTO>XORCURSORPATCH.\;1)
-
-
-; Copyright (c) 1988 by Xerox Corporation.  All rights reserved.
-
-(PRETTYCOMPRINT XORCURSORPATCHCOMS)
-
-(RPAQQ XORCURSORPATCHCOMS ((FNS DOVE.XOR.CURSOR) (INITVARS (|\\DoveDisplay.VideoColor| 1)) (GLOBALVARS |\\DoveDisplay.VideoColor|) (ADVISE (|\\DoveDisplay.SetVideoColor| :IN VIDEOCOLOR))))
-(DEFINEQ
-
-(DOVE.XOR.CURSOR

-(LAMBDA (FLG) (* |cdl| " 7-Oct-86 18:56") (SELECTQ (MACHINETYPE) (DOVE (|if| (EQP |\\DoveDisplay.VideoColor| 1) |then| (|if| FLG |then| (SETQ |\\DoveDisplay.VideoColor| (|if| (NUMBERP FLG) |then| FLG |else| 9))) |else| (|if| (NULL FLG) |then| (SETQ |\\DoveDisplay.VideoColor| 1))) (|\\DoveDisplay.SetCursorMix| |\\DoveDisplay.VideoColor|) T) NIL))
-)
-)
-
-(RPAQ? |\\DoveDisplay.VideoColor| 1)
-(DECLARE\: DOEVAL@COMPILE DONTCOPY
-
-
-(GLOBALVARS |\\DoveDisplay.VideoColor|)
-)
-
-(XCL:REINSTALL-ADVICE (QUOTE (|\\DoveDisplay.SetVideoColor| :IN VIDEOCOLOR)) :AFTER (QUOTE ((:LAST (SELECTQ (MACHINETYPE) (DOVE (|if| (NOT INVERSE?) |then| (|\\DoveDisplay.SetCursorMix| |\\DoveDisplay.VideoColor|))) NIL)))))
-
-(READVISE (|\\DoveDisplay.SetVideoColor| :IN VIDEOCOLOR))
-(PUTPROPS XORCURSORPATCH COPYRIGHT ("Xerox Corporation" 1988))
-(DECLARE\: DONTCOPY
-  (FILEMAP (NIL (585 967 (DOVE.XOR.CURSOR 595 . 965)))))
-STOP