Mercurial > emacs

comparison lisp/international/kkc.el @ 31165:6c51a4e8bf88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove SKK from Keywords. Require ja-dic-utl instead of skkdic-utl.
author Kenichi Handa <handa@m17n.org>
date Fri, 25 Aug 2000 01:58:44 +0000
parents e4b4bca5087a
children 6828c3827297
comparison
equal deleted inserted replaced
31164:bb7de354d69f 31165:6c51a4e8bf88
1 ;;; kkc.el --- Kana Kanji converter 1 ;;; kkc.el --- Kana Kanji converter
2 2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: mule, multilingual, Japanese, SKK 6 ;; Keywords: mule, multilingual, Japanese
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
31 ;; interaction with a user to decide the correct conversion. For 31 ;; interaction with a user to decide the correct conversion. For
32 ;; that, we provide KKC major mode. 32 ;; that, we provide KKC major mode.
33 33
34 ;;; Code: 34 ;;; Code:
35 35
36 (require 'skkdic-utl) 36 (require 'ja-dic-utl)
37 37
38 (defvar kkc-input-method-title "漢" 38 (defvar kkc-input-method-title "漢"
39 "String denoting KKC input method. 39 "String denoting KKC input method.
40 This string is shown at mode line when users are in KKC mode.") 40 This string is shown at mode line when users are in KKC mode.")
41 41
161 (defvar kkc-length-converted nil) 161 (defvar kkc-length-converted nil)
162 162
163 ;; Cursor type (`box' or `bar') of the current frame. 163 ;; Cursor type (`box' or `bar') of the current frame.
164 (defvar kkc-cursor-type nil) 164 (defvar kkc-cursor-type nil)
165 165
166 ;; Lookup SKK dictionary to set list of conversions in 166 ;; Lookup Japanese dictionary to set list of conversions in
167 ;; kkc-current-conversions for key sequence kkc-current-key of length 167 ;; kkc-current-conversions for key sequence kkc-current-key of length
168 ;; LEN. If no conversion is found in the dictionary, don't change 168 ;; LEN. If no conversion is found in the dictionary, don't change
169 ;; kkc-current-conversions and return nil. 169 ;; kkc-current-conversions and return nil.
170 ;; Postfixes are handled only if POSTFIX is non-nil. 170 ;; Postfixes are handled only if POSTFIX is non-nil.
171 (defun kkc-lookup-key (len &optional postfix prefer-noun) 171 (defun kkc-lookup-key (len &optional postfix prefer-noun)