Re: some utf8 chars are terrible small.

Uwe Brauer writes: Don't be. Fonts are the kind of thing that free software really sucks at, because it's all about hand-tuned details ... the kind of work any sane person must be paid to do. Free Japanese fonts are by and large horrid (and the first Type 1 and TrueType ones were paid for by government research grants!) Microsoft's fonts are very beautiful. Don Knuth and Computer Modern is a happy accident, that's all. (And there are better fonts.) I think the following should get you better results for Greek. (My changes and suggestions have comments in ALL CAPS.) (cond ((and (string-match "XEmacs\\|Lucid" emacs-version) (= emacs-major-version 21) (>= emacs-minor-version 5)) (let ((basic "-*-courier-bold-r-*-*-18-180-*-*-*-*-*-*") ;; BIND A VARIABLE FOR A GREEK FONT HERE (greek "-misc-fixed-medium-r-normal--20-200-75-75-c-100-iso8859-7") (fallback "-microsoft-verdana-medium-r-normal--0-0-0-0-p-0-iso10646-1")) (set-specifier (face-font 'default) `(((tty) . "normal") ((x) . ,basic) ;; XEmacs SHOULD USE THIS GREEK FONT FOR GREEK, BUT NOT LATIN OR MATH ((x) . ,greek) ((x encode-as-utf-8 initial x-coverage-instantiator) . ,fallback) ((x two-dimensional initial) . ,fallback) ;; <= TYPOS HERE? ((x two-dimensional initial) . ,fallback) ;; <= TYPOS HERE? ((x two-dimensional initial) . ,fallback) ((x one-dimensional final x-coverage-instantiator) . ,fallback) ((x two-dimensional final x-coverage-instantiator) . ,fallback) ((x) . "*")) nil nil 'remove-tag-set-prepend)))) Grrrrr..... _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta