aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/server.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/server.el')
-rw-r--r--lisp/server.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/server.el b/lisp/server.el
index e6477b92d6f..4d21959774a 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -242,8 +242,7 @@ ENV should be in the same format as `process-environment'."
242 "Delete PROC, including its buffers, terminals and frames. 242 "Delete PROC, including its buffers, terminals and frames.
243If NOFRAME is non-nil, let the frames live. (To be used from 243If NOFRAME is non-nil, let the frames live. (To be used from
244`delete-frame-functions'.)" 244`delete-frame-functions'.)"
245 (server-log (concat "server-delete-client" (if noframe " noframe")) 245 (server-log (concat "server-delete-client" (if noframe " noframe")) proc)
246 proc)
247 ;; Force a new lookup of client (prevents infinite recursion). 246 ;; Force a new lookup of client (prevents infinite recursion).
248 (when (memq proc server-clients) 247 (when (memq proc server-clients)
249 (let ((buffers (process-get proc 'buffers))) 248 (let ((buffers (process-get proc 'buffers)))
@@ -339,7 +338,7 @@ If CLIENT is non-nil, add a description of it to the logged message."
339 display 338 display
340 ;; Make it display (and remember) some dummy buffer, so 339 ;; Make it display (and remember) some dummy buffer, so
341 ;; we can detect later if the frame is in use or not. 340 ;; we can detect later if the frame is in use or not.
342 `((server-dummmy-buffer . ,buffer) 341 `((server-dummy-buffer . ,buffer)
343 ;; This frame may be deleted later (see 342 ;; This frame may be deleted later (see
344 ;; server-unselect-display) so we want it to be as 343 ;; server-unselect-display) so we want it to be as
345 ;; unobtrusive as possible. 344 ;; unobtrusive as possible.
@@ -833,7 +832,8 @@ The following commands are accepted by the client:
833 ;; -display DISPLAY: 832 ;; -display DISPLAY:
834 ;; Open X frames on the given display instead of the default. 833 ;; Open X frames on the given display instead of the default.
835 ((and (equal "-display" arg) command-line-args-left) 834 ((and (equal "-display" arg) command-line-args-left)
836 (setq display (pop command-line-args-left))) 835 (setq display (pop command-line-args-left))
836 (if (zerop (length display)) (setq display nil)))
837 837
838 ;; -window-system: Open a new X frame. 838 ;; -window-system: Open a new X frame.
839 ((equal "-window-system" arg) 839 ((equal "-window-system" arg)