Mercurial > emacs

comparison src/frame.c @ 485:8c615e453683

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 13 Jan 1992 21:48:08 +0000
parents ca410e0b4797
children b99d4eb7ed93
comparison
equal deleted inserted replaced
484:3165b2697c78 485:8c615e453683
161 161
162 if (mini_p) 162 if (mini_p)
163 { 163 {
164 XWINDOW (mini_window)->buffer = Qt; 164 XWINDOW (mini_window)->buffer = Qt;
165 Fset_window_buffer (mini_window, 165 Fset_window_buffer (mini_window,
166 (NULL (Vminibuffer_list) 166 (NILP (Vminibuffer_list)
167 ? get_minibuffer (0) 167 ? get_minibuffer (0)
168 : Fcar (Vminibuffer_list))); 168 : Fcar (Vminibuffer_list)));
169 } 169 }
170 170
171 s->root_window = root_window; 171 s->root_window = root_window;
188 register Lisp_Object mini_window; 188 register Lisp_Object mini_window;
189 { 189 {
190 register struct screen *s; 190 register struct screen *s;
191 191
192 /* Choose the minibuffer window to use. */ 192 /* Choose the minibuffer window to use. */
193 if (NULL (mini_window)) 193 if (NILP (mini_window))
194 { 194 {
195 if (XTYPE (Vdefault_minibuffer_screen) != Lisp_Screen) 195 if (XTYPE (Vdefault_minibuffer_screen) != Lisp_Screen)
196 error ("default-minibuffer-screen must be set when creating minibufferless screens."); 196 error ("default-minibuffer-screen must be set when creating minibufferless screens.");
197 mini_window = XSCREEN (Vdefault_minibuffer_screen)->minibuffer_window; 197 mini_window = XSCREEN (Vdefault_minibuffer_screen)->minibuffer_window;
198 } 198 }
205 s = make_screen (0); 205 s = make_screen (0);
206 206
207 /* Install the chosen minibuffer window, with proper buffer. */ 207 /* Install the chosen minibuffer window, with proper buffer. */
208 s->minibuffer_window = mini_window; 208 s->minibuffer_window = mini_window;
209 Fset_window_buffer (mini_window, 209 Fset_window_buffer (mini_window,
210 (NULL (Vminibuffer_list) 210 (NILP (Vminibuffer_list)
211 ? get_minibuffer (0) 211 ? get_minibuffer (0)
212 : Fcar (Vminibuffer_list))); 212 : Fcar (Vminibuffer_list)));
213 return s; 213 return s;
214 } 214 }
215 215
244 XWINDOW (mini_window)->screen = screen; 244 XWINDOW (mini_window)->screen = screen;
245 245
246 /* Put the proper buffer in that window. */ 246 /* Put the proper buffer in that window. */
247 247
248 Fset_window_buffer (mini_window, 248 Fset_window_buffer (mini_window,
249 (NULL (Vminibuffer_list) 249 (NILP (Vminibuffer_list)
250 ? get_minibuffer (0) 250 ? get_minibuffer (0)
251 : Fcar (Vminibuffer_list))); 251 : Fcar (Vminibuffer_list)));
252 return s; 252 return s;
253 } 253 }
254 254
287 Fselect_window (XSCREEN (screen)->selected_window); 287 Fselect_window (XSCREEN (screen)->selected_window);
288 288
289 #ifdef HAVE_X_WINDOWS 289 #ifdef HAVE_X_WINDOWS
290 #ifdef MULTI_SCREEN 290 #ifdef MULTI_SCREEN
291 if (XSCREEN (screen)->output_method == output_x_window 291 if (XSCREEN (screen)->output_method == output_x_window
292 && NULL (no_enter)) 292 && NILP (no_enter))
293 { 293 {
294 Ffocus_screen (screen); 294 Ffocus_screen (screen);
295 } 295 }
296 #endif 296 #endif
297 #endif 297 #endif
321 DEFUN ("screen-root-window", Fscreen_root_window, Sscreen_root_window, 0, 1, 0, 321 DEFUN ("screen-root-window", Fscreen_root_window, Sscreen_root_window, 0, 1, 0,
322 "Returns the root-window of SCREEN.") 322 "Returns the root-window of SCREEN.")
323 (screen) 323 (screen)
324 Lisp_Object screen; 324 Lisp_Object screen;
325 { 325 {
326 if (NULL (screen)) 326 if (NILP (screen))
327 XSET (screen, Lisp_Screen, selected_screen); 327 XSET (screen, Lisp_Screen, selected_screen);
328 else 328 else
329 CHECK_LIVE_SCREEN (screen, 0); 329 CHECK_LIVE_SCREEN (screen, 0);
330 330
331 return XSCREEN (screen)->root_window; 331 return XSCREEN (screen)->root_window;
335 Sscreen_selected_window, 0, 1, 0, 335 Sscreen_selected_window, 0, 1, 0,
336 "Return the selected window of screen object SCREEN.") 336 "Return the selected window of screen object SCREEN.")
337 (screen) 337 (screen)
338 Lisp_Object screen; 338 Lisp_Object screen;
339 { 339 {
340 if (NULL (screen)) 340 if (NILP (screen))
341 XSET (screen, Lisp_Screen, selected_screen); 341 XSET (screen, Lisp_Screen, selected_screen);
342 else 342 else
343 CHECK_LIVE_SCREEN (screen, 0); 343 CHECK_LIVE_SCREEN (screen, 0);
344 344
345 return XSCREEN (screen)->selected_window; 345 return XSCREEN (screen)->selected_window;
379 { 379 {
380 Lisp_Object s = XCONS (tail)->car; 380 Lisp_Object s = XCONS (tail)->car;
381 381
382 /* Decide whether this screen is eligible to be returned, 382 /* Decide whether this screen is eligible to be returned,
383 according to minibuf. */ 383 according to minibuf. */
384 if ((NULL (minibuf) && ! SCREEN_MINIBUF_ONLY_P (XSCREEN (s))) 384 if ((NILP (minibuf) && ! SCREEN_MINIBUF_ONLY_P (XSCREEN (s)))
385 || XTYPE (minibuf) != Lisp_Window 385 || XTYPE (minibuf) != Lisp_Window
386 || EQ (SCREEN_MINIBUF_WINDOW (XSCREEN (s)), minibuf) 386 || EQ (SCREEN_MINIBUF_WINDOW (XSCREEN (s)), minibuf)
387 || EQ (s, screen)) 387 || EQ (s, screen))
388 return s; 388 return s;
389 } 389 }
418 Lisp_Object scr = XCONS (tail)->car; 418 Lisp_Object scr = XCONS (tail)->car;
419 419
420 if (XTYPE (scr) != Lisp_Screen) 420 if (XTYPE (scr) != Lisp_Screen)
421 abort (); 421 abort ();
422 422
423 if (EQ (screen, scr) && !NULL (prev)) 423 if (EQ (screen, scr) && !NILP (prev))
424 return prev; 424 return prev;
425 425
426 /* Decide whether this screen is eligible to be returned, 426 /* Decide whether this screen is eligible to be returned,
427 according to minibuf. */ 427 according to minibuf. */
428 if ((NULL (minibuf) && ! SCREEN_MINIBUF_ONLY_P (XSCREEN (scr))) 428 if ((NILP (minibuf) && ! SCREEN_MINIBUF_ONLY_P (XSCREEN (scr)))
429 || XTYPE (minibuf) != Lisp_Window 429 || XTYPE (minibuf) != Lisp_Window
430 || EQ (SCREEN_MINIBUF_WINDOW (XSCREEN (scr)), minibuf)) 430 || EQ (SCREEN_MINIBUF_WINDOW (XSCREEN (scr)), minibuf))
431 prev = scr; 431 prev = scr;
432 } 432 }
433 433
434 if (NULL (prev)) 434 if (NILP (prev))
435 /* We went through the whole screen list without finding a single 435 /* We went through the whole screen list without finding a single
436 acceptable screen. Return the original screen. */ 436 acceptable screen. Return the original screen. */
437 prev = screen; 437 prev = screen;
438 } 438 }
439 439
448 (screen, miniscreen) 448 (screen, miniscreen)
449 Lisp_Object screen, miniscreen; 449 Lisp_Object screen, miniscreen;
450 { 450 {
451 Lisp_Object tail; 451 Lisp_Object tail;
452 452
453 if (NULL (screen)) 453 if (NILP (screen))
454 XSET (screen, Lisp_Screen, selected_screen); 454 XSET (screen, Lisp_Screen, selected_screen);
455 else 455 else
456 CHECK_LIVE_SCREEN (screen, 0); 456 CHECK_LIVE_SCREEN (screen, 0);
457 457
458 return next_screen (screen, miniscreen); 458 return next_screen (screen, miniscreen);
758 (screen, focus_screen) 758 (screen, focus_screen)
759 Lisp_Object screen, focus_screen; 759 Lisp_Object screen, focus_screen;
760 { 760 {
761 CHECK_LIVE_SCREEN (screen, 0); 761 CHECK_LIVE_SCREEN (screen, 0);
762 762
763 if (NULL (focus_screen)) 763 if (NILP (focus_screen))
764 focus_screen = screen; 764 focus_screen = screen;
765 else 765 else
766 CHECK_LIVE_SCREEN (focus_screen, 1); 766 CHECK_LIVE_SCREEN (focus_screen, 1);
767 767
768 XSCREEN (screen)->focus_screen = focus_screen; 768 XSCREEN (screen)->focus_screen = focus_screen;
939 Lisp_Object rows, pretend; 939 Lisp_Object rows, pretend;
940 { 940 {
941 register struct screen *s; 941 register struct screen *s;
942 942
943 CHECK_NUMBER (rows, 0); 943 CHECK_NUMBER (rows, 0);
944 if (NULL (screen)) 944 if (NILP (screen))
945 s = selected_screen; 945 s = selected_screen;
946 else 946 else
947 { 947 {
948 CHECK_LIVE_SCREEN (screen, 0); 948 CHECK_LIVE_SCREEN (screen, 0);
949 s = XSCREEN (screen); 949 s = XSCREEN (screen);
953 { 953 {
954 if (XINT (rows) != s->width) 954 if (XINT (rows) != s->width)
955 x_set_window_size (s, s->width, XINT (rows)); 955 x_set_window_size (s, s->width, XINT (rows));
956 } 956 }
957 else 957 else
958 change_screen_size (s, XINT (rows), 0, !NULL (pretend)); 958 change_screen_size (s, XINT (rows), 0, !NILP (pretend));
959 return Qnil; 959 return Qnil;
960 } 960 }
961 961
962 DEFUN ("set-screen-width", Fset_screen_width, Sset_screen_width, 2, 3, 0, 962 DEFUN ("set-screen-width", Fset_screen_width, Sset_screen_width, 2, 3, 0,
963 "Specify that the screen SCREEN has COLS columns.\n\ 963 "Specify that the screen SCREEN has COLS columns.\n\
966 (screen, cols, pretend) 966 (screen, cols, pretend)
967 Lisp_Object cols, pretend; 967 Lisp_Object cols, pretend;
968 { 968 {
969 register struct screen *s; 969 register struct screen *s;
970 CHECK_NUMBER (cols, 0); 970 CHECK_NUMBER (cols, 0);
971 if (NULL (screen)) 971 if (NILP (screen))
972 s = selected_screen; 972 s = selected_screen;
973 else 973 else
974 { 974 {
975 CHECK_LIVE_SCREEN (screen, 0); 975 CHECK_LIVE_SCREEN (screen, 0);
976 s = XSCREEN (screen); 976 s = XSCREEN (screen);
980 { 980 {
981 if (XINT (cols) != s->width) 981 if (XINT (cols) != s->width)
982 x_set_window_size (s, XINT (cols), s->height); 982 x_set_window_size (s, XINT (cols), s->height);
983 } 983 }
984 else 984 else
985 change_screen_size (selected_screen, 0, XINT (cols), !NULL (pretend)); 985 change_screen_size (selected_screen, 0, XINT (cols), !NILP (pretend));
986 return Qnil; 986 return Qnil;
987 } 987 }
988 988
989 DEFUN ("set-screen-size", Fset_screen_size, Sset_screen_size, 3, 3, 0, 989 DEFUN ("set-screen-size", Fset_screen_size, Sset_screen_size, 3, 3, 0,
990 "Sets size of SCREEN to COLS by ROWS, measured in characters.") 990 "Sets size of SCREEN to COLS by ROWS, measured in characters.")