# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1181693008 0
# Node ID 62535fec6ee156286b2ae593d995e292d255148e
# Parent  6bfd25f73683a7f82fa3db18b1a21a409ad47313
(user-emacs-directory): New defconst.

diff -r 6bfd25f73683 -r 62535fec6ee1 lisp/subr.el
--- a/lisp/subr.el	Tue Jun 12 23:58:38 2007 +0000
+++ b/lisp/subr.el	Wed Jun 13 00:03:28 2007 +0000
@@ -2041,6 +2041,15 @@
 (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.