mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

(xmenu_show): Use size_byte of strings.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-01-09 23:21:17 +00:00
parent 9f2a85b225
commit 0869c141aa
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/xmenu.c
View File

@ -2559,7 +2559,7 @@ xmenu_show (f, x, y, for_click, keymaps, title, error)
j++;
continue;
}
width = XSTRING (item)->size;
width = XSTRING (item)->size_byte;
if (width > maxwidth)
maxwidth = width;
@ -2582,7 +2582,7 @@ xmenu_show (f, x, y, for_click, keymaps, title, error)
= XVECTOR (menu_items)->contents[i + MENU_ITEMS_ITEM_EQUIV_KEY];
if (!NILP (descrip))
{
int gap = maxwidth - XSTRING (item_name)->size;
int gap = maxwidth - XSTRING (item_name)->size_byte;
#ifdef C_ALLOCA
Lisp_Object spacer;
spacer = Fmake_string (make_number (gap), make_number (' '));
@ -2594,14 +2594,14 @@ xmenu_show (f, x, y, for_click, keymaps, title, error)
to reduce gc needs. */
item_data
= (unsigned char *) alloca (maxwidth
+ XSTRING (descrip)->size + 1);
+ XSTRING (descrip)->size_byte + 1);
bcopy (XSTRING (item_name)->data, item_data,
XSTRING (item_name)->size);
XSTRING (item_name)->size_byte);
for (j = XSTRING (item_name)->size; j < maxwidth; j++)
item_data[j] = ' ';
bcopy (XSTRING (descrip)->data, item_data + j,
XSTRING (descrip)->size);
item_data[j + XSTRING (descrip)->size] = 0;
XSTRING (descrip)->size_byte);
item_data[j + XSTRING (descrip)->size_byte] = 0;
#endif
}
else