help-gnu-emacs
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: emacs-snapshot keybinding problem

From: Peter Dyballa
Subject: Re: emacs-snapshot keybinding problem
Date: Wed, 4 Jan 2006 00:52:48 +0100 

Am 03.01.2006 um 23:49 schrieb Angelina Carlton:
the fonts seem limited to a few foundry's and do not cover all the fonts 
installed on my system.


Here is some code to create a more site specific fontsets menu:

(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")) ; many more sizes, and many more such sets for the fonts found and chosen 
;
; this can help Emacs to fill any gaps with adaquate glyphs
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;; Adobe Courier - Unicode encoded OpenType font, version 1.020, 374 glyphs 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(create-fontset-from-fontset-spec "-adobe-courier-medium-r-*-*-11- *-*-*-*-*-fontset-11pt_adobe_courier" t 'noerror) (set-fontset-font "fontset-11pt_adobe_courier" 'latin- iso8859-1 '("adobe-courier" . "iso8859-1")) (set-fontset-font "fontset-11pt_adobe_courier" 'latin- iso8859-2 '("adobe-courier" . "iso8859-2")) (set-fontset-font "fontset-11pt_adobe_courier" 'latin- iso8859-3 '("adobe-courier" . "iso8859-3")) (set-fontset-font "fontset-11pt_adobe_courier" 'latin- iso8859-4 '("adobe-courier" . "iso8859-4")) (set-fontset-font "fontset-11pt_adobe_courier" 'greek- iso8859-7 '("adobe-couriergr" . "iso8859-7")) (set-fontset-font "fontset-11pt_adobe_courier" 'latin- iso8859-9 '("adobe-courier" . "iso8859-9")) (set-fontset-font "fontset-11pt_adobe_courier" 'latin- iso8859-14 '("adobe-courier" . "iso8859-14")) (set-fontset-font "fontset-11pt_adobe_courier" 'latin- iso8859-15 '("adobe-courier" . "iso8859-15")) ; (set-fontset-font "fontset-11pt_adobe_courier" 'latin- iso8859-16 '("adobe-courier" . "iso8859-16")) (set-fontset-font "fontset-11pt_adobe_courier" 'mule- unicode-0100-24ff '("adobe-courier" . "iso10646-1")) (set-fontset-font "fontset-11pt_adobe_courier" 'mule- unicode-2500-33ff '("adobe-courier" . "iso10646-1")) (set-fontset-font "fontset-11pt_adobe_courier" 'mule-unicode-e000- ffff '("adobe-courier" . "iso10646-1")) (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0370) (decode-char 'ucs #x03cf)) '("courier new" . "iso10646-1")) ; Greek (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x03d0) (decode-char 'ucs #x03ff)) '("lucida sans typewriter" . "iso10646-1")) ; Coptic (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0400) (decode-char 'ucs #x04ff)) '("lucida sans typewriter" . "iso10646-1")) ; Cyrillic (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0500) (decode-char 'ucs #x052f)) '("lucida sans typewriter" . "iso10646-1")) ; Cyrillic Supplement (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0530) (decode-char 'ucs #x058f)) '("aramian unicode" . "iso10646-1")) ; Armenian (sylfaen (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0590) (decode-char 'ucs #x05af)) '("lucida sans typewriter" . "iso10646-1")) ; Hebrew (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x05b0) (decode-char 'ucs #x05ff)) '("courier new" . "iso10646-1")) ; Hebrew (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0600) (decode-char 'ucs #x066f)) '("courier new" . "iso10646-1")) ; Arabic (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0670) (decode-char 'ucs #x06ff)) '("lucida sans typewriter" . "iso10646-1")) ; Arabic (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0700) (decode-char 'ucs #x074f)) '("titus cyberbit basic" . "iso10646-1")) ; Syriac (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0780) (decode-char 'ucs #x07bf)) '("titus cyberbit basic" . "iso10646-1")) ; Thaana (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0900) (decode-char 'ucs #x097f)) '("titus cyberbit basic" . "iso10646-1")) ; Devanagari (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0980) (decode-char 'ucs #x09ff)) '("code2000" . "iso10646-1")) ; Bengali (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0a00) (decode-char 'ucs #x0a7f)) '("code2000" . "iso10646-1")) ; Gurmukhi (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0a80) (decode-char 'ucs #x0aff)) '("code2000" . "iso10646-1")) ; Gujarati (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0b00) (decode-char 'ucs #x0b7f)) '("code2000" . "iso10646-1")) ; Oriya (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0b80) (decode-char 'ucs #x0bff)) '("code2000" . "iso10646-1")) ; Tamil (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0c00) (decode-char 'ucs #x0c7f)) '("code2000" . "iso10646-1")) ; Telugu (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0c80) (decode-char 'ucs #x0cff)) '("code2000" . "iso10646-1")) ; Kannada (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0d00) (decode-char 'ucs #x0d7f)) '("code2000" . "iso10646-1")) ; Malayalam (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0d80) (decode-char 'ucs #x0dff)) '("akshar unicode" . "iso10646-1")) ; Sinhala (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0e00) (decode-char 'ucs #x0e7f)) '("code2000" . "iso10646-1")) ; Thai (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0e80) (decode-char 'ucs #x0eff)) '("code2000" . "iso10646-1")) ; Lao (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x0f00) (decode-char 'ucs #x0fff)) '("xtashi" . "iso10646-1")) ; Tibetan (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1000) (decode-char 'ucs #x109f)) '("code2000" . "iso10646-1")) ; Myanmar (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x10a0) (decode-char 'ucs #x10ff)) '("everson mono unicode" . "iso10646-1")) ; Georgian (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1100) (decode-char 'ucs #x11ff)) '("code2000" . "iso10646-1")) ; Hangul Jamo (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1200) (decode-char 'ucs #x137f)) '("ethiopia jiret" . "iso10646-1")) ; Ethiopic (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x13a0) (decode-char 'ucs #x13ff)) '("everson mono unicode" . "iso10646-1")) ; Cherokee (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1400) (decode-char 'ucs #x167f)) '("everson mono unicode" . "iso10646-1")) ; Canadian Aboriginal Syllabics (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1680) (decode-char 'ucs #x169f)) '("everson mono unicode" . "iso10646-1")) ; Ogham (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x16a0) (decode-char 'ucs #x16ff)) '("everson mono unicode" . "iso10646-1")) ; Runic ; (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1700) (decode-char 'ucs #x171f)) '("code2000" . "iso10646-1")) ; Tagalog ; (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1720) (decode-char 'ucs #x173f)) '("code2000" . "iso10646-1")) ; Hanunoo (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1740) (decode-char 'ucs #x175f)) '("code2000" . "iso10646-1")) ; Buhid ; (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1760) (decode-char 'ucs #x177f)) '("code2000" . "iso10646-1")) ; Tagbanwa (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1780) (decode-char 'ucs #x17ff)) '("code2000" . "iso10646-1")) ; Khmer (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1800) (decode-char 'ucs #x18af)) '("code2000" . "iso10646-1")) ; Mongolian (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1900) (decode-char 'ucs #x194f)) '("code2000" . "iso10646-1")) ; Limbu (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1950) (decode-char 'ucs #x197f)) '("tai le valentinium" . "iso10646-1")) ; Tai Le (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x19e0) (decode-char 'ucs #x19ff)) '("cdt khmer" . "iso10646-1")) ; Khmer Symbols (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1d00) (decode-char 'ucs #x1d7f)) '("everson mono unicode" . "iso10646-1")) ; Phonetic Extensions (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1e00) (decode-char 'ucs #x1eff)) '("courier" . "iso10646-1")) ; Latin Extended Additional (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x1f00) (decode-char 'ucs #x1fff)) '("everson mono unicode" . "iso10646-1")) ; Greek Extended (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2000) (decode-char 'ucs #x206f)) '("everson mono unicode" . "iso10646-1")) ; General Puctuation (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2070) (decode-char 'ucs #x209f)) '("everson mono unicode" . "iso10646-1")) ; Superscripts and Subscripts (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x20a0) (decode-char 'ucs #x20cf)) '("everson mono unicode" . "iso10646-1")) ; Currency Symbols (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x20d0) (decode-char 'ucs #x20ff)) '("everson mono unicode" . "iso10646-1")) ; Combining Marks for Symbols (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2100) (decode-char 'ucs #x214f)) '("everson mono unicode" . "iso10646-1")) ; Letterlike Symbols ; (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2150) (decode-char 'ucs #x218f)) '("courier new" . "iso10646-1")) ; Number Forms (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2190) (decode-char 'ucs #x21ff)) '("code2000" . "iso10646-1")) ; *Arrows (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2200) (decode-char 'ucs #x22ff)) '("code2000" . "iso10646-1")) ; Mathematical Operators (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2300) (decode-char 'ucs #x23ff)) '("code2000" . "iso10646-1")) ; Miscellaneous Technical (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2400) (decode-char 'ucs #x243f)) '("code2000" . "iso10646-1")) ; Control Pictures (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2440) (decode-char 'ucs #x245f)) '("code2000" . "iso10646-1")) ; Optical Character Recognition (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2460) (decode-char 'ucs #x24ff)) '("code2000" . "iso10646-1")) ; Enclosed Alphanumerics (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2500) (decode-char 'ucs #x257f)) '("code2000" . "iso10646-1")) ; Box Drawing (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2580) (decode-char 'ucs #x259f)) '("code2000" . "iso10646-1")) ; Block Elements (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x25a0) (decode-char 'ucs #x25ff)) '("code2000" . "iso10646-1")) ; Geometric Shapes (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2600) (decode-char 'ucs #x26ff)) '("code2000" . "iso10646-1")) ; Miscellaneous Symbols (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2700) (decode-char 'ucs #x27bf)) '("code2000" . "iso10646-1")) ; Dingbats (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x27c0) (decode-char 'ucs #x27ef)) '("code2000" . "iso10646-1")) ; Miscellaneous Math Symbols-A (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x27f0) (decode-char 'ucs #x27ff)) '("code2000" . "iso10646-1")) ; Supplemental Arrows-A (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2800) (decode-char 'ucs #x28ff)) '("code2000" . "iso10646-1")) ; Braille Patterns (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2900) (decode-char 'ucs #x297f)) '("code2000" . "iso10646-1")) ; Supplemental Arrows-B (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2980) (decode-char 'ucs #x29ff)) '("code2000" . "iso10646-1")) ; Miscellaneous Math Symbols-B (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2a00) (decode-char 'ucs #x2aff)) '("code2000" . "iso10646-1")) ; Supplemental Math Operators (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2b00) (decode-char 'ucs #x2bff)) '("code2000" . "iso10646-1")) ; Miscellaneous Symbols and Arrows (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2e80) (decode-char 'ucs #x2eff)) '("code2000" . "iso10646-1")) ; CJK Radicals Supplement (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2f00) (decode-char 'ucs #x2fdf)) '("code2000" . "iso10646-1")) ; Kangxi Radicals (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x2ff0) (decode-char 'ucs #x2fff)) '("code2000" . "iso10646-1")) ; Ideographic Description Characters (set-fontset-font "fontset-11pt_adobe_courier" (cons (decode-char 'ucs #x3000) (decode-char 'ucs #x303f)) '("code2000" . "iso10646-1")) ; CJK Symbols and Punctuation 
))
; I'm not sure whether this is necessary, many glyphs are found without this help. ; The following code might define the same region with a font for all fontsets defined, but I'm not sure 
;
    (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 
    )
(provide 'site-fontsets-x11)
Then add to .emacs: (require 'site-fontsets-x11) and you can see some more fontsets to choose from.
To get a list of fonts Emacs sees: M-x set-frame-font RET TAB TAB RET, change into the *Completions* buffer and save it to a name you've found before. If you try to complete the name it will instantly overwrite the *Completions* buffer's contents!
Could be it's a splendid idea to learn Emacs without mouse! It should provide a deep knowledge of key bindings and how they can be used. 

--
Greetings

  Pete                                           0
                                           %-/\_//
                                            (*)(*)
reply via email to
[Prev in Thread] Current Thread [Next in Thread]