Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
6e18b6c2
Commit
6e18b6c2
authored
Jan 05, 1995
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
[!MULTI_FRAME] (window_frame): New function.
[!MULTI_FRAME] (syms_of_frame): defsubr it.
parent
165d7ff4
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
15 additions
and
0 deletions
+15
-0
src/frame.c
src/frame.c
+15
-0
No files found.
src/frame.c
View file @
6e18b6c2
...
...
@@ -1890,6 +1890,20 @@ DEFUN ("selected-frame", Fselected_frame, Sselected_frame, 0, 0, 0,
return
tem
;
}
DEFUN
(
"window-frame"
,
Fwindow_frame
,
Swindow_frame
,
1
,
1
,
0
,
/* Don't confuse make-docfile by having two doc strings for this function.
make-docfile does not pay attention to #if, for good reason! */
0
)
(
window
)
Lisp_Object
window
;
{
/* For your possible information, this code is unfolded into the
second WINDOW_FRAME in frame.h. */
Lisp_Object
tem
;
XSETFASTINT
(
tem
,
0
);
return
tem
;
}
DEFUN
(
"frame-first-window"
,
Fframe_first_window
,
Sframe_first_window
,
0
,
1
,
0
,
0
)
(
frame
)
...
...
@@ -2201,6 +2215,7 @@ syms_of_frame ()
XSETFASTINT
(
Vterminal_frame
,
0
);
defsubr
(
&
Sselected_frame
);
defsubr
(
&
Swindow_frame
);
defsubr
(
&
Sframe_first_window
);
defsubr
(
&
Sframep
);
defsubr
(
&
Sframe_char_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