Mercurial > emacs
changeset 50705:9b9071691f52
(file-relative-name): Recognize "c:/foo" as absolute
file name. Tiny change from David PONCE <david.ponce@wanadoo.fr>.
| author | Kai Großjohann <kgrossjo@eu.uu.net> |
|---|---|
| date | Fri, 25 Apr 2003 14:14:31 +0000 |
| parents | 63894db35199 |
| children | 371e62e112b2 |
| files | lisp/ChangeLog lisp/files.el |
| diffstat | 2 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Apr 25 06:17:02 2003 +0000 +++ b/lisp/ChangeLog Fri Apr 25 14:14:31 2003 +0000 @@ -1,3 +1,8 @@ +2003-04-25 Kai Gro,A_(Bjohann <kai.grossjohann@gmx.net> + + * files.el (file-relative-name): Recognize "c:/foo" as absolute + file name. Tiny change from David PONCE <david.ponce@wanadoo.fr>. + 2003-04-24 Sam Steingold <sds@gnu.org> * calendar/diary-lib.el (fancy-diary-display-mode): Bind "q" to
--- a/lisp/files.el Fri Apr 25 06:17:02 2003 +0000 +++ b/lisp/files.el Fri Apr 25 14:14:31 2003 +0000 @@ -2909,9 +2909,9 @@ (string-match re directory) (substring directory 0 (match-end 0)))))))) filename - (unless (eq (aref filename 0) ?/) + (unless (file-name-absolute-p filename) (setq filename (concat "/" filename))) - (unless (eq (aref directory 0) ?/) + (unless (file-name-absolute-p directory) (setq directory (concat "/" directory))) (let ((ancestor ".") (filename-dir (file-name-as-directory filename)))