mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

Fixed bug with malformed face properties.

Browse Source 
Patch by Steven E. Harris.
This commit is contained in:
Carsten Dominik 2008-07-26 07:49:31 -07:00
parent b87ec4c0f1
commit c542119a2a
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -1,5 +1,8 @@
2008-07-26 Carsten Dominik <dominik@science.uva.nl>
* org-agenda.el (org-agenda-align-tags): Fix bug with malformed
face property.
* org-colview.el (org-columns-display-here): Use
`org-columns-modify-value-for-display-function'.

8
lisp/org-agenda.el
View File

@ -4768,8 +4768,12 @@ the new TODO state."
(if line (point-at-eol) nil) t)
(add-text-properties
(match-beginning 2) (match-end 2)
(list 'face (delq nil (list 'org-tag (get-text-property
(match-beginning 2) 'face)))))
(list 'face (delq nil (adjoin 'org-tag
(let ((prop (get-text-property
(match-beginning 2) 'face)))
(if (listp prop)
prop
(list prop)))))))
(setq l (- (match-end 2) (match-beginning 2))
c (if (< org-agenda-tags-column 0)
(- (abs org-agenda-tags-column) l)