mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

(dumpglyphs): Draw glyphs one by one if the font for

Browse source 
them is narrower than required.
(x_connection_closed): Put # at the beginning of line.
(x_load_font): Cast to (char *) before assigning to FONTNAME.
This commit is contained in:
Kenichi Handa 1997-05-16 00:42:53 +00:00
parent a81ed99ed0
commit f613a4c856
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/xterm.c
View file

@ -896,10 +896,10 @@ dumpglyphs (f, left, top, gp, n, hl, just_foreground, cmpcharp)
if (!cmpcharp)
{
if (require_clipping)
if (require_clipping || FONT_WIDTH (font) != glyph_width)
for (i = 0; i < len; i++)
{
if (i > 0)
if (require_clipping && i > 0)
XSetClipOrigin (FRAME_X_DISPLAY (f), gc,
glyph_width * i, 0);
if (background_filled)
@ -5096,9 +5096,9 @@ x_connection_closed (display, error_message)
/* Indicate that this display is dead. */
#ifdef USE_X_TOOLKIT
#ifdef USE_X_TOOLKIT
XtCloseDisplay (display);
#endif
#endif
dpyinfo->display = 0;
@ -6416,7 +6416,7 @@ x_load_font (f, fontname, size)
unsigned long value;
if (!NILP (font_names))
fontname = XSTRING (XCONS (font_names)->car)->data;
fontname = (char *) XSTRING (XCONS (font_names)->car)->data;
BLOCK_INPUT;
font = (XFontStruct *) XLoadQueryFont (FRAME_X_DISPLAY (f), fontname);