Mercurial > hg > xemacs-beta

comparison src/gui-x.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 ecf1ebac70d8
children 8f1ee2d15784
comparison
equal deleted inserted replaced
2551:9f70af3ac939 2552:166ed8151e62
109 109
110 void 110 void
111 gcpro_popup_callbacks (LWLIB_ID id) 111 gcpro_popup_callbacks (LWLIB_ID id)
112 { 112 {
113 Lisp_Object lid = make_int (id); 113 Lisp_Object lid = make_int (id);
114 Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks); 114 Lisp_Object this_callback = assq_no_quit (lid, Vpopup_callbacks);
115 115
116 if (!NILP (this)) 116 if (!NILP (this_callback))
117 { 117 {
118 free_list (XCDR (this)); 118 free_list (XCDR (this_callback));
119 XCDR (this) = snarf_widget_values_for_gcpro (id); 119 XCDR (this_callback) = snarf_widget_values_for_gcpro (id);
120 } 120 }
121 else 121 else
122 Vpopup_callbacks = Fcons (Fcons (lid, snarf_widget_values_for_gcpro (id)), 122 Vpopup_callbacks = Fcons (Fcons (lid, snarf_widget_values_for_gcpro (id)),
123 Vpopup_callbacks); 123 Vpopup_callbacks);
124 } 124 }
128 128
129 void 129 void
130 ungcpro_popup_callbacks (LWLIB_ID id) 130 ungcpro_popup_callbacks (LWLIB_ID id)
131 { 131 {
132 Lisp_Object lid = make_int (id); 132 Lisp_Object lid = make_int (id);
133 Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks); 133 Lisp_Object this_callback = assq_no_quit (lid, Vpopup_callbacks);
134 134
135 assert (!NILP (this)); 135 assert (!NILP (this_callback));
136 free_list (XCDR (this)); 136 free_list (XCDR (this_callback));
137 Vpopup_callbacks = delq_no_quit (this, Vpopup_callbacks); 137 Vpopup_callbacks = delq_no_quit (this_callback, Vpopup_callbacks);
138 } 138 }
139 139
140 int 140 int
141 popup_handled_p (LWLIB_ID id) 141 popup_handled_p (LWLIB_ID id)
142 { 142 {