mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(server-select-display): Nop if we do not support m-f-o-d.

Browse Source 
(server-process-filter): Revert last change.
This commit is contained in:
Stefan Monnier 2007-10-17 16:22:48 +00:00
parent 17f3909f61
commit 1a4a884cc5
2 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2007-10-17 Stefan Monnier <monnier@iro.umontreal.ca>
* server.el (server-select-display): Nop if we do not support m-f-o-d.
(server-process-filter): Revert last change.
* vc.el (vc-diff-sentinel, vc-diff-internal): Revert some change in the
behavior unrelated to filesets.

11
lisp/server.el
View File

@ -325,7 +325,10 @@ message."
(defun server-select-display (display)
;; If the current frame is on `display' we're all set.
(unless (equal (frame-parameter (selected-frame) 'display) display)
;; Similarly if we are unable to open a frames on other displays, there's
;; nothing more we can do.
(unless (or (not (fboundp 'make-frame-on-display))
(equal (frame-parameter (selected-frame) 'display) display))
;; Otherwise, look for an existing frame there and select it.
(dolist (frame (frame-list))
(when (equal (frame-parameter frame 'display) display)
@ -831,11 +834,7 @@ The following commands are accepted by the client:
;; Open X frames on the given display instead of the default.
((and (equal "-display" arg)
(string-match "\\([^ ]*\\) " request))
;; Only set `display' if X is supported.
;; Emacsclient cannot know if emacs supports X and
;; it will send -display anyway.
(when (memq 'x frame-creation-function-alist)
(setq display (match-string 1 request)))
(setq display (match-string 1 request))
(setq request (substring request (match-end 0))))
;; -window-system: Open a new X frame.