Mercurial > emacs
comparison src/window.c @ 1798:3062204c456d
(Fwindow_at): Doc fix.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 14 Jan 1993 21:20:01 +0000 |
parents | 8e7932110418 |
children | 7ba5cfe280eb |
comparison
equal
deleted
inserted
replaced
1797:cc86c049e576 | 1798:3062204c456d |
---|---|
425 | 425 |
426 return Qnil; | 426 return Qnil; |
427 } | 427 } |
428 | 428 |
429 DEFUN ("window-at", Fwindow_at, Swindow_at, 2, 3, 0, | 429 DEFUN ("window-at", Fwindow_at, Swindow_at, 2, 3, 0, |
430 "Return window containing row ROW, column COLUMN on FRAME.\n\ | 430 "Return window containing coordinates X and Y on FRAME.\n\ |
431 If omitted, FRAME defaults to the currently selected frame.\n\ | 431 If omitted, FRAME defaults to the currently selected frame.\n\ |
432 The top left corner of the frame is considered to be row 0,\n\ | 432 The top left corner of the frame is considered to be row 0,\n\ |
433 column 0.") | 433 column 0.") |
434 (row, column, frame) | 434 (x, y, frame) |
435 Lisp_Object row, column, frame; | 435 Lisp_Object x, y, frame; |
436 { | 436 { |
437 int part; | 437 int part; |
438 | 438 |
439 #ifdef MULTI_FRAME | 439 #ifdef MULTI_FRAME |
440 if (NILP (frame)) | 440 if (NILP (frame)) |
441 XSET (frame, Lisp_Frame, selected_frame); | 441 XSET (frame, Lisp_Frame, selected_frame); |
442 else | 442 else |
443 CHECK_LIVE_FRAME (frame, 2); | 443 CHECK_LIVE_FRAME (frame, 2); |
444 #endif | 444 #endif |
445 CHECK_NUMBER (row, 0); | 445 CHECK_NUMBER (x, 0); |
446 CHECK_NUMBER (column, 1); | 446 CHECK_NUMBER (y, 1); |
447 | 447 |
448 return window_from_coordinates (XFRAME (frame), | 448 return window_from_coordinates (XFRAME (frame), |
449 XINT (row), XINT (column), | 449 XINT (x), XINT (y), |
450 &part); | 450 &part); |
451 } | 451 } |
452 | 452 |
453 DEFUN ("window-point", Fwindow_point, Swindow_point, 0, 1, 0, | 453 DEFUN ("window-point", Fwindow_point, Swindow_point, 0, 1, 0, |
454 "Return current value of point in WINDOW.\n\ | 454 "Return current value of point in WINDOW.\n\ |