From: Peter Dyballa <Peter_Dyballa@Web.DE>
Cc: help-gnu-emacs@gnu.org
Subject: Re: emacs-snapshot keybinding problem
Date: Wed, 4 Jan 2006 00:52:48 +0100 [thread overview]
Message-ID: <575A660C-5CA7-48D5-A351-09B239196727@Web.DE> (raw)
In-Reply-To: <87hd8l7wri.fsf@magma.ca>
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
%-/\_//
(*)(*)
next prev parent reply other threads:[~2006-01-03 23:52 UTC|newest]
Thread overview: 22+ messages / expand[flat|nested] mbox.gz Atom feed top
[not found] <mailman.20812.1135883611.20277.help-gnu-emacs@gnu.org>
2005-12-30 4:49 ` emacs-snapshot keybinding problem Stefan Monnier
2005-12-30 14:21 ` Angelina Carlton
2005-12-30 15:45 ` Peter Dyballa
2005-12-30 18:31 ` Angelina Carlton
2005-12-30 23:52 ` Peter Dyballa
2005-12-31 15:41 ` Angelina Carlton
2005-12-31 17:21 ` Peter Dyballa
2006-01-01 18:04 ` Angelina Carlton
2006-01-01 18:57 ` Peter Dyballa
2006-01-02 20:24 ` Angelina Carlton
2006-01-03 12:58 ` Peter Dyballa
2006-01-03 22:49 ` Angelina Carlton
2006-01-03 23:52 ` Peter Dyballa [this message]
2006-01-04 21:51 ` Angelina Carlton
2006-01-04 22:48 ` Peter Dyballa
2006-01-06 5:08 ` Ian Zimmerman
2006-01-06 18:17 ` Angelina Carlton
[not found] ` <mailman.21417.1136411578.20277.help-gnu-emacs@gnu.org>
2006-01-05 10:57 ` Romain Francoise
2006-01-05 14:05 ` Angelina Carlton
2006-01-02 16:36 ` Stefan Monnier
2006-01-04 21:43 ` Angelina Carlton
2005-12-29 19:11 Angelina Carlton
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=575A660C-5CA7-48D5-A351-09B239196727@Web.DE \
--to=peter_dyballa@web.de \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).