From 17de84fb54684da90fbaf41184a36d25e65688b3 Mon Sep 17 00:00:00 2001 From: Stephen Berman Date: Fri, 17 May 2013 23:41:09 +0200 Subject: [PATCH] * todos.el (todos-done-separator): Use window-width for length, in anticipation of bug#2749 being fixed. --- lisp/calendar/ChangeLog | 5 +++++ lisp/calendar/todos.el | 16 ++++++++-------- 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,3 +1,8 @@ +2013-05-17 Stephen Berman + + * todos.el (todos-done-separator): Use window-width for length, in + anticipation of bug#2749 being fixed. + 2013-05-17 Stephen Berman * todos.el (todos-category-completions): Restore point after 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))) -- 2.39.5