Xref: utzoo comp.emacs:8124 comp.windows.x:21024
Path: utzoo!utgpu!news-server.csri.toronto.edu!clyde.concordia.ca!uunet!samsung!cg-atla!viewlog!josh
From: josh@viewlog.UUCP (Josh Marantz)
Newsgroups: comp.emacs,comp.windows.x
Subject: Re: Emacs refresh speed under X on Sparcstation
Message-ID: <1511@viewlog.UUCP>
Date: 13 Apr 90 16:20:23 GMT
Organization: Viewlogic Systems Inc., Marlboro, MA
Lines: 44


It looks like the way to improve refresh performance in Gnu Emacs
18.55 on X11R4 on a Sparcstation running SunOS 4.0.3 is to tell emacs
that the baud rate is very high, say 1000000.  Unfortunately, there's
no way to do this from elisp.  This modification to x11fns.c supplies
a new function x-set-baud, which you can call from your .emacs.  This
seems to work well for me.  Thanks to all who responded.

*** x11fns.c.orig	Wed Apr 11 13:18:24 1990
--- x11fns.c	Fri Apr 13 12:15:44 1990
***************
*** 456,461 ****
--- 456,471 ----
  	return (Qnil);
  }
  
+ DEFUN ("x-set-baud", Fx_set_baud, Sx_set_baud, 1, 1, "nBaud Rate: ",
+        "Sets the apparent baud rate to influence the refresh algorithm")
+     (new_baud_rate)
+ {
+     CHECK_NUMBER (new_baud_rate, 1);
+     check_xterm ();
+     baud_rate = XINT (new_baud_rate);
+     return (Qnil);
+ }
+ 
  DEFUN ("x-set-font", Fx_set_font, Sx_set_font, 1, 1, "sFont Name: ",
        "Sets the font to be used for the X window.")
    (arg)
***************
*** 892,897 ****
--- 902,908 ----
    defsubr (&Sx_rebind_keys);
  #endif notdef
    defsubr (&Sx_debug);
+   defsubr (&Sx_set_baud);
  }
  
  #endif /* HAVE_X_WINDOWS */
-- 
Joshua Marantz
Viewlogic Systems, Inc.
viewlog!josh@cg-atla.agfa.com
        Why not pass the time by playing a game of solitaire?