* lisp/files.el (locate-dominating-file): Expand file argument.

Fixes: debbugs:17641
This commit is contained in:
Glenn Morris 2014-05-30 19:27:22 -07:00
parent 6423ce2657
commit b5d6fe3bf6
2 changed files with 5 additions and 1 deletions

View file

@ -1,3 +1,7 @@
2014-05-31 Glenn Morris <rgm@gnu.org>
* files.el (locate-dominating-file): Expand file argument. (Bug#17641)
2014-05-30 Glenn Morris <rgm@gnu.org>
* loadup.el: Treat `command-line-args' more flexibly.

View file

@ -883,7 +883,7 @@ which we're looking."
;;
;; Represent /home/luser/foo as ~/foo so that we don't try to look for
;; `name' in /home or in /.
(setq file (abbreviate-file-name file))
(setq file (abbreviate-file-name (expand-file-name file)))
(let ((root nil)
;; `user' is not initialized outside the loop because
;; `file' may not exist, so we may have to walk up part of the