From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: John Paul Wallington <jpw@shootybangbang.com>
Newsgroups: gmane.emacs.devel
Subject: Re: display-pixel-height not working as advertized
Date: Thu, 11 Apr 2002 00:27:45 +0100
Sender: emacs-devel-admin@gnu.org
Message-ID: <878z7vp21a.fsf@bundalo.shootybangbang.com>
References: <E16uX2D-0006h6-00@aris>
	<200204091208.g39C8em20490@aztec.santafe.edu>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1018481085 20902 127.0.0.1 (10 Apr 2002 23:24:45 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Wed, 10 Apr 2002 23:24:45 +0000 (UTC)
Cc: johnw@gnu.org,  emacs-devel@gnu.org
Return-path: <emacs-devel-admin@gnu.org>
Original-Received: from quimby.gnus.org ([80.91.224.244])
	by main.gmane.org with esmtp (Exim 3.33 #1 (Debian))
	id 16vRSH-0005R1-00
	for <emacs-devel@main.gmane.org>; Thu, 11 Apr 2002 01:24:45 +0200
Original-Received: from fencepost.gnu.org ([199.232.76.164])
	by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian))
	id 16vRhk-0007Pk-00
	for <emacs-devel@quimby.gnus.org>; Thu, 11 Apr 2002 01:40:44 +0200
Original-Received: from localhost ([127.0.0.1] helo=fencepost.gnu.org)
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 16vRRe-0001yU-00; Wed, 10 Apr 2002 19:24:06 -0400
Original-Received: from imailg1.svr.pol.co.uk ([195.92.195.179])
	by fencepost.gnu.org with esmtp (Exim 3.34 #1 (Debian))
	id 16vRQd-0001w6-00; Wed, 10 Apr 2002 19:23:03 -0400
Original-Received: from modem-332.gacked.dialup.pol.co.uk ([62.25.241.76] helo=bundalo.shootybangbang.com)
	by imailg1.svr.pol.co.uk with esmtp (Exim 3.35 #1)
	id 16vRQc-0004AM-00; Thu, 11 Apr 2002 00:23:02 +0100
Original-Received: from jpw by bundalo.shootybangbang.com with local (Exim 3.32 #1 (Debian))
	id 16vRVB-0004xA-00; Thu, 11 Apr 2002 00:27:45 +0100
Original-To: rms@gnu.org
X-Attribution: jpw
X-Face: &V*IHH~mf!$dY'jlvk2-lEj<C|DhpVpfBD\IzFe}ByI1Myj:_vN=nOA\DrW)oif<E*[6@tY
 >|Q=j1NBb$bI=$2yp+8>QoN"s<E]SZZZ7[pXm^<_tDy=qVr~z,lKfO6]?=q[<67+94Nh'>c}@htZ-@
 6"cdyaM-
In-Reply-To: <200204091208.g39C8em20490@aztec.santafe.edu> (Richard
 Stallman's message of "Tue, 9 Apr 2002 06:08:40 -0600 (MDT)")
Original-Lines: 22
Errors-To: emacs-devel-admin@gnu.org
X-BeenThere: emacs-devel@gnu.org
X-Mailman-Version: 2.0.9
Precedence: bulk
List-Help: <mailto:emacs-devel-request@gnu.org?subject=help>
List-Post: <mailto:emacs-devel@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=subscribe>
List-Id: Emacs development discussions. <emacs-devel.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/emacs-devel>,
	<mailto:emacs-devel-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/emacs-devel/>
Xref: main.gmane.org gmane.emacs.devel:2525
X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:2525

Richard Stallman <rms@gnu.org> wrote:

>     This seems to be because (framep-on-display "some.host.com:0") always
>     returns nil.
>
> Since the failure is happening on your machine, could you debug why it
> fails?

Should `frames-on-display-list' use equal instead of eq ?

(defun frames-on-display-list (&optional display)
  "Return a list of all frames on DISPLAY.
DISPLAY is a name of a display, a string of the form HOST:SERVER.SCREEN.
If DISPLAY is omitted or nil, it defaults to the selected frame's display."
  (let* ((display (or display (frame-parameter nil 'display)))
	 (func #'(lambda (frame)
-		   (eq (frame-parameter frame 'display) display))))
+		   (equal (frame-parameter frame 'display) display))))
    (filtered-frame-list func)))

-- 
John Paul Wallington