Mercurial > emacs
changeset 105154:a46a26bd9a4c
* term/nswin.el (ns-reg-to-script): New variable.
| author | Adrian Robert <Adrian.B.Robert@gmail.com> |
|---|---|
| date | Wed, 23 Sep 2009 02:35:33 +0000 |
| parents | fd551d987ca7 |
| children | 00973a055b5e |
| files | lisp/ChangeLog lisp/term/ns-win.el |
| diffstat | 2 files changed, 42 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Sep 23 01:07:45 2009 +0000 +++ b/lisp/ChangeLog Wed Sep 23 02:35:33 2009 +0000 @@ -1,3 +1,7 @@ +2009-09-23 Adrian Robert <Adrian.B.Robert@gmail.com> + + * term/ns-win.el (ns-reg-to-script): New variable. + 2009-09-23 Daiki Ueno <ueno@unixuser.org> * epg.el (epg-wait-for-status): Preserve existing 'error results.
--- a/lisp/term/ns-win.el Wed Sep 23 01:07:45 2009 +0000 +++ b/lisp/term/ns-win.el Wed Sep 23 02:35:33 2009 +0000 @@ -966,6 +966,44 @@ (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 @@ (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")