X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fdevice-msw.c;fp=src%2Fdevice-msw.c;h=17a2a257cad295959ac4938daf020a8444c8710e;hp=da2727c4b3acb6a876ede5596b8d19152e3bcc9d;hb=3f6ecf401c01c83743af2c1e068f57e8d2e2e410;hpb=60ad9a0d8081fee7d81df258c165b5c8b7efa03a

diff --git a/src/device-msw.c b/src/device-msw.c
index da2727c..17a2a25 100644
--- a/src/device-msw.c
+++ b/src/device-msw.c
@@ -792,10 +792,22 @@ mswindows_handle_print_dialog_box (struct frame *f, Lisp_Object keys)
   return print_dialog_worker (!UNBOUNDP (device) ? device : settings, 1);
 }
 
+int
+mswindows_get_default_margin (Lisp_Object prop)
+{
+  if (EQ (prop, Qleft_margin)) return 1440;
+  if (EQ (prop, Qright_margin)) return 1440;
+  if (EQ (prop, Qtop_margin)) return 720;
+  if (EQ (prop, Qbottom_margin)) return 720;
+  abort ();
+  return 0;
+}
+
 static int
 plist_get_margin (Lisp_Object plist, Lisp_Object prop)
 {
-  Lisp_Object val = Fplist_get (plist, prop, make_int (1440));
+  Lisp_Object val =
+    Fplist_get (plist, prop, make_int (mswindows_get_default_margin (prop)));
   if (!INTP (val))
     invalid_argument ("Margin value must be an integer", val);