From: Stephen Berman Date: Fri, 17 May 2013 21:41:09 +0000 (+0200) Subject: * todos.el (todos-done-separator): Use window-width for length, in X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/17de84fb54684da90fbaf41184a36d25e65688b3 * 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 5a6bab346f..10ea01075c 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 855ae7753e..5b707de31d 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)))