|
@@ -8033,9 +8033,11 @@ If FORCE-TAGS is non nil, the car of it returns the new tags."
|
|
|
undone-face done-face))))
|
|
|
(org-agenda-highlight-todo 'line)
|
|
|
(beginning-of-line 1))
|
|
|
- (t (error "Line update did not work"))))
|
|
|
- (beginning-of-line 0)))
|
|
|
- (org-agenda-finalize)))
|
|
|
+ (t (error "Line update did not work")))
|
|
|
+ (save-restriction
|
|
|
+ (narrow-to-region (point-at-bol) (point-at-eol))
|
|
|
+ (org-agenda-finalize)))
|
|
|
+ (beginning-of-line 0)))))
|
|
|
|
|
|
(defun org-agenda-align-tags (&optional line)
|
|
|
"Align all tags in agenda items to `org-agenda-tags-column'."
|