Mercurial > hg > xemacs-beta

comparison src/gui-gtk.c @ 2552:166ed8151e62

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-02-03 16:30:33 by james] Don't define this to c_this, and rename variables currently named this. See xemacs-patches message with ID <psbrb1ehjl.fsf@diannao.ittc.ku.edu>.
author james
date Thu, 03 Feb 2005 16:30:38 +0000
parents 95fee4a1420e
children 308d34e9f07d
comparison
equal deleted inserted replaced
2551:9f70af3ac939 2552:166ed8151e62
55 55
56 void 56 void
57 ungcpro_popup_callbacks (GUI_ID id) 57 ungcpro_popup_callbacks (GUI_ID id)
58 { 58 {
59 Lisp_Object lid = make_int (id); 59 Lisp_Object lid = make_int (id);
60 Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks); 60 Lisp_Object this_callback = assq_no_quit (lid, Vpopup_callbacks);
61 Vpopup_callbacks = delq_no_quit (this, Vpopup_callbacks); 61 Vpopup_callbacks = delq_no_quit (this_callback, Vpopup_callbacks);
62 } 62 }
63 63
64 Lisp_Object 64 Lisp_Object
65 get_gcpro_popup_callbacks (GUI_ID id) 65 get_gcpro_popup_callbacks (GUI_ID id)
66 { 66 {
67 Lisp_Object lid = make_int (id); 67 Lisp_Object lid = make_int (id);
68 Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks); 68 Lisp_Object this_callback = assq_no_quit (lid, Vpopup_callbacks);
69 69
70 if (!NILP (this)) 70 if (!NILP (this_callback))
71 { 71 {
72 return (XCDR (this)); 72 return (XCDR (this_callback));
73 } 73 }
74 return (Qnil); 74 return (Qnil);
75 } 75 }
76 76
77 void 77 void