Re: Nochmal Xemacs

Claudia Neumann wrote:
> Habe auch in emacs (Xemacs will nicht) M-x load-library RET codepage.elc oder
> dos-vars.elc geladen. Dann nochmal M-x codepage-setup usw. Keine Änderung.
>
> Na gut, wenn alles nicht klappt, werde ich mich mit verstümmelten äöü begnügen
> müssen :-(.

Das ist doch auch keine Loesung... Oder wie Du schriebst: Das muß
anders werden.

Hast Du mal recode ausprobiert?

Ich hätte sonst noch zwei Funktionen zu bieten:

(defun convert-umlauts-cp850-isolatin1 ()
  (interactive)
  (defvar orig-case-fold-search case-fold-search)
  (setq case-fold-search nil)
  (goto-char (point-min)) (replace-string "kaputt-Ä" "Ä")
  (goto-char (point-min)) (replace-string "kaputt-ä" "ä")
  (goto-char (point-min)) (replace-string "kaputt-Ö" "Ö")
  (goto-char (point-min)) (replace-string "kaputt-ö" "ö")
  (goto-char (point-min)) (replace-string "kaputt-Ü" "Ü")
  (goto-char (point-min)) (replace-string "kaputt-ü" "ü")
  (goto-char (point-min)) (replace-string "kaputt-ß" "ß")
  (setq case-fold-search orig-case-fold-search)
)

(defun convert-umlauts-isolatin1-cp850 ()
  (interactive)
  (defvar orig-case-fold-search case-fold-search)
  (setq case-fold-search nil)
  (goto-char (point-min)) (replace-string "Ä" "kaputt-Ä")
  (goto-char (point-min)) (replace-string "ä" "kaputt-ä")
  (goto-char (point-min)) (replace-string "Ö" "kaputt-Ö")
  (goto-char (point-min)) (replace-string "ö" "kaputt-ö")
  (goto-char (point-min)) (replace-string "Ü" "kaputt-Ü")
  (goto-char (point-min)) (replace-string "ü" "kaputt-ü")
  (goto-char (point-min)) (replace-string "ß" "kaputt-ß")
  (setq case-fold-search orig-case-fold-search)
)

Tausch die Umlaute aus, speicher die Datei (z.B. als ~/.emacs) oder im
laufenden Puffer mit C-<space> einen Marker vor die beiden Funktionen
setzen, dann ans Ende gehen und mit M-x eval-region auswerten.
Anschließend hast Du sie als M-x convert-...

Gruesse,

        Joey

-- 
WARNING: Do not execute!  This call violates patent DE10108564.
http://www.elug.de/projekte/patent-party/patente/DE10108564
wget -O patinfo-`date +"%Y%m%d"`.html http://patinfo.ffii.org/