martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(server-start): Use letf.

Browse Source
This commit is contained in:
Stefan Monnier
2003-04-12 19:05:41 +00:00
parent 724629d2c2
commit e5576936b9
1 changed files with 10 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/server.el
View File

@@ -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