* server.el (server-ensure-safe-dir): Pass 'integer

to `file-attributes', as suggested.

* server.el (server-ensure-safe-dir): Pass 'integer
to `file-attributes', as suggested.
d7554167 · Juanma Barranquero · 35a3f9a4 · d7554167 · d7554167
Commit d7554167 authored Sep 18, 2009 by Juanma Barranquero
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +5 -0

lisp/server.el lisp/server.el +2 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2009-09-18  Juanma Barranquero  <lekktu@gmail.com>
+
+	* server.el (server-ensure-safe-dir): Pass 'integer
+	to `file-attributes', as suggested.
+
 2009-09-18  Stefan Monnier  <monnier@iro.umontreal.ca>

 	* dired-aux.el (dired-query-alist): Remove spurious backslash.

--- a/lisp/server.el
+++ b/lisp/server.el
@@ -449,10 +449,10 @@ Creates the directory if necessary and makes sure:
 - 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)