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
c4c6d073
Commit
c4c6d073
authored
May 24, 1995
by
Karl Heuer
Browse files
(Fdelete_frame): When updating Vdefault_minibuffer_frame,
insist on a frame on the proper keyboard.
parent
0b60f47d
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
6 deletions
+10
-6
src/frame.c
src/frame.c
+10
-6
No files found.
src/frame.c
View file @
c4c6d073
...
...
@@ -1014,9 +1014,9 @@ but if the second optional argument FORCE is non-nil, you may do so.")
}
}
/* If we've deleted
V
default_minibuffer_frame, try to
find another
one. Prefer minibuffer-only frames, but also notice
frames
with other windows. */
/* If we've deleted
this keyboard's
default_minibuffer_frame, try to
find another
one. Prefer minibuffer-only frames, but also notice
frames
with other windows. */
if
(
EQ
(
frame
,
FRAME_KBOARD
(
f
)
->
Vdefault_minibuffer_frame
))
{
Lisp_Object
frames
;
...
...
@@ -1030,16 +1030,20 @@ but if the second optional argument FORCE is non-nil, you may do so.")
frames
=
XCONS
(
frames
)
->
cdr
)
{
Lisp_Object
this
;
struct
frame
*
f1
;
this
=
XCONS
(
frames
)
->
car
;
if
(
!
FRAMEP
(
this
))
abort
();
f
=
XFRAME
(
this
);
f
1
=
XFRAME
(
this
);
if
(
FRAME_HAS_MINIBUF_P
(
f
))
/* Consider only frames on the same kboard
and only those with minibuffers. */
if
(
FRAME_KBOARD
(
f
)
==
FRAME_KBOARD
(
f1
)
&&
FRAME_HAS_MINIBUF_P
(
f1
))
{
frame_with_minibuf
=
this
;
if
(
FRAME_MINIBUF_ONLY_P
(
f
))
if
(
FRAME_MINIBUF_ONLY_P
(
f
1
))
break
;
}
}
...
...
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