From 7ac34c8a6dd9d148e53ef8a7ec3544673b6e5c12 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Fri, 28 Jun 2013 09:50:27 +0200 Subject: [PATCH] Set colview width to fixed just before display. * lisp/org-colview.el (org-columns-display-here): Enforce fixed width font. * lisp/org-faces.el (org-column): Setting font width has been shifted to org-colview.el. Thanks to Xiao-Yong Jin for this patch. --- lisp/org-colview.el | 6 ++++-- 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 a98deecca..f3b8e4291 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 54729649d..e96865732 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)))