diff options
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 8 |
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. |
| 243 | If NOFRAME is non-nil, let the frames live. (To be used from | 243 | If 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) |