Source

skk / skk-leim.el

Full commit
steve 7ee89f8 
yoshiki 2766777 

steve 7ee89f8 





yoshiki 2766777 


steve 7ee89f8 



yoshiki 2766777 
steve 7ee89f8 








yoshiki 2766777 


steve 7ee89f8 
steveb 12432fa 
steve 7ee89f8 

youngs 19c1703 


steve 7ee89f8 
steveb 12432fa 
steve 7ee89f8 
yoshiki 2766777 
youngs 19c1703 


steve 7ee89f8 
steveb 12432fa 
steve 7ee89f8 
youngs 19c1703 
steve 7ee89f8 
steveb 12432fa 
yoshiki 2766777 
youngs 19c1703 





yoshiki 2766777 

steve 7ee89f8 
yoshiki 2766777 
steve 7ee89f8 
youngs 19c1703 
steve 7ee89f8 
steveb 12432fa 
steve 7ee89f8 
yoshiki 2766777 
steve 7ee89f8 
youngs 19c1703 
steve 7ee89f8 
yoshiki 2766777 
youngs 19c1703 
yoshiki 2766777 


steve 7ee89f8 
;;; skk-leim.el --- SKK related code for LEIM
;; Copyright (C) 1997, 1999
;; Murata Shuuichirou <mrt@astec.co.jp>
;;
;; Author: Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp>
;; Version: $Id$
;; Keywords: japanese
;; Last Modified: $Date$

;; This file is not part of SKK yet.

;; SKK is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either versions 2, or (at your option)
;; any later version.

;; SKK is distributed in the hope that it will be useful
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with SKK, see the file COPYING.  If not, write to the Free
;; Software Foundation Inc., 59 Temple Place - Suite 330, Boston,
;; MA 02111-1307, USA.

;;; Code:
(eval-when-compile (require 'skk))
(require 'skk-foreword)

;;;###autoload
(defun skk-activate (&optional name)
  (setq inactivate-current-input-method-function 'skk-inactivate)
  (skk-mode 1)
  (if (eq (selected-window) (minibuffer-window))
      (add-hook 'minibuffer-exit-hook 'skk-leim-exit-from-minibuffer)))

;;;###autoload
(defun skk-auto-fill-activate (&optional name)
  (setq inactivate-current-input-method-function 'skk-auto-fill-inactivate)
  (skk-auto-fill-mode 1)
  (if (eq (selected-window) (minibuffer-window))
      (add-hook 'minibuffer-exit-hook 'skk-leim-exit-from-minibuffer)))

;;;###autoload
(defun skk-inactivate ()
  (skk-mode -1))

;;;###autoload
(defun skk-auto-fill-inactivate ()
  (skk-auto-fill-mode -1))

(defun skk-leim-exit-from-minibuffer ()
  (inactivate-input-method)
  (if (<= (minibuffer-depth) 1)
      (remove-hook 'minibuffer-exit-hook 'skk-leim-exit-from-minibuffer)))

;;;###autoload
(register-input-method
 "japanese-skk" "Japanese"
 'skk-activate nil
 "Simple Kana to Kanji conversion program")

;;;###autoload
(register-input-method
 "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