427 |
|
|
428 |
(defun server-done () |
(defun server-done () |
429 |
"Offer to save current buffer, mark it as \"done\" for clients. |
"Offer to save current buffer, mark it as \"done\" for clients. |
430 |
This buries the buffer, then returns a list of the form (NEXT-BUFFER KILLED). |
This kills or buries the buffer, then returns a list |
431 |
NEXT-BUFFER is another server buffer, as a suggestion for what to select next, |
of the form (NEXT-BUFFER KILLED). NEXT-BUFFER is another server buffer, |
432 |
or nil. KILLED is t if we killed BUFFER |
as a suggestion for what to select next, or nil. |
433 |
\(typically, because it was visiting a temp file)." |
KILLED is t if we killed BUFFER, which happens if it was created |
434 |
|
specifically for the clients and did not exist before their request for it." |
435 |
(let ((buffer (current-buffer))) |
(let ((buffer (current-buffer))) |
436 |
(if server-buffer-clients |
(if server-buffer-clients |
437 |
(progn |
(progn |
489 |
(defun server-edit (&optional arg) |
(defun server-edit (&optional arg) |
490 |
"Switch to next server editing buffer; say \"Done\" for current buffer. |
"Switch to next server editing buffer; say \"Done\" for current buffer. |
491 |
If a server buffer is current, it is marked \"done\" and optionally saved. |
If a server buffer is current, it is marked \"done\" and optionally saved. |
492 |
|
The buffer is also killed if it did not exist before the clients asked for it. |
493 |
When all of a client's buffers are marked as \"done\", the client is notified. |
When all of a client's buffers are marked as \"done\", the client is notified. |
494 |
|
|
495 |
Temporary files such as MH <draft> files are always saved and backed up, |
Temporary files such as MH <draft> files are always saved and backed up, |