Move Flast_nonminibuf_frame from dispnew.c to frame.c.

* dispnew.c (Flast_nonminibuf_frame): Move from here ...
* frame.c (Flast_nonminibuf_frame): ... to here.

diff --git a/src/ChangeLog b/src/ChangeLog
index 2507f898c5a649c16814573fc846a69652c47084..d2e80ace3e4c5943db2df8a216fb102f1cc6ab00 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -8,8 +8,10 @@
 
 2013-09-02  Martin Rudalics  <rudalics@gmx.at>
 
-       * frame.c (check_minibuf_window): Don't abort if no window was
-       found (Bug#15247).
+       * dispnew.c (Flast_nonminibuf_frame): Move from here ...
+       * frame.c (Flast_nonminibuf_frame): ... to here.
+       (check_minibuf_window): Don't abort if no window was found
+       (Bug#15247).
 
 2013-09-02  Dmitry Antipov  <dmantipov@yandex.ru>
 

diff --git a/src/dispnew.c b/src/dispnew.c
index 0e336d4feeab944d090f7a6298260c641ccafc8d..1d7cad13e6dac414a6fbe2d301c7e1de2ed04143 100644 (file)
--- a/src/dispnew.c
+++ b/src/dispnew.c
@@ -6172,19 +6172,6 @@ WINDOW nil or omitted means report on the selected window.  */)
 {
   return decode_any_window (window)->cursor_off_p ? Qnil : Qt;
 }
-
-DEFUN ("last-nonminibuffer-frame", Flast_nonminibuf_frame,
-       Slast_nonminibuf_frame, 0, 0, 0,
-       doc: /* Value is last nonminibuffer frame. */)
-  (void)
-{
-  Lisp_Object frame = Qnil;
-
-  if (last_nonminibuf_frame)
-    XSETFRAME (frame, last_nonminibuf_frame);
-
-  return frame;
-}
 \f
 /***********************************************************************
                            Initialization
@@ -6203,7 +6190,6 @@ syms_of_display (void)
   defsubr (&Ssend_string_to_terminal);
   defsubr (&Sinternal_show_cursor);
   defsubr (&Sinternal_show_cursor_p);
-  defsubr (&Slast_nonminibuf_frame);
 
 #ifdef GLYPH_DEBUG
   defsubr (&Sdump_redisplay_history);

diff --git a/src/frame.c b/src/frame.c
index e33426c2a44f7527fb8c4436940139ed0c64f59d..d11a6b8fee9fdcb30d9450a5ef03132609e3d6fb 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -1078,6 +1078,19 @@ Otherwise, include all frames.  */)
   CHECK_LIVE_FRAME (frame);
   return prev_frame (frame, miniframe);
 }
+
+DEFUN ("last-nonminibuffer-frame", Flast_nonminibuf_frame,
+       Slast_nonminibuf_frame, 0, 0, 0,
+       doc: /* Return last non-minibuffer frame selected. */)
+  (void)
+{
+  Lisp_Object frame = Qnil;
+
+  if (last_nonminibuf_frame)
+    XSETFRAME (frame, last_nonminibuf_frame);
+
+  return frame;
+}
 \f
 /* Return 1 if it is ok to delete frame F;
    0 if all frames aside from F are invisible.
@@ -4492,6 +4505,7 @@ automatically.  See also `mouse-autoselect-window'.  */);
   defsubr (&Sframe_list);
   defsubr (&Snext_frame);
   defsubr (&Sprevious_frame);
+  defsubr (&Slast_nonminibuf_frame);
   defsubr (&Sdelete_frame);
   defsubr (&Smouse_position);
   defsubr (&Smouse_pixel_position);