From bb71f9f1b019c458bebb910985e8645c9e58a50e Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 12 Feb 2010 18:17:05 +0100 Subject: [PATCH] Agenda: Don't add a face to the space characters before tags Reported by Tassilo Horn --- lisp/ChangeLog | 3 +++ lisp/org-agenda.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 988497b3b..e74b3e943 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-02-12 Carsten Dominik + * org-agenda.el (org-agenda-align-tags): Don't add a face to the + new white space before the tags. + * org-latex.el (org-export-as-latex): Do nit require the buffer to be visiting a file when only exporting to a buffer or string. (org-export-latex-fix-inputenc): Only save the buffer is there is diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 77aec9a91..21c605fbd 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6376,7 +6376,7 @@ If FORCE-TAGS is non nil, the car of it returns the new tags." (goto-char (match-beginning 1)) (insert (org-add-props (make-string (max 1 (- c (current-column))) ?\ ) - (text-properties-at (point))))) + (plist-put (text-properties-at (point)) 'face nil)))) (goto-char (point-min)) (org-font-lock-add-tag-faces (point-max)))))