Mercurial > hg > xemacs-beta
comparison src/glyphs-x.c @ 116:9f59509498e1 r20-1b10
Import from CVS: tag r20-1b10
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:23:06 +0200 |
parents | 8619ce7e4c50 |
children | cca96a509cfe |
comparison
equal
deleted
inserted
replaced
115:f109f7dabbe2 | 116:9f59509498e1 |
---|---|
385 | 385 |
386 static Lisp_Object | 386 static Lisp_Object |
387 simple_image_type_normalize (Lisp_Object inst, Lisp_Object console_type, | 387 simple_image_type_normalize (Lisp_Object inst, Lisp_Object console_type, |
388 Lisp_Object image_type_tag) | 388 Lisp_Object image_type_tag) |
389 { | 389 { |
390 /* This function can call lisp */ | |
390 Lisp_Object file = Qnil; | 391 Lisp_Object file = Qnil; |
391 struct gcpro gcpro1, gcpro2; | 392 struct gcpro gcpro1, gcpro2; |
392 Lisp_Object alist = Qnil; | 393 Lisp_Object alist = Qnil; |
393 | 394 |
394 GCPRO2 (file, alist); | 395 GCPRO2 (file, alist); |
2974 } | 2975 } |
2975 | 2976 |
2976 static Lisp_Object | 2977 static Lisp_Object |
2977 xface_normalize (Lisp_Object inst, Lisp_Object console_type) | 2978 xface_normalize (Lisp_Object inst, Lisp_Object console_type) |
2978 { | 2979 { |
2980 /* This funcation can call lisp */ | |
2979 Lisp_Object file = Qnil, mask_file = Qnil; | 2981 Lisp_Object file = Qnil, mask_file = Qnil; |
2980 struct gcpro gcpro1, gcpro2, gcpro3; | 2982 struct gcpro gcpro1, gcpro2, gcpro3; |
2981 Lisp_Object alist = Qnil; | 2983 Lisp_Object alist = Qnil; |
2982 | 2984 |
2983 GCPRO3 (file, mask_file, alist); | 2985 GCPRO3 (file, mask_file, alist); |