Mercurial > emacs
changeset 105090:b9e58ef2bdb6
* server.el (server-ensure-safe-dir): Pass 'integer
to `file-attributes', as suggested.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 18 Sep 2009 16:55:21 +0000 |
| parents | 30c99a719e21 |
| children | 7a298bd3ef6e |
| files | lisp/ChangeLog lisp/server.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Sep 18 15:35:23 2009 +0000 +++ b/lisp/ChangeLog Fri Sep 18 16:55:21 2009 +0000 @@ -1,3 +1,8 @@ +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 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)