; TeX Umlaut Uebersetzung
; sollte in die .emacs Datei eingef gt werden
(defun tex_ue ()
  (interactive)
  (insert-string "\"u"))
(defun tex_ae ()
  (interactive)
  (insert-string "\"a"))
(defun tex_oe ()
  (interactive)
  (insert-string "\"o"))
(defun tex_UE ()
  (interactive)
  (insert-string "\"U"))
(defun tex_AE ()
  (interactive)
  (insert-string "\"A"))
(defun tex_OE ()
  (interactive)
  (insert-string "\"O"))
(defun tex_sz ()
  (interactive)
  (insert-string "\"s"))

(setq tex-mode-hook
      '(lambda ()
         (local-set-key '(udiaeresis) 'tex_ue)
         (local-set-key '(adiaeresis) 'tex_ae)
         (local-set-key '(odiaeresis) 'tex_oe)
         (local-set-key '(Udiaeresis) 'tex_UE)
         (local-set-key '(Adiaeresis) 'tex_AE)
         (local-set-key '(Odiaeresis) 'tex_OE)
         (local-set-key '(ssharp) 'tex_sz)))

; Ende Listing