diff options
| author | Dmitry Antipov | 2012-08-06 14:24:26 +0400 |
|---|---|---|
| committer | Dmitry Antipov | 2012-08-06 14:24:26 +0400 |
| commit | 077288cf3f654776ee44bc9b56954c4e26b10d96 (patch) | |
| tree | 00bbcb4dab9c879efde73a01786977b1c1364f67 /src/editfns.c | |
| parent | 71688bd7f9169c12ea8be54e084470f19d44ce44 (diff) | |
| download | emacs-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.c | 8 |
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. */) | |||
| 821 | Lisp_Object | 821 | Lisp_Object |
| 822 | save_excursion_save (void) | 822 | save_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. */ |