# HG changeset patch # User Richard M. Stallman # Date 884388032 0 # Node ID 69d52f3bdb461a7508b841a6a769a96a7a4c3f5b # Parent 05919533e157f59f4aa04285247359170e358f5b (x_create_bitmap_from_file): Use size_byte on strings. (x_set_name, x_set_title, validate_x_resource_name): Likewise. (Fx_get_resource, display_x_get_resource): Likewise. (x_get_resource_string): Likewise. diff -r 05919533e157 -r 69d52f3bdb46 src/xfns.c --- a/src/xfns.c Fri Jan 09 23:19:42 1998 +0000 +++ b/src/xfns.c Fri Jan 09 23:20:32 1998 +0000 @@ -599,7 +599,8 @@ id = x_allocate_bitmap_record (f); dpyinfo->bitmaps[id - 1].pixmap = bitmap; dpyinfo->bitmaps[id - 1].refcount = 1; - dpyinfo->bitmaps[id - 1].file = (char *) xmalloc (XSTRING (file)->size + 1); + dpyinfo->bitmaps[id - 1].file + = (char *) xmalloc (XSTRING (file)->size_byte + 1); dpyinfo->bitmaps[id - 1].depth = 1; dpyinfo->bitmaps[id - 1].height = height; dpyinfo->bitmaps[id - 1].width = width; @@ -1822,14 +1823,14 @@ text.value = XSTRING (name)->data; text.encoding = XA_STRING; text.format = 8; - text.nitems = XSTRING (name)->size; + text.nitems = XSTRING (name)->size_byte; icon_name = (!NILP (f->icon_name) ? f->icon_name : name); icon.value = XSTRING (icon_name)->data; icon.encoding = XA_STRING; icon.format = 8; - icon.nitems = XSTRING (icon_name)->size; + icon.nitems = XSTRING (icon_name)->size_byte; #ifdef USE_X_TOOLKIT XSetWMName (FRAME_X_DISPLAY (f), XtWindow (f->output_data.x->widget), &text); @@ -1912,14 +1913,14 @@ text.value = XSTRING (name)->data; text.encoding = XA_STRING; text.format = 8; - text.nitems = XSTRING (name)->size; + text.nitems = XSTRING (name)->size_byte; icon_name = (!NILP (f->icon_name) ? f->icon_name : name); icon.value = XSTRING (icon_name)->data; icon.encoding = XA_STRING; icon.format = 8; - icon.nitems = XSTRING (icon_name)->size; + icon.nitems = XSTRING (icon_name)->size_byte; #ifdef USE_X_TOOLKIT XSetWMName (FRAME_X_DISPLAY (f), XtWindow (f->output_data.x->widget), &text); @@ -2049,7 +2050,7 @@ unsigned char *p = XSTRING (Vx_resource_name)->data; int i; - len = XSTRING (Vx_resource_name)->size; + len = XSTRING (Vx_resource_name)->size_byte; /* Only letters, digits, - and _ are valid in resource names. Count the valid characters and count the invalid ones. */ @@ -2133,16 +2134,16 @@ /* Allocate space for the components, the dots which separate them, and the final '\0'. Make them big enough for the worst case. */ - name_key = (char *) alloca (XSTRING (Vx_resource_name)->size + name_key = (char *) alloca (XSTRING (Vx_resource_name)->size_byte + (STRINGP (component) - ? XSTRING (component)->size : 0) - + XSTRING (attribute)->size + ? XSTRING (component)->size_byte : 0) + + XSTRING (attribute)->size_byte + 3); - class_key = (char *) alloca (XSTRING (Vx_resource_class)->size - + XSTRING (class)->size + class_key = (char *) alloca (XSTRING (Vx_resource_class)->size_byte + + XSTRING (class)->size_byte + (STRINGP (subclass) - ? XSTRING (subclass)->size : 0) + ? XSTRING (subclass)->size_byte : 0) + 3); /* Start with emacs.FRAMENAME for the name (the specific one) @@ -2201,16 +2202,16 @@ /* Allocate space for the components, the dots which separate them, and the final '\0'. Make them big enough for the worst case. */ - name_key = (char *) alloca (XSTRING (Vx_resource_name)->size + name_key = (char *) alloca (XSTRING (Vx_resource_name)->size_byte + (STRINGP (component) - ? XSTRING (component)->size : 0) - + XSTRING (attribute)->size + ? XSTRING (component)->size_byte : 0) + + XSTRING (attribute)->size_byte + 3); - class_key = (char *) alloca (XSTRING (Vx_resource_class)->size - + XSTRING (class)->size + class_key = (char *) alloca (XSTRING (Vx_resource_class)->size_byte + + XSTRING (class)->size_byte + (STRINGP (subclass) - ? XSTRING (subclass)->size : 0) + ? XSTRING (subclass)->size_byte : 0) + 3); /* Start with emacs.FRAMENAME for the name (the specific one) @@ -2253,7 +2254,7 @@ /* Allocate space for the components, the dots which separate them, and the final '\0'. */ - name_key = (char *) alloca (XSTRING (Vinvocation_name)->size + name_key = (char *) alloca (XSTRING (Vinvocation_name)->size_byte + strlen (attribute) + 2); class_key = (char *) alloca ((sizeof (EMACS_CLASS) - 1) + strlen (class) + 2); @@ -4870,7 +4871,7 @@ if (NILP (modifiers)) XRebindKeysym (x_current_display, keysym, modifier_list, 0, - XSTRING (newstring)->data, XSTRING (newstring)->size); + XSTRING (newstring)->data, XSTRING (newstring)->size_byte); else { register Lisp_Object rest, mod; @@ -4898,7 +4899,7 @@ } XRebindKeysym (x_current_display, keysym, modifier_list, i, - XSTRING (newstring)->data, XSTRING (newstring)->size); + XSTRING (newstring)->data, XSTRING (newstring)->size_byte); } return Qnil; @@ -4929,7 +4930,7 @@ if (!NILP (item)) { CHECK_STRING (item, 2); - strsize = XSTRING (item)->size; + strsize = XSTRING (item)->size_byte; rawstring = (unsigned char *) xmalloc (strsize); bcopy (XSTRING (item)->data, rawstring, strsize); modifier[1] = 1 << i;