mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 16:51:06 -07:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
`display' frame parameter to the argument DISPLAY.
This commit is contained in:
Eli Zaretskii 2002-04-12 16:50:54 +00:00
parent ec2bb97f5c
commit f29173c984
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
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.

2
lisp/frame.el
View file

@ -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)