From: Chong Yidong <cyd@stupidchicken.com>
Date: Wed, 13 Jun 2007 00:03:28 +0000 (+0000)
Subject: (user-emacs-directory): New defconst.
X-Git-Tag: emacs-pretest-23.0.90~12342
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8869c65a3c39770c53e0b3294f64424932d241f;p=emacs.git

(user-emacs-directory): New defconst.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index a05c1d15780..7ce7071f2f7 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.