Mercurial > emacs
changeset 50568:6958557aad9b
(server-start): Use letf.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sat, 12 Apr 2003 19:05:41 +0000 |
| parents | 1b32397dd4e2 |
| children | f7bd4869e2a8 |
| files | lisp/server.el |
| diffstat | 1 files changed, 10 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- 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