[Emacs-diffs] emacs/lisp ChangeLog server.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/09/18 16:55:24

Modified files:
        lisp           : ChangeLog server.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16204&r2=1.16205
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/server.el?cvsroot=emacs&r1=1.195&r2=1.196

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16204
retrieving revision 1.16205
diff -u -b -r1.16204 -r1.16205
--- ChangeLog   18 Sep 2009 15:35:23 -0000      1.16204
+++ ChangeLog   18 Sep 2009 16:55:21 -0000      1.16205
@@ -1,3 +1,8 @@
+2009-09-18  Juanma Barranquero  <address@hidden>
+
+       * server.el (server-ensure-safe-dir): Pass 'integer
+       to `file-attributes', as suggested.
+
 2009-09-18  Stefan Monnier  <address@hidden>
 
        * dired-aux.el (dired-query-alist): Remove spurious backslash.

Index: server.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/server.el,v
retrieving revision 1.195
retrieving revision 1.196
diff -u -b -r1.195 -r1.196
--- server.el   3 Sep 2009 06:55:01 -0000       1.195
+++ server.el   18 Sep 2009 16:55:24 -0000      1.196
@@ -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)