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

`display' frame parameter to the argument DISPLAY.

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 29516086522..4c5d29f9b45 100644
--- 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 6716f3d2657..1c7ab99cb6d 100644
--- 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)