diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-04-12 19:05:41 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-04-12 19:05:41 +0000 |
| commit | e5576936b9cf8de84f985ea1b0ebac80a03db9b7 (patch) | |
| tree | 5e5e99021d8ece2b744e8bdaa608a60446d1187c /lisp | |
| parent | 724629d2c2c796c1f831f33db6201f5f9f515a26 (diff) | |
| download | emacs-e5576936b9cf8de84f985ea1b0ebac80a03db9b7.tar.gz | |
(server-start): Use letf.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/server.el | 24 |
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 |