You are on the right track by ignoring the menus for fonts when using Xft. It doesn't work. However for me a combination of .Xresources and elisp works pretty well. (These files are not be perfect but will give you a starting point.) .Xresources ---------------------------------------------------------------------- !! For xft enabled XEmacs !! "!/usr/bin/xrdb -load .Xresources" XEmacs*Tabs.fcFontName: Sans-8 XEmacs*menubar*fcFontName: Sans-8 XEmacs.modeline.attributeFont: DejaVu Sans Mono-8 XEmacs.default.attributeFont: DejaVu Sans Mono-10 XEmacs.scrollBarWidth: 12 *popup*fcFontName: Sans-8 *menubar*FontSet: -*-*-bold-r-*-*-*-80-*-*-*-*-iso8859-* XEmacs*Dialog*Font: -*-*-bold-r-*-*-*-80-*-*-*-*-iso8859-* ---------------------------------------------------------------------- snippet from init.el originally from the samples coming with XEmacs. ---------------------------------------------------------------------- (cond (running-xemacs ;; If you want the default colors, you could do this: ;; (setq font-lock-use-default-fonts nil) ;; (setq font-lock-use-default-colors t) ;; but I want to specify my own colors, so I turn off all ;; default values. (setq font-lock-use-default-fonts nil) (setq font-lock-use-default-colors nil) ;;;;;; (set-face-font 'italic "monospace-10:italic") (require 'font-lock) ;; Mess around with the faces a bit. Note that you have ;; to change the font-lock-use-default-* variables *before* ;; loading font-lock, and wait till *after* loading font-lock ;; to customize the faces. ;; string face is green (set-face-foreground 'font-lock-string-face "gray40") (set-face-underline-p 'font-lock-string-face nil 'global) ; (set-face-italic-p 'font-lock-string-face t 'global) ;; Background ;; (set-face-background 'default "cornsilk1") ;; (set-face-background 'default "gray97") ;; comments are italic and red; doc strings are italic ;; ;; (I use copy-face instead of make-face-italic/make-face-bold ;; because the startup code does intelligent things to the ;; 'italic and 'bold faces to ensure that they are different ;; from the default face. For example, if the default face ;; is bold, then the 'bold face will be unbold.) (copy-face 'italic 'font-lock-comment-face) ;; Underlining comments looks terrible on tty's (set-face-underline-p 'font-lock-comment-face nil 'global 'tty) (set-face-highlight-p 'font-lock-comment-face t 'global 'tty) (copy-face 'font-lock-comment-face 'font-lock-doc-string-face) (set-face-foreground 'font-lock-comment-face "gray30") ;; function names are bold and blue (set-face-font 'bold "monospace-10:bold") (copy-face 'bold 'font-lock-function-name-face) (set-face-foreground 'font-lock-function-name-face "black") ;; misc. faces (and (find-face 'font-lock-preprocessor-face) ; 19.13 and above (copy-face 'bold 'font-lock-preprocessor-face)) (copy-face 'italic 'font-lock-type-face) (copy-face 'italic 'font-lock-preprocessor-face) (copy-face 'bold 'font-lock-keyword-face) (copy-face 'bold 'font-lock-variable-name-face) (copy-face 'italic 'font-lock-reference-face) )) ---------------------------------------------------------------------- Yours -- %% Mats _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta