(user-emacs-directory): New defconst.

1 files changed, 9 insertions, 0 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index a05c1d1578..7ce7071f2f 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -2041,6 +2041,15 @@ On other systems, this variable is normally always nil.")
 (put 'cl-assertion-failed 'error-conditions '(error))
 (put 'cl-assertion-failed 'error-message "Assertion failed")
 
+(defconst user-emacs-directory
+  (if (eq system-type 'ms-dos)
+      ;; MS-DOS cannot have initial dot.
+      "~/_emacs.d/"
+    "~/.emacs.d/")
+  "Directory beneath which additional per-user Emacs-specific files are placed.
+Various programs in Emacs store information in this directory.
+Note that this should end with a directory separator.")
+
 
 ;;;; Misc. useful functions.