935 |
(size (when (featurep 'xemacs) |
(size (when (featurep 'xemacs) |
936 |
(round (* 0.9 (face-height 'default) scale))))) |
(round (* 0.9 (face-height 'default) scale))))) |
937 |
(if (featurep 'xemacs) |
(if (featurep 'xemacs) |
938 |
`((t (:bold t :family "helvetica"))) |
`((t (:bold t :family "helvetica" :size ,size))) |
939 |
`((t (:inherit (variable-pitch font-lock-type-face) |
`((t (:inherit (variable-pitch font-lock-type-face) |
940 |
:weight bold :height ,scale))))) |
:weight bold :height ,scale))))) |
941 |
"Face for slide titles." |
"Face for slide titles." |