bug#6777: 23.2; The highlight face changes foreground

[Uday S Reddy]

The definition of the highlight face only sets the background color.
But I see that it is changing the foreground as well.

Suppose you do (set-face-foreground 'bold "blue") and run the mouse over
the bold items in a *Apropos* window, you would notice that the
foreground changes to black.

If you do (set-face-underline 'bold t) and run the mouse, you would
notice the underlining disappear.

Is this a bug or a feature?

Cheers,
Uday





In GNU Emacs 23.2.1 (i386-mingw-nt5.1.2600)
 of 2010-05-08 on G41R2F1
Windowing system distributor `Microsoft Corp.', version 5.1.2600
configured using `configure --with-gcc (3.4) --no-opt --cflags -Ic:/xpm/include'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  value of $XMODIFIERS: nil
  locale-coding-system: cp1252
  default enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  auto-fill-function: do-auto-fill
  shell-dirtrack-mode: t
  which-function-mode: t
  savehist-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-encryption-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
g h l i g h t <return> y e C-s d e f f a c e SPC h 
i g h C-a <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<wheel-down> <wheel-down> <wheel-down> <wheel-down> 
<wheel-up> <wheel-up> <wheel-up> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> <wheel-down> 
<double-wheel-down> <triple-wheel-down> <wheel-down> 
<wheel-down> <wheel-down> <wheel-down> <double-wheel-down> 
<wheel-down> <wheel-down> <wheel-down> <wheel-down> 
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <wheel-up> <double-wheel-up> <triple-wheel-up> 
<wheel-up> <down-mouse-1> <mouse-1> <down-mouse-1> 
<mouse-1> <wheel-down> <wheel-down> <wheel-down> <wheel-down> 
<wheel-down> <wheel-down> <wheel-down> <wheel-down> 
<wheel-down> <wheel-down> <wheel-down> <wheel-down> 
<double-wheel-down> <wheel-down> <wheel-down> <wheel-up> 
<double-wheel-up> <wheel-up> <double-wheel-up> <wheel-up> 
<double-wheel-up> <wheel-up> <down-mouse-1> <mouse-1> 
<wheel-up> <double-wheel-up> <wheel-up> <double-wheel-up> 
<triple-wheel-up> <wheel-up> <double-wheel-up> <triple-wheel-up> 
C-x C-f h e l SPC SPC SPC m o d SPC SPC <return> C-v 
C-s m o u s e C-s C-s C-s C-s C-s C-s C-s C-a C-x , 
C-s h i g h C-a C-v C-v M-x f i n d - g r e p - d i 
r e d <return> <return> ' h i g h l i g h t <return> 
n n e C-s C-s C-s C-s C-s C-a C-s ' C-g C-a C-s ' h 
i g h l i g h t C-s C-s C-s C-r C-r C-r C-r C-a C-x 
y M-x f i n d - g p <backspace> r e p - d i r e d <return> 
C-g <menu-bar> <regexp> <mark> . e l <backspace> <backspace> 
<backspace> \ . e l $ <return> <menu-bar> <operate> 
<isearch-regexp> ' h i g h l i g h t C-s \ w <backspace> 
b <backspace> <backspace> [ ^ - ] C-s C-s C-s C-a C-x 
m C-x k <return> M-x v m - <backspace> <backspace> 
<backspace> r e p o r t - e m SPC SPC b SPC <retur
n>

Recent messages:
Mark saved where search started [2 times]
Quit
Mark saved where search started
find-dired *Find* finished.
Quit
Marking matching files...
88 matching files marked.
Mark saved where search started
`mail to _ on ""' is gone forever!
Making completion list...

Load-path shadows:
d:/Home/udr/share/emacs/dired hides d:/gnu/emacs-23.2/lisp/dired
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org hides 
d:/gnu/emacs-23.2/lisp/org/org
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-xoxo hides 
d:/gnu/emacs-23.2/lisp/org/org-xoxo
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-wl hides 
d:/gnu/emacs-23.2/lisp/org/org-wl
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-w3m hides 
d:/gnu/emacs-23.2/lisp/org/org-w3m
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-vm hides 
d:/gnu/emacs-23.2/lisp/org/org-vm
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-timer hides 
d:/gnu/emacs-23.2/lisp/org/org-timer
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-table hides 
d:/gnu/emacs-23.2/lisp/org/org-table
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-src hides 
d:/gnu/emacs-23.2/lisp/org/org-src
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-rmail hides 
d:/gnu/emacs-23.2/lisp/org/org-rmail
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-remember hides 
d:/gnu/emacs-23.2/lisp/org/org-remember
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-publish hides 
d:/gnu/emacs-23.2/lisp/org/org-publish
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-protocol hides 
d:/gnu/emacs-23.2/lisp/org/org-protocol
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-plot hides 
d:/gnu/emacs-23.2/lisp/org/org-plot
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-mouse hides 
d:/gnu/emacs-23.2/lisp/org/org-mouse
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-mobile hides 
d:/gnu/emacs-23.2/lisp/org/org-mobile
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-mhe hides 
d:/gnu/emacs-23.2/lisp/org/org-mhe
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-mew hides 
d:/gnu/emacs-23.2/lisp/org/org-mew
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-macs hides 
d:/gnu/emacs-23.2/lisp/org/org-macs
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-mac-message hides 
d:/gnu/emacs-23.2/lisp/org/org-mac-message
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-list hides 
d:/gnu/emacs-23.2/lisp/org/org-list
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-latex hides 
d:/gnu/emacs-23.2/lisp/org/org-latex
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-jsinfo hides 
d:/gnu/emacs-23.2/lisp/org/org-jsinfo
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-irc hides 
d:/gnu/emacs-23.2/lisp/org/org-irc
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-install hides 
d:/gnu/emacs-23.2/lisp/org/org-install
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-inlinetask hides 
d:/gnu/emacs-23.2/lisp/org/org-inlinetask
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-info hides 
d:/gnu/emacs-23.2/lisp/org/org-info
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-indent hides 
d:/gnu/emacs-23.2/lisp/org/org-indent
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-id hides 
d:/gnu/emacs-23.2/lisp/org/org-id
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-icalendar hides 
d:/gnu/emacs-23.2/lisp/org/org-icalendar
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-html hides 
d:/gnu/emacs-23.2/lisp/org/org-html
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-habit hides 
d:/gnu/emacs-23.2/lisp/org/org-habit
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-gnus hides 
d:/gnu/emacs-23.2/lisp/org/org-gnus
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-freemind hides 
d:/gnu/emacs-23.2/lisp/org/org-freemind
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-footnote hides 
d:/gnu/emacs-23.2/lisp/org/org-footnote
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-feed hides 
d:/gnu/emacs-23.2/lisp/org/org-feed
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-faces hides 
d:/gnu/emacs-23.2/lisp/org/org-faces
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-exp hides 
d:/gnu/emacs-23.2/lisp/org/org-exp
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-exp-blocks hides 
d:/gnu/emacs-23.2/lisp/org/org-exp-blocks
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-docbook hides 
d:/gnu/emacs-23.2/lisp/org/org-docbook
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-datetree hides 
d:/gnu/emacs-23.2/lisp/org/org-datetree
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-crypt hides 
d:/gnu/emacs-23.2/lisp/org/org-crypt
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-compat hides 
d:/gnu/emacs-23.2/lisp/org/org-compat
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-colview hides 
d:/gnu/emacs-23.2/lisp/org/org-colview
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-clock hides 
d:/gnu/emacs-23.2/lisp/org/org-clock
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-bibtex hides 
d:/gnu/emacs-23.2/lisp/org/org-bibtex
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-bbdb hides 
d:/gnu/emacs-23.2/lisp/org/org-bbdb
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-attach hides 
d:/gnu/emacs-23.2/lisp/org/org-attach
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-ascii hides 
d:/gnu/emacs-23.2/lisp/org/org-ascii
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-archive hides 
d:/gnu/emacs-23.2/lisp/org/org-archive
d:/gnu/emacs-23.2/../packages/org-mode/lisp/org-agenda hides 
d:/gnu/emacs-23.2/lisp/org/org-agenda
d:/Home/udr/share/emacs/rnews hides d:/gnu/emacs-23.2/lisp/obsolete/rnews

Features:
(shadow warnings emacsbug find-dired ediff-merg ediff-diff ediff-wind
ediff-help ediff-util ediff-mult ediff-init ediff noutline outline
easy-mmode autoconf autoconf-mode make-mode smtpmail vm-pine flyspell
ispell newcomment mailalias bbdb-gui vc-annotate vc vc-dispatcher
find-func vm-reply debug sort gnus-cite smiley flow-fill gnus-async
gnus-bcklg byte-opt bytecomp byte-compile gnus-salt gnus-ml nndoc utf-7
utf7 parse-time nnimap imap nnfolder nndraft nnmh gnus-agent gnus-srvr
gnus-score score-mode nnvirtual gnus-msg gnus-art mm-uu mml2015 mm-view
smime dig nntp gnus-cache gnus-sum nnoo gnus-group gnus-undo nnmail
mail-source gnus-start gnus-spec gnus-int gnus-range message ecomplete
mml mml-sec mm-decode mm-bodies mm-encode mailcap gmm-utils mailheader
canlock hashcash gnus-win gnus gnus-ems nnheader mail-utils crm
thingatpt cus-edit cus-start cus-load pp info ansi-color multi-isearch
vm-delete longlines help-mode view bbdb-hooks mail-parse rfc2231 rfc2047
rfc2045 qp ietf-drums mm-util mail-prsvr w3m-form vm-w3m w3m browse-url
doc-view dired-x dired-aux mydired dired desktop image-mode w3m-hist
w3m-fb w3m-ems wid-edit w3m-ccl ccl w3m-favicon w3m-image w3m-proc
w3m-util vm-pop tapestry vm-sort vm-thread vm-crypto vm-imap
vm-summary-faces vm-virtual etags vm-ps-print ps-print ps-def lpr
vm-save my-vm vm-rfaddons vm-menu vm-window vm-toolbar vm-folder vm-mime
vm-undo vm-mouse vm-page vm-minibuf vm-message vm-misc vm-macro bbdb-vm
vm-motion vm-autoload bbdb-snarf mail-extr rfc822 bbdb-com mailabbrev vm
vm-summary cl-specs vc-bzr sha1 hex-util tramp-imap assoc tramp-gw
tramp-fish tramp-cache tramp-ftp tramp-cmds tramp shell password-cache
format-spec tramp-compat trampver testcover edebug easymenu messcompat
w3m-load bbdb-autoloads bbdb timezone vm-autoloads vm-vars vm-version
org-install ange-ftp tex-site tex-mik telnet comint ring movement
natural-space NatSpeak sendmail auth-source gnus-util netrc time-date
epa-file epa epg epg-config regexp-opt echistory chistory ehelp electric
derived which-func imenu advice help-fns advice-preload edmacro kmacro
savehist-20+ cl cl-19 jka-compr tooltip ediff-hook vc-hooks
lisp-float-type mwheel dos-w32 disp-table ls-lisp w32-win w32-vars
tool-bar dnd fontset image fringe lisp-mode register page menu-bar
rfn-eshadow timer select scroll-bar mldrag mouse jit-lock font-lock
syntax facemenu font-core frame cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev loaddefs button
minibuffer faces cus-face files text-properties overlay md5 base64
format env code-pages mule custom widget hashtable-print-readable
backquote make-network-process multi-tty emacs)

--