Mercurial > hg > xemacs-beta

diff lisp/startup.el @ 288:e11d67e05968 r21-0b42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b42
author cvs
date Mon, 13 Aug 2007 10:35:54 +0200
parents 558f606b08ae
children c9fe270a4101
line wrap: on
line diff
--- a/lisp/startup.el	Mon Aug 13 10:35:07 2007 +0200
+++ b/lisp/startup.el	Mon Aug 13 10:35:54 2007 +0200
@@ -365,7 +365,7 @@
     (setq command-line-processed t)
     ;; Canonicalize HOME (PWD is canonicalized by init_buffer in buffer.c)
     (unless (eq system-type 'vax-vms)
-      (let ((value (getenv "HOME")))
+      (let ((value (user-home-directory)))
 	(if (and value
 		 (< (length value) (length default-directory))
 		 (equal (file-attributes default-directory)