Mercurial > emacs
changeset 4096:badd80e9e4fc
(server-done): Let save-buffer make the backup,
so that make-backup-files remains effective.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Jul 1993 04:01:14 +0000 |
| parents | f60102c4b948 |
| children | 15c4c0c37fe2 |
| files | lisp/server.el |
| diffstat | 1 files changed, 9 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/server.el Thu Jul 15 03:46:02 1993 +0000 +++ b/lisp/server.el Thu Jul 15 04:01:14 1993 +0000 @@ -268,10 +268,12 @@ (if server-buffer-clients (progn (if (server-temp-file-p buffer) - (progn (save-buffer) - (write-region (point-min) (point-max) - (concat buffer-file-name "~")) - (kill-buffer buffer)) + ;; For a temp file, save, and do make a non-numeric backup + ;; (unless make-backup-files is nil). + (let ((version-control nil) + (buffer-backed-up nil)) + (save-buffer) + (kill-buffer buffer)) (if (and (buffer-modified-p) (y-or-n-p (concat "Save file " buffer-file-name "? "))) (save-buffer buffer))) @@ -283,7 +285,9 @@ When all of a client's buffers are marked as \"done\", the client is notified. Temporary files such as MH <draft> files are always saved and backed up, -no questions asked. The variable `server-temp-file-regexp' controls +no questions asked. (The variable `make-backup-files', if nil, still +inhibits a backup; you can set it locally in a particular buffer to +prevent a backup for it.) The variable `server-temp-file-regexp' controls which filenames are considered temporary. If invoked with a prefix argument, or if there is no server process running,