From 19676dce758038749887a057208ea33d9a1fad57 Mon Sep 17 00:00:00 2001 From: Bastien Date: Wed, 5 Feb 2020 00:36:42 +0100 Subject: [PATCH] org-agenda.el: Fix `org-agenda-show-new-time' * lisp/org-agenda.el (org-agenda-show-new-time): Fix infinite loop while trying to show new time in hidden lines. Thanks to Andrew Hyatt for reporting this. --- lisp/org-agenda.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index a98bab298..aed7f86c2 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9571,7 +9571,9 @@ Called with a universal prefix arg, show the priority instead of setting it." (goto-char (point-max)) (while (not (bobp)) (when (equal marker (org-get-at-bol 'org-marker)) - (remove-text-properties (point-at-bol) (point-at-eol) '(display nil)) + (remove-text-properties (line-beginning-position) + (line-end-position) + '(display nil)) (org-move-to-column (- (/ (window-width nil t) (window-font-width)) (length stamp)) t) (add-text-properties @@ -9579,7 +9581,7 @@ Called with a universal prefix arg, show the priority instead of setting it." (list 'display (org-add-props stamp nil 'face '(secondary-selection default)))) (beginning-of-line 1)) - (beginning-of-line 0))))) + (org-agenda-previous-line))))) (defun org-agenda-date-prompt (arg) "Change the date of this item. Date is prompted for, with default today.