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
7253d8e0
Commit
7253d8e0
authored
Jul 21, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
151bdc83
Changes
2
Show whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
14 additions
and
3 deletions
+14
-3
lisp/frame.el
lisp/frame.el
+1
-1
src/xdisp.c
src/xdisp.c
+13
-2
No files found.
lisp/frame.el
View file @
7253d8e0
...
...
@@ -141,7 +141,7 @@ These supercede the values given in default-frame-alist.")
;;; Return some frame other than the current frame,
;;; creating one if neccessary. Note that the minibuffer frame, if
;;; separate, is not considered (see next-frame).
(
defun
get-frame
()
(
defun
get-
other-
frame
()
(
let
((
s
(
if
(
equal
(
next-frame
(
selected-frame
))
(
selected-frame
))
(
new-frame
)
(
next-frame
(
selected-frame
)))))
...
...
src/xdisp.c
View file @
7253d8e0
...
...
@@ -193,7 +193,12 @@ message (m, a1, a2, a3)
else
if
(
INTERACTIVE
&&
FRAME_MESSAGE_BUF
(
selected_frame
))
{
#ifdef MULTI_FRAME
Lisp_Object
minibuf_frame
;
choose_minibuf_frame
();
minibuf_frame
=
WINDOW_FRAME
(
XWINDOW
(
minibuf_window
));
if
(
FRAME_VISIBLE_P
(
selected_frame
)
&&
!
FRAME_VISIBLE_P
(
XFRAME
(
minibuf_frame
)))
Fmake_frame_visible
(
WINDOW_FRAME
(
XWINDOW
(
minibuf_window
)));
#endif
...
...
@@ -244,7 +249,12 @@ message1 (m)
else
if
(
INTERACTIVE
&&
FRAME_MESSAGE_BUF
(
selected_frame
))
{
#ifdef MULTI_FRAME
Lisp_Object
minibuf_frame
;
choose_minibuf_frame
();
minibuf_frame
=
WINDOW_FRAME
(
XWINDOW
(
minibuf_window
));
if
(
FRAME_VISIBLE_P
(
selected_frame
)
&&
!
FRAME_VISIBLE_P
(
XFRAME
(
minibuf_frame
)))
Fmake_frame_visible
(
WINDOW_FRAME
(
XWINDOW
(
minibuf_window
)));
#endif
...
...
@@ -1771,6 +1781,7 @@ display_mode_line (w)
if
(
FRAME_IS_X
(
f
)
&&
!
FRAME_MINIBUF_ONLY_P
(
f
)
&&
w
==
XWINDOW
(
f
->
selected_window
)
&&
XINT
(
Flength
(
Vframe_list
))
>
1
&&
(
NILP
(
Fstring_equal
(
XBUFFER
(
w
->
buffer
)
->
name
,
f
->
name
))))
x_set_name
(
f
,
XBUFFER
(
w
->
buffer
)
->
name
,
Qnil
);
#endif
...
...
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