Mercurial > emacs
comparison lisp/server.el @ 1540:f3554332993b
Doc fix.
| author | Christopher Zaborsky <rogue@erratum.com> |
|---|---|
| date | Tue, 03 Nov 1992 21:08:55 +0000 |
| parents | 0c960257c363 |
| children | 48ddb3600ae6 |
comparison
equal
deleted
inserted
replaced
| 1539:5677f906bf78 | 1540:f3554332993b |
|---|---|
| 251 are considered temporary." | 251 are considered temporary." |
| 252 (and (buffer-file-name buffer) | 252 (and (buffer-file-name buffer) |
| 253 (string-match server-temp-file-regexp (buffer-file-name buffer)))) | 253 (string-match server-temp-file-regexp (buffer-file-name buffer)))) |
| 254 | 254 |
| 255 (defun server-done () | 255 (defun server-done () |
| 256 "Offer to save current buffer, mark it as \"done\" for clients, | 256 "Offer to save current buffer, mark it as \"done\" for clients. |
| 257 bury it, and return a suggested buffer to select next." | 257 Then bury it, and return a suggested buffer to select next." |
| 258 (let ((buffer (current-buffer))) | 258 (let ((buffer (current-buffer))) |
| 259 (if server-buffer-clients | 259 (if server-buffer-clients |
| 260 (progn | 260 (progn |
| 261 (if (server-temp-file-p buffer) | 261 (if (server-temp-file-p buffer) |
| 262 (progn (save-buffer) | 262 (progn (save-buffer) |