;;; iso-francais.el, très fortement inspiré de
;;; iso-insert.el de Howard Gayle pour la FSF

;; pour  XEmacs 19.14

;; bien sûr, vous pouvez modifier, copier, distribuer ce code
;; comme il vous plaira.

(defun insert-A-circumflex ()
   (interactive "*")
   (insert 194)
)

(defun insert-A-umlaut ()
   (interactive "*")
   (insert 196)
)

(defun insert-E-circumflex ()
   (interactive "*")
   (insert 202)
)

(defun insert-E-umlaut ()
   (interactive "*")
   (insert 203)
)

(defun insert-I-circumflex ()
   (interactive "*")
   (insert 206)
)

(defun insert-I-umlaut ()
   (interactive "*")
   (insert 207)
)

(defun insert-O-circumflex ()
   (interactive "*")
   (insert 212)
)

(defun insert-O-umlaut ()
   (interactive "*")
   (insert 214)
)

(defun insert-U-circumflex ()
   (interactive "*")
   (insert 219)
)

(defun insert-U-umlaut ()
   (interactive "*")
   (insert 220)
)

(defun insert-a-grave ()
   (interactive "*")
   (insert 224)
)

(defun insert-a-acute ()
   (interactive "*")
   (insert 225)
)

(defun insert-a-circumflex ()
   (interactive "*")
   (insert 226)
)

(defun insert-a-umlaut ()
   (interactive "*")
   (insert 228)
)

(defun insert-e-circumflex ()
   (interactive "*")
   (insert 234)
)

(defun insert-e-umlaut ()
   (interactive "*")
   (insert 235)
)

(defun insert-i-circumflex ()
   (interactive "*")
   (insert 238)
)

(defun insert-i-umlaut ()
   (interactive "*")
   (insert 239)
)

(defun insert-o-circumflex ()
   (interactive "*")
   (insert 244)
)

(defun insert-o-umlaut ()
   (interactive "*")
   (insert 246)
)

(defun insert-u-circumflex ()
   (interactive "*")
   (insert 251)
)

(defun insert-u-umlaut ()
   (interactive "*")
   (insert 252)
)

(defun insert-y-umlaut ()
   (interactive "*")
   (insert 255)
)

(defvar francais1-map nil "accents circonflexes.")
(if francais1-map nil
   (setq francais1-map (make-keymap))
   (define-key francais1-map "A"   'insert-A-circumflex)
   (define-key francais1-map "E"   'insert-E-circumflex)
   (define-key francais1-map "I"   'insert-I-circumflex)
   (define-key francais1-map "O"   'insert-O-circumflex)
   (define-key francais1-map "U"   'insert-U-circumflex)
   (define-key francais1-map "a"   'insert-a-circumflex)
   (define-key francais1-map "e"   'insert-e-circumflex)
   (define-key francais1-map "i"   'insert-i-circumflex)
   (define-key francais1-map "o"   'insert-o-circumflex)
   (define-key francais1-map "u"   'insert-u-circumflex)

   (define-key global-map [dead-circumflex] francais1-map))

(defvar francais2-map nil "accents cicomflexes.")
(if francais2-map nil
   (setq francais2-map (make-keymap))
   (define-key francais2-map "A"  'insert-A-umlaut)
   (define-key francais2-map "E"  'insert-E-umlaut)
   (define-key francais2-map "I"  'insert-I-umlaut)
   (define-key francais2-map "O"  'insert-O-umlaut)
   (define-key francais2-map "U"  'insert-U-umlaut)
   (define-key francais2-map "a"  'insert-a-umlaut)
   (define-key francais2-map "e"  'insert-e-umlaut)
   (define-key francais2-map "i"  'insert-i-umlaut)
   (define-key francais2-map "o"  'insert-o-umlaut)
   (define-key francais2-map "u"  'insert-u-umlaut)
   (define-key francais2-map "y"  'insert-y-umlaut)

   (define-key global-map [dead_diaeresis] francais2-map)
)

(provide 'iso-francais)

;; ça devrait marcher non ?