Mercurial > hg > xemacs-beta

comparison src/console.c @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 28f395d8dc7a
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
266 the user does something to select a different console, or until the next 266 the user does something to select a different console, or until the next
267 time this function is called. 267 time this function is called.
268 */ 268 */
269 (console)) 269 (console))
270 { 270 {
271 Lisp_Object device;
272
271 CHECK_LIVE_CONSOLE (console); 273 CHECK_LIVE_CONSOLE (console);
272 274
273 /* select the console's selected frame's selected window. This will call 275 device = CONSOLE_SELECTED_DEVICE (XCONSOLE (console));
274 selected_frame_1(). */ 276 if (!NILP (device))
275 if (!NILP (CONSOLE_SELECTED_DEVICE (XCONSOLE (console)))) 277 {
276 Fselect_window (FRAME_SELECTED_WINDOW (XFRAME (DEVICE_SELECTED_FRAME (XDEVICE (CONSOLE_SELECTED_DEVICE (XCONSOLE (console))))))); 278 struct device *d = XDEVICE (device);
279 Lisp_Object frame = DEVICE_SELECTED_FRAME (d);
280 if (!NILP (frame))
281 {
282 struct frame *f = XFRAME(frame);
283 Fselect_window (FRAME_SELECTED_WINDOW (f));
284 }
285 else
286 error ("Can't select console with no frames.");
287 }
277 else 288 else
278 error ("Can't select a console with no devices"); 289 error ("Can't select a console with no devices");
279 return Qnil; 290 return Qnil;
280 } 291 }
281 292