patch for OpenVMS

[joukj@xxxxxxxxxxxxxxxxxxxx (Jacob (=Jouk) Jansen)]

Hi,

Can someone apply the following patch (see below). I tested it with
svn-jed-19. It is a very old patch (some years ago) to make parenthesis
highlighting with xjed working on VMS. The patch was created by someone called
Brien

               Jouk


************
File $DISK4:[JOUKJ.PUBLIC.jed.jed_use.src]vms.c;2
  419      unsigned long EFstate;
  420      float delay = 0.1;
  421      
******
File $DISK4:[JOUKJ.PUBLIC.jed.jed_use.src]vms.c;1
  419      
************
************
File $DISK4:[JOUKJ.PUBLIC.jed.jed_use.src]vms.c;2
  428   	if (! *secs) return 0;
  429   	daytim[1] = 0xFFFFFFFF;
  430   	daytim[0] = -(*secs * 1000 * 1000);   /* 1000 * 1000 is a tenth of a sec */
  431   	sys$setimr(Timer_Event_Flag, daytim, 0, 1);
  432   	/* Loop until a key is pressed or the timer event flag gets set */
  433   	for (;;) {
  434   	    lib$wait(&delay);	/* so we don't chew up so much cpu time */
  435   	    if ((*X_Input_Pending_Hook) ()) {
  436   		sys$cantim(1, 3);
  437   		return 1;
  438   	    } else {
  439   		if (sys$readef(Timer_Event_Flag, &EFstate) == SS$_WASSET) 
  440   		  return 0;
  441   	    }
  442   	}
  443        }
******
File $DISK4:[JOUKJ.PUBLIC.jed.jed_use.src]vms.c;1
  426   	/* I need to make this work with DECWIndows */
  427   	return 0;
  428        }
************

Number of difference sections found: 2
Number of difference records found: 17

DIFFERENCES /IGNORE=()/MERGED=1/OUTPUT=$DISK4:[JOUKJ.PUBLIC.jed.jed_use.src]mail.txt;1-
    $DISK4:[JOUKJ.PUBLIC.jed.jed_use.src]vms.c;2-
    $DISK4:[JOUKJ.PUBLIC.jed.jed_use.src]vms.c;1


Bush : All votes are equal but some votes are more equal than others.

>------------------------------------------------------------------------------<

  Jouk Jansen
		 
  joukj@xxxxxxxxxxxxxxxxxxxx

  Technische Universiteit Delft        tttttttttt  uu     uu  ddddddd
  Kavli Institute of Nanoscience       tttttttttt  uu     uu  dd    dd
  Nationaal centrum voor HREM              tt      uu     uu  dd     dd
  Lorentzweg 1                             tt      uu     uu  dd     dd
  2628 CJ Delft                            tt      uu     uu  dd     dd
  Nederland                                tt      uu     uu  dd    dd
  tel. 31-15-2782272                       tt       uuuuuuu   ddddddd

>------------------------------------------------------------------------------<