(server-start): Use letf.

1 files changed, 10 insertions, 14 deletions

diff --git a/lisp/server.el b/lisp/server.el
index 5256df44dd4..71e2463c595 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -259,20 +259,16 @@ Prefix arg means just kill any existing server communications subprocess."
   (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