Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/gui-x.c	Thu Feb 03 16:14:08 2005 +0000
+++ b/src/gui-x.c	Thu Feb 03 16:30:38 2005 +0000
@@ -111,12 +111,12 @@
 gcpro_popup_callbacks (LWLIB_ID id)
 {
   Lisp_Object lid = make_int (id);
-  Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks);
+  Lisp_Object this_callback = assq_no_quit (lid, Vpopup_callbacks);
 
-  if (!NILP (this))
+  if (!NILP (this_callback))
     {
-      free_list (XCDR (this));
-      XCDR (this) = snarf_widget_values_for_gcpro (id);
+      free_list (XCDR (this_callback));
+      XCDR (this_callback) = snarf_widget_values_for_gcpro (id);
     }
   else
     Vpopup_callbacks = Fcons (Fcons (lid, snarf_widget_values_for_gcpro (id)),
@@ -130,11 +130,11 @@
 ungcpro_popup_callbacks (LWLIB_ID id)
 {
   Lisp_Object lid = make_int (id);
-  Lisp_Object this = assq_no_quit (lid, Vpopup_callbacks);
+  Lisp_Object this_callback = assq_no_quit (lid, Vpopup_callbacks);
 
-  assert (!NILP (this));
-  free_list (XCDR (this));
-  Vpopup_callbacks = delq_no_quit (this, Vpopup_callbacks);
+  assert (!NILP (this_callback));
+  free_list (XCDR (this_callback));
+  Vpopup_callbacks = delq_no_quit (this_callback, Vpopup_callbacks);
 }
 
 int