some utf8 chars are terrible small.

[Stephen J. Turnbull]

Uwe Brauer writes:

 > Ok I found a solution. I am ashamed to tell you that it is a
 > MS font.

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.)

 > So the following works:

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))))

 > I have to try this later since I need to reinstall my
 > Kubuntu version for this. KDE3 is in conflict with
 > freetype-dev......:'(

Grrrrr.....