Solution (was: now X-symbol has a problem)

Ok, sure I understand, thanks for your help, I will come back to you, when you have more time. Just playing around the following works, don't ask me why: (defun TeX-to-char-turn-on-font () (interactive) (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 "-adobe-symbol-*-*-*-*-*-240-*-*-*-*-*-*") (fallback "-misc-fixed-medium-r-normal--20-200-75-75-c-100-iso8859-7")) (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))))) nil nil 'remove-all))))) Uwe _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta