diff lisp/server.el @ 105090:b9e58ef2bdb6

* server.el (server-ensure-safe-dir): Pass 'integer to `file-attributes', as suggested.

--- a/lisp/server.el	Fri Sep 18 15:35:23 2009 +0000
+++ b/lisp/server.el	Fri Sep 18 16:55:21 2009 +0000
@@ -449,10 +449,10 @@
 - it's owned by us
 - it's not readable/writable by anybody else."
   (setq dir (directory-file-name dir))
-  (let ((attrs (file-attributes dir)))
+  (let ((attrs (file-attributes dir 'integer)))
     (unless attrs
       (letf (((default-file-modes) ?\700)) (make-directory dir t))
-      (setq attrs (file-attributes dir)))
+      (setq attrs (file-attributes dir 'integer)))
     ;; Check that it's safe for use.
     (unless (and (eq t (car attrs)) (eql (nth 2 attrs) (user-uid))
                  (or (eq system-type 'windows-nt)