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

[Uwe Brauer]

>> Regarding Re: now X-symbol has a problem; "Stephen J. Turnbull" <stephen at xemacs.org> adds:

   > Uwe Brauer writes:

   > I am very surprised that 'remove-all doesn't change things, though.

   > BTW, I'm probably not going to have time to look at this again
   > until July, unfortunately.


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