* nsterm.m (ns_set_vertical_scroll_bar, ns_redeem_scroll_bar)

  (EmacsWindow-accessibilityAttributeValue, EmacsScroller-initFrame:)
  (EmacsScroller-dealloc):  Adjust to use WVAR.  (Bug#12114)
* nsfns.m (ns_set_name_as_filename): Likewise.
* nsmenu.m (ns_update_menubar): Likewise.
* nsselect.m (symbol_to_nsstring): Adjust to use SVAR.

diff --git a/src/ChangeLog b/src/ChangeLog
index 14c785e..5558a5c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+2012-08-01  Alp Aker  <alp.tekin.aker@gmail.com>
+
+       * nsterm.m (ns_set_vertical_scroll_bar, ns_redeem_scroll_bar)
+       (EmacsWindow-accessibilityAttributeValue, EmacsScroller-initFrame:)
+       (EmacsScroller-dealloc):  Adjust to use WVAR.  (Bug#12114)
+       * nsfns.m (ns_set_name_as_filename): Likewise.
+       * nsmenu.m (ns_update_menubar): Likewise.
+       * nsselect.m (symbol_to_nsstring): Adjust to use SVAR.
+
 2012-08-01  Eli Zaretskii  <eliz@gnu.org>
 
        * .gdbinit (xcar, xcdr, xlist, xwindow, nextcons, xprintsym):

diff --git a/src/nsfns.m b/src/nsfns.m
index 3de78c0..af83958 100644 (file)
--- a/src/nsfns.m
+++ b/src/nsfns.m
@@ -607,7 +607,7 @@ ns_set_name_as_filename (struct frame *f)
 {
   NSView *view;
   Lisp_Object name, filename;
-  Lisp_Object buf = XWINDOW (FVAR (f, selected_window))->buffer;
+  Lisp_Object buf = WVAR (XWINDOW (FVAR (f, selected_window)), buffer);
   const char *title;
   NSAutoreleasePool *pool;
   struct gcpro gcpro1;

diff --git a/src/nsmenu.m b/src/nsmenu.m
index 86ffeec..9f1a43a 100644 (file)
--- a/src/nsmenu.m
+++ b/src/nsmenu.m
@@ -193,7 +193,7 @@ ns_update_menubar (struct frame *f, int deep_p, EmacsMenu *submenu)
        = alloca (previous_menu_items_used * sizeof *previous_items);
 
       /* lisp preliminaries */
-      buffer = XWINDOW (FRAME_SELECTED_WINDOW (f))->buffer;
+      buffer = WVAR (XWINDOW (FRAME_SELECTED_WINDOW (f)), buffer);
       specbind (Qinhibit_quit, Qt);
       specbind (Qdebug_on_next_call, Qnil);
       record_unwind_save_match_data ();

diff --git a/src/nsselect.m b/src/nsselect.m
index a4d91da..e8c3f85 100644 (file)
--- a/src/nsselect.m
+++ b/src/nsselect.m
@@ -62,7 +62,7 @@ symbol_to_nsstring (Lisp_Object sym)
   if (EQ (sym, QPRIMARY))     return NXPrimaryPboard;
   if (EQ (sym, QSECONDARY))   return NXSecondaryPboard;
   if (EQ (sym, QTEXT))        return NSStringPboardType;
-  return [NSString stringWithUTF8String: SSDATA (XSYMBOL (sym)->xname)];
+  return [NSString stringWithUTF8String: SSDATA (SVAR (XSYMBOL (sym), xname))];
 }
 
 static NSPasteboard *

diff --git a/src/nsterm.m b/src/nsterm.m
index f13ec27..48a3b75 100644 (file)
--- a/src/nsterm.m
+++ b/src/nsterm.m
@@ -3624,9 +3624,9 @@ ns_set_vertical_scroll_bar (struct window *window,
   EmacsScroller *bar;
 
   /* optimization; display engine sends WAY too many of these.. */
-  if (!NILP (window->vertical_scroll_bar))
+  if (!NILP (WVAR (window, vertical_scroll_bar)))
     {
-      bar = XNS_SCROLL_BAR (window->vertical_scroll_bar);
+      bar = XNS_SCROLL_BAR (WVAR (window, vertical_scroll_bar));
       if ([bar checkSamePosition: position portion: portion whole: whole])
         {
           if (view->scrollbarsNeedingUpdate == 0)
@@ -3674,27 +3674,27 @@ ns_set_vertical_scroll_bar (struct window *window,
   /* we want at least 5 lines to display a scrollbar */
   if (WINDOW_TOTAL_LINES (window) < 5)
     {
-      if (!NILP (window->vertical_scroll_bar))
+      if (!NILP (WVAR (window, vertical_scroll_bar)))
         {
-          bar = XNS_SCROLL_BAR (window->vertical_scroll_bar);
+          bar = XNS_SCROLL_BAR (WVAR (window, vertical_scroll_bar));
           [bar removeFromSuperview];
-          window->vertical_scroll_bar = Qnil;
+          WVAR (window, vertical_scroll_bar) = Qnil;
         }
       ns_clear_frame_area (f, sb_left, top, width, height);
       UNBLOCK_INPUT;
       return;
     }
 
-  if (NILP (window->vertical_scroll_bar))
+  if (NILP (WVAR (window, vertical_scroll_bar)))
     {
       ns_clear_frame_area (f, sb_left, top, width, height);
       bar = [[EmacsScroller alloc] initFrame: r window: win];
-      window->vertical_scroll_bar = make_save_value (bar, 0);
+      WVAR (window, vertical_scroll_bar) = make_save_value (bar, 0);
     }
   else
     {
       NSRect oldRect;
-      bar = XNS_SCROLL_BAR (window->vertical_scroll_bar);
+      bar = XNS_SCROLL_BAR (WVAR (window, vertical_scroll_bar));
       oldRect = [bar frame];
       r.size.width = oldRect.size.width;
       if (FRAME_LIVE_P (f) && !NSEqualRects (oldRect, r))
@@ -3741,9 +3741,9 @@ ns_redeem_scroll_bar (struct window *window)
 {
   id bar;
   NSTRACE (ns_redeem_scroll_bar);
-  if (!NILP (window->vertical_scroll_bar))
+  if (!NILP (WVAR (window, vertical_scroll_bar)))
     {
-      bar =XNS_SCROLL_BAR (window->vertical_scroll_bar);
+      bar = XNS_SCROLL_BAR (WVAR (window, vertical_scroll_bar));
       [bar reprieve];
     }
 }
@@ -6064,7 +6064,7 @@ ns_term_shutdown (int sig)
   Lisp_Object str = Qnil;
   struct frame *f = SELECTED_FRAME ();
   struct buffer *curbuf
-    = XBUFFER (XWINDOW (FVAR (f, selected_window))->buffer);
+    = XBUFFER (WVAR (XWINDOW (FVAR (f, selected_window)), buffer));
  
   if ([attribute isEqualToString:NSAccessibilityRoleAttribute])
     return NSAccessibilityTextFieldRole;
@@ -6239,7 +6239,7 @@ ns_term_shutdown (int sig)
   if (pixel_height == 0) pixel_height = 1;
   min_portion = 20 / pixel_height;
 
-  frame = XFRAME (XWINDOW (win)->frame);
+  frame = XFRAME (WVAR (XWINDOW (win), frame));
   if (FRAME_LIVE_P (frame))
     {
       int i;
@@ -6278,7 +6278,7 @@ ns_term_shutdown (int sig)
 {
   NSTRACE (EmacsScroller_dealloc);
   if (!NILP (win))
-    XWINDOW (win)->vertical_scroll_bar = Qnil;
+    WVAR (XWINDOW (win), vertical_scroll_bar) = Qnil;
   [super dealloc];
 }