Prefer selected_window to Fselected_window, likewise for frames.

* buffer.c (Fbuffer_swap_text):
* data.c (Fvariable_binding_locus):
* window.c (run_window_configuration_change_hook): Adjust users.
* w16select.c (Fw16_set_clipboard_data, Fw16_get_clipboard_data):
Use decode_live_frame.

diff --git a/src/ChangeLog b/src/ChangeLog
index a090e02e74a3e37af226661eac9a1c0234acd0d5..4f7646ea8355b685984053ac1f957b6566c84033 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,12 @@
+2013-08-07  Dmitry Antipov  <dmantipov@yandex.ru>
+
+       Prefer selected_window to Fselected_window, likewise for frames.
+       * buffer.c (Fbuffer_swap_text):
+       * data.c (Fvariable_binding_locus):
+       * window.c (run_window_configuration_change_hook): Adjust users.
+       * w16select.c (Fw16_set_clipboard_data, Fw16_get_clipboard_data):
+       Use decode_live_frame.
+
 2013-08-07  Dmitry Antipov  <dmantipov@yandex.ru>
 
        Be more careful if selected window shows the buffer other than current,

diff --git a/src/buffer.c b/src/buffer.c
index 339175d90783bab3bc9ec10aabb890127ae6df2a..ce4b44c87c34205d08335cbe0db8e017a8c0aea8 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -2409,7 +2409,7 @@ DEFUN ("buffer-swap-text", Fbuffer_swap_text, Sbuffer_swap_text,
        live window points to that window's buffer.  So since we
        just swapped the markers between the two buffers, we need
        to undo the effect of this swap for window markers.  */
-    Lisp_Object w = Fselected_window (), ws = Qnil;
+    Lisp_Object w = selected_window, ws = Qnil;
     Lisp_Object buf1, buf2;
     XSETBUFFER (buf1, current_buffer); XSETBUFFER (buf2, other_buffer);
 

diff --git a/src/data.c b/src/data.c
index ef3a6965779dd5c7f4b97198e6bed2cd10fda00a..9f4bd1f1c027da39d2edc79102e0bc8e38b9a533 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -1975,7 +1975,7 @@ If the current binding is global (the default), the value is nil.  */)
       {
        union Lisp_Fwd *valcontents = SYMBOL_FWD (sym);
        if (KBOARD_OBJFWDP (valcontents))
-         return Fframe_terminal (Fselected_frame ());
+         return Fframe_terminal (selected_frame);
        else if (!BUFFER_OBJFWDP (valcontents))
          return Qnil;
       }

diff --git a/src/w16select.c b/src/w16select.c
index 3bcc663e5650f810a284b120b322dea99a8446e5..864757b3e61f80b801b0121dda9c320b6d5bb7bd 100644 (file)
--- a/src/w16select.c
+++ b/src/w16select.c
@@ -452,11 +452,7 @@ DEFUN ("w16-set-clipboard-data", Fw16_set_clipboard_data, Sw16_set_clipboard_dat
 
   CHECK_STRING (string);
 
-  if (NILP (frame))
-    frame = Fselected_frame ();
-
-  CHECK_LIVE_FRAME (frame);
-  if ( !FRAME_MSDOS_P (XFRAME (frame)))
+  if (!FRAME_MSDOS_P (decode_live_frame (frame)))
     goto done;
 
   block_input ();
@@ -558,11 +554,7 @@ DEFUN ("w16-get-clipboard-data", Fw16_get_clipboard_data, Sw16_get_clipboard_dat
   Lisp_Object ret = Qnil;
   int require_decoding = 0;
 
-  if (NILP (frame))
-    frame = Fselected_frame ();
-
-  CHECK_LIVE_FRAME (frame);
-  if ( !FRAME_MSDOS_P (XFRAME (frame)))
+  if (!FRAME_MSDOS_P (decode_live_frame (frame)))
     goto done;
 
   block_input ();

diff --git a/src/window.c b/src/window.c
index dff449072f5a7c6b2de598c007ed5e8bd52ec895..118c58522758c16b22cfc8da0e59eb2228c0738b 100644 (file)
--- a/src/window.c
+++ b/src/window.c
@@ -3128,7 +3128,7 @@ run_window_configuration_change_hook (struct frame *f)
 
   if (SELECTED_FRAME () != f)
     {
-      record_unwind_protect (select_frame_norecord, Fselected_frame ());
+      record_unwind_protect (select_frame_norecord, selected_frame);
       select_frame_norecord (frame);
     }
 
@@ -3143,7 +3143,7 @@ run_window_configuration_change_hook (struct frame *f)
                                      buffer)))
          {
            ptrdiff_t inner_count = SPECPDL_INDEX ();
-           record_unwind_protect (select_window_norecord, Fselected_window ());
+           record_unwind_protect (select_window_norecord, selected_window);
            select_window_norecord (window);
            run_funs (Fbuffer_local_value (Qwindow_configuration_change_hook,
                                           buffer));