aboutsummaryrefslogtreecommitdiffstats
path: root/src/editfns.c
diff options
context:
space:
mode:
authorDmitry Antipov2012-08-06 14:24:26 +0400
committerDmitry Antipov2012-08-06 14:24:26 +0400
commit077288cf3f654776ee44bc9b56954c4e26b10d96 (patch)
tree00bbcb4dab9c879efde73a01786977b1c1364f67 /src/editfns.c
parent71688bd7f9169c12ea8be54e084470f19d44ce44 (diff)
downloademacs-077288cf3f654776ee44bc9b56954c4e26b10d96.tar.gz
emacs-077288cf3f654776ee44bc9b56954c4e26b10d96.zip
Separate read and write access to Lisp_Object slots of struct window.
* window.h (WGET, WSET): New macros similar to AREF and ASET. * alloc.c, buffer.c, composite.c, dispextern.h, dispnew.c, editfns.c: * fileio.c, font.c, fontset.c, frame.c, frame.h, fringe.c, indent.c: * insdel.c, keyboard.c, keymap.c, lisp.h, minibuf.c, msdos.c, nsfns.m: * nsmenu.m, nsterm.m, print.c, textprop.c, w32fns.c, w32menu.c: * w32term.c, window.c, xdisp.c, xfaces.c, xfns.c, xmenu.c, xterm.c: Adjust users.
Diffstat (limited to 'src/editfns.c')
-rw-r--r--src/editfns.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/editfns.c b/src/editfns.c
index f86b4c12f58..f86e66928f2 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -366,7 +366,7 @@ get_pos_property (Lisp_Object position, register Lisp_Object prop, Lisp_Object o
366 if (NILP (object)) 366 if (NILP (object))
367 XSETBUFFER (object, current_buffer); 367 XSETBUFFER (object, current_buffer);
368 else if (WINDOWP (object)) 368 else if (WINDOWP (object))
369 object = WVAR (XWINDOW (object), buffer); 369 object = WGET (XWINDOW (object), buffer);
370 370
371 if (!BUFFERP (object)) 371 if (!BUFFERP (object))
372 /* pos-property only makes sense in buffers right now, since strings 372 /* pos-property only makes sense in buffers right now, since strings
@@ -821,7 +821,7 @@ This function does not move point. */)
821Lisp_Object 821Lisp_Object
822save_excursion_save (void) 822save_excursion_save (void)
823{ 823{
824 int visible = (XBUFFER (WVAR (XWINDOW (selected_window), buffer)) 824 int visible = (XBUFFER (WGET (XWINDOW (selected_window), buffer))
825 == current_buffer); 825 == current_buffer);
826 826
827 return Fcons (Fpoint_marker (), 827 return Fcons (Fpoint_marker (),
@@ -874,7 +874,7 @@ save_excursion_restore (Lisp_Object info)
874 and cleaner never to alter the window/buffer connections. */ 874 and cleaner never to alter the window/buffer connections. */
875 tem1 = Fcar (tem); 875 tem1 = Fcar (tem);
876 if (!NILP (tem1) 876 if (!NILP (tem1)
877 && current_buffer != XBUFFER (WVAR (XWINDOW (selected_window), buffer))) 877 && current_buffer != XBUFFER (WGET (XWINDOW (selected_window), buffer)))
878 Fswitch_to_buffer (Fcurrent_buffer (), Qnil); 878 Fswitch_to_buffer (Fcurrent_buffer (), Qnil);
879#endif /* 0 */ 879#endif /* 0 */
880 880
@@ -907,7 +907,7 @@ save_excursion_restore (Lisp_Object info)
907 tem = XCDR (info); 907 tem = XCDR (info);
908 if (visible_p 908 if (visible_p
909 && !EQ (tem, selected_window) 909 && !EQ (tem, selected_window)
910 && (tem1 = WVAR (XWINDOW (tem), buffer), 910 && (tem1 = WGET (XWINDOW (tem), buffer),
911 (/* Window is live... */ 911 (/* Window is live... */
912 BUFFERP (tem1) 912 BUFFERP (tem1)
913 /* ...and it shows the current buffer. */ 913 /* ...and it shows the current buffer. */