[Emacs-diffs] trunk r117208: * lisp/files.el (locate-dominating-file): Expand file argument.

[Glenn Morris]

------------------------------------------------------------
revno: 117208
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/17641
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2014-05-30 19:27:22 -0700
message:
  * lisp/files.el (locate-dominating-file): Expand file argument.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/files.el                  files.el-20091113204419-o5vbwnq5f7feedwu-265

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-05-30 23:50:09 +0000
+++ b/lisp/ChangeLog    2014-05-31 02:27:22 +0000
@@ -1,3 +1,7 @@
+2014-05-31  Glenn Morris  <address@hidden>
+
+       * files.el (locate-dominating-file): Expand file argument.  (Bug#17641)
+
 2014-05-30  Glenn Morris  <address@hidden>
 
        * loadup.el: Treat `command-line-args' more flexibly.

=== modified file 'lisp/files.el'
--- a/lisp/files.el     2014-05-21 01:54:33 +0000
+++ b/lisp/files.el     2014-05-31 02:27:22 +0000
@@ -883,7 +883,7 @@
   ;;
   ;; 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