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
fbdc1545
Commit
fbdc1545
authored
Jul 23, 1995
by
Richard M. Stallman
Browse files
(Fprevious_window, Fnext_window): When minibuf = nil,
accept only the minibuffer window that is currently active.
parent
3be3c08e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
25 additions
and
11 deletions
+25
-11
src/window.c
src/window.c
+25
-11
No files found.
src/window.c
View file @
fbdc1545
...
...
@@ -916,12 +916,17 @@ DEFUN ("next-window", Fnext_window, Snext_window, 0, 3, 0,
/* minibuf == nil may or may not include minibuffers.
Decide if it does. */
if
(
NILP
(
minibuf
))
minibuf
=
(
minibuf_level
?
Qt
:
Qlambda
);
minibuf
=
(
minibuf_level
?
minibuf_window
:
Qlambda
);
else
if
(
!
EQ
(
minibuf
,
Qt
))
minibuf
=
Qlambda
;
/* Now minibuf can be t => count all minibuffer windows,
lambda => count none of them,
or a specific minibuffer window (the active one) to count. */
#ifdef MULTI_FRAME
/* all_frames == nil doesn't specify which frames to include. */
if
(
NILP
(
all_frames
))
all_frames
=
(
EQ
(
minibuf
,
Q
t
)
all_frames
=
(
!
EQ
(
minibuf
,
Q
lambda
)
?
(
FRAME_MINIBUF_WINDOW
(
XFRAME
(
WINDOW_FRAME
...
...
@@ -994,11 +999,13 @@ DEFUN ("next-window", Fnext_window, Snext_window, 0, 3, 0,
}
/* Which windows are acceptible?
Exit the loop and accept this window if
this isn't a minibuffer window, or
we're accepting minibuffer windows, or
this isn't a minibuffer window,
or we're accepting all minibuffer windows,
or this is the active minibuffer and we are accepting that one, or
we've come all the way around and we're back at the original window. */
while
(
MINI_WINDOW_P
(
XWINDOW
(
window
))
&&
!
EQ
(
minibuf
,
Qt
)
&&
!
EQ
(
minibuf
,
window
)
&&
!
EQ
(
window
,
start_window
));
return
window
;
...
...
@@ -1055,13 +1062,18 @@ DEFUN ("previous-window", Fprevious_window, Sprevious_window, 0, 3, 0,
/* minibuf == nil may or may not include minibuffers.
Decide if it does. */
if
(
NILP
(
minibuf
))
minibuf
=
(
minibuf_level
?
Qt
:
Qlambda
);
minibuf
=
(
minibuf_level
?
minibuf_window
:
Qlambda
);
else
if
(
!
EQ
(
minibuf
,
Qt
))
minibuf
=
Qlambda
;
/* Now minibuf can be t => count all minibuffer windows,
lambda => count none of them,
or a specific minibuffer window (the active one) to count. */
#ifdef MULTI_FRAME
/* all_frames == nil doesn't specify which frames to include.
Decide which frames it includes. */
if
(
NILP
(
all_frames
))
all_frames
=
(
EQ
(
minibuf
,
Q
t
)
all_frames
=
(
!
EQ
(
minibuf
,
Q
lambda
)
?
(
FRAME_MINIBUF_WINDOW
(
XFRAME
(
WINDOW_FRAME
...
...
@@ -1147,14 +1159,16 @@ DEFUN ("previous-window", Fprevious_window, Sprevious_window, 0, 3, 0,
window
=
tem
;
}
}
/* Which windows are accept
a
ble?
/* Which windows are accept
i
ble?
Exit the loop and accept this window if
this isn't a minibuffer window, or
we're accepting minibuffer windows, or
this isn't a minibuffer window,
or we're accepting all minibuffer windows,
or this is the active minibuffer and we are accepting that one, or
we've come all the way around and we're back at the original window. */
while
(
MINI_WINDOW_P
(
XWINDOW
(
window
))
&&
!
EQ
(
minibuf
,
Qt
)
&&
!
EQ
(
window
,
start_window
));
&&
!
EQ
(
minibuf
,
Qt
)
&&
!
EQ
(
minibuf
,
window
)
&&
!
EQ
(
window
,
start_window
));
return
window
;
}
...
...
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