# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 717742468 0
# Node ID 7afcf7be0d304bb37abe37393ad96a118c17d881
# Parent  86a17674c2a107d57af9dc035da23b554574a4ac
	* data.c (Frem): Use the `fmod' function under SunOS, Ultrix, and
	HP/UX, not just under USG systems.

diff -r 86a17674c2a1 -r 7afcf7be0d30 src/buffer.c
--- a/src/buffer.c	Tue Sep 29 04:08:04 1992 +0000
+++ b/src/buffer.c	Tue Sep 29 04:54:28 1992 +0000
@@ -931,7 +931,7 @@
     }
 
   /* Remove it from the screen.  */
-  if (EQ (buf, XWINDOW (selected_frame)->buffer))
+  if (EQ (buf, XWINDOW (selected_window)->buffer))
     Fswitch_to_buffer (Fother_buffer (buf), Qnil);
 
   /* Move it to the end of the buffer list.  */
diff -r 86a17674c2a1 -r 7afcf7be0d30 src/data.c
--- a/src/data.c	Tue Sep 29 04:08:04 1992 +0000
+++ b/src/data.c	Tue Sep 29 04:54:28 1992 +0000
@@ -1649,7 +1649,7 @@
 
       f1 = XTYPE (num1) == Lisp_Float ? XFLOAT (num1)->data : XINT (num1);
       f2 = XTYPE (num2) == Lisp_Float ? XFLOAT (num2)->data : XINT (num2);
-#ifdef USG
+#if defined (USG) || defined (sun) || defined (ultrix) || defined (hpux)
       f1 = fmod (f1, f2);
 #else
       f1 = drem (f1, f2);