mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

org-agenda: Fix last commit

Browse source 
* lisp/org-agenda.el (org-agenda-align-tags): Fix thinko in last
  commit.
This commit is contained in:
Nicolas Goaziou 2018-04-29 10:03:31 +02:00
parent 031b75f500
commit 298eaa1c32
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/org-agenda.el
View file

@ -9002,7 +9002,7 @@ current line."
(org-agenda-tags-column (if (eq 'auto org-agenda-tags-column) (org-agenda-tags-column (if (eq 'auto org-agenda-tags-column)
(- (window-text-width)) (- (window-text-width))
org-agenda-tags-column)) org-agenda-tags-column))
(end (if line (line-end-position) (point-max))) (end (and line (line-end-position)))
l c) l c)
(save-excursion (save-excursion
(goto-char (if line (line-beginning-position) (point-min))) (goto-char (if line (line-beginning-position) (point-min)))
@ -9023,7 +9023,7 @@ current line."
(delete-region (save-excursion (skip-chars-backward " \t") (point)) (delete-region (save-excursion (skip-chars-backward " \t") (point))
(point)) (point))
(insert (org-add-props (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))) (plist-put (copy-sequence (text-properties-at (point)))
'face nil)))) 'face nil))))
(goto-char (point-min)) (goto-char (point-min))