From: Eli Zaretskii <eliz@gnu.org>
Date: Sun, 19 Oct 2008 10:06:48 +0000 (+0000)
Subject: (todo-file-do, todo-file-done, todo-file-top): Run file names that begin with
X-Git-Tag: emacs-pretest-23.0.90~2385
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6d83def6c4fc4c70b77fe344392625948f0bff8b;p=emacs.git

(todo-file-do, todo-file-done, todo-file-top): Run file names that begin with
a period thru `convert-standard-filename'.
---

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index 2e246bfcf5a..8f17a4556c4 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -282,11 +282,11 @@ show and mark todo entries for today, but may slow down processing of
 the diary file somewhat."
   :type 'string
   :group 'todo)
-(defcustom todo-file-do    "~/.todo-do"
+(defcustom todo-file-do    (convert-standard-filename "~/.todo-do")
   "TODO mode list file."
   :type 'file
   :group 'todo)
-(defcustom todo-file-done  "~/.todo-done"
+(defcustom todo-file-done  (convert-standard-filename "~/.todo-done")
   "TODO mode archive file."
   :type 'file
   :group 'todo)
@@ -316,7 +316,7 @@ window."
   :group 'todo)
 (defvar todo-edit-buffer " *TODO Edit*"
   "TODO Edit buffer name.")
-(defcustom todo-file-top "~/.todo-top"
+(defcustom todo-file-top (convert-standard-filename "~/.todo-top")
   "TODO mode top priorities file.
 
 Not in TODO format, but diary compatible.