From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 18 Jul 2019 15:10:05 +0000 (-0400)
Subject: * lisp/server.el (server-ensure-safe-dir): Revert part of b663c8372495
X-Git-Tag: emacs-27.0.90~1864
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a2f763e5cc0ed5b5eecd6a315ac45310bc7a2dd;p=emacs.git

* lisp/server.el (server-ensure-safe-dir): Revert part of b663c8372495

A non-cosmetic change that was mistakenly included.
---

diff --git a/lisp/server.el b/lisp/server.el
index 3435702a651..d491a260377 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -535,16 +535,6 @@ Creates the directory if necessary and makes sure:
       (cl-letf (((default-file-modes) ?\700)) (make-directory dir t))
       (setq attrs (file-attributes dir 'integer)))
 
-    (let ((olddir (or (getenv "TMPDIR") "/tmp")))
-      (when (and (equal dir (format "%s/emacs" (getenv "XDG_RUNTIME_DIR")))
-                 (file-writable-p olddir))
-        (let ((link (format "%s/emacs%d" olddir (user-uid))))
-          (unless (file-directory-p link)
-            ;; We're using the new location, so try and setup a symlink from
-            ;; the old location, in case we want to use an old emacsclient.
-            ;; FIXME: Check that it's safe to use!
-            (make-symbolic-link dir link t)))))
-
     ;; Check that it's safe for use.
     (let* ((uid (file-attribute-user-id attrs))
 	   (w32 (eq system-type 'windows-nt))