Mercurial > hg > xemacs-beta
comparison src/glyphs-x.c @ 44:8d2a9b52c682 r19-15prefinal
Import from CVS: tag r19-15prefinal
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:55:10 +0200 |
parents | 1a767b41a199 |
children | 56c54cf7c5b6 |
comparison
equal
deleted
inserted
replaced
43:23cafc5d2038 | 44:8d2a9b52c682 |
---|---|
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); |
2972 } | 2973 } |
2973 | 2974 |
2974 static Lisp_Object | 2975 static Lisp_Object |
2975 xface_normalize (Lisp_Object inst, Lisp_Object console_type) | 2976 xface_normalize (Lisp_Object inst, Lisp_Object console_type) |
2976 { | 2977 { |
2978 /* This funcation can call lisp */ | |
2977 Lisp_Object file = Qnil, mask_file = Qnil; | 2979 Lisp_Object file = Qnil, mask_file = Qnil; |
2978 struct gcpro gcpro1, gcpro2, gcpro3; | 2980 struct gcpro gcpro1, gcpro2, gcpro3; |
2979 Lisp_Object alist = Qnil; | 2981 Lisp_Object alist = Qnil; |
2980 | 2982 |
2981 GCPRO3 (file, mask_file, alist); | 2983 GCPRO3 (file, mask_file, alist); |