Mercurial > emacs
comparison src/xfns.c @ 6485:b0825eef18b1
(x_get_focus_frame): New function.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Wed, 23 Mar 1994 20:09:12 +0000 |
| parents | c6cafb1168b3 |
| children | 0d4be1fbfb4d |
comparison
equal
deleted
inserted
replaced
| 6484:04993cb5dcda | 6485:b0825eef18b1 |
|---|---|
| 2395 SET_FRAME_GARBAGED (f); | 2395 SET_FRAME_GARBAGED (f); |
| 2396 | 2396 |
| 2397 Vframe_list = Fcons (frame, Vframe_list); | 2397 Vframe_list = Fcons (frame, Vframe_list); |
| 2398 return frame; | 2398 return frame; |
| 2399 #endif /* X10 */ | 2399 #endif /* X10 */ |
| 2400 } | |
| 2401 | |
| 2402 Lisp_Object | |
| 2403 x_get_focus_frame () | |
| 2404 { | |
| 2405 Lisp_Object xfocus; | |
| 2406 if (! x_focus_frame) | |
| 2407 return Qnil; | |
| 2408 | |
| 2409 XSET (xfocus, Lisp_Frame, x_focus_frame); | |
| 2410 return xfocus; | |
| 2400 } | 2411 } |
| 2401 | 2412 |
| 2402 DEFUN ("focus-frame", Ffocus_frame, Sfocus_frame, 1, 1, 0, | 2413 DEFUN ("focus-frame", Ffocus_frame, Sfocus_frame, 1, 1, 0, |
| 2403 "Set the focus on FRAME.") | 2414 "Set the focus on FRAME.") |
| 2404 (frame) | 2415 (frame) |