🚀 go-pugleaf

I am sending this for a friend who does not have outside mail access.
If you wish to reply to him, you must send your message to me, and I
will forward it on. 

WE ARE NOT EMPLOYEES OF SHELL AND THEREFORE CANNOT REPRESENT THEM IN
ANY WAY WHATSOEVER!

------- Forwarded Message

To: gerday

Subject: emacs 18.53 bug report
Date: Mon, 06 Aug 90 12:21:21 -0500
From: greiner@america

Jan,
Please forward to bug-gnu-emacs@prep.ai.mit.edu

The following diff file fixes two problems in emacs.

  1) A rather minor irritant.  The function "x-set-background-color"
     does not change the foreground color of the text cursor.

  2) I used gcc to recompile emacs after installing the patch for (1)
     above.  I ran into two problems.  First, the ld command for linking
     temacs does not specify the entry point and the default address was
     invalid.  I fixed that by adding "-e __start" to command.  The
     second problem was that when temacs ran, it generated a bus error.
     I traced the error to the first line in staticpro (in alloc.c). 
     Apparently the compiler generated instructions that assumed the
     array staticvec1 to be word-aligned.  In my case, it wasn't so
     ERROR! 

     I assumed that staticvec1 could not be declared an array of
     'Lisp_Object *' for portability reasons so I kept the structure
     of your declaraction.  My only change was to use units of
     integers rather than characters.  Anyway, that solved the
     alignment problem.

diff -c2 OLD/x11fns.c ./x11fns.c
*** OLD/x11fns.c	Mon Aug  6 11:50:36 1990
- --- ./x11fns.c	Fri Aug  3 14:13:00 1990
***************
*** 216,219 ****
- --- 216,220 ----
  	XSetBackground (XXdisplay, XXgc_norm, back);
  	XSetForeground (XXdisplay, XXgc_rev, back);
+ 	XSetForeground (XXdisplay, XXgc_curs, back);
  	XSetWindowBackground(XXdisplay, XXwindow, back);
  	XClearArea (XXdisplay, XXwindow, 0, 0,
diff -c2 OLD/alloc.c ./alloc.c
*** OLD/alloc.c	Mon Aug  6 11:51:01 1990
- --- ./alloc.c	Mon Aug  6 11:17:02 1990
***************
*** 665,669 ****
  #define NSTATICS 200
  
! char staticvec1[NSTATICS * sizeof (Lisp_Object *)] = {0};
  
  int staticidx = 0;
- --- 665,669 ----
  #define NSTATICS 200
  
! int staticvec1[(NSTATICS * sizeof (Lisp_Object *) + sizeof (int) - 1) /
+                sizeof (int)] = {0};
  
  int staticidx = 0;

------- End of Forwarded Message

Jan Gerday          << C'etait chouette... on a bien rigole! >>
gerday@shell.com                        - Petit Nicolas

..!{sun,psuvax1,bcm,rice,decwrl,cs.utexas.edu}!shell!gerday
Shell Development Company, Bellaire Research Center
P.O. Box 481, Room 4202, Houston, TX 77001      (Tel: 713.663.2817)