XEmacs 21.2.5

[chise/xemacs-chise.git.1] / lisp / startup.el

diff --git a/lisp/startup.el b/lisp/startup.el
index c601f84..f36d12c 100644 (file)
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -364,13 +364,12 @@ Type ^H^H^H (Control-h Control-h Control-h) to get more help options.\n")
       (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)