comparison src/keymap.c @ 970:0dc7756a58c4

[xemacs-hg @ 2002-08-22 11:31:39 by stephent] fix GCPRO in do_autoload <871y8rnndk.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 22 Aug 2002 11:31:43 +0000
parents c925bacdda60
children e22b0213b713
comparison
equal deleted inserted replaced
969:d41e92ee6d12 970:0dc7756a58c4
1040 && SYMBOLP (object) 1040 && SYMBOLP (object)
1041 && CONSP (tem) 1041 && CONSP (tem)
1042 && EQ (XCAR (tem), Qautoload) 1042 && EQ (XCAR (tem), Qautoload)
1043 && EQ (Fcar (Fcdr (Fcdr (Fcdr (Fcdr (tem))))), Qkeymap)) 1043 && EQ (Fcar (Fcdr (Fcdr (Fcdr (Fcdr (tem))))), Qkeymap))
1044 { 1044 {
1045 struct gcpro gcpro1, gcpro2; 1045 /* do_autoload GCPROs both arguments */
1046 GCPRO2 (tem, object);
1047 do_autoload (tem, object); 1046 do_autoload (tem, object);
1048 UNGCPRO;
1049 } 1047 }
1050 else if (errorp) 1048 else if (errorp)
1051 object = wrong_type_argument (Qkeymapp, object); 1049 object = wrong_type_argument (Qkeymapp, object);
1052 else 1050 else
1053 return Qnil; 1051 return Qnil;