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
ff58478b
Commit
ff58478b
authored
Jan 02, 1996
by
Richard M. Stallman
Browse files
(replace_buffer_in_all_windows): New function.
Like Freplace_buffer_in_windows but really does all frames.
parent
00550f94
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
30 additions
and
0 deletions
+30
-0
src/window.c
src/window.c
+30
-0
No files found.
src/window.c
View file @
ff58478b
...
...
@@ -1624,6 +1624,36 @@ DEFUN ("replace-buffer-in-windows", Freplace_buffer_in_windows,
}
return
Qnil
;
}
/* Replace BUFFER with some other buffer in all windows
of all frames, even those on other keyboards. */
void
replace_buffer_in_all_windows
(
buffer
)
Lisp_Object
buffer
;
{
Lisp_Object
tail
,
frame
;
#ifdef MULTI_FRAME
Lisp_Object
old_selected
;
old_selected
=
selected_window
;
/* A single call to window_loop won't do the job
because it only considers frames on the current keyboard.
So loop manually over frames, and handle each one. */
FOR_EACH_FRAME
(
tail
,
frame
)
{
Fselect_window
(
FRAME_SELECTED_WINDOW
(
XFRAME
(
frame
)));
window_loop
(
UNSHOW_BUFFER
,
buffer
,
0
,
frame
);
}
Fselect_window
(
old_selected
);
#else
window_loop
(
UNSHOW_BUFFER
,
buffer
,
0
,
Qt
);
#endif
}
/* Set the height of WINDOW and all its inferiors. */
...
...
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