(do_switch_frame): x_get_focus_frame needs an arg.

(Fredirect_frame_focus): frame_rehighlight_hook needs an arg.

diff --git a/src/frame.c b/src/frame.c
index b95f8a04e705c804060c512548b7ade4ac61e81c..ff6e7cd10ac22e59ce56de666fcc19f3b73bd02d 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -455,7 +455,7 @@ do_switch_frame (frame, no_enter, track)
     {
       Lisp_Object focus, xfocus;
 
-      xfocus = x_get_focus_frame ();
+      xfocus = x_get_focus_frame (XFRAME (frame));
       if (FRAMEP (xfocus))
        {
          focus = FRAME_FOCUS_FRAME (XFRAME (xfocus));
@@ -1411,7 +1411,7 @@ The redirection lasts until `redirect-frame-focus' is called to change it.")
 #endif
 
   if (frame_rehighlight_hook)
-    (*frame_rehighlight_hook) ();
+    (*frame_rehighlight_hook) (XFRAME (focus_frame));
   
   return Qnil;
 }