Mercurial > emacs
comparison src/frame.c @ 4424:027d3affb2f8
(Fprevious_frame): New function, for parity with Fnext_frame.
(syms_of_frame): Add defsubr for Sprevious_frame.
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Mon, 02 Aug 1993 22:16:09 +0000 |
parents | 12c4e5b53463 |
children | 3c67dd995bc5 |
comparison
equal
deleted
inserted
replaced
4423:53f7c5b30816 | 4424:027d3affb2f8 |
---|---|
568 we would have returned directly from the loop. Since PREV is the last | 568 we would have returned directly from the loop. Since PREV is the last |
569 acceptable frame in the list, return it. */ | 569 acceptable frame in the list, return it. */ |
570 return prev; | 570 return prev; |
571 } | 571 } |
572 | 572 |
573 | |
573 DEFUN ("next-frame", Fnext_frame, Snext_frame, 0, 2, 0, | 574 DEFUN ("next-frame", Fnext_frame, Snext_frame, 0, 2, 0, |
574 "Return the next frame in the frame list after FRAME.\n\ | 575 "Return the next frame in the frame list after FRAME.\n\ |
575 By default, skip minibuffer-only frames.\n\ | 576 By default, skip minibuffer-only frames.\n\ |
576 If omitted, FRAME defaults to the selected frame.\n\ | 577 If omitted, FRAME defaults to the selected frame.\n\ |
577 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\ | 578 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\ |
587 XSET (frame, Lisp_Frame, selected_frame); | 588 XSET (frame, Lisp_Frame, selected_frame); |
588 else | 589 else |
589 CHECK_LIVE_FRAME (frame, 0); | 590 CHECK_LIVE_FRAME (frame, 0); |
590 | 591 |
591 return next_frame (frame, miniframe); | 592 return next_frame (frame, miniframe); |
593 } | |
594 | |
595 DEFUN ("previous-frame", Fprevious_frame, Sprevious_frame, 0, 2, 0, | |
596 "Return the previous frame in the frame list before FRAME.\n\ | |
597 By default, skip minibuffer-only frames.\n\ | |
598 If omitted, FRAME defaults to the selected frame.\n\ | |
599 If optional argument MINIFRAME is nil, exclude minibuffer-only frames.\n\ | |
600 If MINIFRAME is a window, include only frames using that window for their\n\ | |
601 minibuffer.\n\ | |
602 If MINIFRAME is non-nil and not a window, include all frames.") | |
603 (frame, miniframe) | |
604 Lisp_Object frame, miniframe; | |
605 { | |
606 Lisp_Object tail; | |
607 | |
608 if (NILP (frame)) | |
609 XSET (frame, Lisp_Frame, selected_frame); | |
610 else | |
611 CHECK_LIVE_FRAME (frame, 0); | |
612 | |
613 return prev_frame (frame, miniframe); | |
592 } | 614 } |
593 | 615 |
594 | 616 |
595 DEFUN ("delete-frame", Fdelete_frame, Sdelete_frame, 0, 2, "", | 617 DEFUN ("delete-frame", Fdelete_frame, Sdelete_frame, 0, 2, "", |
596 "Delete FRAME, permanently eliminating it from use.\n\ | 618 "Delete FRAME, permanently eliminating it from use.\n\ |
1488 defsubr (&Swindow_frame); | 1510 defsubr (&Swindow_frame); |
1489 defsubr (&Sframe_root_window); | 1511 defsubr (&Sframe_root_window); |
1490 defsubr (&Sframe_selected_window); | 1512 defsubr (&Sframe_selected_window); |
1491 defsubr (&Sframe_list); | 1513 defsubr (&Sframe_list); |
1492 defsubr (&Snext_frame); | 1514 defsubr (&Snext_frame); |
1515 defsubr (&Sprevious_frame); | |
1493 defsubr (&Sdelete_frame); | 1516 defsubr (&Sdelete_frame); |
1494 defsubr (&Smouse_position); | 1517 defsubr (&Smouse_position); |
1495 defsubr (&Sset_mouse_position); | 1518 defsubr (&Sset_mouse_position); |
1496 #if 0 | 1519 #if 0 |
1497 defsubr (&Sframe_configuration); | 1520 defsubr (&Sframe_configuration); |