# HG changeset patch
# User FUJIWARA Katsunori <foozy@lares.dti.ne.jp>
# Date 1153578916 -32400
# Node ID 7a32b7e6c563306887d52fa34185cdb600dfc58f
# Parent  92ba858ed640dd7283bf61008b9ad879b6cd8433
Emacs: apply "expand-filename" on "default-directory".

"default-directory" may has home directory("~") relative path in some
runtime environment(or emacs revision ?), so expand-filename is
required.

diff --git a/contrib/mercurial.el b/contrib/mercurial.el
--- a/contrib/mercurial.el
+++ b/contrib/mercurial.el
@@ -380,7 +380,9 @@ Handle frickin' frackin' gratuitous even
   (save-excursion
     (while hg-prev-buffer
       (set-buffer hg-prev-buffer))
-    (let ((path (or default (buffer-file-name) default-directory)))
+    (let ((path (or default
+                    (buffer-file-name)
+                    (expand-file-name default-directory))))
       (if (or (not path) current-prefix-arg)
           (expand-file-name
            (eval (list* 'read-file-name