From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 20 Jul 1993 05:46:10 +0000 (+0000)
Subject: (normal-top-level): Call abbreviate-file-name again after calling command-line.
X-Git-Tag: emacs-19.34~11670
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=00aa7e1cdf96048081730e2fd597123a1e639be0;p=emacs.git

(normal-top-level): Call abbreviate-file-name again after calling command-line.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 49a423f8a7a..d6d984fc839 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -143,6 +143,8 @@ directory name of the directory where the `.emacs' file was looked for.")
     (setq default-directory (abbreviate-file-name default-directory))
     (unwind-protect
 	(command-line)
+      ;; Do this again, in case .emacs defined more abbreviations.
+      (setq default-directory (abbreviate-file-name default-directory))
       (run-hooks 'emacs-startup-hook)
       (and term-setup-hook
 	   (run-hooks 'term-setup-hook))