diff options
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lisp/server.el b/lisp/server.el index 1f33a552575..c40b36fa752 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -1026,11 +1026,13 @@ which filenames are considered temporary. | |||
| 1026 | If invoked with a prefix argument, or if there is no server process running, | 1026 | If invoked with a prefix argument, or if there is no server process running, |
| 1027 | starts server process and that is all. Invoked by \\[server-edit]." | 1027 | starts server process and that is all. Invoked by \\[server-edit]." |
| 1028 | (interactive "P") | 1028 | (interactive "P") |
| 1029 | (if (or arg | 1029 | (cond |
| 1030 | (not server-process) | 1030 | ((or arg |
| 1031 | (memq (process-status server-process) '(signal exit))) | 1031 | (not server-process) |
| 1032 | (server-mode 1) | 1032 | (memq (process-status server-process) '(signal exit))) |
| 1033 | (apply 'server-switch-buffer (server-done)))) | 1033 | (server-mode 1)) |
| 1034 | (server-clients (apply 'server-switch-buffer (server-done))) | ||
| 1035 | (t (message "No server editing buffers exist")))) | ||
| 1034 | 1036 | ||
| 1035 | (defun server-switch-buffer (&optional next-buffer killed-one) | 1037 | (defun server-switch-buffer (&optional next-buffer killed-one) |
| 1036 | "Switch to another buffer, preferably one that has a client. | 1038 | "Switch to another buffer, preferably one that has a client. |