# HG changeset patch
# User Michael I. Bushnell <mib@gnu.org>
# Date 691132498 0
# Node ID 6e0a136fca4fedd33419e58f16f804991c0e05ca
# Parent  43e88c4db33071f4014c589003cc3728d9c1b032
*** empty log message ***

diff -r 43e88c4db330 -r 6e0a136fca4f lisp/startup.el
--- a/lisp/startup.el	Tue Nov 26 05:00:30 1991 +0000
+++ b/lisp/startup.el	Tue Nov 26 05:14:58 1991 +0000
@@ -148,7 +148,7 @@
 	   (setq version-control 'never))))
 
   ;; Choose a good default value for split-window-keep-point.
-  (setq split-window-keep-point (> baud-rate 2400))
+  (setq split-window-keep-point (> (baud-rate) 2400))
 
   ;; Read window system's init file if using a window system.
   (if (and window-system (not noninteractive))
diff -r 43e88c4db330 -r 6e0a136fca4f src/xfns.c
--- a/src/xfns.c	Tue Nov 26 05:00:30 1991 +0000
+++ b/src/xfns.c	Tue Nov 26 05:14:58 1991 +0000
@@ -1424,6 +1424,7 @@
      enum resource_types type;
 {
   register Lisp_Object tem;
+  int i;
 
   tem = Fassq (param, alist);
   if (EQ (tem, Qnil))
@@ -4417,9 +4418,9 @@
   defsubr (&Sx_defined_color);
 #if 0
   defsubr (&Sx_track_pointer);
-#endif
   defsubr (&Sx_grab_pointer);
   defsubr (&Sx_ungrab_pointer);
+#endif
 #else
   defsubr (&Sx_get_default);
   defsubr (&Sx_store_cut_buffer);