# HG changeset patch
# User Adrian Robert <Adrian.B.Robert@gmail.com>
# Date 1253673333 0
# Node ID a46a26bd9a4ca1ed32732b7c9d66d92c15d79e5f
# Parent  fd551d987ca7d9e5c4316126544c8da26e01ce8d
* term/nswin.el (ns-reg-to-script): New variable.

diff -r fd551d987ca7 -r a46a26bd9a4c lisp/ChangeLog
--- 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.
diff -r fd551d987ca7 -r a46a26bd9a4c lisp/term/ns-win.el
--- 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")