mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases 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
Show Stats 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> 2002-04-12 Dave Love <fx@gnu.org>
* help.el (string-key-binding): Deal with margin events. * 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." If DISPLAY is omitted or nil, it defaults to the selected frame's display."
(let* ((display (or display (frame-parameter nil 'display))) (let* ((display (or display (frame-parameter nil 'display)))
(func #'(lambda (frame) (func #'(lambda (frame)
(eq (frame-parameter frame 'display) display)))) (equal (frame-parameter frame 'display) display))))
(filtered-frame-list func))) (filtered-frame-list func)))
(defun framep-on-display (&optional display) (defun framep-on-display (&optional display)