now X-symbol has a problem (was: some utf8 chars are terrible small.)

[snip] I am terrible sorry to report another problem. Once I chose the setting Aidan and you propose, x-symbol now uses very small fonts for the integrals and other symbols! x-symbol setting is governed by (setq x-symbol-xsymb0-fonts '(("-adobe-symbol-*-*-*-*-*-240-*-*-*-*-*-*" "-xsymb-xsymb0-medium-r-normal--14-140-75-75-p-85-adobe-fontspecific" "-adobe-symbol-medium-r-normal-*-*-140-*-*-*-*-adobe-fontspecific") ( "-adobe-symbol_sub-medium-r-normal-*-*-140-*-*-*-*-adobe-fontspecific" "-xsymb-xsymb0_sub-medium-r-normal--12-120-75-75-p-74-adobe-fontspecific" ) ("-adobe-symbol_sup-medium-r-normal-*-*-140-*-*-*-*-adobe-fontspecific" "-*-xsymbol_sup-medium-r-normal-*-*-140-*-*-*-*-*-*" "-xsymb-xsymb0_sup-medium-r-normal--12-120-75-75-p-74-adobe-fontspecific" ))) (setq x-symbol-xsymb1-fonts '( ("-xsymb-xsymb1-medium-r-normal-*-*-140-*-*-*-*-xsymb-xsymb1") ("-xsymb-xsymb1_sub-medium-r-normal-*-*-240-*-*-*-*-xsymb-xsymb1") ("-xsymb-xsymb1_sup-medium-r-normal-*-*-240-*-*-*-*-xsymb-xsymb1"))) (setq x-symbol-latin1-fonts '(("-adobe-helvetica-medium-r-normal-*-*-140-*-*-*-*-iso8859-1") ("-adobe-helvetica_sub-medium-r-*-*-*-140-*-*-*-*-iso8859-1") ("-adobe-helvetica_sup-medium-r-*-*-*-140-*-*-*-*-iso8859-1"))) So I wrapped just some interactive function bodys around your settings. I restart xemacs, go to a tex buffer with x-symbol turned on. Everything is fine. I use TeX-to-char-turn-on-font and oops the integral shrinks very much. I try to call a turn-off function, see below for details, evaluate the x-symbol-xsymb1-fonts, but nothing happens, now x-symbol is doomed with some very small fonts. Maybe the turn off function TeX-to-char-turn-off-font is not correct? (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 "-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))))) (defun TeX-to-char-turn-off-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 "-*-courier-bold-r-*-*-18-180-*-*-*-*-*-*") (fallback "-*-courier-bold-r-*-*-18-180-*-*-*-*-*-*")) (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))))) Uwe _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta