Commit d7554167 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

  to `file-attributes', as suggested.
parent 35a3f9a4
2009-09-18 Juanma Barranquero <>
* server.el (server-ensure-safe-dir): Pass 'integer
to `file-attributes', as suggested.
2009-09-18 Stefan Monnier <>
* dired-aux.el (dired-query-alist): Remove spurious backslash.
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment