# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 742708874 0
# Node ID badd80e9e4fc58284e613c5184365411ed21ea47
# Parent  f60102c4b94866f62dd669f2dee43328be51e0b6
(server-done): Let save-buffer make the backup,
so that make-backup-files remains effective.

diff -r f60102c4b948 -r badd80e9e4fc lisp/server.el
--- 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,