From: Pavel Janík <Pavel@Janik.cz>
Date: Wed, 20 Feb 2002 10:27:06 +0000 (+0000)
Subject: (gif_load): Use correct width and height for GIF images.
X-Git-Tag: ttn-vms-21-2-B4~16563
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c7f07c4c3524e3d03fda9272d106a525c6a361f8;p=emacs.git

(gif_load): Use correct width and height for GIF images.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index ab27f83b46b..0c900eacff8 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2002-02-20  Pavel Jan,Bm(Bk  <Pavel@Janik.cz>
+
+	* xfns.c (gif_load): Use correct width and height for GIF images.
+
 2002-02-19  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* floatfns.c (Fatan): Accept an optional second arg and call
diff --git a/src/xfns.c b/src/xfns.c
index 4611d29aae9..b8818b6c5be 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -10161,8 +10161,8 @@ gif_load (f, img)
       return 0;
     }
 
-  width = img->width = gif->SWidth;
-  height = img->height = gif->SHeight;
+  width = img->width = max (gif->SWidth, gif->Image.Left + gif->Image.Width);
+  height = img->height = max (gif->SHeight, gif->Image.Top + gif->Image.Height);
 
   /* Create the X image and pixmap.  */
   if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))