* todos.el (todos-done-separator): Use window-width for length, in

anticipation of bug#2749 being fixed.

2 files changed, 13 insertions, 8 deletions

diff --git a/lisp/calendar/ChangeLog b/lisp/calendar/ChangeLog
index 5a6bab346fc..10ea01075ce 100644
--- a/lisp/calendar/ChangeLog
+++ b/lisp/calendar/ChangeLog
@@ -1,5 +1,10 @@
 2013-05-17  Stephen Berman  <stephen.berman@gmx.net>
 
+        * todos.el (todos-done-separator): Use window-width for length, in
+        anticipation of bug#2749 being fixed.
+
+2013-05-17  Stephen Berman  <stephen.berman@gmx.net>
+
         * todos.el (todos-category-completions): Restore point after
         ensuring category is properly displayed.
 
diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el
index 855ae7753e5..5b707de31dc 100644
--- a/lisp/calendar/todos.el
+++ b/lisp/calendar/todos.el
@@ -1147,14 +1147,14 @@ number as its value."
   "Return string used as value of variable `todos-done-separator'."
   (let ((sep todos-done-separator-string))
     (propertize (if (= 1 (length sep))
-                    ;; If separator's length is window-width, then
-                    ;; with non-nil todos-wrap-lines and
-                    ;; todos-wrap-and-indent as value of
-                    ;; todos-line-wrapping-function, an indented empty
-                    ;; line appears between the separator and the
-                    ;; first done item.
-                    (make-string (1- (window-width)) (string-to-char sep))
-                    ;; (make-string (window-width) (string-to-char sep))
+                    ;; Until bug#2749 is fixed, if separator's length
+                    ;; is window-width, then with non-nil
+                    ;; todos-wrap-lines and todos-wrap-and-indent as
+                    ;; value of todos-line-wrapping-function, an
+                    ;; indented empty line appears between the
+                    ;; separator and the first done item.
+                    ;; (make-string (1- (window-width)) (string-to-char sep))
+                    (make-string (window-width) (string-to-char sep))
                   todos-done-separator-string)
                 'face 'todos-done-sep)))