CVS update by aidan packages/mule-packages/skk ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/10/01 19:30:30

  Modified:    packages/mule-packages/skk ChangeLog skk-leim.el
Log:
Don't set the current langenv to ja just because someone used a japanese IM.

Revision  Changes    Path
1.28      +6 -0      XEmacs/packages/mule-packages/skk/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/skk/ChangeLog,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -p -r1.27 -r1.28
--- ChangeLog	2003/03/21 07:36:05	1.27
+++ ChangeLog	2007/10/01 17:30:29	1.28
@@ -1,3 +1,9 @@
+2007-08-15  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* skk-leim.el (skk-leim):
+	Setting the current language environment to Japanese just because
+	skk-leim.el was loaded is wrong. 
+
 2003-03-21  Ben Wing  <ben at xemacs.org>
 
 	* texi\.cvsignore: New.  Add entries for skk*.html.



1.5       +2 -7      XEmacs/packages/mule-packages/skk/skk-leim.el

Index: skk-leim.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/skk/skk-leim.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- skk-leim.el	2000/11/08 01:51:44	1.4
+++ skk-leim.el	2007/10/01 17:30:29	1.5
@@ -3,9 +3,9 @@
 ;; Murata Shuuichirou <mrt at astec.co.jp>
 ;;
 ;; Author: Murata Shuuichirou <mrt at mickey.ai.kyutech.ac.jp>
-;; Version: $Id: skk-leim.el,v 1.4 2000/11/08 01:51:44 youngs Exp $
+;; Version: $Id: skk-leim.el,v 1.5 2007/10/01 17:30:29 aidan Exp $
 ;; Keywords: japanese
-;; Last Modified: $Date: 2000/11/08 01:51:44 $
+;; Last Modified: $Date: 2007/10/01 17:30:29 $
 
 ;; This file is not part of SKK yet.
 
@@ -66,11 +66,6 @@
  "japanese-skk-auto-fill" "Japanese"
  'skk-auto-fill-activate nil
  "Simple Kana to Kanji conversion program with auto-fill")
-
-(unless (string= current-language-environment "Japanese")
-  (set-language-environment "Japanese"))
-(setq-default default-input-method "japanese-skk")
-(setq default-input-method "japanese-skk")
 
 (provide 'skk-leim)
 ;;; skk-leim.el ends here