Mercurial > emacs

changeset 25670:728844445e1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(SELECTED_FRAME): New.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 13 Sep 1999 11:13:35 +0000
parents 97d5951366cd
children 1406380bf1e6
files src/frame.h
diffstat 1 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/frame.h	Mon Sep 13 11:13:32 1999 +0000
+++ b/src/frame.h	Mon Sep 13 11:13:35 1999 +0000
@@ -615,7 +615,6 @@
 
 extern Lisp_Object Qframep, Qframe_live_p, Qicon;
 
-extern struct frame *selected_frame;
 extern struct frame *last_nonminibuf_frame;
 
 extern struct frame *make_terminal_frame P_ ((void));
@@ -655,6 +654,18 @@
      
 #define WINDOW_VERTICAL_SCROLL_BAR_HEIGHT(w) (window_internal_height (w))
 
+/* The currently selected frame.  */
+
+extern Lisp_Object selected_frame;
+
+/* Value is a pointer to the selected frame.  If the selected frame
+   isn't life, abort.  */
+
+#define SELECTED_FRAME()				\
+     ((FRAMEP (selected_frame)				\
+       && FRAME_LIVE_P (XFRAME (selected_frame)))	\
+      ? XFRAME (selected_frame)				\
+      : (struct frame *) (abort (), 0))
 
 
 /***********************************************************************