diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-04-10 21:15:53 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-04-10 21:15:53 +0000 |
| commit | 8bb6ca14678335cde9f866c8194ece097f276612 (patch) | |
| tree | bc97214d0c35050bc06a998dc3f2b0dc65f1d8d9 | |
| parent | 5e33ba39fe60ea21cdca114fb6b10865814128ba (diff) | |
| download | emacs-8bb6ca14678335cde9f866c8194ece097f276612.tar.gz | |
(display_text_line): Don't use Lisp_Object as integer.
| -rw-r--r-- | src/xdisp.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/xdisp.c b/src/xdisp.c index cabdf70f2ab..e777336e6c7 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -2867,7 +2867,8 @@ display_text_line (w, start, vpos, hpos, taboffset, ovstr_done) /* Truncate the prompt a little before the margin, so user input can at least start on the first line. */ - w->width > 10 ? w->width - 4 : -1) + (XFASTINT (w->width) > 10 + ? XFASTINT (w->width) - 4 : -1)) - hpos); hpos += minibuf_prompt_width; taboffset -= minibuf_prompt_width; @@ -3285,7 +3286,7 @@ display_text_line (w, start, vpos, hpos, taboffset, ovstr_done) if (p1 >= leftmargin) *p1 = (fix_glyph (f, (dp && INTEGERP (DISP_ESCAPE_GLYPH (dp)) - && GLYPH_CHAR_VALID_P (DISP_ESCAPE_GLYPH (dp)) + && GLYPH_CHAR_VALID_P (XINT (DISP_ESCAPE_GLYPH (dp))) ? XINT (DISP_ESCAPE_GLYPH (dp)) : '\\'), current_face) | rev_dir_bit); @@ -3533,7 +3534,7 @@ display_text_line (w, start, vpos, hpos, taboffset, ovstr_done) } else if (!FRAME_HAS_VERTICAL_SCROLL_BARS (f)) *p1++ = (dp && INTEGERP (DISP_BORDER_GLYPH (dp)) - ? DISP_BORDER_GLYPH (dp) + ? XINT (DISP_BORDER_GLYPH (dp)) : '|'); } desired_glyphs->used[vpos] = max (desired_glyphs->used[vpos], |