Mercurial > emacs
changeset 2593:5457416cd817
(file-truename): Do the right thing when /home/gp2/eric = "".
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Tue, 27 Apr 1993 21:59:41 +0000 |
| parents | 2e57e16282f0 |
| children | e1277aec1738 |
| files | lisp/files.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Tue Apr 27 21:59:39 1993 +0000 +++ b/lisp/files.el Tue Apr 27 21:59:41 1993 +0000 @@ -314,7 +314,10 @@ 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 "~") - (setq filename (expand-file-name filename))) + (progn + (setq filename (expand-file-name filename)) + (if (string= filename "") + (setq 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.