Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
cc38027b
Commit
cc38027b
authored
Aug 14, 1992
by
Jim Blandy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* frame.c (make_frame): Stop passing zero to make_window; it's not
expecting any arguments.
parent
190721ac
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
34 additions
and
20 deletions
+34
-20
src/frame.c
src/frame.c
+34
-20
No files found.
src/frame.c
View file @
cc38027b
...
...
@@ -20,11 +20,11 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#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 @@ make_frame (mini_p)
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 @@ For values specific to the separate minibuffer frame, see\n\
#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 @@ DEFUN ("set-frame-size", Fset_frame_size, Sset_frame_size, 3, 3, 0,
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 @@ but that the idea of the actual width of the screen should not be changed.")
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
);
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment