[Emacs-diffs] emacs/lisp ChangeLog term/ns-win.el

[Adrian Robert]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Adrian Robert <arobert> 09/09/23 02:35:37

Modified files:
        lisp           : ChangeLog 
        lisp/term      : ns-win.el 

Log message:
        * term/nswin.el (ns-reg-to-script): New variable.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16238&r2=1.16239
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/term/ns-win.el?cvsroot=emacs&r1=1.52&r2=1.53

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16238
retrieving revision 1.16239
diff -u -b -r1.16238 -r1.16239
--- ChangeLog   23 Sep 2009 00:22:08 -0000      1.16238
+++ ChangeLog   23 Sep 2009 02:35:33 -0000      1.16239
@@ -1,3 +1,7 @@
+2009-09-23  Adrian Robert  <address@hidden>
+
+       * term/ns-win.el (ns-reg-to-script): New variable.
+
 2009-09-23  Daiki Ueno  <address@hidden>
 
        * epg.el (epg-wait-for-status): Preserve existing 'error results.

Index: term/ns-win.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/term/ns-win.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- term/ns-win.el      14 Sep 2009 01:22:46 -0000      1.52
+++ term/ns-win.el      23 Sep 2009 02:35:37 -0000      1.53
@@ -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")