From f29173c9848777a3c8b3385fab84e4fcd5fd9ff6 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 12 Apr 2002 16:50:54 +0000 Subject: [PATCH] (frames-on-display-list): Use `equal' to compare the `display' frame parameter to the argument DISPLAY. --- lisp/ChangeLog | 5 +++++ lisp/frame.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * frame.el (frames-on-display-list): Use `equal' to compare the + `display' frame parameter to the argument DISPLAY. + 2002-04-12 Dave Love * 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) -- 2.39.5