diff options
| author | Roland McGrath | 1993-04-28 17:33:42 +0000 |
|---|---|---|
| committer | Roland McGrath | 1993-04-28 17:33:42 +0000 |
| commit | 59c6a78e58ec2dc5ab4c409cd92509c49acb3487 (patch) | |
| tree | 29742a269711c898df88e12cbc27e65cc71e6a7d | |
| parent | 5739ce6baf9de29afa1645045544942523da4313 (diff) | |
| download | emacs-59c6a78e58ec2dc5ab4c409cd92509c49acb3487.tar.gz emacs-59c6a78e58ec2dc5ab4c409cd92509c49acb3487.zip | |
(file-truename): Undo last change.
| -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 75e91e6b83d..b0f92ed0bb5 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 | |||
| 314 | both at the level of the file and at the level of the directories | 314 | both at the level of the file and at the level of the directories |
| 315 | containing it, until no links are left at any level." | 315 | containing it, until no links are left at any level." |
| 316 | (if (string= filename "~") | 316 | (if (string= filename "~") |
| 317 | (progn | 317 | (setq filename (expand-file-name filename))) |
| 318 | (setq filename (expand-file-name filename)) | ||
| 319 | (if (string= filename "") | ||
| 320 | (setq filename "/")))) | ||
| 321 | (let ((handler (find-file-name-handler filename))) | 318 | (let ((handler (find-file-name-handler filename))) |
| 322 | ;; For file name that has a special handler, call handler. | 319 | ;; For file name that has a special handler, call handler. |
| 323 | ;; This is so that ange-ftp can save time by doing a no-op. | 320 | ;; This is so that ange-ftp can save time by doing a no-op. |