Mercurial > hg > xemacs-beta

diff lisp/startup.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents 6240c7796c7a
children 6719134a07c2
line wrap: on
line diff
--- a/lisp/startup.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/startup.el	Mon Aug 13 11:07:10 2007 +0200
@@ -364,13 +364,12 @@
       (message "Back to top level.")
     (setq command-line-processed t)
     ;; Canonicalize HOME (PWD is canonicalized by init_buffer in buffer.c)
-    (unless (eq system-type 'vax-vms)
-      (let ((value (user-home-directory)))
-	(if (and value
-		 (< (length value) (length default-directory))
-		 (equal (file-attributes default-directory)
-			(file-attributes value)))
-	    (setq default-directory (file-name-as-directory value)))))
+    (let ((value (user-home-directory)))
+      (if (and value
+	       (< (length value) (length default-directory))
+	       (equal (file-attributes default-directory)
+		      (file-attributes value)))
+	  (setq default-directory (file-name-as-directory value))))
     (setq default-directory (abbreviate-file-name default-directory))
     (initialize-xemacs-paths)