diff options
| -rw-r--r-- | lisp/server.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/server.el b/lisp/server.el index 33800a98682..4c591a5ee7c 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -546,14 +546,15 @@ See variable `server-auth-dir' for details." | |||
| 546 | ;; group recorded as the owner. | 546 | ;; group recorded as the owner. |
| 547 | (/= uid 544) (/= (user-uid) 500))) | 547 | (/= uid 544) (/= (user-uid) 500))) |
| 548 | (format "it is not owned by you (owner = %s (%d))" | 548 | (format "it is not owned by you (owner = %s (%d))" |
| 549 | (user-full-name (user-uid)) (user-uid))) | 549 | (user-full-name uid) uid)) |
| 550 | (w32 nil) ; on NTFS? | 550 | (w32 nil) ; on NTFS? |
| 551 | ((/= 0 (logand ?\077 (file-modes dir))) | 551 | ((/= 0 (logand ?\077 (file-modes dir))) |
| 552 | (format "it is accessible by others (%03o)" | 552 | (format "it is accessible by others (%03o)" |
| 553 | (file-modes dir))) | 553 | (file-modes dir))) |
| 554 | (t nil)))) | 554 | (t nil)))) |
| 555 | (when unsafe | 555 | (when unsafe |
| 556 | (error "`%s' is not a safe directory because %s" dir unsafe))))) | 556 | (error "`%s' is not a safe directory because %s" |
| 557 | (expand-file-name dir) unsafe))))) | ||
| 557 | 558 | ||
| 558 | (defun server-generate-key () | 559 | (defun server-generate-key () |
| 559 | "Generate and return a random authentication key. | 560 | "Generate and return a random authentication key. |