aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2008-08-27 19:09:36 +0000
committerEli Zaretskii2008-08-27 19:09:36 +0000
commitf12dae2f4c1c725e7b2ccce8e39a2be628977515 (patch)
tree709310fa9545096738e70e549a91637eea9772eb
parentff8ddc7b318ba1c33147ddbb094cf832ebf4fa1d (diff)
downloademacs-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.
-rw-r--r--src/ChangeLog7
-rw-r--r--src/msdos.c55
2 files changed, 21 insertions, 41 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index e5eec8033c7..ccdeffc7836 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,10 @@
12008-08-27 Eli Zaretskii <eliz@gnu.org>
2
3 * msdos.c (Fmsdos_remember_default_colors): Don't reverse frame
4 colors under -rv.
5 (IT_set_frame_parameters): Don't swap foreground and background
6 colors if `(reverse . t)' is present in the frame properties.
7
12008-08-27 Andreas Schwab <schwab@suse.de> 82008-08-27 Andreas Schwab <schwab@suse.de>
2 9
3 * dired.c (Ffile_attributes): Avoid compiler warning in bitshift. 10 * dired.c (Ffile_attributes): Avoid compiler warning in bitshift.
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
2209void 2201void
@@ -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