# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1100619714 0
# Node ID fc159de41e1165aa2438f3fcc464a7c916d33a66
# Parent  eb96fac40fc79c1a318e51b6a3e48a0f485ecad1
(Fdefine_fringe_bitmap): Always set 'h'. Simplify.

diff -r eb96fac40fc7 -r fc159de41e11 src/fringe.c
--- a/src/fringe.c	Tue Nov 16 15:41:41 2004 +0000
+++ b/src/fringe.c	Tue Nov 16 15:41:54 2004 +0000
@@ -1204,7 +1204,6 @@
   (bitmap, bits, height, width, align)
      Lisp_Object bitmap, bits, height, width, align;
 {
-  Lisp_Object len;
   int n, h, i, j;
   unsigned short *b;
   struct fringe_bitmap fb, *xfb;
@@ -1212,20 +1211,21 @@
 
   CHECK_SYMBOL (bitmap);
 
-  if (!STRINGP (bits) && !VECTORP (bits))
-    bits = wrong_type_argument (Qstringp, bits);
-
-  len = Flength (bits);
+  if (STRINGP (bits))
+    h = SCHARS (bits);
+  else if (VECTORP (bits))
+    h = XVECTOR (bits)->size;
+  else
+    bits = wrong_type_argument (Qsequencep, bits);
 
   if (NILP (height))
-    h = fb.height = XINT (len);
+    fb.height = h;
   else
     {
       CHECK_NUMBER (height);
       fb.height = min (XINT (height), 255);
-      if (fb.height > XINT (len))
+      if (fb.height > h)
 	{
-	  h = XINT (len);
 	  fill1 = (fb.height - h) / 2;
 	  fill2 = fb.height - h - fill1;
 	}