Re: display-pixel-height not working as advertized

[John Paul Wallington]

Richard Stallman <address@hidden> 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