Browse Source

Agenda: Don't add a face to the space characters before tags

Reported by Tassilo Horn
Carsten Dominik 15 years ago
parent
commit
bb71f9f1b0
2 changed files with 4 additions and 1 deletions
  1. 3 0
      lisp/ChangeLog
  2. 1 1
      lisp/org-agenda.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2010-02-12  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* 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

+ 1 - 1
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)))))