Hallo Leute! Vor geraumer Zeit hat hier *Roland Rosenfeld* ein (geniales) ELISP-Skript für XEmacs gepostet. Durch dieses kann per Tastendruck (F4) zwischen verschiedenen Wörterbüchern on-the-fly umgeschaltet werden kann. :-)
Einfaches Einfügen in ~/.emacs funktioniert leider nicht (richtig) bei meiner XEmacs-Version (aktuelle aus Woody). :-( Durch die Trail&Error Methode habe ich das Skript ohne Fehlermeldung zum Laufen gebracht. Nun kann zwischen drei Wörterbuchern (Deutsch-Alt, Deutsch-Neu, Englisch) mit Hilfe von F4 temporär umgeschaltet werden. Dies funktioniert auch prima. :-) Außerdem sollte dann in der Statuszeile auch nicht mehr 'fly' sondern je nach Sprache 'oGer', 'nGer' oder 'Eng' stehen, so daß man auf einen Blick sieht, welche Sprache gerade aktiv ist und sich nicht wundert, warum flyspell fast jedes Wort als falsch kennzeichnet. Das funktioniert leider aus irgendeinem Grund *NICHT*. Unabhängig vom verwendeten Wörterbuch wird immer "oGer" angezeigt. Im folgenden habe ich diese kleine LISP-Routine hereinkopiert, vielleicht findet sich ja der eine oder andere LISP-Profi, der mir sagen könnte wo der Fehler liegt! So wie immer, danke ich bereits im voraus. KURZE ZUSATZFRAGE: Wie kann ich XEmacs dazu bewegen, daß er mir in der Statuszeile die Zeilennummer der aktuellen Cursorposition anzeigt? ...[Schnipp]... (add-hook 'text-mode-hook 'flyspell-mode) ;;(autoload 'flyspell-mode "flyspell" "On-the-fly ispell." t) (setq ispell-dictionary "deutsch8") (setq ispell-local-dictionary "deutsch8") (setq flyspell-default-dictionary "deutsch8") (setq flyspell-mode-line-string " oGer") (make-variable-buffer-local 'flyspell-mode-line-string) (defvar current-language 0 "state of language toggle: 0 means deutsch8 1 means english 2 means ndeutsch8") (make-variable-buffer-local 'current-language) (defun set-language-deutsch "switch language to deutsch" (interactive) (setq current-language 0) (setq flyspell-mode-line-string " oGer") (force-mode-line-update) (ispell-change-dictionary "deutsch8") (setq sentence-end "[.?!][]\'')}]*\\($\\|[ \t]\\)[ \t\n]*") (setq sentence-end-double-space nil) ) (defun set-language-english "switch language to english" (interactive) (setq current-language 1) (setq flyspell-mode-line-string " Eng") (force-mode-line-update) (ispell-change-dictionary "american") (setq sentence-end "[.?!][]\'')}]*\\($\\| $\\|\t\\| \\)[ \t\n]*"); (setq sentence-end-double-space t) ) (defun set-language-ngerman "switch language to ngerman" (interactive) (setq current-language 2) (setq flyspell-mode-line-string " nGer") (force-mode-line-update) (ispell-change-dictionary "ndeutsch8") (setq sentence-end "[.?!][]\'')}]*\\($\\|[ \t]\\)[ \t\n]*") (setq sentence-end-double-space nil) ) (defun toggle-language () "Toggle language between deutsch8, english and ndeutsch8" (interactive) (cond ((eq current-language 0) (set-language-english)) ((eq current-language 1) (set-language-ngerman)) (t (set-language-deutsch)))) (global-set-key [f4] 'toggle-language) ...[Schnapp]... MfG Roman! ----------------------------------------------------------- Um sich aus der Liste auszutragen schicken Sie bitte eine E-Mail an [EMAIL PROTECTED] die im Body "unsubscribe debian-user-de <deine emailadresse>" enthaelt. Bei Problemen bitte eine Mail an: [EMAIL PROTECTED] ----------------------------------------------------------- Anzahl der eingetragenen Mitglieder: 785
