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

00aa7e1c · Richard M. Stallman · 73ba415a · 00aa7e1c
Commit 00aa7e1c authored Jul 20, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lisp/startup.el lisp/startup.el +2 -0

No files found.
--- 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))