(frames-on-display-list): Use `equal' to compare the

`display' frame parameter to the argument DISPLAY.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2951608..4c5d29f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-04-12  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * frame.el (frames-on-display-list): Use `equal' to compare the
+       `display' frame parameter to the argument DISPLAY.
+
 2002-04-12  Dave Love  <fx@gnu.org>
 
        * help.el (string-key-binding): Deal with margin events.

diff --git a/lisp/frame.el b/lisp/frame.el
index 6716f3d..1c7ab99 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -606,7 +606,7 @@ 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)))
 
 (defun framep-on-display (&optional display)