>>>> "Lynn" == Lynn David Newton
<lynn.newton(a)gmail.com> writes:
Lynn> I went to info (C-h i) and wanted to read the Customizations
Lynn> section, but when I try to go it, I get an error message
Lynn> that says "Info file custom does not exist". Which is true,
Lynn> as I look for it in the installed directory.
Lynn> Is this an error? Sure looks like it to me.
FWIW, I see it too. Never tried that before, though.
Lynn> However -- and I know (now) one oughtn't to do this --
Lynn> somewhere along the line I began prowling around in the
Lynn> custom.el and options.el files and started tweaking things
Lynn> by hand.
I start with M-x customize and pick some group that sounds
appropriate.
Lynn> As a result, I don't really know how to change some things.
Lynn> For instance, when I first come up, some of the fonts are
Lynn> too small, including the default. At moment I have to go to
Lynn> the Options menu, select Font Size, and select <x> 014.
Lynn> (Yes, I like things nice and big, and I like courier font.)
Lynn> But even if I save the options, that's not the size I get
Lynn> the next time I restart xemacs.
I thought you had built with xft. If so, I don't think the options
menu does everything correctly. The current scheme is to drop
something into your init file to set up the fonts you want. I'm
attaching what I use, which I stole from Aidan a while a go. If
you're using mule, it's nice to have these font settings too.
The default I'm using works well on my mac. You may want to play
around with a different default. If you have xft, then try "fc-match
Monospace" or "fc-match Courier" to see what's available.
Ray
(with-fboundp '(fc-name-unparse fc-font-match fc-name-parse)
;; Set my default font.
(set-specifier
(face-font 'default)
(cons '(x)
(fc-name-unparse
(fc-font-match (selected-device)
(fc-name-parse "Monospace-11.5:lang=en")))))
(loop
for (tag-name regex size) in
'((zh-tw "^chinese-\\(big5\\|cns\\)" 12)
(zh "^chinese-" 12)
(ja "^\\(japanese\\|katakana\\)-" 12)
(ko "^korean-" 12)
(am "^ethiopic-" 12)
(vi "^vietnamese-" 12)
(el "^greek-" 12)
(ru "^cyrillic-" 12)
(hu "^latin-iso8859-2" 12)
(ar "^arabic-" 12)
(lo "^lao" 12)
(he "^hebrew" 12)
(th "^thai" 12))
do
(define-specifier-tag tag-name nil
`(lambda (charset)
(string-match ,regex (symbol-name (charset-name charset)))))
(set-face-font 'default
(fc-name-unparse
(fc-font-match
(selected-device)
(fc-name-parse
(format "-%d:lang=%s"
size tag-name))))
nil (list 'x tag-name) 'append)))
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-beta