Mercurial > hg > xemacs-beta
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; |