Mercurial > emacs

changeset 16351:ac552926fc7e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_set_internal_border_width, Fx_create_frame): Call widget_store_internal_border. (Fx_create_frame): Don't use a superclass when checking for an internalBorder resource.
author Richard M. Stallman <rms@gnu.org>
date Fri, 27 Sep 1996 06:53:49 +0000
parents 773a9eb73ce9
children dfe3713f8c75
files src/xfns.c
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/xfns.c	Fri Sep 27 06:52:45 1996 +0000
+++ b/src/xfns.c	Fri Sep 27 06:53:49 1996 +0000
@@ -1632,6 +1632,10 @@
   if (f->output_data.x->internal_border_width < 0)
     f->output_data.x->internal_border_width = 0;
 
+  if (f->output_data.x->edit_widget)
+    widget_store_internal_border (f->output_data.x->edit_widget,
+				  f->output_data.x->internal_border_width);
+
   if (f->output_data.x->internal_border_width == old)
     return;
 
@@ -3201,13 +3205,13 @@
       Lisp_Object value;
 
       value = x_get_arg (parms, Qinternal_border_width,
-			 "internalBorder", "BorderWidth", number);
+			 "internalBorder", "internalBorder", number);
       if (! EQ (value, Qunbound))
 	parms = Fcons (Fcons (Qinternal_border_width, value),
 		       parms);
     }
   x_default_parameter (f, parms, Qinternal_border_width, make_number (1),
-		       "internalBorderWidth", "BorderWidth", number);
+		       "internalBorderWidth", "internalBorderWidth", number);
   x_default_parameter (f, parms, Qvertical_scroll_bars, Qleft,
 		       "verticalScrollBars", "ScrollBars", boolean);