Mercurial > emacs
comparison src/frame.c @ 83764:0a6fac24d74d
(make_terminal_frame): Yet Another Int/Lisp_Object Mixup.
(Fmodify_frame_parameters): Return a value.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 29 Aug 2007 21:47:40 +0000 |
| parents | 65663fcd2caa |
| children | dbfe44e28260 |
comparison
equal
deleted
inserted
replaced
| 83763:14a686983252 | 83764:0a6fac24d74d |
|---|---|
| 623 | 623 |
| 624 FRAME_CAN_HAVE_SCROLL_BARS (f) = 0; | 624 FRAME_CAN_HAVE_SCROLL_BARS (f) = 0; |
| 625 FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_none; | 625 FRAME_VERTICAL_SCROLL_BAR_TYPE (f) = vertical_scroll_bar_none; |
| 626 | 626 |
| 627 /* Set the top frame to the newly created frame. */ | 627 /* Set the top frame to the newly created frame. */ |
| 628 if (FRAME_TTY (f)->top_frame | 628 if (FRAMEP (FRAME_TTY (f)->top_frame) |
| 629 && FRAME_LIVE_P (XFRAME (FRAME_TTY (f)->top_frame))) | 629 && FRAME_LIVE_P (XFRAME (FRAME_TTY (f)->top_frame))) |
| 630 XFRAME (FRAME_TTY (f)->top_frame)->async_visible = 2; /* obscured */ | 630 XFRAME (FRAME_TTY (f)->top_frame)->async_visible = 2; /* obscured */ |
| 631 | 631 |
| 632 FRAME_TTY (f)->top_frame = frame; | 632 FRAME_TTY (f)->top_frame = frame; |
| 633 } | 633 } |
| 2611 Call frame-set-background-mode to do that. */ | 2611 Call frame-set-background-mode to do that. */ |
| 2612 if (EQ (prop, Qbackground_color)) | 2612 if (EQ (prop, Qbackground_color)) |
| 2613 call1 (Qframe_set_background_mode, frame); | 2613 call1 (Qframe_set_background_mode, frame); |
| 2614 } | 2614 } |
| 2615 } | 2615 } |
| 2616 return Qnil; | |
| 2616 } | 2617 } |
| 2617 | 2618 |
| 2618 DEFUN ("frame-with-environment", Fframe_with_environment, Sframe_with_environment, 0, 1, 0, | 2619 DEFUN ("frame-with-environment", Fframe_with_environment, Sframe_with_environment, 0, 1, 0, |
| 2619 doc: /* Return the frame that has the environment variable list for FRAME. | 2620 doc: /* Return the frame that has the environment variable list for FRAME. |
| 2620 | 2621 |