Don't create HOME if it doesn't exist

* lisp/files.el (locate-user-emacs-file): Don't create HOME if it
doesn't exist (bug#47298).  This returns us to Emacs 26.3
behaviour here.

diff --git a/lisp/files.el b/lisp/files.el
index a804f0088eebb8b408ab5205d279c9937d2be85a..cc38f4e921f02e4de2ff1c3560ee99b5c1f0efd3 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1115,10 +1115,17 @@ directory if it does not exist."
             (if (file-directory-p user-emacs-directory)
                 (or (file-accessible-directory-p user-emacs-directory)
                     (setq errtype "access"))
-              (with-file-modes ?\700
-                (condition-case nil
-                    (make-directory user-emacs-directory t)
-                  (error (setq errtype "create")))))
+               ;; We don't want to create HOME if it doesn't exist.
+               (if (and (not (file-exists-p "~"))
+                        (string-prefix-p
+                         (expand-file-name "~")
+                         (expand-file-name user-emacs-directory)))
+                   (setq errtype "create")
+                 ;; Create `user-emacs-directory'.
+                (with-file-modes ?\700
+                  (condition-case nil
+                      (make-directory user-emacs-directory t)
+                    (error (setq errtype "create"))))))
             (when (and errtype
                        user-emacs-directory-warning
                        (not (get 'user-emacs-directory-warning 'this-session)))