diff options
| author | Roland McGrath <[email protected]> | 1993-04-28 17:33:42 +0000 |
|---|---|---|
| committer | Roland McGrath <[email protected]> | 1993-04-28 17:33:42 +0000 |
| commit | 59c6a78e58ec2dc5ab4c409cd92509c49acb3487 (patch) | |
| tree | 29742a269711c898df88e12cbc27e65cc71e6a7d /lisp/files.el | |
| parent | 5739ce6baf9de29afa1645045544942523da4313 (diff) | |
(file-truename): Undo last change.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/files.el b/lisp/files.el index 75e91e6b83..b0f92ed0bb 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -314,10 +314,7 @@ The truename of a file name is found by chasing symbolic links both at the level of the file and at the level of the directories containing it, until no links are left at any level." (if (string= filename "~") - (progn - (setq filename (expand-file-name filename)) - (if (string= filename "") - (setq filename "/")))) + (setq filename (expand-file-name filename))) (let ((handler (find-file-name-handler filename))) ;; For file name that has a special handler, call handler. ;; This is so that ange-ftp can save time by doing a no-op. |