From 298eaa1c323c05b67752f3fe8b5f62849f59a0d5 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 29 Apr 2018 10:03:31 +0200 Subject: [PATCH] org-agenda: Fix last commit * lisp/org-agenda.el (org-agenda-align-tags): Fix thinko in last commit. --- lisp/org-agenda.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index a3776ba64..62ce25d4c 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -9002,7 +9002,7 @@ current line." (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))) + (end (and line (line-end-position))) l c) (save-excursion (goto-char (if line (line-beginning-position) (point-min))) @@ -9023,7 +9023,7 @@ current line." (delete-region (save-excursion (skip-chars-backward " \t") (point)) (point)) (insert (org-add-props - (make-string (max 1 (- c (current-column))) ?\ ) + (make-string (max 1 (- c (current-column))) ?\s) (plist-put (copy-sequence (text-properties-at (point))) 'face nil)))) (goto-char (point-min))