diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-01-10 03:51:24 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-01-10 03:51:24 +0000 |
| commit | da6657b760600f563720dedaf6dba1668f458bc2 (patch) | |
| tree | 75bbc9b53380e06c4f9434e0b8eef3a5108f587f /lisp/server.el | |
| parent | c5c6b2cc681fec1d9a1596d9378deea9a2b69656 (diff) | |
(server-ensure-safe-dir): UIDs may be floats.
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/server.el b/lisp/server.el index 3ae585e9bc4..beb065ef437 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -1,7 +1,7 @@ ;;; server.el --- Lisp code for GNU Emacs running as server process ;; Copyright (C) 1986, 1987, 1992, 1994, 1995, 1996, 1997, 1998, 1999, 2000, -;; 2001, 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. +;; 2001, 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. ;; Author: William Sommerfeld <wesommer@athena.mit.edu> ;; Maintainer: FSF @@ -298,7 +298,7 @@ Creates the directory if necessary and makes sure: (letf (((default-file-modes) ?\700)) (make-directory dir t)) (setq attrs (file-attributes dir))) ;; Check that it's safe for use. - (unless (and (eq t (car attrs)) (eq (nth 2 attrs) (user-uid)) + (unless (and (eq t (car attrs)) (eql (nth 2 attrs) (user-uid)) (or (eq system-type 'windows-nt) (zerop (logand ?\077 (file-modes dir))))) (error "The directory %s is unsafe" dir)))) |