mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 07:11:34 -08:00
Code Issues Projects Releases Wiki Activity

(Ffocus_frame, Funfocus_frame): Make them no-ops.

Browse source
This commit is contained in:
Richard M. Stallman 1995-08-05 05:04:46 +00:00
parent 4254fe5845
commit 9ae77b8192
1 changed files with 2 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

26
src/xfns.c
View file

@ -3143,39 +3143,17 @@ x_get_focus_frame (frame)
}
DEFUN ("focus-frame", Ffocus_frame, Sfocus_frame, 1, 1, 0,
"Set the focus on FRAME.")
"This function is obsolete, and does nothing.")
(frame)
Lisp_Object frame;
{
CHECK_LIVE_FRAME (frame, 0);
if (FRAME_X_P (XFRAME (frame)))
{
BLOCK_INPUT;
x_focus_on_frame (XFRAME (frame));
UNBLOCK_INPUT;
return frame;
}
return Qnil;
}
DEFUN ("unfocus-frame", Funfocus_frame, Sunfocus_frame, 0, 0, 0,
"If a frame has been focused, release it.")
"This function is obsolete, and does nothing.")
()
{
if (FRAME_X_P (selected_frame))
{
struct x_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (selected_frame);
if (dpyinfo->x_focus_frame)
{
BLOCK_INPUT;
x_unfocus_frame (dpyinfo->x_focus_frame);
UNBLOCK_INPUT;
}
}
return Qnil;
}