From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Michael Heerdegen Newsgroups: gmane.emacs.bugs Subject: bug#15900: 24.3.50; foreground-color-at-point returns wrong results Date: Fri, 15 Nov 2013 03:47:41 +0100 Message-ID: <87mwl6xtwy.fsf@web.de> References: <87siuyxvw7.fsf@web.de> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1384483697 19690 80.91.229.3 (15 Nov 2013 02:48:17 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Fri, 15 Nov 2013 02:48:17 +0000 (UTC) To: 15900@debbugs.gnu.org Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Fri Nov 15 03:48:21 2013 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Vh9SG-0006FO-RQ for geb-bug-gnu-emacs@m.gmane.org; Fri, 15 Nov 2013 03:48:20 +0100 Original-Received: from localhost ([::1]:58151 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vh9SG-0005Gq-5Y for geb-bug-gnu-emacs@m.gmane.org; Thu, 14 Nov 2013 21:48:20 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:55172) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vh9S6-0005Fe-1S for bug-gnu-emacs@gnu.org; Thu, 14 Nov 2013 21:48:17 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Vh9Ry-0005Ho-Lx for bug-gnu-emacs@gnu.org; Thu, 14 Nov 2013 21:48:09 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:38894) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Vh9Ry-0005Hk-I6 for bug-gnu-emacs@gnu.org; Thu, 14 Nov 2013 21:48:02 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.80) (envelope-from ) id 1Vh9Ry-0006JL-2C for bug-gnu-emacs@gnu.org; Thu, 14 Nov 2013 21:48:02 -0500 X-Loop: help-debbugs@gnu.org Resent-From: Michael Heerdegen Original-Sender: "Debbugs-submit" Resent-CC: bug-gnu-emacs@gnu.org Resent-Date: Fri, 15 Nov 2013 02:48:02 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 15900 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 15900-submit@debbugs.gnu.org id=B15900.138448367724248 (code B ref 15900); Fri, 15 Nov 2013 02:48:02 +0000 Original-Received: (at 15900) by debbugs.gnu.org; 15 Nov 2013 02:47:57 +0000 Original-Received: from localhost ([127.0.0.1]:52913 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Vh9Rs-0006J2-JC for submit@debbugs.gnu.org; Thu, 14 Nov 2013 21:47:56 -0500 Original-Received: from mout.web.de ([212.227.17.12]:50153) by debbugs.gnu.org with esmtp (Exim 4.80) (envelope-from ) id 1Vh9Rq-0006Io-Dg for 15900@debbugs.gnu.org; Thu, 14 Nov 2013 21:47:55 -0500 Original-Received: from drachen.dragon ([90.186.115.39]) by smtp.web.de (mrweb103) with ESMTPA (Nemesis) id 0McFLP-1Vxzk512Ln-00JdZQ for <15900@debbugs.gnu.org>; Fri, 15 Nov 2013 03:47:48 +0100 In-Reply-To: <87siuyxvw7.fsf@web.de> (Michael Heerdegen's message of "Fri, 15 Nov 2013 03:04:56 +0100") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (gnu/linux) X-Provags-ID: V03:K0:2OZJPE0aGlUDBwPh3XzVHF9p85ptNxRw1Q0DOqPlnZM0NA2Ju5+ ZgY4Xj3LdqZw+l/+7aRsrE4AW6ppRflgR9bExQaGp0G9R9u2zQ4EXTmFrO+yt06CWHglyoy w+MHhZqY6grGxBamnsWLRHDdfrgh7A0UGUCGpX3j5q8OZYOuXKYpBi+mF4mDyFBUXw8Mw3G WkvyIaOL54GqcvzXmELDw== X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.15 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 3.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs@gnu.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.bugs:80464 Archived-At: Michael Heerdegen writes: > Hello, > > `foreground-color-at-point' doesn't return the expected result when > there are several faces at point present. > > For example, on the red subject in a Gnus article buffer, or on a blue > link in w3m, it returns "black". Looking at the code, I see that > `foreground-color-at-point' uses > > (face-at-point) > > i.e., it looks only at one face and disregards the others. This is > especially meaningless when this first face doesn't specify any > foreground at all. Even (face-at-point nil 'multiple) is not correct. Evaluated in w3m with point on a link, i get ==> (w3m-current-anchor) This is what I get for M-1 C-x = (excerpt) ,---------------------------------------------------------------------- | There is an overlay here: | From 7785 to 7798 | evaporate t | face w3m-current-anchor | w3m-momentary-overlay t | | | There are text properties here: | balloon-help nil | face (w3m-anchor) | help-echo [Show] | keymap [Show] | mouse-face highlight | rear-nonsticky t | w3m-anchor-sequence 75 | w3m-anchor-title nil | w3m-balloon-help [Show] | w3m-href-anchor [Show] | w3m-name-anchor [Show] | w3m-name-anchor2 ("showmodes" "gb_70") | w3m-safe-url-regexp nil `---------------------------------------------------------------------- `face-at-point' disregards the face text property, it only returns the face overlay property. > So, what I need is a reliable `foreground-color-at-point'. Tips and > alternatives welcome. I try to use something like this as a workaround now: --8<---------------cut here---------------start------------->8--- (cl-some (lambda (face) (not (memq (face-foreground face nil t) `(nil ,(face-attribute 'default :foreground))))) (cl-mapcan (lambda (face-or-list) (if (facep face-or-list) (list face-or-list) face-or-list)) (list (get-text-property (point) 'face) (get-text-property (point) 'font-lock-face)))) --8<---------------cut here---------------end--------------->8--- Regards, Michael.