Mercurial > emacs

diff lisp/startup.el @ 707:e4253da532fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Wed, 10 Jun 1992 02:47:07 +0000
parents 23cbc2c463eb
children 4714ad36583c
line wrap: on
line diff
--- a/lisp/startup.el	Wed Jun 10 02:25:55 1992 +0000
+++ b/lisp/startup.el	Wed Jun 10 02:47:07 1992 +0000
@@ -132,13 +132,7 @@
 			 (setq default-directory
 			       (file-name-as-directory value))))))
 		'("PWD" "HOME")))
-    (let ((tail directory-abbrev-alist))
-      (while tail
-	(if (string-match (car (car tail)) default-directory)
-	    (setq default-directory
-		  (concat (cdr (car tail))
-			  (substring default-directory (match-end 0)))))
-	(setq tail (cdr tail))))
+    (setq default-directory (abbreviate-file-name default-directory))
     (unwind-protect
 	(command-line)
       (run-hooks 'emacs-startup-hook)