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

anticipation of bug#2749 being fixed.

diff --git a/lisp/calendar/ChangeLog b/lisp/calendar/ChangeLog
index 5a6bab346fcf3df44dc1b41de9666b997e4ddabf..10ea01075ce8841f3fec75fbd0122702bf172454 100644 (file)
--- a/lisp/calendar/ChangeLog
+++ b/lisp/calendar/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/lisp/calendar/todos.el b/lisp/calendar/todos.el
index 855ae7753e55ecd32e40cfa265a68ccc50be8460..5b707de31dc302736021a707d2607b2d1ac03a43 100644 (file)
--- 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)))