From 031b75f5001d8016d37a47109816ee7fbd1d1599 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 29 Apr 2018 09:57:33 +0200 Subject: [PATCH] org-agenda: Fix tags alignment * lisp/org-agenda.el (org-agenda-align-tags): Fix regexp. Improve docstring. The regression was introduced in "Use `org-tag-line-re'". Reported-by: Xu Chunyang --- lisp/org-agenda.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 342ea06b7..a3776ba64 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -8995,15 +8995,18 @@ If FORCE-TAGS is non nil, the car of it returns the new tags." (beginning-of-line 0))))) (defun org-agenda-align-tags (&optional line) - "Align all tags in agenda items to `org-agenda-tags-column'." + "Align all tags in agenda items to `org-agenda-tags-column'. +When optional argument LINE is non-nil, align tags only on the +current line." (let ((inhibit-read-only t) (org-agenda-tags-column (if (eq 'auto org-agenda-tags-column) (- (window-text-width)) org-agenda-tags-column)) + (end (if line (line-end-position) (point-max))) l c) (save-excursion (goto-char (if line (line-beginning-position) (point-min))) - (while (re-search-forward org-tag-line-re (and line (line-end-position)) t) + (while (re-search-forward org-tag-group-re end t) (add-text-properties (match-beginning 1) (match-end 1) (list 'face (delq nil (let ((prop (get-text-property