Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
87527026
Commit
87527026
authored
Oct 17, 2008
by
Martin Rudalics
Browse files
(Fsplit_window): Rename arg horflag to horizontal.
parent
ac62ec16
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
11 deletions
+14
-11
src/ChangeLog
src/ChangeLog
+4
-0
src/window.c
src/window.c
+10
-11
No files found.
src/ChangeLog
View file @
87527026
2008-10-17 Martin Rudalics <rudalics@gmx.at>
* window.c (Fsplit_window): Rename arg horflag to horizontal.
2008-10-17 Kenichi Handa <handa@m17n.org>
* ftfont.c (ftfont_otf_features): Fix indexing
...
...
src/window.c
View file @
87527026
...
...
@@ -3732,18 +3732,17 @@ make_dummy_parent (window)
DEFUN ("split-window", Fsplit_window, Ssplit_window, 0, 3, "",
doc: /* Split WINDOW, putting SIZE lines in the first of the pair.
WINDOW defaults to selected one and SIZE to half its size.
If optional third arg HOR
FLAG
is non-nil, split side by side
and put
SIZE columns in the first of the pair. In that case,
SIZE includes that
window's scroll bar, or the divider column to its right.
If optional third arg HOR
IZONTAL
is non-nil, split side by side
and put
SIZE columns in the first of the pair. In that case,
SIZE includes that
window's scroll bar, or the divider column to its right.
Interactively, all arguments are nil.
Returns the newly created window (which is the lower or rightmost one).
The upper or leftmost window is the original one, and remains selected
if it was selected before.
See Info node `(elisp)Splitting Windows' for more details and examples.*/
)
(
window
,
size
,
hor
flag
)
Lisp_Object
window
,
size
,
hor
flag
;
See Info node `(elisp)Splitting Windows' for more details and examples.
*/)
(window, size, hor
izontal
)
Lisp_Object window, size, hor
izontal
;
{
register Lisp_Object new;
register struct window *o, *p;
...
...
@@ -3760,7 +3759,7 @@ See Info node `(elisp)Splitting Windows' for more details and examples.*/)
if (NILP (size))
{
if
(
!
NILP
(
hor
flag
))
if (!NILP (hor
izontal
))
/* Calculate the size of the left-hand window, by dividing
the usable space in columns by two.
We round up, since the left-hand window may include
...
...
@@ -3777,10 +3776,10 @@ See Info node `(elisp)Splitting Windows' for more details and examples.*/)
if (MINI_WINDOW_P (o))
error ("Attempt to split minibuffer window");
else
if
(
window_fixed_size_p
(
o
,
!
NILP
(
hor
flag
),
0
))
else if (window_fixed_size_p (o, !NILP (hor
izontal
), 0))
error ("Attempt to split fixed-size window");
if
(
NILP
(
hor
flag
))
if (NILP (hor
izontal
))
{
int window_safe_height = window_min_size_2 (o, 0, 0);
...
...
@@ -3847,7 +3846,7 @@ See Info node `(elisp)Splitting Windows' for more details and examples.*/)
/* Apportion the available frame space among the two new windows */
if
(
!
NILP
(
hor
flag
))
if (!NILP (hor
izontal
))
{
p->total_lines = o->total_lines;
p->top_line = o->top_line;
...
...
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