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

`display' frame parameter to the argument DISPLAY.

lisp/ChangeLog

+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.

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)