bug-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: set-background-color on the console


From: Eli Zaretskii
Subject: Re: set-background-color on the console
Date: Mon, 29 Oct 2001 16:13:44 +0200 (IST)

On Sun, 28 Oct 2001, Alex Schroeder wrote:

> On the Linux console, M-x set-background-color has no effect.  In my
> case, the background color is currently green and I want to set it to
> black.  (set-background-color "black") ought to do the trick, I
> believe.  If set-background-color is not supposed to work on a tty,
> then this should be mentionend in the doc string.

Thanks; it's a bug.  Please try the changes below.  Andrew, could you 
please see if this is okay on Windows under -nw?  I'd like to install 
this in the RC branch, so I don't want to break anything.

Alex, please note that you need to recompile frame.el and rebuild Emacs 
after applying the patch, since frame.elc is preloaded.


2001-10-29  Eli Zaretskii  <address@hidden>

        * frame.el (set-background-color, set-foreground-color): Call
        face-set-after-frame-default, to propagate the new colors to the
        frame's parameters alist.

*** lisp/frame.e~0      Sun Sep 30 13:08:02 2001
--- lisp/frame.el       Mon Oct 29 15:58:42 2001
***************
*** 794,800 ****
  To get the frame's current background color, use `frame-parameters'."
    (interactive (list (facemenu-read-color)))
    (modify-frame-parameters (selected-frame)
!                          (list (cons 'background-color color-name))))
  
  (defun set-foreground-color (color-name)
    "Set the foreground color of the selected frame to COLOR-NAME.
--- 794,802 ----
  To get the frame's current background color, use `frame-parameters'."
    (interactive (list (facemenu-read-color)))
    (modify-frame-parameters (selected-frame)
!                          (list (cons 'background-color color-name)))
!   (or window-system
!       (face-set-after-frame-default (selected-frame))))
  
  (defun set-foreground-color (color-name)
    "Set the foreground color of the selected frame to COLOR-NAME.
***************
*** 802,808 ****
  To get the frame's current foreground color, use `frame-parameters'."
    (interactive (list (facemenu-read-color)))
    (modify-frame-parameters (selected-frame)
!                          (list (cons 'foreground-color color-name))))
  
  (defun set-cursor-color (color-name)
    "Set the text cursor color of the selected frame to COLOR-NAME.
--- 804,812 ----
  To get the frame's current foreground color, use `frame-parameters'."
    (interactive (list (facemenu-read-color)))
    (modify-frame-parameters (selected-frame)
!                          (list (cons 'foreground-color color-name)))
!   (or window-system
!       (face-set-after-frame-default (selected-frame))))
  
  (defun set-cursor-color (color-name)
    "Set the text cursor color of the selected frame to COLOR-NAME.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]