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

Make face org-column determine weight, underline, etc. 

This used to be enforced despite the settings of or-column.
This commit is contained in:
Carsten Dominik 2008-05-01 10:06:15 +02:00
parent 3a94b2d07f
commit 98ef50b7a4
2 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-colview.el
View File

@ -139,11 +139,8 @@ This is the compiled version of the format.")
(and (eq major-mode 'org-agenda-mode)
(get-text-property (point-at-bol) 'face))
'default))
(color (list :foreground
(face-attribute ref-face :foreground)
:weight 'normal :strike-through nil
:underline nil))
(face (list color 'org-column level-face))
(color (list :foreground (face-attribute ref-face :foreground)))
(face (list color 'org-column ref-face))
pom property ass width f string ov column val modval)
;; Check if the entry is in another buffer.
(unless props

7
lisp/org-faces.el
View File

@ -150,11 +150,12 @@ color of the frame."
(defface org-column
(org-compatible-face nil
'((((class color) (min-colors 16) (background light))
(:background "grey90"))
(:background "grey90" :weight normal :strike-through nil :underline nil))
(((class color) (min-colors 16) (background dark))
(:background "grey30"))
(:background "grey30" :weight normal :strike-through nil :underline nil))
(((class color) (min-colors 8))
(:background "cyan" :foreground "black"))
(:background "cyan" :foreground "black"
:weight normal :strike-through nil :underline nil))
(t (:inverse-video t))))
"Face for column display of entry properties."
:group 'org-faces)