From 3ccff1e30257879f72b8d2fb321cd9ef6987f461 Mon Sep 17 00:00:00 2001
From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 9 Sep 1999 14:54:29 +0000
Subject: [PATCH] (QCindex): New. (syms_of_xfns): Initialize QCindex.
 (gif_load): Use it instead of `:image'.

---
 src/xfns.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/xfns.c b/src/xfns.c
index 6b23e246b2..2eddd37f17 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -5451,7 +5451,7 @@ Lisp_Object Qxbm;
 Lisp_Object QCtype, QCdata, QCfile, QCascent, QCmargin, QCrelief;
 extern Lisp_Object QCwidth, QCheight, QCforeground, QCbackground;
 Lisp_Object QCalgorithm, QCcolor_symbols, QCheuristic_mask;
-extern Lisp_Object QCimage;
+Lisp_Object QCindex;
 
 /* Other symbols.  */
 
@@ -8869,7 +8869,7 @@ gif_load (f, img)
       return 0;
     }
 
-  image = image_spec_value (img->spec, QCimage, NULL);
+  image = image_spec_value (img->spec, QCindex, NULL);
   ino = INTEGERP (image) ? XFASTINT (image) : 0;
   if (ino >= gif->ImageCount)
     {
@@ -10400,6 +10400,8 @@ Each element of the list is a symbol for a supported image type.");
   staticpro (&QCpt_width);
   QCpt_height = intern (":pt-height");
   staticpro (&QCpt_height);
+  QCindex = intern (":index");
+  staticpro (&QCindex);
   Qpbm = intern ("pbm");
   staticpro (&Qpbm);
 
-- 
2.39.2