OoO En ce début d'après-midi nuageux du vendredi 11 mai 2007, vers
14:00, Frédéric BOITEUX <[EMAIL PROTECTED]> disait:
> Sur une Debian Etch, bureau Gnome, j'essaie depuis quelque temps
> d'obtenir autre chose que des petits carrés pour les caractères non
> latins-0 de fichiers UTF-8 édités dans emacs, mais sans succès !
> Emacs n'utilise pas la police « Monospace » définie par défaut dans les
> préférences du bureau (au fait, c'est quelle fonte, « Monospace », en
> langage X11, genre -misc-fixed-*-etc ?), et je n'arrive pas à lui faire
> utiliser une autre (j'ai tenté de jouer avec les « fontsets » mais sans
> succès).
Personnellement, pour avoir des fontes correctes dans Emacs, j'utilise
ceci :
(when (if (fboundp window-system)
(eq 'x (window-system frame))
(eq 'x window-system))
;; Les fontes : on utilise la fonte 6x13 qui a l'air assez complète et
;; dispo sur pas mal de systèmes. Il faudra peut-être définir d'autres
;; fontes pour d'autres charset.
(condition-case nil
(progn
(create-fontset-from-fontset-spec
"-misc-fixed-medium-r-semicondensed--13-*-*-*-*-*-fontset-custom")
;; Pour le gras, c'est presque pareil, sauf que l'on prend du pas gras
;; pour U-2500 et compagnie (parce que c'est pas présent dans la
fonte)
(create-fontset-from-fontset-spec
"-misc-fixed-bold-r-semicondensed--13-*-*-*-*-*-fontset-bold,
mule-unicode-2500-33ff:-misc-fixed-medium-r-semicondensed--13-*-*-*-*-*-iso10646-1"
'bold)
;; Lucida Sans
(create-fontset-from-fontset-spec
"-b&h-lucida-medium-r-*-*-10-*-*-*-p-*-fontset-lucidasans"))
(error nil))
;; On applique déjà ce frameset à cette frame
(set-frame-font "fontset-custom")
;; En attendant de trouver mieux...
;; Toutes les fontes grasses utilisent le fontset-bold...
(dolist (face-name (color-theme-get-faces))
(if (face-bold-p face-name)
(set-face-font face-name "fontset-bold")))
;; On définit le fontset par défaut (y'a pas des masses de choix)
(setq default-frame-alist
(cons
'(font . "fontset-custom")
default-frame-alist))
;; On indique que les fontes de la modeline utilisent verdana
(set-face-font 'modeline "fontset-lucidasans")
(set-face-font 'modeline-inactive "fontset-lucidasans")
(set-face-font 'modeline-buffer-id "fontset-lucidasans")
(set-face-font 'modeline-mousable-minor-mode "fontset-lucidasans")
(set-face-font 'modeline-mousable "fontset-lucidasans")))
--
BOFH excuse #224:
Jan 9 16:41:27 huber su: 'su root' succeeded for .... on /dev/pts/1
--
Lisez la FAQ de la liste avant de poser une question :
http://wiki.debian.net/?DebianFrench
Vous pouvez aussi ajouter le mot ``spam'' dans vos champs "From" et
"Reply-To:"
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
