diff options
author | Carsten Dominik <carsten.dominik@gmail.com> | 2013-06-28 10:51:57 +0200 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2013-06-28 10:51:57 +0200 |
commit | 91a4c8fb1a2847cd914e44e5730bd67d3c3dd92a (patch) | |
tree | 7e41ccaba48a6e7bea95b8dd9c868700ec1f6300 | |
parent | 911c5d70938921a03d2e131e53b44f81e7b21070 (diff) | |
parent | 7ac34c8a6dd9d148e53ef8a7ec3544673b6e5c12 (diff) | |
download | org-mode-91a4c8fb1a2847cd914e44e5730bd67d3c3dd92a.tar.gz |
Merge branch 'org-column-patch'
-rw-r--r-- | lisp/org-colview.el | 6 | ||||
-rw-r--r-- | lisp/org-faces.el | 6 |
2 files changed, 4 insertions, 8 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el index a98deec..f3b8e42 100644 --- a/lisp/org-colview.el +++ b/lisp/org-colview.el @@ -169,8 +169,10 @@ This is the compiled version of the format.") (get-text-property (point-at-bol) 'face)) 'default)) (color (list :foreground (face-attribute ref-face :foreground))) - (face (list color 'org-column ref-face)) - (face1 (list color 'org-agenda-column-dateline ref-face)) + (font (list :height (face-attribute 'default :height) + :family (face-attribute 'default :family))) + (face (list color font 'org-column ref-face)) + (face1 (list color font 'org-agenda-column-dateline ref-face)) (cphr (get-text-property (point-at-bol) 'org-complex-heading-regexp)) pom property ass width f string ov column val modval s2 title calc) ;; Check if the entry is in another buffer. diff --git a/lisp/org-faces.el b/lisp/org-faces.el index 5472964..e968657 100644 --- a/lisp/org-faces.el +++ b/lisp/org-faces.el @@ -217,12 +217,6 @@ column view defines special faces for each outline level. See the file "Face for column display of entry properties." :group 'org-faces) -(when (fboundp 'set-face-attribute) - ;; Make sure that a fixed-width face is used when we have a column table. - (set-face-attribute 'org-column nil - :height (face-attribute 'default :height) - :family (face-attribute 'default :family))) - (defface org-agenda-column-dateline (org-compatible-face 'org-column '((t nil))) |