mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-29 08:31:35 -08:00
Code Issues Projects Releases Wiki Activity

(QCindex): New.

Browse source 
(syms_of_xfns): Initialize QCindex.
(gif_load): Use it instead of `:image'.
This commit is contained in:
Gerd Moellmann 1999-09-09 14:54:29 +00:00
parent 38b5e49776
commit 3ccff1e302
1 changed files with 4 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/xfns.c
View file

@ -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);