comparison src/window.c @ 11307:f6b6a67ff758

(Fnext_window, Fprevious_window): If all_frames is a frame and window is not on that frame, return the first window on that frame.
author Richard M. Stallman <rms@gnu.org>
date Sat, 08 Apr 1995 20:15:04 +0000
parents e6bdaaa6ce1b
children 645e3883da72
comparison
equal deleted inserted replaced
11306:9b907fb88921 11307:f6b6a67ff758
886 \n\ 886 \n\
887 Optional third arg ALL-FRAMES t means include windows on all frames.\n\ 887 Optional third arg ALL-FRAMES t means include windows on all frames.\n\
888 ALL-FRAMES nil or omitted means cycle within the frames as specified\n\ 888 ALL-FRAMES nil or omitted means cycle within the frames as specified\n\
889 above. ALL-FRAMES = `visible' means include windows on all visible frames.\n\ 889 above. ALL-FRAMES = `visible' means include windows on all visible frames.\n\
890 ALL-FRAMES = 0 means include windows on all visible and iconified frames.\n\ 890 ALL-FRAMES = 0 means include windows on all visible and iconified frames.\n\
891 If ALL-FRAMES is a frame, restrict search to windows on that frame.\n\
891 Anything else means restrict to WINDOW's frame.\n\ 892 Anything else means restrict to WINDOW's frame.\n\
892 \n\ 893 \n\
893 If you use consistent values for MINIBUF and ALL-FRAMES, you can use\n\ 894 If you use consistent values for MINIBUF and ALL-FRAMES, you can use\n\
894 `next-window' to iterate through the entire cycle of acceptable\n\ 895 `next-window' to iterate through the entire cycle of acceptable\n\
895 windows, eventually ending up back at the window you started with.\n\ 896 windows, eventually ending up back at the window you started with.\n\
927 : Qnil); 928 : Qnil);
928 else if (EQ (all_frames, Qvisible)) 929 else if (EQ (all_frames, Qvisible))
929 ; 930 ;
930 else if (XFASTINT (all_frames) == 0) 931 else if (XFASTINT (all_frames) == 0)
931 ; 932 ;
933 else if (FRAMEP (all_frames) && ! EQ (all_frames, Fwindow_frame (window)))
934 /* If all_frames is a frame and window arg isn't on that frame, just
935 return the first window on the frame. */
936 return Fframe_first_window (all_frames);
932 else if (! EQ (all_frames, Qt)) 937 else if (! EQ (all_frames, Qt))
933 all_frames = Qnil; 938 all_frames = Qnil;
934 /* Now all_frames is t meaning search all frames, 939 /* Now all_frames is t meaning search all frames,
935 nil meaning search just current frame, 940 nil meaning search just current frame,
936 visible meaning search just visible frames, 941 visible meaning search just visible frames,
1019 \n\ 1024 \n\
1020 Optional third arg ALL-FRAMES t means include windows on all frames.\n\ 1025 Optional third arg ALL-FRAMES t means include windows on all frames.\n\
1021 ALL-FRAMES nil or omitted means cycle within the frames as specified\n\ 1026 ALL-FRAMES nil or omitted means cycle within the frames as specified\n\
1022 above. ALL-FRAMES = `visible' means include windows on all visible frames.\n\ 1027 above. ALL-FRAMES = `visible' means include windows on all visible frames.\n\
1023 ALL-FRAMES = 0 means include windows on all visible and iconified frames.\n\ 1028 ALL-FRAMES = 0 means include windows on all visible and iconified frames.\n\
1029 If ALL-FRAMES is a frame, restrict search to windows on that frame.\n\
1024 Anything else means restrict to WINDOW's frame.\n\ 1030 Anything else means restrict to WINDOW's frame.\n\
1025 \n\ 1031 \n\
1026 If you use consistent values for MINIBUF and ALL-FRAMES, you can use\n\ 1032 If you use consistent values for MINIBUF and ALL-FRAMES, you can use\n\
1027 `previous-window' to iterate through the entire cycle of acceptable\n\ 1033 `previous-window' to iterate through the entire cycle of acceptable\n\
1028 windows, eventually ending up back at the window you started with.\n\ 1034 windows, eventually ending up back at the window you started with.\n\
1062 : Qnil); 1068 : Qnil);
1063 else if (EQ (all_frames, Qvisible)) 1069 else if (EQ (all_frames, Qvisible))
1064 ; 1070 ;
1065 else if (XFASTINT (all_frames) == 0) 1071 else if (XFASTINT (all_frames) == 0)
1066 ; 1072 ;
1073 else if (FRAMEP (all_frames) && ! EQ (all_frames, Fwindow_frame (window)))
1074 /* If all_frames is a frame and window arg isn't on that frame, just
1075 return the first window on the frame. */
1076 return Fframe_first_window (all_frames);
1067 else if (! EQ (all_frames, Qt)) 1077 else if (! EQ (all_frames, Qt))
1068 all_frames = Qnil; 1078 all_frames = Qnil;
1069 /* Now all_frames is t meaning search all frames, 1079 /* Now all_frames is t meaning search all frames,
1070 nil meaning search just current frame, 1080 nil meaning search just current frame,
1071 visible meaning search just visible frames, 1081 visible meaning search just visible frames,