german Umlaute in XEmacs

german Umlaute in XEmacs

[Raimund Kohl-Fuechsle]

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

Re: german Umlaute in XEmacs

[Thomas Gerds]

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

Re: german Umlaute in XEmacs

[Thomas Gerds]

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

Re: german Umlaute in XEmacs

[Kevin Rodgers]

Raimund Kohl-Fuechsle wrote:

> 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?

Try news:comp.emacs.xemacs, news:comp.emacs, or http://www.emacswiki.org/



-- 
Kevin Rodgers