From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 19 Oct 2008 10:13:17 +0000 (+0000)
Subject: (shadow-initialize) <shadow-info-file, shadow-todo-file>: Run file names
X-Git-Tag: emacs-pretest-23.0.90~2379
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6489a43116932a279479feab1e424f72529cb34;p=emacs.git

(shadow-initialize) <shadow-info-file, shadow-todo-file>: Run file names
that begin with a period thru `convert-standard-filename'.
---

diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el
index 8b311d5e9ff..f4f8f856896 100644
--- a/lisp/shadowfile.el
+++ b/lisp/shadowfile.el
@@ -805,10 +805,11 @@ look for files that have been changed and need to be copied to other systems."
 	    (file-name-as-directory (shadow-expand-file-name "~"))))
   (if (null shadow-info-file)
       (setq shadow-info-file
-	    (shadow-expand-file-name "~/.shadows")))
+	    (shadow-expand-file-name (convert-standard-filename "~/.shadows"))))
   (if (null shadow-todo-file)
       (setq shadow-todo-file
-	    (shadow-expand-file-name "~/.shadow_todo")))
+	    (shadow-expand-file-name
+	     (convert-standard-filename "~/.shadow_todo"))))
   (if (not (shadow-read-files))
       (progn
 	(message "Shadowfile information files not found - aborting")