Procházet zdrojové kódy

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

This reverts commit 96b4e8f74b6c067b64fd997e953961fc609ac31e.

Font leaks on the vertical bar after the keyword.
Nicolas Goaziou před 9 roky
rodič
revize
dc1ed4cdcc
1 změnil soubory, kde provedl 4 přidání a 8 odebrání
  1. 4 8
      lisp/org-colview.el

+ 4 - 8
lisp/org-colview.el

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