déformation des accents...

Salut,

J'ai un soucis depuis quelques jours... J'ai rebooté il y a quelques
jours et depuis, XEmacs merde à qui mieux mieux dès que j'ai des
accents... Chaque fois qu'il doit enregister quelque chose, les
accents que j'ai tapé dans le texte déconne (et ceux qui y étaient
sont OK). Mais seulement sur certains caractères, comme le ¤ ou
l'espace insécable.

Je ne me souviens absolument pas de ce que j'ai fait ces dernières
semaines... Je suis sûr de n'avoir pas touché à la configuration de
XEmacs, du moins pas directement... J'ai touché certainement aux
fontes (j'ai perdu la fonte par défaut de XEmacs et j'ai dû modifier
cela) et des bricoles sur le système (je ne me souviens pas avoir
touché aux locales mais je ne peux l'affirmer...).

Bref, quelqu'un peut-il me mettre sur une piste ? Cela m'embête
*énormément* et m'empêche de travailler...

Merci

PK

PS : XEmacs sur Woody... rien de modifier à l'installation de base. Ma
configuration :

(custom-set-variables
'(vm-netscape-program "galeon" t)
'(column-number-mode t)
'(vm-page-continuation-glyph "...press SPACE to see more..." t)
'(gnuserv-program (concat exec-directory "/gnuserv"))
'(canlock-password "65f59349451dc1568d32dc9e574d2a5501dbcf31")
'(vm-mime-8bit-text-transfer-encoding (quote 8bit) t)
'(browse-url-browser-function (quote browse-url-galeon));
'(browse-url-galeon-program "galeon")
'(browse-url-galeon-arguments '("-n"))
'(browse-url-generic-program "galeon -n")
'(browse-url-generic-args '("-n"))
'(toolbar-visible-p nil)
'(line-number-mode t)
'(vm-mime-uuencode-decoder-switches nil t)
'(font-lock-mode t nil (font-lock)))
(custom-set-faces
'(message-header-contents ((t (:foreground "" :background "" :size "14" :dim nil :bold t :italic t :inverse-video t))))
'(message-highlighted-header-contents ((t (:foreground "green4" :bold t :italic t)))))

(custom-set-variables
'(font-lock-mode t nil (font-lock)))

;; flyspell

(setq flyspell-default-dictionary "francais")
;;(flyspell-mode 1)
;; (setq flyspell-issue-welcome-flag nil)

(defun flyspell-mode-on () (flyspell-mode 1))
(add-hook 'text-mode-hook 'flyspell-mode-on)

;; redéfinition des touches

(defun my-french-guill ()
"Insère une paire de guillemets"
(interactive)
(insert "«  »");<-- deux espaces insécables
(backward-char 2))

(defun my-point-interrogation ()
"Insère un point d'interrogation précédé d'une espace insécable"
(interactive)
(if (eq (char-before) ?\ ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " ?"));<-- 1 espace insécable
(insert " ?")));<-- itou

(defun my-point-exclamation ()
(interactive)
(if (eq (char-before) ?\ ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " !"));<-- 1 espace insécable
(insert " !")));<-- itou

(defun my-double-point ()
(interactive)
(if (eq (char-before) ?\ ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " :"));<-- 1 espace insécable
(insert " :")));<-- itou

(defun my-point-virgule ()
(interactive)
(if (eq (char-before) ?\ ) ; si espace classique
(progn
(backward-delete-char 1)
(insert " ;"));<-- 1 espace insécable
(insert " ;")));<-- itou

(defun my-double-parenthese ()
(interactive)
(insert "()")
(backward-char 1))

(defun my-double-crochet ()
(interactive)
(insert "[]")
(backward-char 1))

(defun my-double-accolade ()
(interactive)
(insert "{}")
(backward-char 1))

(defun my-double-keys ()
"Touches spécifiques"
(interactive)
;; [...]
(setq skeleton-pair t)
(define-key text-mode-map "$" 'skeleton-pair-insert-maybe)
(define-key text-mode-map "{" 'my-double-accolade)
(define-key text-mode-map "(" 'my-double-parenthese)
(define-key text-mode-map "[" 'my-double-crochet)
(define-key text-mode-map "?" 'my-point-interrogation)
(define-key text-mode-map "!" 'my-point-exclamation)
(define-key text-mode-map ":" 'my-double-point)
(define-key text-mode-map ";" 'my-point-virgule)
(define-key text-mode-map 'guillemotleft 'my-french-guill))
; pour Emacs
; (define-key text-mode-map "\253" 'my-french-guill))

(add-hook 'text-mode-hook 'my-double-keys)
;(add-hook 'tex-mode-hook 'my-double-keys)

;; se servir de galeon comme référence
;; en ouvrant un nouvel onglet à chaque fois
;;(setq browse-url-netscape-program "galeon")
;;(setq browse-url-netscape-arguments '("-n"))


--
      |\      _,,,---,,_       Patrice KARATCHENTZEFF
ZZZzz /,`.-'`'    -.  ;-;;,_   mailto:p.karatchentzeff@free.fr
     |,4-  ) )-,_. ,\ (  `'-'  http://p.karatchentzeff.free.fr
    '---''(_/--'  `-'\_)