Mercurial > hg > xemacs-beta

comparison src/console.c @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents e04119814345
children ee648375d8d6
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
271 the user does something to select a different console, or until the next 271 the user does something to select a different console, or until the next
272 time this function is called. 272 time this function is called.
273 */ 273 */
274 (console)) 274 (console))
275 { 275 {
276 Lisp_Object device;
277
276 CHECK_LIVE_CONSOLE (console); 278 CHECK_LIVE_CONSOLE (console);
277 279
278 /* select the console's selected frame's selected window. This will call 280 device = CONSOLE_SELECTED_DEVICE (XCONSOLE (console));
279 selected_frame_1(). */ 281 if (!NILP (device))
280 if (!NILP (CONSOLE_SELECTED_DEVICE (XCONSOLE (console)))) 282 {
281 Fselect_window (FRAME_SELECTED_WINDOW (XFRAME (DEVICE_SELECTED_FRAME (XDEVICE (CONSOLE_SELECTED_DEVICE (XCONSOLE (console))))))); 283 struct device *d = XDEVICE (device);
284 Lisp_Object frame = DEVICE_SELECTED_FRAME (d);
285 if (!NILP (frame))
286 {
287 struct frame *f = XFRAME(frame);
288 Fselect_window (FRAME_SELECTED_WINDOW (f));
289 }
290 else
291 error ("Can't select console with no frames.");
292 }
282 else 293 else
283 error ("Can't select a console with no devices"); 294 error ("Can't select a console with no devices");
284 return Qnil; 295 return Qnil;
285 } 296 }
286 297