Mercurial > emacs

changeset 55203:7e5d16ca1ee2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x_produce_glyphs): Fix the proverbial int/Lisp_Object mixup. (on_hot_spot_p): Make sure we always return a value. (Flookup_image_map): Remove unused var ix and iy. (note_mode_line_or_margin_highlight): Remove unused var `image'.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 27 Apr 2004 22:00:03 +0000
parents 4c64ee838f41
children e23d5770ddb5
files src/xdisp.c
diffstat 1 files changed, 11 insertions(+), 8 deletions(-) [+]
line wrap: on
line diff
--- a/src/xdisp.c	Tue Apr 27 21:00:31 2004 +0000
+++ b/src/xdisp.c	Tue Apr 27 22:00:03 2004 +0000
@@ -18708,7 +18708,8 @@
 	  it->pixel_width = 0;
 	  it->nglyphs = 0;
 
-	  lh = Fget_text_property (IT_CHARPOS (*it), Qline_height, it->object);
+	  lh = Fget_text_property (make_number (IT_CHARPOS (*it)),
+				   Qline_height, it->object);
 
 	  if (EQ (lh, Qt))
 	    {
@@ -18754,17 +18755,20 @@
 	      if (INTEGERP (lh))
 		explicit_height = XINT (lh);
 	      else if (FLOATP (lh))
-		explicit_height = (it->phys_ascent + it->phys_descent) * XFLOAT_DATA (lh);
+		explicit_height = (it->phys_ascent + it->phys_descent)
+		  * XFLOAT_DATA (lh);
 
 	      if (explicit_height > it->ascent + it->descent)
 		it->ascent = explicit_height - it->descent;
 	    }
 
-	  lsp = Fget_text_property (IT_CHARPOS (*it), Qline_spacing, it->object);
+	  lsp = Fget_text_property (make_number (IT_CHARPOS (*it)),
+				    Qline_spacing, it->object);
 	  if (INTEGERP (lsp))
 	    extra_line_spacing = XINT (lsp);
 	  else if (FLOATP (lsp))
-	    extra_line_spacing = (it->phys_ascent + it->phys_descent) * XFLOAT_DATA (lsp);
+	    extra_line_spacing = (it->phys_ascent + it->phys_descent)
+	      * XFLOAT_DATA (lsp);
 	}
       else if (it->char_to_display == '\t')
 	{
@@ -20437,8 +20441,8 @@
 	  return inside;
 	}
     }
-  else
-    return 0;
+  /* If we don't understand the format, pretend we're not in the hot-spot.  */
+  return 0;
 }
 
 Lisp_Object
@@ -20473,7 +20477,6 @@
      Lisp_Object map;
      Lisp_Object x, y;
 {
-  int ix, iy;
   if (NILP (map))
     return Qnil;
 
@@ -20539,7 +20542,7 @@
   Lisp_Object pointer = Qnil;
   int charpos, dx, dy, width, height;
   Lisp_Object string, object = Qnil;
-  Lisp_Object pos, help, image;
+  Lisp_Object pos, help;
 
   if (area == ON_MODE_LINE || area == ON_HEADER_LINE)
     string = mode_line_string (w, area, &x, &y, &charpos,