[Emacs-diffs] Changes to emacs/lisp/server.el

[Stefan Monnier]

Index: emacs/lisp/server.el
diff -c emacs/lisp/server.el:1.91 emacs/lisp/server.el:1.92
*** emacs/lisp/server.el:1.91   Sat Apr 12 15:04:11 2003
--- emacs/lisp/server.el        Sat Apr 12 15:05:41 2003
***************
*** 259,278 ****
    (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)))))
  
  ;;;###autoload
  (define-minor-mode server-mode
--- 259,274 ----
    (unless leave-dead
      (if server-process
        (server-log (message "Restarting server")))
!     (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