help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Recommendations: emacs files containing multiple languages


From: Peter Dyballa
Subject: Re: Recommendations: emacs files containing multiple languages
Date: Sun, 10 Apr 2005 15:33:53 +0200


Am 10.04.2005 um 14:54 schrieb ken:

This week I've been wondering how to compose and edit text files
containing multiple languages... like English, German, Russian, French,
and ancient Greek... all in the same file.  Is this even possible in
emacs?  If so, any tips?

Start the file with this header:

        ;;; -*- mode: Text; coding: utf-8; -*-

and create fontsets like these:

(message "Neue fontsets für X11")
(if (fboundp 'new-fontset)
  (progn
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;; Monotype Courier New - Unicode encoded TrueType font, version 2.82, 1318 glyphs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-monotype-courier new-medium-r-*-*-9-*-*-*-*-*-fontset-09pt_monotype_courier" t 'noerror) (set-fontset-font "fontset-09pt_monotype_courier" 'latin-iso8859-1 '("courier new" . "iso8859-1")) (set-fontset-font "fontset-09pt_monotype_courier" 'latin-iso8859-2 '("courier new" . "iso8859-2")) (set-fontset-font "fontset-09pt_monotype_courier" 'latin-iso8859-3 '("courier new" . "iso8859-3")) (set-fontset-font "fontset-09pt_monotype_courier" 'latin-iso8859-4 '("courier new" . "iso8859-4")) (set-fontset-font "fontset-09pt_monotype_courier" 'cyrillic-iso8859-5 '("courier new" . "iso8859-5")) (set-fontset-font "fontset-09pt_monotype_courier" 'arabic-iso8859-6 '("courier new" . "iso8859-6")) (set-fontset-font "fontset-09pt_monotype_courier" 'greek-iso8859-7 '("courier new" . "iso8859-7")) (set-fontset-font "fontset-09pt_monotype_courier" 'hebrew-iso8859-8 '("courier new" . "iso8859-8")) (set-fontset-font "fontset-09pt_monotype_courier" 'latin-iso8859-9 '("courier new" . "iso8859-9")) (set-fontset-font "fontset-09pt_monotype_courier" 'latin-iso8859-15 '("courier new" . "iso8859-15")) (set-fontset-font "fontset-09pt_monotype_courier" 'mule-unicode-0100-24ff '("courier new" . "iso10646-1")) (set-fontset-font "fontset-09pt_monotype_courier" 'mule-unicode-2500-33ff '("courier new" . "iso10646-1")) (set-fontset-font "fontset-09pt_monotype_courier" 'mule-unicode-e000-ffff '("courier new" . "iso10646-1"))
;
(create-fontset-from-fontset-spec "-monotype-courier new-medium-r-*-*-10-*-*-*-*-*-fontset-10pt_monotype_courier" t 'noerror) (set-fontset-font "fontset-10pt_monotype_courier" 'latin-iso8859-1 '("courier new" . "iso8859-1")) (set-fontset-font "fontset-10pt_monotype_courier" 'latin-iso8859-2 '("courier new" . "iso8859-2")) (set-fontset-font "fontset-10pt_monotype_courier" 'latin-iso8859-3 '("courier new" . "iso8859-3")) (set-fontset-font "fontset-10pt_monotype_courier" 'latin-iso8859-4 '("courier new" . "iso8859-4")) (set-fontset-font "fontset-10pt_monotype_courier" 'cyrillic-iso8859-5 '("courier new" . "iso8859-5")) (set-fontset-font "fontset-10pt_monotype_courier" 'arabic-iso8859-6 '("courier new" . "iso8859-6")) (set-fontset-font "fontset-10pt_monotype_courier" 'greek-iso8859-7 '("courier new" . "iso8859-7")) (set-fontset-font "fontset-10pt_monotype_courier" 'hebrew-iso8859-8 '("courier new" . "iso8859-8")) (set-fontset-font "fontset-10pt_monotype_courier" 'latin-iso8859-9 '("courier new" . "iso8859-9")) (set-fontset-font "fontset-10pt_monotype_courier" 'latin-iso8859-15 '("courier new" . "iso8859-15")) (set-fontset-font "fontset-10pt_monotype_courier" 'mule-unicode-0100-24ff '("courier new" . "iso10646-1")) (set-fontset-font "fontset-10pt_monotype_courier" 'mule-unicode-2500-33ff '("courier new" . "iso10646-1")) (set-fontset-font "fontset-10pt_monotype_courier" 'mule-unicode-e000-ffff '("courier new" . "iso10646-1"))
;
(create-fontset-from-fontset-spec "-monotype-courier new-medium-r-*-*-11-*-*-*-*-*-fontset-11pt_monotype_courier" t 'noerror) (set-fontset-font "fontset-11pt_monotype_courier" 'latin-iso8859-1 '("courier new" . "iso8859-1")) (set-fontset-font "fontset-11pt_monotype_courier" 'latin-iso8859-2 '("courier new" . "iso8859-2")) (set-fontset-font "fontset-11pt_monotype_courier" 'latin-iso8859-3 '("courier new" . "iso8859-3")) (set-fontset-font "fontset-11pt_monotype_courier" 'latin-iso8859-4 '("courier new" . "iso8859-4")) (set-fontset-font "fontset-11pt_monotype_courier" 'cyrillic-iso8859-5 '("courier new" . "iso8859-5")) (set-fontset-font "fontset-11pt_monotype_courier" 'arabic-iso8859-6 '("courier new" . "iso8859-6")) (set-fontset-font "fontset-11pt_monotype_courier" 'greek-iso8859-7 '("courier new" . "iso8859-7")) (set-fontset-font "fontset-11pt_monotype_courier" 'hebrew-iso8859-8 '("courier new" . "iso8859-8")) (set-fontset-font "fontset-11pt_monotype_courier" 'latin-iso8859-9 '("courier new" . "iso8859-9")) (set-fontset-font "fontset-11pt_monotype_courier" 'latin-iso8859-15 '("courier new" . "iso8859-15")) (set-fontset-font "fontset-11pt_monotype_courier" 'mule-unicode-0100-24ff '("courier new" . "iso10646-1")) (set-fontset-font "fontset-11pt_monotype_courier" 'mule-unicode-2500-33ff '("courier new" . "iso10646-1")) (set-fontset-font "fontset-11pt_monotype_courier" 'mule-unicode-e000-ffff '("courier new" . "iso10646-1"))
; and more sizes of the same font
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;; Adobe Courier - Unicode encoded TrueType font
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-adobe-courier-medium-r-*-*-9-*-*-*-*-*-fontset-09pt_adobe_courier" t 'noerror) (set-fontset-font "fontset-09pt_adobe_courier" 'latin-iso8859-1 '("adobe-courier" . "iso8859-1")) (set-fontset-font "fontset-09pt_adobe_courier" 'latin-iso8859-2 '("adobe-courier" . "iso8859-2")) (set-fontset-font "fontset-09pt_adobe_courier" 'latin-iso8859-3 '("adobe-courier" . "iso8859-3")) (set-fontset-font "fontset-09pt_adobe_courier" 'latin-iso8859-4 '("adobe-courier" . "iso8859-4")) (set-fontset-font "fontset-09pt_adobe_courier" 'latin-iso8859-9 '("adobe-courier" . "iso8859-9")) (set-fontset-font "fontset-09pt_adobe_courier" 'latin-iso8859-14 '("adobe-courier" . "iso8859-14")) (set-fontset-font "fontset-09pt_adobe_courier" 'latin-iso8859-15 '("adobe-courier" . "iso8859-15")) (set-fontset-font "fontset-09pt_adobe_courier" 'mule-unicode-0100-24ff '("adobe-courier" . "iso10646-1")) (set-fontset-font "fontset-09pt_adobe_courier" 'mule-unicode-2500-33ff '("adobe-courier" . "iso10646-1")) (set-fontset-font "fontset-09pt_adobe_courier" 'mule-unicode-e000-ffff '("adobe-courier" . "iso10646-1"))
;and more sizes of the same font
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;; B&H Lucida Sans Typewriter - Unicode encoded TrueType font, version 18 July, 1999; 1.10 (JAVA), 1376 glyphs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-b&h-lucida sans typewriter-medium-r-*-*-9-*-*-*-*-*-fontset -09pt_lucida_sans_typewriter" t 'noerror) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'latin-iso8859-1 '("lucida sans typewriter" . "iso8859-1")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'latin-iso8859-2 '("lucida sans typewriter" . "iso8859-2")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'latin-iso8859-3 '("lucida sans typewriter" . "iso8859-3")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'latin-iso8859-4 '("lucida sans typewriter" . "iso8859-4")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'cyrillic-iso8859-5 '("lucida sans typewriter" . "iso8859-5")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'hebrew-iso8859-8 '("lucida sans typewriter" . "iso8859-8")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'latin-iso8859-9 '("lucida sans typewriter" . "iso8859-9")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'latin-iso8859-15 '("lucida sans typewriter" . "iso8859-15")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter 'thai-tis620 '("lucida sans typewriter" . "iso10646-1")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'mule-unicode-0100-24ff '("lucida sans typewriter" . "iso10646-1")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'mule-unicode-2500-33ff '("lucida sans typewriter" . "iso10646-1")) (set-fontset-font "fontset-09pt_lucida_sans_typewriter" 'mule-unicode-e000-ffff '("lucida sans typewriter" . "iso10646-1"))
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-b&h-lucidatypewriter-medium-r-*-*-8-*-*-*-*-*-fontset -08pt_lucidatypewriter" t 'noerror) (set-fontset-font "fontset-08pt_lucidatypewriter" 'latin-iso8859-1 '("lucidatypewriter" . "iso8859-1")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'latin-iso8859-2 '("lucidatypewriter" . "iso8859-2")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'latin-iso8859-3 '("lucidatypewriter" . "iso8859-3")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'latin-iso8859-4 '("lucidatypewriter" . "iso8859-4")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'latin-iso8859-9 '("lucidatypewriter" . "iso8859-9")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'latin-iso8859-14 '("lucidatypewriter" . "iso8859-14")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'latin-iso8859-15 '("lucidatypewriter" . "iso8859-15")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'mule-unicode-0100-24ff '("lucidatypewriter" . "iso10646-1")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'mule-unicode-2500-33ff '("lucidatypewriter" . "iso10646-1")) (set-fontset-font "fontset-08pt_lucidatypewriter" 'mule-unicode-e000-ffff '("lucidatypewriter" . "iso10646-1"))
;
;;;;;;;;; B&H Luxi Mono Regular - Unicode encoded TrueType font, version 1.2 : October 12, 2001, 395 glyphs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-b&h-luxi mono-medium-r-*-*-9-*-*-*-*-*-fontset-09pt_luxi mono" t 'noerror) (set-fontset-font "fontset-09pt_luxi mono" 'latin-iso8859-1 '("luxi mono" . "iso8859-1")) (set-fontset-font "fontset-09pt_luxi mono" 'latin-iso8859-2 '("luxi mono" . "iso8859-2")) (set-fontset-font "fontset-09pt_luxi mono" 'latin-iso8859-3 '("luxi mono" . "iso8859-3")) (set-fontset-font "fontset-09pt_luxi mono" 'latin-iso8859-4 '("luxi mono" . "iso8859-4")) (set-fontset-font "fontset-09pt_luxi mono" 'latin-iso8859-9 '("luxi mono" . "iso8859-9")) (set-fontset-font "fontset-09pt_luxi mono" 'latin-iso8859-15 '("luxi mono" . "iso8859-15")) (set-fontset-font "fontset-09pt_luxi mono" 'mule-unicode-0100-24ff '("luxi mono" . "iso10646-1")) (set-fontset-font "fontset-09pt_luxi mono" 'mule-unicode-2500-33ff '("luxi mono" . "iso10646-1")) (set-fontset-font "fontset-09pt_luxi mono" 'mule-unicode-e000-ffff '("luxi mono" . "iso10646-1"))
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;; Bitstream Vera Sans Mono - Unicode encoded TrueType font, version Release 1.10, 269 glyphs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-bitsteam-bitstream vera sans mono-medium-r-*-*-9-*-*-*-*-*-fontset-09pt_vera_sans_mono" t 'noerror) (set-fontset-font "fontset-09pt_vera_sans_mono" 'latin-iso8859-1 '("bitstream vera sans mono" . "iso8859-1")) (set-fontset-font "fontset-09pt_vera_sans_mono" 'latin-iso8859-2 '("bitstream vera sans mono" . "iso10646-1")) (set-fontset-font "fontset-09pt_vera_sans_mono" 'latin-iso8859-3 '("bitstream vera sans mono" . "iso10646-1")) (set-fontset-font "fontset-09pt_vera_sans_mono" 'latin-iso8859-4 '("bitstream vera sans mono" . "iso10646-1")) (set-fontset-font "fontset-09pt_vera_sans_mono" 'latin-iso8859-9 '("bitstream vera sans mono" . "iso8859-9")) (set-fontset-font "fontset-09pt_vera_sans_mono" 'latin-iso8859-15 '("bitstream vera sans mono" . "iso8859-15")) (set-fontset-font "fontset-09pt_vera_sans_mono" 'mule-unicode-0100-24ff '("bitstream vera sans mono" . "iso10646-1")) (set-fontset-font "fontset-09pt_vera_sans_mono" 'mule-unicode-2500-33ff '("bitstream vera sans mono" . "iso10646-1")) (set-fontset-font "fontset-09pt_vera_sans_mono" 'mule-unicode-e000-ffff '("bitstream vera sans mono" . "iso10646-1"))
;
;;;;;;;;; ProFontWindows - Unicode encoded TrueType font, version 2.3, 278 glyphs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-misc-profontwindows-medium-r-*-*-9-*-*-*-*-*-fontset-09pt_profont" t 'noerror) (set-fontset-font "fontset-09pt_profont" 'latin-iso8859-1 '("profontwindows" . "iso8859-1")) (set-fontset-font "fontset-09pt_profont" 'latin-iso8859-2 '("profontwindows" . "iso10646-1")) (set-fontset-font "fontset-09pt_profont" 'latin-iso8859-3 '("profontwindows" . "iso10646-1")) (set-fontset-font "fontset-09pt_profont" 'latin-iso8859-4 '("profontwindows" . "iso10646-1")) (set-fontset-font "fontset-09pt_profont" 'latin-iso8859-9 '("profontwindows" . "iso10646-1")) (set-fontset-font "fontset-09pt_profont" 'latin-iso8859-15 '("profontwindows" . "iso8859-15")) (set-fontset-font "fontset-09pt_profont" 'mule-unicode-0100-24ff '("profontwindows" . "iso10646-1")) (set-fontset-font "fontset-09pt_profont" 'mule-unicode-2500-33ff '("profontwindows" . "iso10646-1")) (set-fontset-font "fontset-09pt_profont" 'mule-unicode-e000-ffff '("profontwindows" . "iso10646-1"))
;
;;;;;;;;; FreeMono - Unicode encoded TrueType font, version Version 1.10, 2.570 glyphs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-*-freemono-medium-r-*-*-9-*-*-*-*-*-fontset-09pt_free_mono" t 'noerror) (set-fontset-font "fontset-09pt_free_mono" 'latin-iso8859-1 '("freemono" . "iso8859-1")) (set-fontset-font "fontset-09pt_free_mono" 'latin-iso8859-2 '("freemono" . "iso8859-2")) (set-fontset-font "fontset-09pt_free_mono" 'latin-iso8859-3 '("freemono" . "iso8859-3")) (set-fontset-font "fontset-09pt_free_mono" 'latin-iso8859-4 '("freemono" . "iso8859-4")) (set-fontset-font "fontset-09pt_free_mono" 'cyrillic-iso8859-5 '("freemono" . "iso8859-5")) (set-fontset-font "fontset-09pt_free_mono" 'latin-iso8859-9 '("freemono" . "iso8859-9")) (set-fontset-font "fontset-09pt_free_mono" 'latin-iso8859-15 '("freemono" . "iso8859-15")) (set-fontset-font "fontset-09pt_free_mono" 'mule-unicode-0100-24ff '("freemono" . "iso10646-1")) (set-fontset-font "fontset-09pt_free_mono" 'mule-unicode-2500-33ff '("freemono" . "iso10646-1")) (set-fontset-font "fontset-09pt_free_mono" 'mule-unicode-e000-ffff '("freemono" . "iso10646-1"))
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;; Everson Mono Unicode - Unicode encoded TrueType font, version Version 3.2b4, 4.899 glyphs -- simply the best!
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-*-everson mono unicode-medium-r-*-*-9-*-*-*-*-*-fontset-09pt_everson_mono" t 'noerror) (set-fontset-font "fontset-09pt_everson_mono" 'latin-iso8859-1 '("everson mono unicode" . "iso8859-1")) (set-fontset-font "fontset-09pt_everson_mono" 'latin-iso8859-2 '("everson mono unicode" . "iso8859-2")) (set-fontset-font "fontset-09pt_everson_mono" 'latin-iso8859-3 '("everson mono unicode" . "iso8859-3")) (set-fontset-font "fontset-09pt_everson_mono" 'latin-iso8859-4 '("everson mono unicode" . "iso8859-4")) (set-fontset-font "fontset-09pt_everson_mono" 'cyrillic-iso8859-5 '("everson mono unicode" . "iso8859-5")) (set-fontset-font "fontset-09pt_everson_mono" 'hebrew-iso8859-8 '("everson mono unicode" . "iso8859-8")) (set-fontset-font "fontset-09pt_everson_mono" 'latin-iso8859-9 '("everson mono unicode" . "iso8859-9")) (set-fontset-font "fontset-09pt_everson_mono" 'latin-iso8859-15 '("everson mono unicode" . "iso8859-15")) (set-fontset-font "fontset-09pt_everson_mono" 'mule-unicode-0100-24ff '("everson mono unicode" . "iso10646-1")) (set-fontset-font "fontset-09pt_everson_mono" 'mule-unicode-2500-33ff '("everson mono unicode" . "iso10646-1")) (set-fontset-font "fontset-09pt_everson_mono" 'mule-unicode-e000-ffff '("everson mono unicode" . "iso10646-1"))
;
    (let ((fontset (query-fontset (frame-parameter nil 'font))))
      (when (not fontset)
        (setq fontset "fontset-default")
        (set-default-font fontset))
        (set-fontset-font fontset
(cons (decode-char 'ucs #x0D00) (decode-char 'ucs #x0D7f)) (cons "misc-malayalam" "iso10646-1")); Malayam
    )
(set-fontset-font "fontset-default" (cons (decode-char 'ucs #x05b0) (decode-char 'ucs #x06ff)) "-m17n-*--13-*-iso10646-1"); Hebrew (set-fontset-font "fontset-default" (cons (decode-char 'ucs #x10a0) (decode-char 'ucs #x10ff)) "-*-bpg glaho arial--13-*-iso10646-1"); Georgian ; (set-fontset-font "fontset-default" (cons (decode-char 'ucs #x10a0) (decode-char 'ucs #x10ff)) "-*-titus cyberbit basic--13-*-iso10646-1"); Georgian ; (set-fontset-font "fontset-default" (cons (decode-char 'ucs #x10a0) (decode-char 'ucs #x10ff)) "-*-code2000--13-*-iso10646-1"); Georgian (set-fontset-font "fontset-default" (cons (decode-char 'ucs #x200c) (decode-char 'ucs #x200f)) "-m17n-*--13-*-iso10646-1"); 0 width (set-fontset-font "fontset-default" (cons (decode-char 'ucs #xfb2a) (decode-char 'ucs #xfbff)) "-m17n-*--13-*-iso10646-1"); presentation forms (set-fontset-font "fontset-default" (cons (decode-char 'ucs #xfe70) (decode-char 'ucs #xfefc)) "-m17n-*--13-*-iso10646-1"); Arabic

(provide 'site-fontsets-x11)

--
Greetings

  Pete

"I wouldn't recommend sex, drugs or insanity for everyone, but they've
always worked for me."
                -- Hunter S. Thompson





reply via email to

[Prev in Thread] Current Thread [Next in Thread]