Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
1a4a884c
Commit
1a4a884c
authored
Oct 17, 2007
by
Stefan Monnier
Browse files
(server-select-display): Nop if we do not support m-f-o-d.
(server-process-filter): Revert last change.
parent
17f3909f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
8 additions
and
6 deletions
+8
-6
lisp/ChangeLog
lisp/ChangeLog
+3
-0
lisp/server.el
lisp/server.el
+5
-6
No files found.
lisp/ChangeLog
View file @
1a4a884c
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.
...
...
lisp/server.el
View file @
1a4a884c
...
...
@@ -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.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment