# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1018630217 0
# Node ID 923e4481a0b2ad03247b531164298f6dcdf058b8
# Parent  26bb1129889dcd1969d80848028fafb0120c7793
(frames-on-display-list): Use `equal' to compare the
`display' frame parameter to the argument DISPLAY.

diff -r 26bb1129889d -r 923e4481a0b2 lisp/frame.el
--- a/lisp/frame.el	Fri Apr 12 15:45:04 2002 +0000
+++ b/lisp/frame.el	Fri Apr 12 16:50:17 2002 +0000
@@ -606,7 +606,7 @@
 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)