From: Eli Zaretskii Date: Fri, 12 Apr 2002 16:50:54 +0000 (+0000) Subject: (frames-on-display-list): Use `equal' to compare the X-Git-Tag: ttn-vms-21-2-B4~15649 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f29173c9848777a3c8b3385fab84e4fcd5fd9ff6;p=emacs.git (frames-on-display-list): Use `equal' to compare the `display' frame parameter to the argument DISPLAY. --- 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)