# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1050174341 0
# Node ID 6958557aad9b09640cd7c8fe1ecd6508ad031e74
# Parent  1b32397dd4e2d2c1363c72db1e55704b3f201509
(server-start): Use letf.

diff -r 1b32397dd4e2 -r 6958557aad9b lisp/server.el
--- a/lisp/server.el	Sat Apr 12 19:04:11 2003 +0000
+++ b/lisp/server.el	Sat Apr 12 19:05:41 2003 +0000
@@ -259,20 +259,16 @@
   (unless leave-dead
     (if server-process
 	(server-log (message "Restarting server")))
-    (let ((umask (default-file-modes)))
-      (unwind-protect
-	  (progn
-	    (set-default-file-modes ?\700)
-	    (setq server-process
-		  (make-network-process
-		   :name "server" :family 'local :server t :noquery t
-		   :service server-socket-name
-		   :sentinel 'server-sentinel :filter 'server-process-filter
-		   ;; We must receive file names without being decoded.
-		   ;; Those are decoded by server-process-filter according
-		   ;; to file-name-coding-system.
-		   :coding 'raw-text)))
-	(set-default-file-modes umask)))))
+    (letf (((default-file-modes) ?\700))
+      (setq server-process
+	    (make-network-process
+	     :name "server" :family 'local :server t :noquery t
+	     :service server-socket-name
+	     :sentinel 'server-sentinel :filter 'server-process-filter
+	     ;; We must receive file names without being decoded.
+	     ;; Those are decoded by server-process-filter according
+	     ;; to file-name-coding-system.
+	     :coding 'raw-text)))))
 
 ;;;###autoload
 (define-minor-mode server-mode