diff options
| author | Eli Zaretskii | 2008-08-27 19:09:36 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2008-08-27 19:09:36 +0000 |
| commit | f12dae2f4c1c725e7b2ccce8e39a2be628977515 (patch) | |
| tree | 709310fa9545096738e70e549a91637eea9772eb /src/msdos.c | |
| parent | ff8ddc7b318ba1c33147ddbb094cf832ebf4fa1d (diff) | |
| download | emacs-f12dae2f4c1c725e7b2ccce8e39a2be628977515.tar.gz emacs-f12dae2f4c1c725e7b2ccce8e39a2be628977515.zip | |
(Fmsdos_remember_default_colors): Don't reverse frame colors under -rv.
(IT_set_frame_parameters): Don't swap foreground and background colors
if `(reverse . t)' is present in the frame properties.
Diffstat (limited to 'src/msdos.c')
| -rw-r--r-- | src/msdos.c | 55 |
1 files changed, 14 insertions, 41 deletions
diff --git a/src/msdos.c b/src/msdos.c index ebbf2cd41e4..5673c33cb2a 100644 --- a/src/msdos.c +++ b/src/msdos.c | |||
| @@ -2188,22 +2188,14 @@ DEFUN ("msdos-remember-default-colors", Fmsdos_remember_default_colors, | |||
| 2188 | struct frame *f; | 2188 | struct frame *f; |
| 2189 | 2189 | ||
| 2190 | CHECK_FRAME (frame); | 2190 | CHECK_FRAME (frame); |
| 2191 | f= XFRAME (frame); | 2191 | f = XFRAME (frame); |
| 2192 | 2192 | ||
| 2193 | /* This function is called after applying default-frame-alist to the | 2193 | /* This function is called after applying default-frame-alist to the |
| 2194 | initial frame. At that time, if reverse-colors option was | 2194 | initial frame. At that time, if reverse-colors option was |
| 2195 | specified in default-frame-alist, it was already applied, and | 2195 | specified in default-frame-alist, it was already applied, and |
| 2196 | frame colors are reversed. We need to account for that. */ | 2196 | frame colors are reversed. */ |
| 2197 | if (EQ (Fcdr (Fassq (Qreverse, f->param_alist)), Qt)) | 2197 | initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f); |
| 2198 | { | 2198 | initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f); |
| 2199 | initial_screen_colors[0] = FRAME_BACKGROUND_PIXEL (f); | ||
| 2200 | initial_screen_colors[1] = FRAME_FOREGROUND_PIXEL (f); | ||
| 2201 | } | ||
| 2202 | else | ||
| 2203 | { | ||
| 2204 | initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f); | ||
| 2205 | initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f); | ||
| 2206 | } | ||
| 2207 | } | 2199 | } |
| 2208 | 2200 | ||
| 2209 | void | 2201 | void |
| @@ -2233,6 +2225,7 @@ IT_set_frame_parameters (f, alist) | |||
| 2233 | { | 2225 | { |
| 2234 | FRAME_FOREGROUND_PIXEL (f) = initial_screen_colors[0]; | 2226 | FRAME_FOREGROUND_PIXEL (f) = initial_screen_colors[0]; |
| 2235 | FRAME_BACKGROUND_PIXEL (f) = initial_screen_colors[1]; | 2227 | FRAME_BACKGROUND_PIXEL (f) = initial_screen_colors[1]; |
| 2228 | init_frame_faces (f); | ||
| 2236 | } | 2229 | } |
| 2237 | orig_fg = FRAME_FOREGROUND_PIXEL (f); | 2230 | orig_fg = FRAME_FOREGROUND_PIXEL (f); |
| 2238 | orig_bg = FRAME_BACKGROUND_PIXEL (f); | 2231 | orig_bg = FRAME_BACKGROUND_PIXEL (f); |
| @@ -2297,19 +2290,9 @@ IT_set_frame_parameters (f, alist) | |||
| 2297 | /* Make sure the foreground of the default face for this | 2290 | /* Make sure the foreground of the default face for this |
| 2298 | frame is changed as well. */ | 2291 | frame is changed as well. */ |
| 2299 | XSETFRAME (frame, f); | 2292 | XSETFRAME (frame, f); |
| 2300 | if (need_to_reverse) | 2293 | Finternal_set_lisp_face_attribute (Qdefault, QCforeground, |
| 2301 | { | 2294 | val, frame); |
| 2302 | Finternal_set_lisp_face_attribute (Qdefault, QCbackground, | 2295 | fg_set = 1; |
| 2303 | val, frame); | ||
| 2304 | prop = Qbackground_color; | ||
| 2305 | bg_set = 1; | ||
| 2306 | } | ||
| 2307 | else | ||
| 2308 | { | ||
| 2309 | Finternal_set_lisp_face_attribute (Qdefault, QCforeground, | ||
| 2310 | val, frame); | ||
| 2311 | fg_set = 1; | ||
| 2312 | } | ||
| 2313 | redraw = 1; | 2296 | redraw = 1; |
| 2314 | if (tty->termscript) | 2297 | if (tty->termscript) |
| 2315 | fprintf (tty->termscript, "<FGCOLOR %lu>\n", new_color); | 2298 | fprintf (tty->termscript, "<FGCOLOR %lu>\n", new_color); |
| @@ -2328,19 +2311,9 @@ IT_set_frame_parameters (f, alist) | |||
| 2328 | /* Make sure the background of the default face for this | 2311 | /* Make sure the background of the default face for this |
| 2329 | frame is changed as well. */ | 2312 | frame is changed as well. */ |
| 2330 | XSETFRAME (frame, f); | 2313 | XSETFRAME (frame, f); |
| 2331 | if (need_to_reverse) | 2314 | Finternal_set_lisp_face_attribute (Qdefault, QCbackground, |
| 2332 | { | 2315 | val, frame); |
| 2333 | Finternal_set_lisp_face_attribute (Qdefault, QCforeground, | 2316 | bg_set = 1; |
| 2334 | val, frame); | ||
| 2335 | prop = Qforeground_color; | ||
| 2336 | fg_set = 1; | ||
| 2337 | } | ||
| 2338 | else | ||
| 2339 | { | ||
| 2340 | Finternal_set_lisp_face_attribute (Qdefault, QCbackground, | ||
| 2341 | val, frame); | ||
| 2342 | bg_set = 1; | ||
| 2343 | } | ||
| 2344 | redraw = 1; | 2317 | redraw = 1; |
| 2345 | if (tty->termscript) | 2318 | if (tty->termscript) |
| 2346 | fprintf (tty->termscript, "<BGCOLOR %lu>\n", new_color); | 2319 | fprintf (tty->termscript, "<BGCOLOR %lu>\n", new_color); |
| @@ -2439,6 +2412,8 @@ internal_terminal_init () | |||
| 2439 | } | 2412 | } |
| 2440 | 2413 | ||
| 2441 | tty = FRAME_TTY (sf); | 2414 | tty = FRAME_TTY (sf); |
| 2415 | current_kboard->Vwindow_system = Qpc; | ||
| 2416 | sf->output_method = output_msdos_raw; | ||
| 2442 | if (init_needed) | 2417 | if (init_needed) |
| 2443 | { | 2418 | { |
| 2444 | if (!tty->termscript && getenv ("EMACSTEST")) | 2419 | if (!tty->termscript && getenv ("EMACSTEST")) |
| @@ -2511,11 +2486,9 @@ internal_terminal_init () | |||
| 2511 | fprintf (tty->termscript, "<SCREEN SAVED (dimensions=%dx%d)>\n", | 2486 | fprintf (tty->termscript, "<SCREEN SAVED (dimensions=%dx%d)>\n", |
| 2512 | screen_size_X, screen_size_Y); | 2487 | screen_size_X, screen_size_Y); |
| 2513 | 2488 | ||
| 2489 | init_frame_faces (sf); | ||
| 2514 | init_needed = 0; | 2490 | init_needed = 0; |
| 2515 | } | 2491 | } |
| 2516 | current_kboard->Vwindow_system = Qpc; | ||
| 2517 | sf->output_method = output_msdos_raw; | ||
| 2518 | init_frame_faces (sf); | ||
| 2519 | #endif | 2492 | #endif |
| 2520 | } | 2493 | } |
| 2521 | 2494 | ||