From a3b4b3638579a83b02209377a0c8e33fc5270c46 Mon Sep 17 00:00:00 2001 From: Adrian Robert Date: Wed, 23 Sep 2009 02:35:33 +0000 Subject: [PATCH] * term/nswin.el (ns-reg-to-script): New variable. --- lisp/ChangeLog | 4 ++++ lisp/term/ns-win.el | 44 ++++++++++++++++++++++++++++++++++++++------ 2 files changed, 42 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 17b18166667..ca6b63f7c87 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2009-09-23 Adrian Robert + + * term/ns-win.el (ns-reg-to-script): New variable. + 2009-09-23 Daiki Ueno * epg.el (epg-wait-for-status): Preserve existing 'error results. diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 3dbf3c063af..410b85d180b 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -966,6 +966,44 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") (format "Creation of the standard fontset failed: %s" err) :error))))) +;; This maps font registries (not exposed by NS APIs for font selection) to +;; unicode scripts (which can be mapped to unicode character ranges which are). +;; See ../international/fontset.el +(setq ns-reg-to-script + '(("iso8859-1" . latin) + ("iso8859-2" . latin) + ("iso8859-3" . latin) + ("iso8859-4" . latin) + ("iso8859-5" . cyrillic) + ("microsoft-cp1251" . cyrillic) + ("koi8-r" . cyrillic) + ("iso8859-6" . arabic) + ("iso8859-7" . greek) + ("iso8859-8" . hebrew) + ("iso8859-9" . latin) + ("iso8859-10" . latin) + ("iso8859-11" . thai) + ("tis620" . thai) + ("iso8859-13" . latin) + ("iso8859-14" . latin) + ("iso8859-15" . latin) + ("iso8859-16" . latin) + ("viscii1.1-1" . latin) + ("jisx0201" . kana) + ("jisx0208" . han) + ("jisx0212" . han) + ("jisx0213" . han) + ("gb2312.1980" . han) + ("gb18030" . han) + ("gbk-0" . han) + ("big5" . han) + ("cns11643" . han) + ("sisheng_cwnn" . bopomofo) + ("ksc5601.1987" . hangul) + ("ethiopic-unicode" . ethiopic) + ("is13194-devanagari" . indian-is13194) + ("iso10646.indian-1" . devanagari))) + ;;;; Pasteboard support. @@ -1037,12 +1075,6 @@ On Nextstep, put TEXT in the pasteboard; PUSH is ignored." (interactive) (insert (ns-get-cut-buffer-internal 'SECONDARY))) -;; PENDING: not sure what to do here.. for now interprog- are set in -;; init-fn-keys, and unsure whether these x- settings have an effect. -;;(setq interprogram-cut-function 'x-select-text -;; interprogram-paste-function 'x-cut-buffer-or-selection-value) -;; These only needed if above not working. - (set-face-background 'region "ns_selection_color") -- 2.39.2