SHA256
1
0
forked from pool/xemacs
xemacs/bugzilla-294746-set-language-unicode-precedence-list-at-startup.patch

15 lines
1.3 KiB
Diff
Raw Normal View History

Index: xemacs-21.5.29/lisp/startup.el
===================================================================
--- xemacs-21.5.29.orig/lisp/startup.el
+++ xemacs-21.5.29/lisp/startup.el
@@ -720,6 +720,9 @@ If this is nil, no message will be displ
;; initialisation in case of keysyms of the form UABCD.
(when (featurep 'mule)
(declare-fboundp (init-mule-at-startup)))
+
+ (set-language-unicode-precedence-list
+ '(ascii latin-iso8859-1 latin-iso8859-2 latin-iso8859-3 latin-iso8859-4 jit-ucs-charset-0 thai-tis620 greek-iso8859-7 arabic-iso8859-6 hebrew-iso8859-8 katakana-jisx0201 latin-jisx0201 cyrillic-iso8859-5 latin-iso8859-9 latin-iso8859-15 composite control-1 japanese-jisx0208-1978 chinese-gb2312 japanese-jisx0208 korean-ksc5601 japanese-jisx0212 chinese-cns11643-1 chinese-cns11643-2 chinese-big5-1 chinese-big5-2 arabic-digit arabic-1-column arabic-2-column chinese-sisheng latin-iso8859-16 indian-is13194 lao latin-iso8859-14 ipa vietnamese-viscii-upper vietnamese-viscii-lower jit-ucs-charset-0 chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5 chinese-cns11643-6 chinese-cns11643-7 chinese-isoir165 ethiopic indian-2-column indian-1-column japanese-jisx0213-1 japanese-jisx0213-2 thai-xtis tibetan tibetan-1-column))
(if (featurep 'toolbar)
(if (featurep 'infodock)