Bonjour,
à ceux qui pourraient rencontrer le même problème que moi avec
les lettres accentuées dans xemacs et la SuSE 9.1, voici le résultat de mes
recherches.
Pour se débarasser de l'utf-8 dans xemacs,
il fallait mettre dans le fichier d'initialisation de xemacs les lignes
suivantes :
--------------------------------------------
(set-coding-priority-list '(iso-8-1))
(standard-display-european t)
(set-input-mode nil nil t)
(set-coding-category-system 'iso-8-1 'iso-8859-15)
(set-language-environment "Latin-9")
(require 'iso-syntax)
(set-terminal-coding-system 'iso-8859-15)
(set-keyboard-coding-system 'iso-8859-15)
(require 'iso-acc)
(setq unibyte-display-via-language-environment t)
; a trema
(unless (lookup-key global-map [U00E4])
(define-key global-map [U00E4] #'self-insert-command))
(unless (get 'U00E4 'ascii-character)
(put 'U00E4 'ascii-character (make-char 'latin-iso8859-15 #x64)))
; e trema
(unless (lookup-key global-map [U00EB])
(define-key global-map [U00EB] #'self-insert-command))
(unless (get 'U00EB 'ascii-character)
(put 'U00EB 'ascii-character (make-char 'latin-iso8859-15 #x6B)))
; i trema
(unless (lookup-key global-map [U00EF])
(define-key global-map [U00EF] #'self-insert-command))
(unless (get 'U00EF 'ascii-character)
(put 'U00EF 'ascii-character (make-char 'latin-iso8859-15 #x6F)))
; o trema
(unless (lookup-key global-map [U00F6])
(define-key global-map [U00F6] #'self-insert-command))
(unless (get 'U00F6 'ascii-character)
(put 'U00F6 'ascii-character (make-char 'latin-iso8859-15 #x76)))
; u trema
(unless (lookup-key global-map [U00FC])
(define-key global-map [U00FC] #'self-insert-command))
(unless (get 'U00FC 'ascii-character)
(put 'U00FC 'ascii-character (make-char 'latin-iso8859-15 #x7C)))
; a chapeau
(unless (lookup-key global-map [U00E2])
(define-key global-map [U00E2] #'self-insert-command))
(unless (get 'U00E2 'ascii-character)
(put 'U00E2 'ascii-character (make-char 'latin-iso8859-15 #x62)))
; e chapeau
(unless (lookup-key global-map [U00EA])
(define-key global-map [U00EA] #'self-insert-command))
(unless (get 'U00EA 'ascii-character)
(put 'U00EA 'ascii-character (make-char 'latin-iso8859-15 #x6A)))
; i chapeau
(unless (lookup-key global-map [U00EE])
(define-key global-map [U00EE] #'self-insert-command))
(unless (get 'U00EE 'ascii-character)
(put 'U00EE 'ascii-character (make-char 'latin-iso8859-15 #x6E)))
; o chapeau
(unless (lookup-key global-map [U00F4])
(define-key global-map [U00F4] #'self-insert-command))
(unless (get 'U00F4 'ascii-character)
(put 'U00F4 'ascii-character (make-char 'latin-iso8859-15 #x74)))
; u chapeau
(unless (lookup-key global-map [U00FB])
(define-key global-map [U00FB] #'self-insert-command))
(unless (get 'U00FB 'ascii-character)
(put 'U00FB 'ascii-character (make-char 'latin-iso8859-15 #x7B)))
--------------------------------------------
Rémi Lambert
Université de Liège
Département de Mathématique
Analyse algébrique
Tél. +32 (0)4 - 366 95 73
Fax. +32 (0)4 - 366 95 47
_______________________________________________________
Linux Mailing List - http://www.unixtech.be
Subscribe/Unsubscribe: http://www.unixtech.be/mailman/listinfo/linux
Archives: http://www.mail-archive.com/[EMAIL PROTECTED]
IRC: chat.unixtech.be:6667 - #unixtech
