From: Andreas Politz <politza@hochschule-trier.de>
Date: Sun, 29 Sep 2013 08:33:23 +0000 (+0200)
Subject: In delete_frame record selected frame only after calling Qdelete_frame_functions... 
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1430
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d3e2acb659b1ff5a7e71bceb960af75f33a9ee39;p=emacs.git

In delete_frame record selected frame only after calling Qdelete_frame_functions (Bug#15477).

* frame.c (delete_frame): Record selected frame only after
calling Qdelete_frame_functions (Bug#15477).
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 4c298873dcc..0316ca1d2f2 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-29  Andreas Politz  <politza@hochschule-trier.de>  (tiny change)
+
+	* frame.c (delete_frame): Record selected frame only after
+	calling Qdelete_frame_functions (Bug#15477).
+
 2013-09-28  Jan Djärv  <jan.h.d@swipnet.se>
 
 	* nsterm.m (ns_selection_color): Remove.
diff --git a/src/frame.c b/src/frame.c
index 2e90713b6c3..f7ba23401ce 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1190,7 +1190,7 @@ Lisp_Object
 delete_frame (Lisp_Object frame, Lisp_Object force)
 {
   struct frame *f = decode_any_frame (frame);
-  struct frame *sf = SELECTED_FRAME ();
+  struct frame *sf;
   struct kboard *kb;
 
   int minibuffer_selected, is_tooltip_frame;
@@ -1265,7 +1265,7 @@ delete_frame (Lisp_Object frame, Lisp_Object force)
      There is no more chance for errors to prevent it.  */
 
   minibuffer_selected = EQ (minibuf_window, selected_window);
-
+  sf = SELECTED_FRAME ();
   /* Don't let the frame remain selected.  */
   if (f == sf)
     {