changeset 987:afb21e974ed2

* frame.c (make_frame): Stop passing zero to make_window; it's not expecting any arguments.
author Jim Blandy <jimb@redhat.com>
date Fri, 14 Aug 1992 02:31:41 +0000
parents 83605f96f58e
children 341171b49f96
files src/frame.c
diffstat 1 files changed, 34 insertions(+), 20 deletions(-) [+]
line wrap: on
line diff
--- a/src/frame.c	Fri Aug 14 02:31:04 1992 +0000
+++ b/src/frame.c	Fri Aug 14 02:31:41 1992 +0000
@@ -20,11 +20,11 @@
 #include <stdio.h>
 
 #include "config.h"
+#include "lisp.h"
+#include "frame.h"
 
 #ifdef MULTI_FRAME
 
-#include "lisp.h"
-#include "frame.h"
 #include "window.h"
 #include "termhooks.h"
 
@@ -153,10 +153,10 @@
 
   f->param_alist = Qnil;
 
-  root_window = make_window (0);
+  root_window = make_window ();
   if (mini_p)
     {
-      mini_window = make_window (0);
+      mini_window = make_window ();
       XWINDOW (root_window)->next = mini_window;
       XWINDOW (mini_window)->prev = root_window;
       XWINDOW (mini_window)->mini_p = Qt;
@@ -1327,8 +1327,20 @@
 
 #else /* not MULTI_SCREEN */
 
-/* If we're not using multi-frame stuff, we still need to provide 
-   some support functions.  These were present in Emacs 18.  */
+/* If we're not using multi-frame stuff, we still need to provide some
+   support functions.  */
+
+/* Unless this function is defined, providing set-frame-height and
+   set-frame-width doesn't help compatibility any, since they both
+   want this as their first argument.  */
+DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0,
+  "Return the frame that is now selected.")
+  ()
+{
+  Lisp_Object tem;
+  XFASTINT (tem) = 0;
+  return tem;
+}
 
 DEFUN ("set-frame-height", Fset_frame_height, Sset_frame_height, 2, 3, 0,
   "Specify that the frame FRAME has LINES lines.\n\
@@ -1369,6 +1381,22 @@
   return Qnil;
 }
 
+DEFUN ("frame-height", Fframe_height, Sframe_height, 0, 0, 0,
+  "Return number of lines available for display on selected frame.")
+  ()
+{
+  return make_number (FRAME_HEIGHT (selected_frame));
+}
+
+DEFUN ("frame-width", Fframe_width, Sframe_width, 0, 0, 0,
+  "Return number of columns available for display on selected frame.")
+  ()
+{
+  return make_number (FRAME_WIDTH (selected_frame));
+}
+
+/* These are for backward compatibility with Emacs 18.  */
+
 DEFUN ("set-screen-height", Fset_screen_height, Sset_screen_height, 1, 2, 0,
   "Tell redisplay that the screen has LINES lines.\n\
 Optional second arg non-nil means that redisplay should use LINES lines\n\
@@ -1395,20 +1423,6 @@
   return Qnil;
 }
 
-DEFUN ("frame-height", Fframe_height, Sframe_height, 0, 0, 0,
-  "Return number of lines available for display on selected frame.")
-  ()
-{
-  return make_number (FRAME_HEIGHT (selected_frame));
-}
-
-DEFUN ("frame-width", Fframe_width, Sframe_width, 0, 0, 0,
-  "Return number of columns available for display on selected frame.")
-  ()
-{
-  return make_number (FRAME_WIDTH (selected_frame));
-}
-
 syms_of_frame ()
 {
   defsubr (&Sset_frame_height);