From 3be4d85e8a871b4b47c4acd212e430e3d7825190 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 12 Apr 2002 16:50:17 +0000 Subject: (frames-on-display-list): Use `equal' to compare the `display' frame parameter to the argument DISPLAY. --- lisp/frame.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/frame.el') 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) -- cgit v1.2.1