[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: german Umlaute in XEmacs
From: |
Thomas Gerds |
Subject: |
Re: german Umlaute in XEmacs |
Date: |
Tue, 19 Aug 2003 13:09:07 +0200 |
User-agent: |
Gnus/5.1002 (Gnus v5.10.2) XEmacs/21.4 (Common Lisp, linux) |
you could add the following lines to your init.el (or .emacs).
then M-x german-umlaut-mode toggles an appropriate minor mode.
;; ------------------ ;;
;; german-umlaut-mode ;;
;; ------------------ ;;
(defvar german-umlaut-mode nil)
(make-variable-buffer-local 'german-umlaut-mode)
(defvar german-umlaut-map (make-sparse-keymap)
"Keymap used for `german-umlaut-mode' commands.")
(defun german-umlaut-ae () (interactive) (insert "ä"))
(defun german-umlaut-Ae () (interactive) (insert "Ä"))
(defun german-umlaut-ue () (interactive) (insert "ü"))
(defun german-umlaut-Ue () (interactive) (insert "Ü"))
(defun german-umlaut-oe () (interactive) (insert "ö"))
(defun german-umlaut-Oe () (interactive) (insert "Ö"))
(defun german-umlaut-sz () (interactive) (insert "ß"))
(define-key german-umlaut-map "\M-s" 'german-umlaut-sz)
(define-key german-umlaut-map "\M-a" 'german-umlaut-ae)
(define-key german-umlaut-map "\M-A" 'german-umlaut-Ae)
(define-key german-umlaut-map "\M-u" 'german-umlaut-ue)
(define-key german-umlaut-map "\M-U" 'german-umlaut-Ue)
(define-key german-umlaut-map "\M-o" 'german-umlaut-oe)
(define-key german-umlaut-map "\M-O" 'german-umlaut-Oe)
(or (assq 'german-umlaut-mode minor-mode-map-alist)
(setq minor-mode-map-alist
(append minor-mode-map-alist
(list (cons 'german-umlaut-mode german-umlaut-map)))))
(defun german-umlaut-mode (&optional arg)
"A minor mode with easy access to german umlauts and german sz."
(interactive "P")
(setq german-umlaut-mode
(not (or (and (null arg) german-umlaut-mode)
(<= (prefix-numeric-value arg) 0)))))
(or (assq 'german-umlaut-mode minor-mode-alist)
(setq minor-mode-alist
(cons '(german-umlaut-mode " ö") minor-mode-alist)))
tomy
Raimund Kohl-Fuechsle <ray@nabuli.de> writes:
> Hello there,
>
> I recently switched from Gnu Emacs to XEmacs which wasn't bad at all
> :-) But (at least) one problem I don't know how to resolve: I use a
> US-Keyboard, and since I am living in germany I need to produce the
> german Umlaute. With Gnu Emacs that wasn't a problem at all. I just
> toggled the input method with C-\ and typing ->"a<- produced the german a
> with two dots above. This seems to not work with XEmacs. How is it
> done with XEmacs? Would anyone please help?
>
> Thank you in advance
>
> ray
--
no signature