From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 13 Jun 2005 20:49:14 +0000 (+0000)
Subject: (note_mode_line_or_margin_highlight): Lisp_Object/int mixup.
X-Git-Tag: emacs-pretest-22.0.90~8992
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b78ab259b1e35e52754fca92eb0f0650690104da;p=emacs.git

(note_mode_line_or_margin_highlight): Lisp_Object/int mixup.
(get_phys_cursor_geometry, format_mode_line_unwind_data)
(get_line_height_property, x_produce_glyphs): Remove unused vars.
---

diff --git a/src/xdisp.c b/src/xdisp.c
index b32f43b97b9..7ce461c1897 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -1898,7 +1898,7 @@ get_phys_cursor_geometry (w, row, glyph, heightp)
      int *heightp;
 {
   struct frame *f = XFRAME (WINDOW_FRAME (w));
-  int x, y, wd, h, h0, y0;
+  int y, wd, h, h0, y0;
 
   /* Compute the width of the rectangle to draw.  If on a stretch
      glyph, and `x-stretch-block-cursor' is nil, don't draw a
@@ -8252,7 +8252,6 @@ static Lisp_Object
 format_mode_line_unwind_data (obuf)
      struct buffer *obuf;
 {
-  int i = 0;
   Lisp_Object vector;
 
   /* Reduce consing by keeping one vector in
@@ -19201,7 +19200,7 @@ get_line_height_property (it, prop)
      struct it *it;
      Lisp_Object prop;
 {
-  Lisp_Object position, val;
+  Lisp_Object position;
 
   if (STRINGP (it->object))
     position = make_number (IT_STRING_CHARPOS (*it));
@@ -19552,7 +19551,6 @@ x_produce_glyphs (it)
 	  else
 	    {
 	      Lisp_Object spacing;
-	      int total = 0;
 
 	      it->phys_ascent = it->ascent;
 	      it->phys_descent = it->descent;
@@ -21574,7 +21572,7 @@ note_mode_line_or_margin_highlight (window, x, y, area)
 
 	  /* If the re-rendering position is included in the last
 	     re-rendering area, we should do nothing. */
-	  if ( window == dpyinfo->mouse_face_window
+	  if ( EQ (window, dpyinfo->mouse_face_window)
 	       && dpyinfo->mouse_face_beg_col <= vpos
 	       && vpos < dpyinfo->mouse_face_end_col
 	       && dpyinfo->mouse_face_beg_row == hpos )