From f2a2724e5cf97f019c089f381ee79708cb9b8ede Mon Sep 17 00:00:00 2001
From: Luke Shumaker <LukeShu@sbcglobal.net>
Date: Mon, 16 Jun 2014 18:30:10 -0400
Subject: pcr/emacs-lucid: new giflib

---
 pcr/emacs-lucid/PKGBUILD                 |  4 +-
 pcr/emacs-lucid/emacs-24.3-giflib5.patch | 71 ++++++++++++++++++++++++++++++++
 2 files changed, 73 insertions(+), 2 deletions(-)

diff --git a/pcr/emacs-lucid/PKGBUILD b/pcr/emacs-lucid/PKGBUILD
index 1e3be71a4..e7ff10972 100644
--- a/pcr/emacs-lucid/PKGBUILD
+++ b/pcr/emacs-lucid/PKGBUILD
@@ -5,7 +5,7 @@
 _pkgname=emacs
 pkgname=emacs-lucid
 pkgver=24.3
-pkgrel=5
+pkgrel=7
 pkgdesc="The extensible, customizable, self-documenting real-time display editor"
 arch=('i686' 'x86_64')
 url="http://www.gnu.org/software/emacs/emacs.html"
@@ -16,7 +16,7 @@ source=(ftp://ftp.gnu.org/gnu/emacs/$_pkgname-$pkgver.tar.xz{,.sig}
         emacs-24.3-giflib5.patch)
 md5sums=('ea9ed000ca165280265aabb55b9afbd7'
          'SKIP'
-         '560cdf463299e059c5fadf474bcba218')
+         'ccbe4e77440ff6ea56c8532ebc960446')
 
 pkgdesc+=", with the Lucid X11 toolkit"
 provides=("$_pkgname=$pkgver")
diff --git a/pcr/emacs-lucid/emacs-24.3-giflib5.patch b/pcr/emacs-lucid/emacs-24.3-giflib5.patch
index b8571abb2..f58c31907 100644
--- a/pcr/emacs-lucid/emacs-24.3-giflib5.patch
+++ b/pcr/emacs-lucid/emacs-24.3-giflib5.patch
@@ -24,3 +24,74 @@
        if (!gif)
  	{
  	  image_error ("Cannot open memory source `%s'", img->spec, Qnil);
+@@ -7225,7 +7225,11 @@
+   if (!check_image_size (f, gif->SWidth, gif->SHeight))
+     {
+       image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
++#if GIFLIB_MAJOR >= 5 && GIFLIB_MINOR >= 1
++      fn_DGifCloseFile (gif, NULL);
++#else
+       fn_DGifCloseFile (gif);
++#endif
+       return 0;
+     }
+ 
+@@ -7234,7 +7238,11 @@
+   if (rc == GIF_ERROR || gif->ImageCount <= 0)
+     {
+       image_error ("Error reading `%s'", img->spec, Qnil);
++#if GIFLIB_MAJOR >= 5 && GIFLIB_MINOR >= 1
++      fn_DGifCloseFile (gif, NULL);
++#else
+       fn_DGifCloseFile (gif);
++#endif
+       return 0;
+     }
+ 
+@@ -7246,7 +7254,11 @@
+       {
+ 	image_error ("Invalid image number `%s' in image `%s'",
+ 		     image_number, img->spec);
++#if GIFLIB_MAJOR >= 5 && GIFLIB_MINOR >= 1
++	fn_DGifCloseFile (gif, NULL);
++#else
+ 	fn_DGifCloseFile (gif);
++#endif
+ 	return 0;
+       }
+   }
+@@ -7264,14 +7276,22 @@
+   if (!check_image_size (f, width, height))
+     {
+       image_error ("Invalid image size (see `max-image-size')", Qnil, Qnil);
++#if GIFLIB_MAJOR >= 5 && GIFLIB_MINOR >= 1
++      fn_DGifCloseFile (gif, NULL);
++#else
+       fn_DGifCloseFile (gif);
++#endif
+       return 0;
+     }
+ 
+   /* Create the X image and pixmap.  */
+   if (!x_create_x_image_and_pixmap (f, width, height, 0, &ximg, &img->pixmap))
+     {
++#if GIFLIB_MAJOR >= 5 && GIFLIB_MINOR >= 1
++      fn_DGifCloseFile (gif, NULL);
++#else
+       fn_DGifCloseFile (gif);
++#endif
+       return 0;
+     }
+ 
+@@ -7447,7 +7467,11 @@
+ 			    Fcons (make_number (gif->ImageCount),
+ 				   img->lisp_data));
+ 
++#if GIFLIB_MAJOR >= 5 && GIFLIB_MINOR >= 1
++  fn_DGifCloseFile (gif, NULL);
++#else
+   fn_DGifCloseFile (gif);
++#endif
+ 
+   /* Maybe fill in the background field while we have ximg handy. */
+   if (NILP (image_spec_value (img->spec, QCbackground, NULL)))
-- 
cgit v1.2.3