19 lines
661 B
Diff
19 lines
661 B
Diff
diff -ru ddskk-20050123.orig/SKK-MK ddskk-20050123/SKK-MK
|
|
--- ddskk-20050123.orig/SKK-MK 2004-04-17 02:06:03.000000000 +0200
|
|
+++ ddskk-20050123/SKK-MK 2006-01-10 16:48:17.000000000 +0100
|
|
@@ -45,7 +45,13 @@
|
|
(error "%s" "\
|
|
This version of SKK requires MULE features"))
|
|
|
|
-(set-language-environment "Japanese")
|
|
+(if (and (featurep 'xemacs)
|
|
+ (emacs-version>= 21 5 6)
|
|
+ (getenv "LANG"))
|
|
+ (let ((old-lang (getenv "LANG")))
|
|
+ (set-language-environment "Japanese")
|
|
+ (setenv "LANG" old-lang))
|
|
+ (set-language-environment "Japanese"))
|
|
|
|
;;;; User variables to control SKK-MK.
|
|
(defvar SKK-MK-debugging nil "*Non-nil means making verbose output.")
|