From e5576936b9cf8de84f985ea1b0ebac80a03db9b7 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 12 Apr 2003 19:05:41 +0000 Subject: [PATCH] (server-start): Use letf. --- lisp/server.el | 24 ++++++++++-------------- 1 file 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 -- 2.39.2