Le 25 Mar 2005, YAMAMOTO Mitsuharu vraute :

> > - following your example M-: (set-frame-font
> > (create-fontset-from-mac-roman-font
> > "-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman"))
> 
> > I can see that the frame briefly flashes then it redisplays with the
> > etl font.
> 
> I couldn't reproduce (even after installing ETL fonts from
> http://members.shaw.ca/akochoi-emacs/stories/resources.html).  If you
> tried without -Q option, could you try again with it? 

Checked. Problem seems to  be on my side as the same  command with -Q option
correctly changes the fontset.

I should investigate that but I don't know what to look for.
Maybe you will you see something wrong in my settings ?
,----
| ;; pour pas se prendre les pieds dans le tapis entre latin-1 et latin-9
| (require 'ucs-tables)
| (unify-8859-on-encoding-mode 1)
| ;;(unify-8859-on-decoding-mode 1) ;;plus pour emacs21/cvs ?
| 
| (set-language-environment 'latin-9)
| (prefer-coding-system 'latin-9)
`----
And the part relative to Macintosh
,----
| (cond ((eq system-type 'darwin)   ; réglages pour le mac
|        
| 	   ;;(message "on est sous mac")
| 	   
| 	   (setq process-connection-type t);en shell pour voir l'affichage
| 	   
| 	   (setq mac-command-key-is-meta t);pomme = méta
| 	   (setq mac-pass-command-to-system nil);évite de cacher emacs avec M-h
| 	   
| 	   ;; iso-latin-1 input encoding ?
| 	   ;;(setq mac-keyboard-text-encoding kTextEncodingISOLatin1)
| 	   ;;(set-keyboard-coding-system 'iso-latin-1)
| 	   ;; To modify mac/unix/dos encodings: CTRL-X RET f
| 	   
| 	   (set-terminal-coding-system 'latin-9)
| 	   (set-keyboard-coding-system 'mac-roman)
| 	   ;;(set-frame-font "fontset-mac")
| 	   ;;(setq default-buffer-file-coding-system 'iso-latin-9-mac) ;attention prefer-coding-system
| 
| 	   (setq mac-wheel-button-is-mouse-2 t);
| 	   (setq mac-emulate-three-button-mouse 1); option = mouse2 / command = mouse3
| 
| 	   (if window-system 
| 		   (progn
| 			 (set-background-color "gray90")
| 			 
| 			 ;;X fonts specs format (désignation des fontes X)
| 			 ;;-FOUNDRY-FAMILY-WEIGHT-SLANT-WIDTH--PIXELS-POINTS-HRES-VRES-SPACING-AVEWIDTH-CHARSET 
| 			 
| 			 ;; Set frame size, color and fonts
| 			 (create-fontset-from-fontset-spec
| 			  "-apple-monaco-medium-r-normal--9-*-*-*-*-*-fontset-monaco,
|         ascii:-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman,
|         mule-unicode-0100-24ff:-apple-lucida grande-medium-r-normal--0-0-75-75-m-0-mac-roman,
|         mule-unicode-2500-33ff:-apple-bitstream vera sans mono bold-medium-r-normal--0-0-75-75-m-0-mac-roman,
|         latin-iso8859-15:-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman,
|         latin-iso8859-1:-apple-monaco-medium-r-normal--9-90-75-75-m-90-mac-roman")
| 			 (setq default-frame-alist '((width . 120) 
| 										 (height . 44) 
| 										 (top . 440);pixels
| 										 (left . 260);pixels
| 										 (font . "fontset-monaco");fontset-mac
| 										 ))
| 			 )
| 		 )
| 	   (global-set-key (kbd "<kp-delete>") 'delete-char)    ;touche suppr
| 	   (global-set-key (kbd "<kp-divide>") "/")             ;touche division sur pavé num (inactif sur mon poste ?)
| 	   (global-set-key (kbd "<C-kp-home>") (kbd "<C-home>"));idem /
| 	   (global-set-key (kbd "<C-kp-end>") (kbd "<C-end>"))  ;idem /
 	   )
`----


> Also,    could    you    show    the    result    of    (describe-font-set
> "fontset-mac_roman_9") ?

I have attached the result of describe-fontset with and without -Q option.