tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Revert "org-colview: Preserve face for TODO keywords" 

This reverts commit 96b4e8f74b.

Font leaks on the vertical bar after the keyword.
This commit is contained in:
Nicolas Goaziou 2015-08-06 15:34:56 +02:00
parent 4f3b3ce3d9
commit dc1ed4cdcc
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/org-colview.el
View File

@ -206,7 +206,9 @@ This is the compiled version of the format.")
(val (or (cdr ass) "")) (val (or (cdr ass) ""))
(modval (modval
(cond (cond
((functionp org-columns-modify-value-for-display-function) ((and org-columns-modify-value-for-display-function
(functionp
org-columns-modify-value-for-display-function))
(funcall org-columns-modify-value-for-display-function (funcall org-columns-modify-value-for-display-function
title val)) title val))
((equal property "ITEM") (org-columns-compact-links val)) ((equal property "ITEM") (org-columns-compact-links val))
@ -220,13 +222,7 @@ This is the compiled version of the format.")
(string (string
(format f (org-columns-add-ellipses (or modval val) width))) (format f (org-columns-add-ellipses (or modval val) width)))
(ov (org-columns-new-overlay (ov (org-columns-new-overlay
(point) (1+ (point)) (point) (1+ (point)) string (if dateline face1 face))))
string
(cond
((equal property "TODO")
(list (org-get-todo-face val) (if dateline face1 face)))
(dateline face1)
(t face)))))
(overlay-put ov 'keymap org-columns-map) (overlay-put ov 'keymap org-columns-map)
(overlay-put ov 'org-columns-key property) (overlay-put ov 'org-columns-key property)
(overlay-put ov 'org-columns-value (cdr ass)) (overlay-put ov 'org-columns-value (cdr ass))