Mercurial > hg > xemacs-beta
view lisp/skk/skk.el @ 219:262b8bb4a523 r20-4b8
Import from CVS: tag r20-4b8
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:09:35 +0200 |
| parents | |
| children |
line wrap: on
line source
;; -*-byte-compile-dynamic: t;-*- ;;; skk.el --- SKK (Simple Kana to Kanji conversion program) ;; Copyright (C) 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997 ;; Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp> ;; Author: Masahiko Sato <masahiko@kuis.kyoto-u.ac.jp> ;; Maintainer: Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp> ;; Mikio Nakajima <minakaji@osaka.email.ne.jp> ;; Version: $Id: skk.el,v 1.1 1997/12/02 08:48:40 steve Exp $ ;; Keywords: japanese ;; Last Modified: $Date: 1997/12/02 08:48:40 $ ;; This program 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. ;; This program 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. ;;; Commentary: ;; Following people contributed modifications to skk.el (Alphabetical order): ;; Chikanobu Toyofuku <unbound@papaya.juice.or.jp> ;; FURUE Hideyuki <furue@kke.co.jp> ;; GUNJI Takao <gunji@lisa.lang.osaka-u.ac.jp> ;; Haru Mizuno <mizu@cs3.cs.oki.co.jp> ;; Hideki Sakurada <sakurada@kuis.kyoto-u.ac.jp> ;; Hisao Kuroda <kuroda@msi.co.jp> ;; Hitoshi SUZUKI <h-suzuki@ael.fujitsu.co.jp> ;; IIDA Yosiaki <iida@secom-sis.co.jp> ;; Jun-ichi Nakamura <nakamura@pluto.ai.kyutech.ac.jp> ;; Katuya Tomioka <tomioka@culle.l.chiba-u.ac.jp> ;; Kazuo Hirokawa <hirokawa@rics.co.jp> ;; Kazushi Marukawa <kazushi@kubota.co.jp> ;; Kimura Chikahiro <kimura@oa1.kb.nec.co.jp> ;; Kiyotaka Sakai <ksakai@netwk.ntt-at.co.jp> ;; Koichi MORI <kmori@onsei2.rilp.m.u-tokyo.ac.jp> ;; MINOURA Itsushi <minoura@uni.zool.s.u-tokyo.ac.jp> ;; MIYOSHI Tsutomu <minkov@fuzzy.or.jp> ;; Makoto MATSUSHITA <matusita@ics.es.osaka-u.ac.jp> ;; Masahiko Suzuki <suzmasa@sm.sony.co.jp> ;; Masahiro Doteguchi <xdote@rp.open.cs.fujitsu.co.jp> ;; Masakazu Takahashi <masaka-t@ascii.co.jp> ;; Masatake YAMATO <jet@airlab.cs.ritsumei.ac.jp> ;; Mikio Nakajima <minakaji@osaka.email.ne.jp> ;; Motohiko Mouri <mouri@jaist.ac.jp> ;; Murata Shuuichirou <mrt@mickey.ai.kyutech.ac.jp> ;; $BCfDE;3(B $B91(B <hisashi@rst.fujixerox.co.jp> ;; NAMBA Seiich <pi9s-nnb@asahi-net.or.jp> ;; Naoki HAMADA <nao@mimo.jaist-east.ac.jp> ;; Ryoichi Hashimoto <gnu@ipri.go.jp> ;; Sekita Daigo <sekita@mri.co.jp> ;; $B?JF#M5;V(B <shindo@super.ees.saitama-u.ac.jp> ;; Shuji Ashizawa <ashizawa@zuken.co.jp> ;; Takeshi OHTANI <ohtani@iias.flab.fujitsu.co.jp> ;; Tomoyuki Hiro <hiro@momo.it.okayama-u.ac.jp> ; $BDS?"(B $B@5Bg(B (ma-tsuge@kdd.co.jp) ;; Tsugutomo Enami <enami@ptgd.sony.co.jp> ;; Wataru Matsui <matsui@atr-rd.atr.co.jp> ;; Yoshida Toyonobu <toyono-y@is.aist-nara.ac.jp> ;;; Change log: ;;; Code: (require 'advice) ;; Elib 1.0 is required ;; queue-m.el and string.el are now distributed with SKK; this seems ;; to be the primary source for XEmacs (require 'queue-m) (require 'string) (require 'skk-foreword) (require 'skk-vars) (defconst skk-version "10.38") ;;;###skk-autoload (defconst skk-month-alist '(("Jan" . "1") ("Feb" . "2") ("Mar" . "3") ("Apr" . "4") ("May" . "5") ("Jun" . "6") ("Jul" . "7") ("Aug" . "8") ("Sep" . "9") ("Oct" . "10") ("Nov" . "11") ("Dec" . "12") ) "$B1Q8l$N7nL>$H;;MQ?t;z$NO"A[%j%9%H!#(B $B;;MQ?t;z$+$i1Q8l$N7nL>$N$_$r=PNO$9$k$N$G$"$l$P!"%Y%/%?!<$r;H$C$?J}$,9bB.$@$,!"(B $B1Q8l$N7nL>$+$i;;MQ?t;z$r=PNO$9$k$N$G$"$l$PO"A[%j%9%H$G$J$1$l$PL5M}$J$N$G!"B?(B $BL\E*$K;HMQ$G$-$k$h$&O"A[%j%9%H$N7ABV$r<h$k!#(B Alist of English month abbreviations and numerical values. Although it is faster to use a vector if we only want to output month abbreviations given the ordinal, without the alist it's unreasonable [sic] to output the ordinal given the abbreviation, so for multi-purpose utility we use the alist form." ) ;;;###skk-autoload (defun skk-version () (interactive) (if (not (interactive-p)) skk-version (save-match-data (let* ((raw-date "$Date: 1997/12/02 08:48:40 $") (year (substring raw-date 7 11)) (month (substring raw-date 12 14)) (date (substring raw-date 15 17)) ) (if (string-match "^0" month) (setq month (substring month (match-end 0))) ) (if (string-match "^0" date) (setq date (substring date (match-end 0))) ) (message "SKK version %s of %s" skk-version (concat (car (rassoc month skk-month-alist)) " " date ", " year )))))) ;;;; variables declaration ;;; user variables (defvar skk-debug nil) ;;;###skk-autoload (defvar skk-init-file (if (eq system-type 'ms-dos) "~/_skk" "~/.skk") "*SKK $B$N=i4|@_Dj%U%!%$%kL>!#(B skk.el 9.x $B$h$j(B ~/.emacs $B$G$N%+%9%?%^%$%:$,2DG=$H$J$C$?!#(B Name of the SKK initialization file. From skk.el 9.x on all customization may be done in ~/.emacs." ) ;;;###skk-autoload (defvar skk-special-midashi-char-list '(?> ?< ??) "*$B@\F,<-!"@\Hx<-$NF~NO$N$?$a$N%W%l%U%#%C%/%9%-!<!"%5%U%#%C%/%9%-!<$N%j%9%H!#(B List of prefix and suffix keys for entering `setsutoji' and `setsuoji'." ;#SJT# What are `setsutoji' and `setsuoji'? ) ;#SJT# Is this hook also run in skk-auto-fill-mode? Before or after? ;;;###skk-autoload (defvar skk-mode-hook nil "*SKK $B$r5/F0$7$?$H$-$N%U%C%/!#(B $BB>$K!"(Bskk-auto-fill-mode-hook$B!"(Bskk-load-hook, skk-init-file $B$G$b%+%9%?(B $B%^%$%:$,2DG=!#(B Hook run at SKK startup. `skk-auto-fill-mode-hook', `skk-load-hook', and skk-init-file may also be used for customization." ) ;;;###skk-autoload (defvar skk-auto-fill-mode-hook nil "*skk-auto-fill-mode $B$r5/F0$7$?$H$-$N%U%C%/!#(B $BB>$K!"(Bskk-mode-hook, skk-load-hook, skk-init-file $B$G$b%+%9%?%^%$%:$,2D(B $BG=!#(B Hook run at startup of skk-auto-fill-mode. `skk-mode-hook', `skk-load-hook', and `skk-init-file' may also be used for customization." ) ;;;###skk-autoload (defvar skk-load-hook nil "*skk.el $B$r%m!<%I$7$?$H$-$N%U%C%/!#(B $BB>$K!"(Bskk-mode-hook, skk-auto-fill-mode-hook, skk-init-file $B$G$b%+%9%?(B $B%^%$%:$,2DG=!#(B Hook run when SKK is loaded. `skk-auto-fill-mode-hook', `skk-mode-hook', and `skk-init-file' may also be used for customization." ) ;;;###skk-autoload (defvar skk-kakutei-jisyo nil "*$B:G=i$K8!:w$9$k<-=q!#(B Non-nil $B$G!"$+$D(B skk-search-prog-list $B$NMWAG$NCf$K$3$NJQ?t$,;HMQ$5$l$F$$$l$P!"(B $B;XDj$5$l$?<-=q$r8!:w$N$?$a%P%C%U%!$KFI$_9~$_!"8!:w$r9T$J$&!#(B $B8+=P$78l$O!"%=!<%H$5$l$F$$$J$1$l$P$J$i$J$$!#(B $B3F8+=P$78l$N:G=i$N%(%s%H%j$7$+8!:w$7$J$$(B ($BJ#?t$N%(%s%H%j$,$"$C$F$b(B 2 $BHVL\0J9_$N(B $B%(%s%H%j$OL5;k$5$l$k(B)$B!#(B skk-search-prog-list $B$NCM$r@_Dj$9$k$3$H$K$h$j!"8!:wBP>]$N<-=q$NJQ99!"8!:w$N=g(B $B=x$NJQ99$,2DG=!#(B The first dictionary to be searched. If non-nil, and this variable is used as a component of `skk-search-prog-list', the indicated dictionary is read into a buffer and searched. The keys must be sorted. Only the first entry in each key is checked; if several entries are present the second and following entries are ignored. By setting the value of `skk-search-prog-list' the dictionaries searched and the order of search can be changed." ) ;;;###skk-autoload (defvar skk-initial-search-jisyo nil "*$B%f!<%6!<<-=q$N8!:w$NA0$K8!:w$9$k<-=q!#(B $B8+=P$78l$O!"%=!<%H$5$l$F$$$J$1$l$P$J$i$J$$!#(B Non-nil $B$G!"$+$D(B skk-search-prog-list $B$NMWAG$NCf$K$3$NJQ?t$,;HMQ$5$l$F$$$l$P!"(B $B;XDj$5$l$?<-=q$r8!:w$N$?$a%P%C%U%!$KFI$_9~$_!"8!:w$r9T$J$&!#(B skk-search-prog-list $B$NCM$r@_Dj$9$k$3$H$K$h$j!"8!:wBP>]$N<-=q$NJQ99!"8!:w$N=g(B $B=x$NJQ99$,2DG=!#(B This dictionary is searched before the user's personal dictionary. The keys must be sorted. If non-nil, and this variable is used as a component of `skk-search-prog-list', the indicated dictionary is read into a buffer and searched. By setting the value of `skk-search-prog-list' the dictionaries searched and the order of search can be changed." ) ;;;###skk-autoload (defvar skk-large-jisyo nil "*$B%f!<%6!<<-=q$N8!:w$N8e$K8!:w$9$k<-=q!#(B $B8+=P$78l$O!"%=!<%H$5$l$F$$$J$1$l$P$J$i$J$$!#(B Non-nil $B$G!"$+$D(B skk-search-prog-list $B$NMWAG$NCf$K$3$NJQ?t$,;HMQ$5$l$F$$$l$P!"(B $B;XDj$5$l$?<-=q$r8!:w$N$?$a%P%C%U%!$KFI$_9~$_!"8!:w$r9T$J$&!#(B skk-search-prog-list $B$NCM$r@_Dj$9$k$3$H$K$h$j!"8!:wBP>]$N<-=q$NJQ99!"8!:w$N=g(B $B=x$NJQ99$,2DG=!#(B Dictionary searched after the user dictionary. Keys must be sorted. If non-nil and this variable is used as a component of `skk-search-prog-list', the indicated dictionary is read into a buffer for search, and the search is executed. By setting the value of `skk-search-prog-list' the dictionaries searched and the order of search can be changed." ) ;;;###skk-autoload (defvar skk-aux-large-jisyo nil "*SKK $B%5!<%P!<$G:G8e$K8!:w$9$k<-=q!#(B $B8+=P$78l$O!"%=!<%H$5$l$F$$$J$1$l$P$J$i$J$$!#(B Non-nil $B$G!"$+$D(B skk-search-prog-list $B$NMWAG$NCf$K$3$NJQ?t$,;HMQ$5$l$F$$$l$P!"(B SKK $B%5!<%P!<$r;H$$8!:w$r9T$&!#(B SKK $B%5!<%P!<$,(B active $B$G$J$1$l$P!";XDj$5$l$?<-=q$r%P%C%U%!$KFI$_9~$`!#(B skk-search-prog-list $B$NCM$r@_Dj$9$k$3$H$K$h$j!"8!:wBP>]$N<-=q$NJQ99!"8!:w$N=g(B $B=x$NJQ99$,2DG=!#(B $B$3$NCM$r@_Dj$9$k$3$H$K$h$j!"(Bskk-server.el $B$,(B autoload $B$5$l$k!#(B Last dictionary to be searched by the SKK server. Keys must be sorted. If non-nil and this variable is used as a component of `skk-search-prog-list', the SKK server is used to execute the search. If the server is not active, the indicated dictionary is read into a buffer for search, and the search is executed. By setting the value of `skk-search-prog-list' the dictionaries searched and the order of search can be changed. According to the value of this variable the skkserv.el will be autoloaded." ) ;;;###skk-autoload (defvar skk-search-prog-list '((skk-search-kakutei-jisyo-file skk-kakutei-jisyo 10000 t) (skk-search-jisyo-file skk-initial-search-jisyo 10000 t) (skk-search-jisyo-file skk-jisyo 0 t) ;; skk-auto.el $B$r%m!<%I$9$k$H2<5-$NMWAG$,%W%i%9$5$l$k!#(B ;;(skk-okuri-search) (skk-search-jisyo-file skk-large-jisyo 10000) ;; skk-server.el $B$r%m!<%I$9$k$H2<5-$NMWAG$,%W%i%9$5$l$k!#(B ;;(skk-search-server skk-aux-large-jisyo 10000) ;; skk-server-host $B$b$7$/$O(B skk-servers-list $B$r;XDj$9$k$H!"(Bskk-server.el ;; $B$,(B autoload $B$5$l$k!#(B ) "*$B8!:w4X?t!"8!:wBP>]$N<-=q$r7hDj$9$k$?$a$N%j%9%H!#(B $BJQ49$7$?8uJd$rJV$9(B S $B<0$r%j%9%H$N7A$KI=5-$7$?$b$N!#(B skk-search $B4X?t$,(B skk-search-prog-list $B$N(B car $B$+$i8eJ}8~$X=gHV$K(B S $B<0$NI>2A$r(B $B9T$$JQ49$r9T$J$&!#(B This list determines the search functions used and the dictionaries searched. A list of S-expressions returning conversion candidates. The function `skk-search' performs conversions by evaluating each S- expression in order, starting with the car of `skk-search-prog-list'." ) ;;;###skk-autoload (defvar skk-jisyo (if (eq system-type 'ms-dos) "~/_skk-jisyo" "~/.skk-jisyo") "*SKK $B$N%f!<%6!<<-=q!#(B SKK's dictionary of user-specified conversions." ) ;;;###skk-autoload (defvar skk-backup-jisyo (if (eq system-type 'ms-dos) "~/_skk-jisyo.BAK" "~/.skk-jisyo.BAK") "*SKK $B$N%f!<%6!<<-=q$N%P%C%/%"%C%W%U%!%$%k!#(B Name of user dictionary backup (a file name as a string)." ) ;;;###skk-autoload (defvar skk-jisyo-code nil "*Non-nil $B$G$"$l$P!"$=$NCM$G<-=q%P%C%U%!$N4A;z%3!<%I$r@_Dj$9$k!#(B Mule $B$G$O!"(B*euc-japan*, *sjis*, *junet*$B!#(B $B$^$?!"(B\"euc\", \"ujis\", \"sjis\", \"jis\" $B$J$I$NJ8;zNs$K$h$C$F$b;XDj$,(B $B2DG=!#(B If non-nil, the value sets the kanji code used in dictionary buffers. In Mule, the symbols *euc-japan*, *sjis*, or *junet*. Can also be specified as a string such as \"euc\", \"ujis\", \"sjis\", or \"jis\"." ) ;;;###skk-autoload (defvar skk-keep-record t "*Non-nil $B$G$"$l$P!"JQ49$K4X$9$k5-O?$r(B skk-record-file $B$K<h$k!#(B If non-nil, a record of conversions is kept in `skk-record-file'.") ;;;###skk-autoload (defvar skk-record-file (if (eq system-type 'ms-dos) "~/_skk-record" "~/.skk-record") "*$B%f!<%6!<<-=q$NE}7W$r<h$k%U%!%$%k!#(B $B<-=q%;!<%V$N;~9o!"C18l$NEPO??t!"3NDj$r9T$C$?2s?t!"3NDjN(!"A4BN$N8l?t$N(B $B>pJs$r<}$a$k!#(B File containing statistics about the user dictionary. At the time the dictionary is saved, the number of words registered, number of conversions accepted, rate of acceptance, and the total number of words are collected." ) ;;;###skk-autoload (defvar skk-kakutei-key "\C-j" "*$B3NDjF0:n(B (\"skk-kakutei\") $B$r9T$&%-!<!#(B The key that executes conversion confirmation (\"skk-kakutei\").") ;;;###skk-autoload (defvar skk-use-vip nil "*Non-nil $B$G$"$l$P!"(BVIP $B$KBP1~$9$k!#(B If non-nil, VIP compatibility mode." ) ;;;###skk-autoload (defvar skk-use-viper nil "*Non-nil $B$G$"$l$P!"(BVIPER $B$KBP1~$9$k!#!#(B If non-nil, VIPER compatibility mode." ) ;;;###skk-autoload (defvar skk-henkan-okuri-strictly nil "*Non-nil $B$G$"$l$P!"8+=P$78l$HAw$j2>L>$,0lCW$7$?$H$-$@$18uJd$H$7$F=PNO$9$k!#(B $BNc$($P!"2<5-$N$h$&$J<-=q%(%s%H%j$,!"(Bskk-jisyo \($B%W%i%$%Y!<%H<-=q(B\) $B$K$"$C$?>l9g$K(B \"$B$*$*(Bk /$BBg(B/$BB?(B/[$B$/(B/$BB?(B/]/[$B$-(B/$BBg(B/]/\" \"$B"&$*$*(B*$B$/(B\" $B$rJQ49$7$?$H$-!"(B\"$BB?$/(B\" $B$N$_$r=PNO$7!"(B\"$BBg$/(B\" $B$r=PNO$7$J$$!#(B SKK-JISYO.[SML] $B$NAw$j2>L>%(%s%H%j$O>e5-$N7A<0$K$J$C$F$$$J$$$N$G!"(Bskk-jisyo $B$N(B $BAw$j$"$j$N<-=q%(%s%H%j$,$3$N7A<0$N$b$N$r$"$^$j4^$s$G$$$J$$>l9g$O!"$3$N%*%W%7%g(B $B%s$r(B on $B$K$9$k$3$H$G!"$9$0$KC18lEPO?$KF~$C$F$7$^$&$N$GCm0U$9$k$3$H!#(B skk-process-okuri-early $B$NCM$,(B nil $B$J$i$P>e5-$N7A<0$G(B skk-jisyo $B$,:n$i$l$k!#(B Emacs 19 $B%Y!<%9$N(B Mule $B$J$i$P!"2<5-$N%U%)!<%`$rI>2A$9$k$3$H$G!"C18lEPO?$KF~$C(B $B$?$H$-$@$10l;~E*$K$3$N%*%W%7%g%s$r(B nil $B$K$9$k$3$H$,$G$-$k!#(B \(add-hook 'minibuffer-setup-hook \(function \(lambda \(\) \(if \(and \(boundp 'skk-henkan-okuri-strictly\) skk-henkan-okuri-strictly \(not \(eq last-command 'skk-purge-from-jisyo\)\) \) \(progn \(setq skk-henkan-okuri-strictly nil\) \(put 'skk-henkan-okuri-strictly 'temporary-nil t\) \)\)\)\)\) \(add-hook 'minibuffer-exit-hook \(function \(lambda \(\) \(if \(get 'skk-henkan-okuri-strictly 'temporary-nil\) \(progn \(put 'skk-henkan-okuri-strictly 'temporary-nil nil\) \(setq skk-henkan-okuri-strictly t\) \)\)\)\)\) $B$3$N%*%W%7%g%sMxMQ;~$O!"(Bskk-process-okuri-early $B$NCM$O(B nil $B$G$J$1$l$P$J$i$J$$(B \($B%a%K%e!<%P!<(B $B$rMxMQ$7$F%+%9%?%^%$%:$7$?>l9g$O<+F0E*$KD4@0$5$l$k(B\)$B!#(B If non-nil, only when the key and its inflected suffix are given together in the dictionary will they be output as a candidate. For example, if the following entry is in `skk-jisyo' (the provate dictionary), \"$B$*$*(Bk /$BBg(B/$BB?(B/[$B$/(B/$BB?(B/]/[$B$-(B/$BBg(B/]/\" then when converting \"$B"&$*$*(B*$B$/(B\", only \"$BB?$/(B\" wil be output; \"$BBg$/(B \" will not be offered as a candidate. The inflected suffixes in SKK-JISYO.[SML] are not given in the above way, so if very few of the entries in skk-jisyo are given in that form, then when this option is set `on', \"word registration mode\" will be entered extremely often. If the value of `skk-process-okuri-early' is `nil', new entries in `skk-jisyo' will be created in the form above. If using a Mule based on Emacs 19 or later, you can arrange for this option to be temporarily set to `nil' by evaluating the following form: \(add-hook 'minibuffer-setup-hook \(function \(lambda \(\) \(if \(and \(boundp 'skk-henkan-okuri-strictly\) skk-henkan-okuri-strictly \(not \(eq last-command 'skk-purge-from-jisyo\)\) \) \(progn \(setq skk-henkan-okuri-strictly nil\) \(put 'skk-henkan-okuri-strictly 'temporary-nil t\) \)\)\)\)\) \(add-hook 'minibuffer-exit-hook \(function \(lambda \(\) \(if \(get 'skk-henkan-okuri-strictly 'temporary-nil\) \(progn \(put 'skk-henkan-okuri-strictly 'temporary-nil nil\) \(setq skk-henkan-okuri-strictly t\) \)\)\)\)\) When using this option, `skk-process-okuri-early' must be `nil'. (When using customize from the menubar this will automatically temporarily be set to `nil'.)" ) ;;;###skk-autoload (defvar skk-henkan-strict-okuri-precedence nil "*Non-nil $B$G$"$l$P!"8+=P$78l$HAw$j2>L>$,0lCW$7$?8uJd$rM%@h$7$FI=<($9$k!#(B $BNc$($P!"2<5-$N$h$&$J<-=q%(%s%H%j$,!"(Bskk-jisyo \($B%W%i%$%Y!<%H<-=q(B\) $B$K$"$C$?>l9g$K(B \"$B$*$*(Bk /$BBg(B/$BB?(B/[$B$/(B/$BB?(B/]/[$B$-(B/$BBg(B/]/\" \"$B"&$*$*(B*$B$/(B\" $B$rJQ49$7$?$H$-!"$^$:(B\"$BB?$/(B\" $B$r=PNO$7!"(B $B<!$K(B \"$BBg$/(B\" $B$r=PNO$9$k!#(B \"$BBg$/(B\"$B$J$I$N8uJd$O$&$C$H$&$7$$$,!"$9$0$KC18lEPO?$K$O$$$C$F$7$^$&$N$b(B $B7y$J$R$H$K$*$9$9$a!#(B $B$3$N%*%W%7%g%sMxMQ;~$O!"(Bskk-process-okuri-early $B$NCM$O(B nil $B$G$J$i$J$$!#(B $B$^$?(B skk-henkan-okuri-strictly $B$,(B non-nil $B$N$H$-$O!"$3$NJQ?t$OL5;k$5$l$k!#(B \($B%a%K%e!<%P!<(B $B$rMxMQ$7$F%+%9%?%^%$%:$7$?>l9g$O<+F0E*$KD4@0$5$l$k(B\)$B!#(B") ;;;###skk-autoload (defvar skk-auto-okuri-process nil "*Non-nil $B$G$"$l$P!"Aw$j2>L>ItJ,$r<+F0G'<1$7$FJQ49$r9T$&!#(B $BNc$($P!"(B \"Uresii (\"UreSii\" $B$G$O$J$/(B) -> $B4r$7$$(B\" $B$N$h$&$KJQ49$5$l$k!#C"$7!"(Bskk-jisyo $B<-=q(B \($B%W%i%$%Y!<%H<-=q(B\) $B$,!"(B \"$B$&$l(Bs /$B4r(B/[$B$7(B/$B4r(B/]/\" $B$N$h$&$J7A<0$K$J$C$F$$$k$3$H$,I,MW$G$"$k(B \(SKK-JISYO.[SML] $B$O$3$N7A<0$KBP1~$7(B $B$F$$$J$$$N$G!"(Bskk-jisyo $B$K$3$N%(%s%H%j$,$J$1$l$P$J$i$J$$(B\)$B!#(B $B$3$N%*%W%7%g%sMxMQ;~$O!"(Bskk-process-okuri-early $B$NCM$O(B nil $B$G$J$1$l$P$J$i$J$$(B \($B%a%K%e!<%P!<(B $B$rMxMQ$7$F%+%9%?%^%$%:$7$?>l9g$O<+F0E*$KD4@0$5$l$k(B\)$B!#(B" ) ;;;###skk-autoload (defvar skk-process-okuri-early nil "*Non-nil $B$G$"$l$P!"Aw$j2>L>$N%m!<%^;z%W%l%U%#%C%/%9$NF~NO;~E@$GJQ49$r3+;O$9$k!#(B $BNc$($P!"(B \"UgoK -> $B"'F0(Bk\"$B!#(B $BAw$j2>L>$,J,$i$J$$$^$^JQ49$7$F$$$k$3$H$K$J$k$N$G!"(Bskk-jisyo $B$,Aw$j2>L>$KBP1~$7(B $B$?7A$K@.D9$7$J$$!#$D$^$j(B \"$B$&$4(Bk /$BF0(B/\" $B$N$h$&$J7ABV$N$^$^$H$J$k!#$?$@$7!"4{$K(B \"$B$&$4(Bk /$BF0(B/[$B$/(B/$BF0(B/]/[$B$+(B/$BF0(B/]/[$B$1(B/$BF0(B/]/[$B$-(B/$BF0(B/]/[$B$3(B/$BF0(B/]/\" $B$N$h$&$J%(%s%H%j$,(B skk-jisyo $B$K$"$l$P!"$=$l$rGK2u$7$J$$!#(B nil $B$G$"$l$P!"Aw$j2>L>$NF~NO$,40N;$7$?;~E@$GJQ49$,3+;O$9$k!#Nc$($P!"(B \"UgoK -> $B"&$&$4(B*k\", \"UgoKu -> $B"'F0$/(B\" $B$3$N%*%W%7%g%s$r(B on $B$K$7$F(B skk-mode $B$r5/F0$9$k$H!"N>N)$G$-$J$$%*%W%7%g%s$G$"$k(B skk-kakutei-early, skk-auto-okuri-process, skk-henkan-okuri-strictly $B$O(B nil $B$K(B $B%;%C%H$5$l$k!#(B" ) ;;;###skk-autoload (defvar skk-egg-like-newline nil "*Non-nil $B$G$"$l$P!""'%b!<%I$G2~9T$r%?%$%W$7$F$b3NDj$9$k$N$_$G2~9T$7$J$$!#(B" ) ;;;###skk-autoload (defvar skk-kakutei-early t "*Non-nil $B$G$"$l$P(B skk-kana-input $B$,8F$P$l$?$H$-$K8=:_$N8uJd$r3NDj$9$k!#(B $BNc$($P!"(B \"$B"&$+$/$F$$(B -> $B"'3NDj(B -> $B3NDj(Bs -> $B3NDj$9(B\" $B$N$h$&$KJQ498e!"!V$9!W$N(B prefix $B$G$"$k(B \"s\" $B$rF~NO$7$?;~E@$G3NDj$9$k!#(B nil $B$G$"$l$P!"Nc$($P(B \"$B"&$+$/$F$$(B -> $B"'3NDj(B -> $B"'3NDj(Bs -> $B"'3NDj$9$k(B -> $B3NDj$9$k!#(B\" $B$N$h$&$K(B skk-kakutei $B$rD>@\!"4V@\$K%3!<%k$9$k$^$G(B \($B6gFIE@$rF~NO$7$?$j!"?7$?$J(B $B"&%b!<%I$KF~$C$?$j$9$k$H4V@\E*$K(B skk-kakutei $B$r%3!<%k$9$k(B\) $B$O!"3NDj$7$J$$$N$G!"(B $B$=$N4V$O!"JQ498uJd$rA*$S$J$*$9$3$H$J$I$,2DG=!#(B $B$3$N%*%W%7%g%sMxMQ;~$O!"(Bskk-process-okuri-early $B$NCM$O(B nil $B$G$J$1$l$P$J$i$J$$(B \($B%a%K%e!<%P!<(B $B$rMxMQ$7$F%+%9%?%^%$%:$7$?>l9g$O<+F0E*$KD4@0$5$l$k(B\)$B!#(B" ) ;;;###skk-autoload (defvar skk-delete-implies-kakutei t "*Non-nil $B$G$"$l$P!""'%b!<%I$G(B BS $B$r2!$9$H!"A0$N0lJ8;z$r:o=|$73NDj$9$k!#(B nil $B$G$"$l$P!"0l$DA0$N8uJd$rI=<($9$k!#(B") ;;;###skk-autoload (defvar skk-allow-spaces-newlines-and-tabs t "*Non-nil $B$G$"$l$P!"(Bskk-henkan-key $B$K%9%Z!<%9!"%?%V!"2~9T$,$"$C$F$bJQ492DG=!#(B $BNc$($P!"2<5-$N$h$&$K(B skk-henkan-key $B$NCf$K2~9T$,F~$C$F$$$F$bJQ49$,2DG=$G$"$k!#(B \"$B"&$+(B $B$J(B\" -> \"$B2>L>(B\" $B$3$NCM$,(B nil $B$G$"$l$P!":G=i$N%9%Z!<%9$G(B skk-henkan-key $B$r@Z$j5M$a$F$7$^$$!"(B $B0J9_$N%9%Z!<%9!"%?%V!"2~9T$OL5;k$5$l$k!#(B $B$3$NCM$O!"(Bskk-start-henkan, skk-ascii-henkan, skk-katakana-henkan, skk-hiragana-henkan, skk-zenkaku-henkan $B5Z$S(B skk-backward-and-set-henkan-point $B$NF0:n$K1F6A$9$k!#(B") ;;;###skk-autoload (defvar skk-convert-okurigana-into-katakana nil "*Non-nil $B$G$"$l$P!"%+%?%+%J%b!<%I$GJQ49$7$?$H$-$KAw$j2>L>$b%+%?%+%J$KJQ49$9$k!#(B" ) ;;;###skk-autoload (defvar skk-delete-okuri-when-quit nil "*Non-nil $B$G$"$l$P!"Aw$j$"$j$NJQ49Cf$K(B \"C-g\" $B$r2!$9$HAw$j2>L>$r>C$7"&%b!<%I$KF~$k!#(B $BNc$($P!"(B \"$B"&$J(B*$B$/(B -> $B"'5c$/(B -> \"C-g\" ->$B"&$J(B\" nil $B$G$"$l$P!"Aw$j2>L>$r4^$a$?8+=P$78l$r$=$N$^$^;D$7!""#%b!<%I$KF~$k!#Nc$($P!"(B \"$B"&$J(B*$B$/(B -> $B"'5c$/(B -> \"C-g\" -> $B$J$/(B\"" ) ;;;###skk-autoload (defvar skk-henkan-show-candidates-keys '(?a ?s ?d ?f ?j ?k ?l) "*$B%a%K%e!<7A<0$G8uJd$rA*Br$9$k$H$-$NA*Br%-!<$N%j%9%H!#(B \"x\", \" \" $B5Z$S(B \"C-g\" $B0J30$N(B 7 $B$D$N%-!<(B (char type) $B$r4^$`I,MW$,$"(B $B$k!#(B\"x\", \" \" $B5Z$S(B \"C-g\" $B$O8uJdA*Br;~$K$=$l$>$lFCJL$J;E;v$K3d$jEv(B $B$F$i$l$F$$$k$N$G!"$3$N%j%9%H$NCf$K$O4^$a$J$$$3$H!#(B") ;;;###skk-autoload (defvar skk-ascii-mode-string " SKK" "*SKK $B$,(B ascii $B%b!<%I$G$"$k$H$-$K%b!<%I%i%$%s$KI=<($5$l$kJ8;zNs!#(B" ) ;;;###skk-autoload (defvar skk-hirakana-mode-string " $B$+$J(B" "*$B$R$i$,$J%b!<%I$G$"$k$H$-$K%b!<%I%i%$%s$KI=<($5$l$kJ8;zNs!#(B") ;;;###skk-autoload (defvar skk-katakana-mode-string " $B%+%J(B" "*$B%+%?%+%J%b!<%I$G$"$k$H$-$K%b!<%I%i%$%s$KI=<($5$l$kJ8;zNs!#(B") ;;;###skk-autoload (defvar skk-zenkaku-mode-string " $BA41Q(B" "*$BA41Q%b!<%I$G$"$k$H$-$K%b!<%I%i%$%s$KI=<($5$l$kJ8;zNs!#(B") ;;;###skk-autoload (defvar skk-abbrev-mode-string " a$B$"(B" "*SKK abbrev $B%b!<%I$G$"$k$H$-$K%b!<%I%i%$%s$KI=<($5$l$kJ8;zNs!#(B") ;;;###skk-autoload (defvar skk-echo t "*Non-nil $B$G$"$l$P!"2>L>J8;z$N%W%l%U%#%C%/%9$rI=<($9$k!#(B" ) ;;;###skk-autoload (defvar skk-use-numeric-conversion t "*Non-nil $B$G$"$l$P!"?tCMJQ49$r9T$&!#(B" ) ;;;###skk-autoload (defvar skk-char-type-vector [0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 4 4 4 4 4 4 4 4 4 4 0 4 4 4 4 0 4 4 4 4 4 4 0 4 4 0 0 0 0 0 0 3 1 1 1 3 1 1 1 3 1 1 0 1 2 3 1 0 1 1 1 3 1 1 2 1 1 0 0 0 0 5] "*skk-kana-input $B$G;2>H$9$k$+$JJ8;zJQ49$N$?$a$N(B char type $B%Y%/%?!<!#(B $B3FMWAG$N?t;z$N0UL#$O2<5-$NDL$j!#(B 0 $B%m!<%^J8;z$h$j$+$JJ8;z$X$NJQ49$rCf;_$9$k(B ($B8=:_$N$H$3$m;HMQ$7$F$$$J$$(B)$B!#(B 1 $BB%2;$N0lItJ,$H$J$jF@$k;R2;!#(B 2 $B>e5-(B 1 $B0J30$N;R2;(B (n, x) 3 $BJl2;(B 4 skk-mode $B$G!"(Bskk-set-henkan-point $B$K3d$jIU$1$i$l$F$$$kJ8;z!#(B 5 $B%W%l%U%#%C%/%9$r>C5n$9$k(B" ) ;;;###skk-autoload (defvar skk-standard-rom-kana-rule-list '(("b" "b" nil) ("by" "by" nil) ("c" "c" nil) ("ch" "ch" nil) ("cy" "cy" nil) ("d" "d" nil) ("dh" "dh" nil) ("dy" "dy" nil) ("f" "f" nil) ("fy" "fy" nil) ("g" "g" nil) ("gy" "gy" nil) ("h" "h" nil) ("hy" "hy" nil) ("j" "j" nil) ("jy" "jy" nil) ("k" "k" nil) ("ky" "ky" nil) ("m" "m" nil) ("my" "my" nil) ("n" "n" nil) ("ny" "ny" nil) ("p" "p" nil) ("py" "py" nil) ("r" "r" nil) ("ry" "ry" nil) ("s" "s" nil) ("sh" "sh" nil) ("sy" "sy" nil) ("t" "t" nil) ("th" "th" nil) ("ts" "ts" nil) ("ty" "ty" nil) ("v" "v" nil) ("w" "w" nil) ("x" "x" nil) ("xk" "xk" nil) ("xt" "xt" nil) ("xw" "xw" nil) ("xy" "xy" nil) ("y" "y" nil) ("z" "z" nil) ("zy" "zy" nil) ("bb" "b" ("$B%C(B" . "$B$C(B")) ("cc" "c" ("$B%C(B" . "$B$C(B")) ("dd" "d" ("$B%C(B" . "$B$C(B")) ("ff" "f" ("$B%C(B" . "$B$C(B")) ("gg" "g" ("$B%C(B" . "$B$C(B")) ("hh" "h" ("$B%C(B" . "$B$C(B")) ("jj" "j" ("$B%C(B" . "$B$C(B")) ("kk" "k" ("$B%C(B" . "$B$C(B")) ("mm" "m" ("$B%C(B" . "$B$C(B")) ;;("nn" "n" ("$B%C(B" . "$B$C(B")) ("pp" "p" ("$B%C(B" . "$B$C(B")) ("rr" "r" ("$B%C(B" . "$B$C(B")) ("ss" "s" ("$B%C(B" . "$B$C(B")) ("tt" "t" ("$B%C(B" . "$B$C(B")) ("vv" "v" ("$B%C(B" . "$B$C(B")) ("ww" "w" ("$B%C(B" . "$B$C(B")) ("xx" "x" ("$B%C(B" . "$B$C(B")) ("yy" "y" ("$B%C(B" . "$B$C(B")) ("zz" "z" ("$B%C(B" . "$B$C(B")) ("a" nil ("$B%"(B" . "$B$"(B")) ("ba" nil ("$B%P(B" . "$B$P(B")) ("bya" nil ("$B%S%c(B" . "$B$S$c(B")) ("cha" nil ("$B%A%c(B" . "$B$A$c(B")) ("cya" nil ("$B%A%c(B" . "$B$A$c(B")) ("da" nil ("$B%@(B" . "$B$@(B")) ("dha" nil ("$B%G%c(B" . "$B$G$c(B")) ("dya" nil ("$B%B%c(B" . "$B$B$c(B")) ("fa" nil ("$B%U%!(B" . "$B$U$!(B")) ("fya" nil ("$B%U%c(B" . "$B$U$c(B")) ("ga" nil ("$B%,(B" . "$B$,(B")) ("gya" nil ("$B%.%c(B" . "$B$.$c(B")) ("ha" nil ("$B%O(B" . "$B$O(B")) ("hya" nil ("$B%R%c(B" . "$B$R$c(B")) ("ja" nil ("$B%8%c(B" . "$B$8$c(B")) ("jya" nil ("$B%8%c(B" . "$B$8$c(B")) ("ka" nil ("$B%+(B" . "$B$+(B")) ("kya" nil ("$B%-%c(B" . "$B$-$c(B")) ("ma" nil ("$B%^(B" . "$B$^(B")) ("mya" nil ("$B%_%c(B" . "$B$_$c(B")) ("na" nil ("$B%J(B" . "$B$J(B")) ("nya" nil ("$B%K%c(B" . "$B$K$c(B")) ("pa" nil ("$B%Q(B" . "$B$Q(B")) ("pya" nil ("$B%T%c(B" . "$B$T$c(B")) ("ra" nil ("$B%i(B" . "$B$i(B")) ("rya" nil ("$B%j%c(B" . "$B$j$c(B")) ("sa" nil ("$B%5(B" . "$B$5(B")) ("sha" nil ("$B%7%c(B" . "$B$7$c(B")) ("sya" nil ("$B%7%c(B" . "$B$7$c(B")) ("ta" nil ("$B%?(B" . "$B$?(B")) ("tha" nil ("$B%F%!(B" . "$B$F$!(B")) ("tya" nil ("$B%A%c(B" . "$B$A$c(B")) ("va" nil ("$B%t%!(B" . "$B$&!+$!(B")) ("wa" nil ("$B%o(B" . "$B$o(B")) ("xa" nil ("$B%!(B" . "$B$!(B")) ("xka" nil ("$B%u(B" . "$B$+(B")) ("xwa" nil ("$B%n(B" . "$B$n(B")) ("xya" nil ("$B%c(B" . "$B$c(B")) ("ya" nil ("$B%d(B" . "$B$d(B")) ("za" nil ("$B%6(B" . "$B$6(B")) ("zya" nil ("$B%8%c(B" . "$B$8$c(B")) ("i" nil ("$B%$(B" . "$B$$(B")) ("bi" nil ("$B%S(B" . "$B$S(B")) ("byi" nil ("$B%S%#(B" . "$B$S$#(B")) ("chi" nil ("$B%A(B" . "$B$A(B")) ("cyi" nil ("$B%A%#(B" . "$B$A$#(B")) ("di" nil ("$B%B(B" . "$B$B(B")) ("dhi" nil ("$B%G%#(B" . "$B$G$#(B")) ("dyi" nil ("$B%B%#(B" . "$B$B$#(B")) ("fi" nil ("$B%U%#(B" . "$B$U$#(B")) ("fyi" nil ("$B%U%#(B" . "$B$U$#(B")) ("gi" nil ("$B%.(B" . "$B$.(B")) ("gyi" nil ("$B%.%#(B" . "$B$.$#(B")) ("hi" nil ("$B%R(B" . "$B$R(B")) ("hyi" nil ("$B%R%#(B" . "$B$R$#(B")) ("ji" nil ("$B%8(B" . "$B$8(B")) ("jyi" nil ("$B%8%#(B" . "$B$8$#(B")) ("ki" nil ("$B%-(B" . "$B$-(B")) ("kyi" nil ("$B%-%#(B" . "$B$-$#(B")) ("mi" nil ("$B%_(B" . "$B$_(B")) ("myi" nil ("$B%_%#(B" . "$B$_$#(B")) ("ni" nil ("$B%K(B" . "$B$K(B")) ("nyi" nil ("$B%K%#(B" . "$B$K$#(B")) ("pi" nil ("$B%T(B" . "$B$T(B")) ("pyi" nil ("$B%T%#(B" . "$B$T$#(B")) ("ri" nil ("$B%j(B" . "$B$j(B")) ("ryi" nil ("$B%j%#(B" . "$B$j$#(B")) ("si" nil ("$B%7(B" . "$B$7(B")) ("shi" nil ("$B%7(B" . "$B$7(B")) ("syi" nil ("$B%7%#(B" . "$B$7$#(B")) ("ti" nil ("$B%A(B" . "$B$A(B")) ("thi" nil ("$B%F%#(B" . "$B$F$#(B")) ("tyi" nil ("$B%A%#(B" . "$B$A$#(B")) ("vi" nil ("$B%t%#(B" . "$B$&!+$#(B")) ("wi" nil ("$B%&%#(B" . "$B$&$#(B")) ("xi" nil ("$B%#(B" . "$B$#(B")) ("xwi" nil ("$B%p(B" . "$B$p(B")) ("zi" nil ("$B%8(B" . "$B$8(B")) ("zyi" nil ("$B%8%#(B" . "$B$8$#(B")) ("u" nil ("$B%&(B" . "$B$&(B")) ("bu" nil ("$B%V(B" . "$B$V(B")) ("byu" nil ("$B%S%e(B" . "$B$S$e(B")) ("chu" nil ("$B%A%e(B" . "$B$A$e(B")) ("cyu" nil ("$B%A%e(B" . "$B$A$e(B")) ("du" nil ("$B%E(B" . "$B$E(B")) ("dhu" nil ("$B%G%e(B" . "$B$G$e(B")) ("dyu" nil ("$B%B%e(B" . "$B$B$e(B")) ("fu" nil ("$B%U(B" . "$B$U(B")) ("fyu" nil ("$B%U%e(B" . "$B$U$e(B")) ("gu" nil ("$B%0(B" . "$B$0(B")) ("gyu" nil ("$B%.%e(B" . "$B$.$e(B")) ("hu" nil ("$B%U(B" . "$B$U(B")) ("hyu" nil ("$B%R%e(B" . "$B$R$e(B")) ("ju" nil ("$B%8%e(B" . "$B$8$e(B")) ("jyu" nil ("$B%8%e(B" . "$B$8$e(B")) ("ku" nil ("$B%/(B" . "$B$/(B")) ("kyu" nil ("$B%-%e(B" . "$B$-$e(B")) ("mu" nil ("$B%`(B" . "$B$`(B")) ("myu" nil ("$B%_%e(B" . "$B$_$e(B")) ("nu" nil ("$B%L(B" . "$B$L(B")) ("nyu" nil ("$B%K%e(B" . "$B$K$e(B")) ("pu" nil ("$B%W(B" . "$B$W(B")) ("pyu" nil ("$B%T%e(B" . "$B$T$e(B")) ("ru" nil ("$B%k(B" . "$B$k(B")) ("ryu" nil ("$B%j%e(B" . "$B$j$e(B")) ("su" nil ("$B%9(B" . "$B$9(B")) ("shu" nil ("$B%7%e(B" . "$B$7$e(B")) ("syu" nil ("$B%7%e(B" . "$B$7$e(B")) ("tu" nil ("$B%D(B" . "$B$D(B")) ("thu" nil ("$B%F%e(B" . "$B$F$e(B")) ("tsu" nil ("$B%D(B" . "$B$D(B")) ("tyu" nil ("$B%A%e(B" . "$B$A$e(B")) ("vu" nil ("$B%t(B" . "$B$&!+(B")) ("wu" nil ("$B%&(B" . "$B$&(B")) ("xu" nil ("$B%%(B" . "$B$%(B")) ("xtu" nil ("$B%C(B" . "$B$C(B")) ("xtsu" nil ("$B%C(B" . "$B$C(B")) ("xyu" nil ("$B%e(B" . "$B$e(B")) ("yu" nil ("$B%f(B" . "$B$f(B")) ("zu" nil ("$B%:(B" . "$B$:(B")) ("zyu" nil ("$B%8%e(B" . "$B$8$e(B")) ("e" nil ("$B%((B" . "$B$((B")) ("be" nil ("$B%Y(B" . "$B$Y(B")) ("bye" nil ("$B%S%'(B" . "$B$S$'(B")) ("che" nil ("$B%A%'(B" . "$B$A$'(B")) ("cye" nil ("$B%A%'(B" . "$B$A$'(B")) ("de" nil ("$B%G(B" . "$B$G(B")) ("dhe" nil ("$B%G%'(B" . "$B$G$'(B")) ("dye" nil ("$B%B%'(B" . "$B$B$'(B")) ("fe" nil ("$B%U%'(B" . "$B$U$'(B")) ("fye" nil ("$B%U%'(B" . "$B$U$'(B")) ("ge" nil ("$B%2(B" . "$B$2(B")) ("gye" nil ("$B%.%'(B" . "$B$.$'(B")) ("he" nil ("$B%X(B" . "$B$X(B")) ("hye" nil ("$B%R%'(B" . "$B$R$'(B")) ("je" nil ("$B%8%'(B" . "$B$8$'(B")) ("jye" nil ("$B%8%'(B" . "$B$8$'(B")) ("ke" nil ("$B%1(B" . "$B$1(B")) ("kye" nil ("$B%-%'(B" . "$B$-$'(B")) ("me" nil ("$B%a(B" . "$B$a(B")) ("mye" nil ("$B%_%'(B" . "$B$_$'(B")) ("ne" nil ("$B%M(B" . "$B$M(B")) ("nye" nil ("$B%K%'(B" . "$B$K$'(B")) ("pe" nil ("$B%Z(B" . "$B$Z(B")) ("pye" nil ("$B%T%'(B" . "$B$T$'(B")) ("re" nil ("$B%l(B" . "$B$l(B")) ("rye" nil ("$B%j%'(B" . "$B$j$'(B")) ("se" nil ("$B%;(B" . "$B$;(B")) ("she" nil ("$B%7%'(B" . "$B$7$'(B")) ("sye" nil ("$B%7%'(B" . "$B$7$'(B")) ("te" nil ("$B%F(B" . "$B$F(B")) ("the" nil ("$B%F%'(B" . "$B$F$'(B")) ("tye" nil ("$B%A%'(B" . "$B$A$'(B")) ("ve" nil ("$B%t%'(B" . "$B$&!+$'(B")) ("we" nil ("$B%&%'(B" . "$B$&$'(B")) ("xe" nil ("$B%'(B" . "$B$'(B")) ("xke" nil ("$B%v(B" . "$B$1(B")) ("xwe" nil ("$B%q(B" . "$B$q(B")) ("ye" nil ("$B%$%'(B" . "$B$$$'(B")) ("ze" nil ("$B%<(B" . "$B$<(B")) ("zye" nil ("$B%8%'(B" . "$B$8$'(B")) ("o" nil ("$B%*(B" . "$B$*(B")) ("bo" nil ("$B%\(B" . "$B$\(B")) ("byo" nil ("$B%S%g(B" . "$B$S$g(B")) ("cho" nil ("$B%A%g(B" . "$B$A$g(B")) ("cyo" nil ("$B%A%g(B" . "$B$A$g(B")) ("do" nil ("$B%I(B" . "$B$I(B")) ("dho" nil ("$B%G%g(B" . "$B$G$g(B")) ("dyo" nil ("$B%B%g(B" . "$B$B$g(B")) ("fo" nil ("$B%U%)(B" . "$B$U$)(B")) ("fyo" nil ("$B%U%g(B" . "$B$U$g(B")) ("go" nil ("$B%4(B" . "$B$4(B")) ("gyo" nil ("$B%.%g(B" . "$B$.$g(B")) ("ho" nil ("$B%[(B" . "$B$[(B")) ("hyo" nil ("$B%R%g(B" . "$B$R$g(B")) ("jo" nil ("$B%8%g(B" . "$B$8$g(B")) ("jyo" nil ("$B%8%g(B" . "$B$8$g(B")) ("ko" nil ("$B%3(B" . "$B$3(B")) ("kyo" nil ("$B%-%g(B" . "$B$-$g(B")) ("mo" nil ("$B%b(B" . "$B$b(B")) ("myo" nil ("$B%_%g(B" . "$B$_$g(B")) ("no" nil ("$B%N(B" . "$B$N(B")) ("nyo" nil ("$B%K%g(B" . "$B$K$g(B")) ("po" nil ("$B%](B" . "$B$](B")) ("pyo" nil ("$B%T%g(B" . "$B$T$g(B")) ("ro" nil ("$B%m(B" . "$B$m(B")) ("ryo" nil ("$B%j%g(B" . "$B$j$g(B")) ("so" nil ("$B%=(B" . "$B$=(B")) ("sho" nil ("$B%7%g(B" . "$B$7$g(B")) ("syo" nil ("$B%7%g(B" . "$B$7$g(B")) ("to" nil ("$B%H(B" . "$B$H(B")) ("tho" nil ("$B%F%g(B" . "$B$F$g(B")) ("tyo" nil ("$B%A%g(B" . "$B$A$g(B")) ("vo" nil ("$B%t%)(B" . "$B$&!+$)(B")) ("wo" nil ("$B%r(B" . "$B$r(B")) ("xo" nil ("$B%)(B" . "$B$)(B")) ("xyo" nil ("$B%g(B" . "$B$g(B")) ("yo" nil ("$B%h(B" . "$B$h(B")) ("zo" nil ("$B%>(B" . "$B$>(B")) ("zyo" nil ("$B%8%g(B" . "$B$8$g(B")) ("nn" nil ("$B%s(B" . "$B$s(B")) ("n'" nil ("$B%s(B" . "$B$s(B")) ("z/" nil ("$B!&(B" . "$B!&(B")) ("z," nil ("$B!E(B" . "$B!E(B")) ("z." nil ("$B!D(B" . "$B!D(B")) ("z-" nil ("$B!A(B" . "$B!A(B")) ("zh" nil ("$B"+(B" . "$B"+(B")) ("zj" nil ("$B"-(B" . "$B"-(B")) ("zk" nil ("$B",(B" . "$B",(B")) ("zl" nil ("$B"*(B" . "$B"*(B")) ("z[" nil ("$B!X(B" . "$B!X(B")) ("z]" nil ("$B!Y(B" . "$B!Y(B")) ) "SKK $B$NI8=`$N%m!<%^;z$+$JJQ49$N%*!<%H%^%H%s$N>uBVA+0\5,B'!#(B $B%j%9%H$N3FMWAG$O!"(B\($B8=:_$N>uBV(B@$BF~NO(B $B<!$N>uBV(B $B=PNO(B\) \($BC"$7!"(B\"@\" $B$OO"@\(B\) $B$r0UL#(B $B$9$k!#(B $B%7%9%F%`MQ$J$N$G%+%9%?%^%$%:$K$O(B skk-rom-kana-rule-list $B$rMxMQ$7$F$/$@$5$$!#(B" ) ;;;###skk-autoload (defvar skk-rom-kana-rule-list nil "*$B%m!<%^;z$+$JJQ49$N%*!<%H%^%H%s$N>uBVA+0\5,B'!#(B $B%j%9%H$N3FMWAG$O!"(B\($B8=:_$N>uBV(B@$BF~NO(B $B<!$N>uBV(B $B=PNO(B\) \($BC"$7!"(B\"@\" $B$OO"@\(B\) $B$r0UL#(B $B$9$k!#%+%9%?%^%$%:$K$O(B skk-standard-rom-kana-rule-list $B$G$OL5$/!"(B $B$3$A$i$rMxMQ$7$F$/$@$5$$!#(B" ) ;;;###skk-autoload (defvar skk-fallback-rule-alist '(("n" "$B%s(B" . "$B$s(B")) "*$B%m!<%^;z$+$JJQ49;~$K!"(Bskk-rom-kana-rule-list, skk-standard-rom-kana-rule-list $B$N(B $B$"$H$K;2>H$5$l$k5,B'!#(B $B%j%9%H$N3FMWAG$O!"(B\($B8=:_$N>uBV(B $B=PNO(B\) $B$r0UL#$9$k!#(B $B$3$N5,B'$,E,MQ$5$l$?>l9g!"F~NO$O%9%H%j!<%`$KJV$5$l$k!#(B" ) ;;;###skk-autoload (defvar skk-postfix-rule-alist '(("oh" "$B%*(B" . "$B$*(B")) "*$B%m!<%^;z$+$JJQ49;~$K!"D>A0$N$+$JJ8;z$r:n$k$N$KMQ$$$i$l$?:G8e$NF~NO$H(B $B8=:_$NF~NO$+$i$+$JJ8;z$r:n$j$@$9$?$a$N5,B'!#(B $B%j%9%H$N3FMWAG$O!"(B\($BD>A0$NF~NO(B@$BF~NO(B $B=PNO(B\) \($BC"$7!"(B\"@\" $B$OO"@\(B\) $B$r0UL#$9$k!#(B" ) ;;;###skk-autoload (defvar skk-previous-candidate-char ?x "*skk-previous-candidate $B$r3dEv$F$?%-%c%i%/%?!#(B" ) ;;;###skk-autoload (defvar skk-okuri-char-alist nil "*" ) ;;;###skk-autoload (defvar skk-downcase-alist nil "*" ) ;;;###skk-autoload (defvar skk-input-vector [nil nil nil nil nil nil nil nil ;7 nil nil nil nil nil nil nil nil ;15 nil nil nil nil nil nil nil nil ;23 nil nil nil nil nil nil nil nil ;31 nil "$B!*(B" nil nil nil nil nil nil ;39 nil nil nil nil "$B!"(B" "$B!<(B" "$B!#(B" nil ;47 nil nil nil nil nil nil nil nil ;55 nil nil "$B!'(B" "$B!((B" nil nil nil "$B!)(B" ;63 nil nil nil nil nil nil nil nil ;71 nil nil nil nil nil nil nil nil ;79 nil nil nil nil nil nil nil nil ;87 nil nil nil "$B!V(B" nil "$B!W(B" nil nil ;95 nil nil nil nil nil nil nil nil ;103 nil nil nil nil nil nil nil nil ;111 nil nil nil nil nil nil nil nil ;119 nil nil nil nil nil nil nil nil] ;127 "*skk-self-insert $B$G;2>H$5$l$kJ8;z%F!<%V%k!#(B $B%-!<$KBP1~$9$k0LCV$KJ8;zNs$,$"$l$P!"$R$i$,$J%b!<%I$b$7$/$O%+%?%+%J%b!<%I$G!"3:(B $BEv$N%-!<$r2!$9$3$H$G!"BP1~$9$kJ8;z$,A^F~$5$l$k!#(B $BNc$($P!"(B\"~\" $B%-!<$KBP1~$7$F!"(B\"$B!A(B\" $B$rA^F~$5$;$k$h$&$KJQ99$7$?$1$l$P!"(Bskk.el $B$N%m!<%I8e(B ($B$b$7$/$O(B skk-load-hook $B$rMxMQ$7$F(B)$B!"(B \(aset skk-input-vector 126 \"$B!A(B\"\) $B$H$9$k$+!"$b$7$/$O!"(Bskk-input-vector $B$N(B 126 $BHVL\(B (0 $BHV$+$i?t$($F(B) $B$NCM$r(B \"$B!A(B\" $B$H$9$k$h$&$J(B skk-input-vector $B$rD>@\=q$-!"(Bsetq $B$GBeF~$9$k(B \(126 $B$O!"(B? { $B$rI>2A$7$?$H$-$NCM(B\)$B!#(B" ) ;;;###skk-autoload (defvar skk-zenkaku-vector [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil "$B!!(B" "$B!*(B" "$B!I(B" "$B!t(B" "$B!p(B" "$B!s(B" "$B!u(B" "$B!G(B" "$B!J(B" "$B!K(B" "$B!v(B" "$B!\(B" "$B!$(B" "$B!](B" "$B!%(B" "$B!?(B" "$B#0(B" "$B#1(B" "$B#2(B" "$B#3(B" "$B#4(B" "$B#5(B" "$B#6(B" "$B#7(B" "$B#8(B" "$B#9(B" "$B!'(B" "$B!((B" "$B!c(B" "$B!a(B" "$B!d(B" "$B!)(B" "$B!w(B" "$B#A(B" "$B#B(B" "$B#C(B" "$B#D(B" "$B#E(B" "$B#F(B" "$B#G(B" "$B#H(B" "$B#I(B" "$B#J(B" "$B#K(B" "$B#L(B" "$B#M(B" "$B#N(B" "$B#O(B" "$B#P(B" "$B#Q(B" "$B#R(B" "$B#S(B" "$B#T(B" "$B#U(B" "$B#V(B" "$B#W(B" "$B#X(B" "$B#Y(B" "$B#Z(B" "$B!N(B" "$B!@(B" "$B!O(B" "$B!0(B" "$B!2(B" "$B!F(B" "$B#a(B" "$B#b(B" "$B#c(B" "$B#d(B" "$B#e(B" "$B#f(B" "$B#g(B" "$B#h(B" "$B#i(B" "$B#j(B" "$B#k(B" "$B#l(B" "$B#m(B" "$B#n(B" "$B#o(B" "$B#p(B" "$B#q(B" "$B#r(B" "$B#s(B" "$B#t(B" "$B#u(B" "$B#v(B" "$B#w(B" "$B#x(B" "$B#y(B" "$B#z(B" "$B!P(B" "$B!C(B" "$B!Q(B" "$B!A(B" nil] "*skk-zenkaku-insert $B$G;2>H$5$l$kJ8;z%F!<%V%k!#(B $B%-!<$KBP1~$9$k0LCV$KJ8;zNs$,$"$l$P!"A41Q%b!<%I$G3:Ev$N%-!<$r2!$9$3$H$G!"BP1~$9(B $B$kJ8;z$,A^F~$5$l$k!#(B $BCM$NJQ99J}K!$K$D$$$F$O!"(Bskk-input-vector $B$r;2>H$N$3$H!#(B" ) ;;;###skk-autoload (defvar skk-use-face (or window-system (skk-terminal-face-p)) "*Non-nil $B$G$"$l$P!"(BEmacs 19 $B$N(B face $B$N5!G=$r;HMQ$7$FJQ49I=<($J$I$r9T$J$&!#(B" ) ;;;###skk-autoload (defvar skk-henkan-face (if (and (or window-system (skk-terminal-face-p)) (or (and (fboundp 'frame-face-alist) (assq 'highlight (frame-face-alist (selected-frame)))) (and (fboundp 'face-list) (memq 'highlight (face-list)))) ) 'highlight ) "*$BJQ498uJd$N(B face $BB0@-!#(Bskk-use-face $B$,(B non-nil $B$N$H$-$N$_M-8z!#(B Emacs $BI8=`%U%'%$%9$N(B default, modeline, region, secondary-selection, highlight, underline, bold, italic, bold-italic $B$NB>!"?7$?$K(B face $B$r:n$j;XDj$9(B $B$k$3$H$b2DG=!#(B $B?7$?$J(B face $B$r:n$j;XDj$9$k$K$O(B skk-make-face $B$rMxMQ$7$F!"(B \(skk-make-face 'DimGray/PeachPuff1\) \(setq skk-henkan-face 'DimGray/PeachPuff1\) $B$N$h$&$K$9$k$N$,<j7Z!#(Bforeground $B$H(B background $B$N?';XDj$@$1$G$J$$6E$C$?(B face $B$r:n$k>l9g$O!"(Bskk-make-face $B$G$OBP1~$G$-$J$$$N$G!"(BEmacs $B$N(B hilit19.el $B$N(B hilit-lookup-face-create $B$J$I$rMxMQ$9$k!#?'$rIU$1$k>l9g$NG[?'$O!"(Bcanna.el $B$N(B canna:attribute-alist $B$,NI$$Nc$+$b$7$l$J$$!#(B" ) ;;;###skk-autoload (defvar skk-use-color-cursor (and window-system (fboundp 'x-display-color-p) (x-display-color-p) ) "*Non-nil $B$G$"$l$P!"(BSKK $B%b!<%I$NF~NO%b!<%I$K1~$8$F%+!<%=%k$K?'$rIU$1$k!#(B") (defvar skk-default-cursor-color (if skk-xemacs (frame-property (selected-frame) 'cursor-color) (cdr (assq 'cursor-color (frame-parameters (selected-frame))))) "*SKK $B$N%*%U$r<($9%+!<%=%k?'!#(B" ) ;; $BGX7J?'$r9u$K$7$F;HMQ$5$l$F$$$kJ}$G!"NI$$G[?'$,$"$l$P$*CN$i$;2<$5$$!#(B ;;;###skk-autoload (defvar skk-hirakana-cursor-color (if (eq skk-background-mode 'light) "coral4" "pink" ) "*$B$+$J%b!<%I$r<($9%+!<%=%k?'!#(B" ) ;;;###skk-autoload (defvar skk-katakana-cursor-color (if (eq skk-background-mode 'light) "forestgreen" "green" ) "*$B%+%?%+%J%b!<%I$r<($9%+!<%=%k?'!#(B" ) ;;;###skk-autoload (defvar skk-zenkaku-cursor-color "gold" "*$BA43Q1Q;z%b!<%I$r<($9%+!<%=%k?'!#(B" ) ;;;###skk-autoload (defvar skk-ascii-cursor-color (if (eq skk-background-mode 'light) "ivory4" "gray" ) "*$B%"%9%-!<%b!<%I$r<($9%+!<%=%k?'!#(B" ) ;;;###skk-autoload (defvar skk-abbrev-cursor-color "royalblue" "*$B%"%9%-!<%b!<%I$r<($9%+!<%=%k?'!#(B" ) ;;;###skk-autoload (defvar skk-report-set-cursor-error t "*Non-nil $B$G$"$l$P!"%+%i!<%^%C%W@Z$l$,5/$-$?>l9g!"%(%i!<%a%C%;!<%8$rI=<($9$k!#(B nil $B$G$"$l$P!"I=<($7$J$$!#(B" ) ;;;###skk-autoload (defvar skk-use-cursor-change t "*Non-nil $B$G$"$l$P!"(BOvwrt $B%^%$%J!<%b!<%I;~$K%+!<%=%k$NI}$r=L$a$k!#(B" ) ;;;###skk-autoload (defvar skk-auto-insert-paren nil "*Non-nil $B$G$"$l$P!"(B2 $B$D$NJ8;zNs$r$^$H$a$FA^F~$7!"$=$NJ8;zNs$N4V$K%+!<%=%k$r0\F0$9$k!#(B $BNc$($P!"(B\"$B!V(B\" $B$rF~NO$7$?$H$-$K(B \"$B!W(B\" $B$r<+F0E*$KA^F~$7!"N>$+$.$+$C$3$N4V$K(B $B%+!<%=%k$r0\F0$9$k!#(B $BA^F~$9$kJ8;zNs$O!"(Bskk-auto-paren-string-alist $B$G;XDj$9$k!#(B" ) ;;;###skk-autoload (defvar skk-auto-paren-string-alist '(("$B!V(B" . "$B!W(B") ("$B!X(B" . "$B!Y(B") ("(" . ")") ("$B!J(B" . "$B!K(B") ("{" . "}")("$B!P(B" . "$B!Q(B") ("$B!R(B" . "$B!S(B") ("$B!T(B" . "$B!U(B") ("[" . "]") ("$B!N(B" . "$B!O(B") ("$B!L(B" . "$B!M(B") ("$B!Z(B" . "$B![(B") ("\"" . "\"")("$B!H(B" . "$B!I(B") ;; skk-special-midashi-char-list $B$NMWAG$K$J$C$F$$$kJ8;z$O!"(B ;; skk-auto-paren-string-alist $B$K4^$a$F$b:o=|$5$l$k!#(B ;;("<" . ">") ) "*$B<+F0E*$KBP$K$J$kJ8;zNs$rF~NO$9$k$?$a$NO"A[%j%9%H!#(B car $B$NJ8;zNs$,A^F~$5$l$?$H$-$K(B cdr $B$NJ8;zNs$r<+F0E*$KA^F~$9$k!#(B" ) ;;;###skk-autoload (defvar skk-japanese-message-and-error nil "*Non-nil $B$G$"$l$P!"(BSKK $B$N%a%C%;!<%8$H%(%i!<$rF|K\8l$GI=<($9$k!#(B nil $B$G$"$l$P!"1Q8l$GI=<($9$k!#(B" ) ;;;###skk-autoload (defvar skk-ascii-mode-map nil "*ASCII $B%b!<%I$N%-!<%^%C%W!#(B" ) (or skk-ascii-mode-map (let ((map (make-sparse-keymap))) (define-key map skk-kakutei-key 'skk-kakutei) (skk-define-menu-bar-map map) (setq skk-ascii-mode-map map))) ;;;###skk-autoload (defvar skk-j-mode-map nil "*$B$+$J%b!<%I$N%-!<%^%C%W!#(B" ) (or skk-j-mode-map (let ((map (make-sparse-keymap))) (define-key map "!" 'skk-self-insert) (define-key map "#" 'skk-self-insert) (define-key map "$" 'skk-display-code-for-char-at-point) (define-key map "%" 'skk-self-insert) (define-key map "&" 'skk-self-insert) (define-key map "'" 'skk-self-insert) (define-key map "*" 'skk-self-insert) (define-key map "+" 'skk-self-insert) (define-key map "," 'skk-insert-comma) (define-key map "-" 'skk-self-insert) (define-key map "." 'skk-insert-period) (define-key map "/" 'skk-abbrev-mode) (define-key map "0" 'skk-self-insert) (define-key map "1" 'skk-self-insert) (define-key map "2" 'skk-self-insert) (define-key map "3" 'skk-self-insert) (define-key map "4" 'skk-self-insert) (define-key map "5" 'skk-self-insert) (define-key map "6" 'skk-self-insert) (define-key map "7" 'skk-self-insert) (define-key map "8" 'skk-self-insert) (define-key map "9" 'skk-self-insert) (define-key map ":" 'skk-self-insert) (define-key map ";" 'skk-self-insert) ;; "<", ">", "?" $B$N(B 3 $BJ8;z$O!"(Bskk-special-midashi-char-list $B$NCM$,%G%#%U%)%k(B ;; $B%H$N$^$^$G$"$l$P!"(Bskk-setup-special-midashi-char $B$K$h$j(B ;; skk-set-henkan-point $B$K:F3d$jIU$1$5$l$k$,!"@_Dj$K$h$j$3$l$i$NJ8;z$r;XDj$7(B ;; $B$J$$>l9g$O!"(Bskk-self-insert $B$H$7$FF0$/$N$,K>$^$7$$!#(B (define-key map "<" 'skk-self-insert) (define-key map "=" 'skk-self-insert) (define-key map ">" 'skk-self-insert) (define-key map "?" 'skk-self-insert) (define-key map "@" 'skk-today) (define-key map "A" 'skk-set-henkan-point) (define-key map "B" 'skk-set-henkan-point) (define-key map "C" 'skk-set-henkan-point) (define-key map "D" 'skk-set-henkan-point) (define-key map "E" 'skk-set-henkan-point) (define-key map "F" 'skk-set-henkan-point) (define-key map "G" 'skk-set-henkan-point) (define-key map "H" 'skk-set-henkan-point) (define-key map "I" 'skk-set-henkan-point) (define-key map "J" 'skk-set-henkan-point) (define-key map "K" 'skk-set-henkan-point) (define-key map "L" 'skk-zenkaku-mode) (define-key map "M" 'skk-set-henkan-point) (define-key map "N" 'skk-set-henkan-point) (define-key map "O" 'skk-set-henkan-point) (define-key map "P" 'skk-set-henkan-point) (define-key map "Q" 'skk-set-henkan-point-subr) (define-key map "R" 'skk-set-henkan-point) (define-key map "S" 'skk-set-henkan-point) (define-key map "T" 'skk-set-henkan-point) (define-key map "U" 'skk-set-henkan-point) (define-key map "V" 'skk-set-henkan-point) (define-key map "W" 'skk-set-henkan-point) (define-key map "X" 'skk-purge-from-jisyo) (define-key map "Y" 'skk-set-henkan-point) (define-key map "Z" 'skk-set-henkan-point) (define-key map "\ " 'skk-start-henkan) (define-key map "\"" 'skk-self-insert) (define-key map "\(" 'skk-self-insert) (define-key map "\)" 'skk-self-insert) ;;(define-key map "\177" 'skk-delete-backward-char) ;;(define-key map "\C-g" 'skk-keyboard-quit) ;;(define-key map "\C-m" 'skk-newline) (define-key map "\[" 'skk-self-insert) (define-key map "\\" 'skk-input-by-code-or-menu) (define-key map "\]" 'skk-self-insert) (or skk-use-vip (define-key map "\M-\ " 'skk-start-henkan-with-completion) ) (or skk-use-vip (define-key map "\M-Q" 'skk-backward-and-set-henkan-point) ) (define-key map "\t" 'skk-try-completion) (define-key map "\{" 'skk-self-insert) (define-key map "\}" 'skk-self-insert) (define-key map "^" 'skk-self-insert) (define-key map "_" 'skk-self-insert) (define-key map "`" 'skk-self-insert) (define-key map "a" 'skk-kana-input) (define-key map "b" 'skk-kana-input) (define-key map "c" 'skk-kana-input) (define-key map "d" 'skk-kana-input) (define-key map "e" 'skk-kana-input) (define-key map "f" 'skk-kana-input) (define-key map "g" 'skk-kana-input) (define-key map "h" 'skk-kana-input) (define-key map "i" 'skk-kana-input) (define-key map "j" 'skk-kana-input) (define-key map "k" 'skk-kana-input) (define-key map "l" 'skk-ascii-mode) (define-key map "m" 'skk-kana-input) (define-key map "n" 'skk-kana-input) (define-key map "o" 'skk-kana-input) (define-key map "p" 'skk-kana-input) (define-key map "q" 'skk-toggle-kana) (define-key map "r" 'skk-kana-input) (define-key map "s" 'skk-kana-input) (define-key map "t" 'skk-kana-input) (define-key map "u" 'skk-kana-input) (define-key map "v" 'skk-kana-input) (define-key map "w" 'skk-kana-input) (define-key map "x" 'skk-previous-candidate) (define-key map "y" 'skk-kana-input) (define-key map "z" 'skk-kana-input) (define-key map "|" 'skk-self-insert) (define-key map "~" 'skk-self-insert) (define-key map skk-kakutei-key 'skk-kakutei) (skk-define-menu-bar-map map) (setq skk-j-mode-map map))) ;;;###skk-autoload (defvar skk-zenkaku-mode-map nil "*$BA43Q%b!<%I$N%-!<%^%C%W!#(B" ) (or skk-zenkaku-mode-map (let ((map (make-sparse-keymap)) (i 0) ) (while (< i 128) (if (aref skk-zenkaku-vector i) (define-key map (char-to-string i) 'skk-zenkaku-insert) ) (setq i (1+ i)) ) (define-key map skk-kakutei-key 'skk-kakutei) (or skk-use-vip (define-key map "\M-Q" 'skk-backward-and-set-henkan-point) ) (define-key map "\C-q" 'skk-ascii-henkan) (skk-define-menu-bar-map map) (setq skk-zenkaku-mode-map map))) ;;;###skk-autoload (defvar skk-abbrev-mode-map nil "*SKK abbrev $B%b!<%I$N%-!<%^%C%W!#(B" ) (or skk-abbrev-mode-map (let ((map (make-sparse-keymap))) (define-key map "," 'skk-abbrev-comma) (define-key map "." 'skk-abbrev-period) (define-key map "\ " 'skk-start-henkan) ;;(define-key map "\177" 'skk-delete-backward-char) ;;(define-key map "\C-g" 'skk-keyboard-quit) ;;(define-key map "\C-m" 'skk-newline) (define-key map "\C-q" 'skk-zenkaku-henkan) (or skk-use-vip (define-key map "\M-\ " 'skk-start-henkan-with-completion) ) (define-key map "\t" 'skk-try-completion) (define-key map skk-kakutei-key 'skk-kakutei) (skk-define-menu-bar-map map) (setq skk-abbrev-mode-map map))) ;;;###skk-autoload (defvar skk-jisyo-save-count 50 "*$B?tCM$G$"$l$P!"$=$N2s?t<-=q$,99?7$5$l$?$H$-$K<-=q$r<+F0E*$K%;!<%V$9$k!#(B nil $B$G$"$l$P!"<-=q$N%*!<%H%;!<%V$r9T$J$o$J$$!#(B" ) ;;;###skk-autoload (defvar skk-byte-compile-init-file t "*Non-nil $B$G$"$l$P!"(Bskk-mode $B5/F0;~$K(B skk-init-file $B$r%P%$%H%3%s%Q%$%k$9$k!#(B $B@53N$K8@$&$H!"(B (1)skk-init-file $B$r%P%$%H%3%s%Q%$%k$7$?%U%!%$%k$,$J$$$+!"(B (2)skk-init-file $B$H$=$N%P%$%H%3%s%Q%$%k:Q%U%!%$%k$rHf3S$7$F!"A0<T$NJ}$,?7$7(B $B$$$H$-(B $B$K(B skk-init-file $B$r%P%$%H%3%s%Q%$%k$9$k!#(B nil $B$G$"$l$P!"(Bskk-init-file $B$H$=$N%P%$%H%3%s%Q%$%k:Q$_%U%!%$%k$rHf3S$7$F(B skk-init-file $B$NJ}$,?7$7$$$H$-$O!"$=$N%P%$%H%3%s%Q%$%k:Q%U%!%$%k$r>C$9!#(B" ) ;;;###skk-autoload (defvar skk-count-private-jisyo-candidates-exactly nil "*Non-nil $B$G$"$l$P!"(BEmacs $B$r=*N;$9$k$H$-$K@53N$K8D?M<-=q$N8uJd?t$r?t$($k!#(B nil $B$G$"$l$P!"(B1 $B9T$KJ#?t$N8uJd$,$"$C$F$b(B 1 $B8uJd$H$7$F?t$($k!#(B $B7W;;7k2L$O!"(Bskk-record-file $B$KJ]B8$5$l$k!#(B" ) ;;;###skk-autoload (defvar skk-compare-jisyo-size-when-saving t "*Non-nil $B$G$"$l$P!"(Bskk-jisyo $B$N%;!<%V;~$K%U%!%$%k%5%$%:$N%A%'%C%/$r9T$J$&!#(B $BA02s%;!<%V$7$?(B skk-jisyo $B$H:#2s%;!<%V$7$h$&$H$9$k<-=q$H$N%5%$%:Hf3S$r9T$J$$!"(B $B8e<T$NJ}$,Bg$-$$$H$-$K%f!<%6!<$K%;!<%V$rB3$1$k$+$I$&$+$N3NG'$r5a$a$k!#(B" ) ;;;###skk-autoload (defvar skk-auto-start-henkan t "$BC18l$dJ8@a$N6h@Z$j$r<($9J8;z$NBG80$K$h$j<+F0E*$KJQ49$r3+;O$9$k!#(B skk-auto-start-henkan-keyword-list $B$K$h$jC18l$dJ8@a$N6h@Z$j$r<($9J8;z$r;XDj$9$k!#(B" ) ;;;###skk-autoload (defvar skk-auto-start-henkan-keyword-list '("$B$r(B" "$B!"(B" "$B!#(B" "$B!%(B" "$B!$(B" "$B!)(B" "$B!W(B" "$B!*(B" "$B!((B" "$B!'(B" ")" ";" ":" "$B!K(B" "$B!I(B" "$B![(B" "$B!Y(B" "$B!U(B" "$B!S(B" "$B!Q(B" "$B!O(B" "$B!M(B" "}" "]" "?" "." "," "!" ) ;; $B$"$^$j%-!<%o!<%I$,B?$/$J$k$H!"DL>o$NJQ49$r:$Fq$K$9$k!)(B "$B<+F0JQ49$r3+;O$9$k%-!<%o!<%I!#(B $B$3$N%j%9%H$NMWAG$NJ8;z$rA^F~$9$k$H!"(BSPC $B$r2!$9$3$H$J$/<+F0E*$KJQ49$r3+;O$9$k!#(B" ) ;;;###skk-autoload (defvar skk-search-excluding-word-pattern-function nil "*$B8D?M<-=q$K<h$j9~$^$J$$J8;zNs$N%Q%?!<%s$r8!:w$9$k4X?t$r;XDj$9$k!#(B $B3NDj$7$?J8;zNs$r0z?t$KEO$7$F(B funcall $B$5$l$k!#(B SKK $B$G$OJQ49!"3NDj$r9T$J$C$?J8;zNs$OA4$F8D?M<-=q$K<h$j9~$^$l$k$,!"$3$NJQ?t$G;X(B $BDj$5$l$?4X?t$,(B non-nil $B$rJV$9$H$=$NJ8;zNs$O8D?M<-=q$K<h$j9~$^$l$J$$!#Nc$($P!"(B $B$3$NJQ?t$K2<5-$N$h$&$J;XDj$9$k$H!"(BSKK abbrev mode $B$G$NJQ49$r=|$-!"%+%?%+%J$N$_(B $B$+$i$J$kJ8;zNs$rJQ49$K$h$jF@$F3NDj$7$F$b!"$=$l$r8D?M<-=q$K<h$j9~$^$J$$!#(B $B%+%?%+%J$rJQ49$K$h$j5a$a$?$$$,!"8D?M<-=q$K$O%+%?%+%J$N$_$N8uJd$r<h$j9~$_$?$/$J(B $B$$!"$J$I!"8D?M<-=q$,I,MW0J>e$KKD$l$k$N$rM^$($kL\E*$K;HMQ$G$-$k!#(B $B8D?M<-=q$K<h$j9~$^$J$$J8;zNs$K$D$$$F$OJd40$,8z$+$J$$$N$G!"Cm0U$9$k$3$H!#(B \(setq skk-search-excluding-word-pattern-function \(function \(lambda \(kakutei-word\) ;; $B$3$N4X?t$,(B t $B$rJV$7$?$H$-$O!"$=$NJ8;zNs$O8D?M<-=q$K<h$j9~$^$l$J$$!#(B \(save-match-data \(and ;; $BAw$j$J$7JQ49$G!"(B \(not skk-okuri-char\) ;; $B3NDj8l$,%+%?%+%J$N$_$+$i9=@.$5$l$F$$$F!"(B \(string-match \"^[$B!<%!(B-$B%s(B]+$\" kakutei-word\) ;; SKK abbrev mode $B0J30$G$NJQ49$+!"(B \(or \(not skk-abbrev-mode\) ;; $B8+=P$78l$,%+%?%+%J!"$R$i$,$J0J30$N$H$-!#(B ;; \($B8e$G"&%^!<%/$rIU$1$?$H$-$O!"8+=P$78l$,1QJ8;z$G$b!"(B ;; skk-abbrev-mode$B$,(B t $B$K$J$C$F$$$J$$(B\)$B!#(B \(not \(string-match \"^[^$B!<%!(B-$B%s$!(B-$B$s(B]+$\" skk-henkan-key\)\) \)\)\)\)\)\) ") ;;; -- internal variables ;; ---- global variables (defconst skk-ml-address "skk-develop@kuis.kyoto-u.ac.jp") (defconst skk-coding-system-alist (if (or skk-mule3 skk-xemacs) '(("euc" . euc-japan) ("ujis" . euc-japan) ("sjis". sjis) ("jis" . junet) ) '(("euc" . *euc-japan*) ("ujis" . *euc-japan*) ("sjis". *sjis*) ("jis" . *junet*) )) "coding-system $B$NJ8;zNsI=8=$H!"%7%s%\%kI=8=$NO"A[%j%9%H!#(B" ) (defconst skk-default-zenkaku-vector ;; note that skk-zenkaku-vector is a user variable. ;; skk.el $B%m!<%IA0$K(B .emacs $B$J$I$G!"(Bskk-zenkaku-vector $B$NJL$NCM$r%f!<%6!<$,(B ;; $BD>@\=q$$$?$j!"(Bskk.el $B%m!<%I8e$K$3$NCM$r(B aset $B$GD>@\$$$8$C$?$j$7$J$1$l$P(B ;; default-value $B$G(B skk-zenkaku-vector $B$K%"%/%;%9$9$k$3$H$G(B ;; skk-default-zenkaku-vector $B$NCM$rJ];}$9$k$3$H$b$G$-$h$&$,!"$=$l$OK>$a$J(B ;; $B$$(B...$B!#(B [nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil "$B!!(B" "$B!*(B" "$B!I(B" "$B!t(B" "$B!p(B" "$B!s(B" "$B!u(B" "$B!G(B" "$B!J(B" "$B!K(B" "$B!v(B" "$B!\(B" "$B!$(B" "$B!](B" "$B!%(B" "$B!?(B" "$B#0(B" "$B#1(B" "$B#2(B" "$B#3(B" "$B#4(B" "$B#5(B" "$B#6(B" "$B#7(B" "$B#8(B" "$B#9(B" "$B!'(B" "$B!((B" "$B!c(B" "$B!a(B" "$B!d(B" "$B!)(B" "$B!w(B" "$B#A(B" "$B#B(B" "$B#C(B" "$B#D(B" "$B#E(B" "$B#F(B" "$B#G(B" "$B#H(B" "$B#I(B" "$B#J(B" "$B#K(B" "$B#L(B" "$B#M(B" "$B#N(B" "$B#O(B" "$B#P(B" "$B#Q(B" "$B#R(B" "$B#S(B" "$B#T(B" "$B#U(B" "$B#V(B" "$B#W(B" "$B#X(B" "$B#Y(B" "$B#Z(B" "$B!N(B" "$B!@(B" "$B!O(B" "$B!0(B" "$B!2(B" "$B!F(B" "$B#a(B" "$B#b(B" "$B#c(B" "$B#d(B" "$B#e(B" "$B#f(B" "$B#g(B" "$B#h(B" "$B#i(B" "$B#j(B" "$B#k(B" "$B#l(B" "$B#m(B" "$B#n(B" "$B#o(B" "$B#p(B" "$B#q(B" "$B#r(B" "$B#s(B" "$B#t(B" "$B#u(B" "$B#v(B" "$B#w(B" "$B#x(B" "$B#y(B" "$B#z(B" "$B!P(B" "$B!C(B" "$B!Q(B" "$B!A(B" nil] "skk-zenkaku-region $B$G;2>H$9$kJ8;z%F!<%V%k!#(B \"ascii\" -> \"$B#a#s#c#i#i(B\" $B$N$h$&$JA43QJ8;z$X$NJQ49$r9T$&:]$KMxMQ$9$k!#(B" ) ;;;###skk-autoload (defconst skk-kanji-len (length "$B$"(B") "$B4A;z0lJ8;z$ND9$5!#(BMule $B$G$O(B 3 $B$K$J$k!#(BXEmacs $B$G$O(B 1$B!#(B" ) (defconst skk-hankaku-alist '((161 . 32) ; ?\ (170 . 33) ;?\! (201 . 34) ;?\" (244 . 35) ;?\# (240 . 36) ;?\$ (243 . 37) ;?\% (245 . 38) ;?\& (199 . 39) ;?\' (202 . 40) ;?\( (203 . 41) ;?\) (246 . 42) ;?\* (220 . 43) ;?\+ (164 . 44) ;?\, (221 . 45) ;?\- (165 . 46) ;?\. (191 . 47) ;?\/ (167 . 58) ;?\: (168 . 59) ;?\; (227 . 60) ;?\< (225 . 61) ;?\= (228 . 62) ;?\> (169 . 63) ;?\? (247 . 64) ;?\@ (206 . 91) ;?\[ (239 . 92) ;?\\ (207 . 93) ;?\] (176 . 94) ;?^ (178 . 95) ;?\_ (208 . 123) ;?\{ (195 . 124) ;?\| (209 . 125) ;?\} (177 . 126) ;?\~ (198 . 96)) ;?` "$BJ8;z%3!<%I$N(B 2 $BHVL\$N%P%$%H$H$=$NJ8;z$KBP1~$9$k(B ascii $BJ8;z(B \(char\) $B$H$NO"A[%j%9%H!#(B skk-ascii-region $B$G;2>H$9$k!#(BMule-2.3 $BE:IU$N(B egg.el $B$h$j%3%T!<$7$?!#(B" ) ;;;###skk-autoload (defvar skk-insert-new-word-function nil "$B8uJd$rA^F~$7$?$H$-$K(B funcall $B$5$l$k4X?t$rJ]B8$9$kJQ?t!#(B" ) ;;;###skk-autoload (defvar skk-input-mode-string skk-hirakana-mode-string "SKK $B$NF~NO%b!<%I$r<($9J8;zNs!#(Bskk-mode $B5/F0;~$O!"(Bskk-hirakana-mode-string$B!#(B" ) ;;;###skk-autoload (defvar skk-isearch-message nil "skk-isearch $B4X?t$r%3!<%k$9$k$?$a$N%U%i%0!#(B Non-nil $B$G$"$l$P!"(Bskk-isearch-message $B4X?t$r%3!<%k$9$k!#(B" ) ;;;###skk-autoload (defvar skk-mode-invoked nil "Non-nil $B$G$"$l$P!"(BEmacs $B$r5/F08e4{$K(B skk-mode $B$r5/F0$7$?$3$H$r<($9!#(B" ) (defvar skk-kakutei-count 0 "$BJQ498uJd$r3NDj$7$?%+%&%s%H$rJ];}$9$kJQ?t!#(B skk-record-file $B$N(B \"$B3NDj(B:\" $B9`L\$N%+%&%s%?!<!#(B" ) (defvar skk-touroku-count 0 "$B<-=qEPO?$7$?%+%&%s%H$rJ];}$9$kJQ?t!#(B skk-record-file $B$N(B \"$BEPO?(B:\" $B9`L\$N%+%&%s%?!<!#(B" ) (defvar skk-update-jisyo-count 0 "$B<-=q$r99?7$7$?2s?t!#(B $B$3$N%+%&%s%?!<$N?t;z$,(B skk-jisyo-save-count $B0J>e$H$J$C$?$H$-$K%f!<%6!<<-=q$N%*!<(B $B%H%;!<%V$,9T$J$o$l$k!#(B" ) (defvar skk-use-relation nil "*skk-relation $B$r;HMQ$9$k!#$3$l$OD>A0$NJQ49$r21$($F$*$/$3$H$G!"(B $BJQ498zN($rNI$/$7$h$&$H$$$&;n$_!#(B" ) (defvar skk-relation-length (* skk-kanji-len 10) "skk-relation $B;HMQ;~$K!"2?J8;zA0$NJQ49$^$G21$($F$*$/$+$r;XDj$9$kJQ?t!#(B" ) (defvar skk-relation-record-num 100 "skk-relation $B;HMQ;~$K!"2?%(%s%H%j$^$G%U%!%$%k$K5-21$9$k$+$r<($9!#(B" ) ;; ---- buffer local variables ;; <$B%U%i%0N`(B> ;;;###skk-autoload (skk-deflocalvar skk-mode nil "Non-nil $B$G$"$l$P!"%+%l%s%H%P%C%U%!$G8=:_(B skk-mode $B$r5/F0$7$F$$$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-ascii-mode nil "Non-nil $B$G$"$l$P!"F~NO%b!<%I$,(B ASCII $B%b!<%I$G$"$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-j-mode nil "Non-nil $B$G$"$l$P!"F~NO%b!<%I$,$+$J!&%+%J%b!<%I$G$"$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-katakana nil "Non-nil $B$G$"$l$P!"F~NO%b!<%I$,%+%J%b!<%I$G$"$k$3$H$r<($9!#(B \"(and (not skk-katakana) skk-j-mode))\" $B$,(B t $B$G$"$l$P!"$+$J%b!<%I$G$"$k$3$H$r(B $B<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-zenkaku-mode nil "Non-nil $B$G$"$l$P!"F~NO%b!<%I$,A41Q%b!<%I$G$"$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-abbrev-mode nil "Non-nil $B$G$"$l$P!"F~NO%b!<%I$,(B SKK abbrev $B%b!<%I$G$"$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-okurigana nil "Non-nil $B$G$"$l$P!"Aw$j2>L>ItJ,$,F~NOCf$G$"$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-henkan-on nil "Non-nil $B$G$"$l$P!""&%b!<%I(B ($BJQ49BP>]$NJ8;zNs7hDj$N$?$a$N%b!<%I(B) $B$G$"$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-henkan-active nil "Non-nil $B$G$"$l$P!""'%b!<%I(B ($BJQ49Cf(B) $B$G$"$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-kakutei-flag nil "Non-nil $B$J$i3NDj$7$FNI$$8uJd$r8+$D$1$?>uBV$G$"$k$3$H$r;X$9!#(B skk-henkan, skk-search-kakutei-jisyo-file, skk-henkan-show-candidates, skk-henkan-in-minibuff $B$H(B skk-kakutei-save-and-init-variables $B$GJQ99!";2>H$5$l(B $B$k!#(B" ) (skk-deflocalvar skk-exit-show-candidates nil "$B%_%K%P%C%U%!$G8uJd$r<!!9$KI=<($7$F!"8uJd$,?T$-$?$H$-$K(B non-nil $B$H$J$k!#(B $B$=$NCM$O%j%9%H$G!"(Bcar $B$K(B skk-henkan-show-candidate $B4X?t$G(B while $B%k!<%W$r2s$C(B $B$?2s?t$r<($90l;~JQ?t(B loop $B$NCM$r!"(Bcdr $BIt$K:G8e$K%_%K%P%C%U%!$KI=<($7$?(B 1 $B$DA0(B $B$N8uJd72$N:G8e$NMWAG$r;X$9%$%s%G%/%9$,BeF~$5$l$k!#(B skk-henkan-show-candidates, skk-henkan-in-minibuff $B$H(B skk-kakutei-save-and-init-variables $B$GJQ99!";2>H$5$l$k!#(B" ) (skk-deflocalvar skk-last-henkan-result nil "" ) (skk-deflocalvar skk-last-henkan-point nil "" ) ;; <$B%-!<%^%C%W4XO"(B> ;; <$B<-=q4XO"$NJQ?t(B> (skk-deflocalvar skk-okuri-ari-min nil "SKK $B<-=q$NAw$jM-$j%(%s%H%j$N3+;OE@$r<($9%P%C%U%!%]%$%s%H!#(B") (skk-deflocalvar skk-okuri-ari-max nil "SKK $B<-=q$NAw$jM-$j%(%s%H%j$N=*N;E@$r<($9%P%C%U%!%]%$%s%H!#(B skk-jisyo $B$N%P%C%U%!$G$O<-=q$N99?7$NI,MW$,$"$k$?$a$K%^!<%+!<$,BeF~$5$l$k!#(B" ) (skk-deflocalvar skk-okuri-nasi-min nil "SKK $B<-=q$NAw$j$J$7%(%s%H%j$N3+;OE@$r<($9%P%C%U%!%]%$%s%H!#(B skk-jisyo $B$N%P%C%U%!$G$O<-=q$N99?7$NI,MW$,$"$k$?$a$K%^!<%+!<$,BeF~$5$l$k!#(B" ) ;; <$B$=$NB>(B> (skk-deflocalvar skk-mode-line nil "SKK $B$N%b!<%I$r<($9%b!<%I%i%$%s$NJ8;zNs!#(B skk-mode-string, skk-hirakana-mode-string, skk-katakana-mode-string and skk-zenkaku-mode-string $B$N$$$:$l$+$,BeF~$5$l$k!#(B" ) ;; "" $B$KBP1~$7$?%(%s%H%j$,(B skk-roma-kana-[aiue] $B$K$"$k$?$a!"(B"" $B$r(B nil $B$GBeMQ(B ;; $B$G$-$J$$!#(B ;;;###skk-autoload (skk-deflocalvar skk-prefix "" "$BF~NO$9$k$+$J$r7hDj$9$k$?$a$N%W%l%U%#%C%/%9!#(B $B8e$GF~NO$5$l$kJl2;$KBP1~$7$?(B skk-roma-kana-[aiue] $BO"A[%j%9%H$G!"$=$N(B skk-prefix $B$r%-!<$K$7$FF~NO$9$Y$-$+$JJ8;z$,7hDj$5$l$k!#(B $BNc$($P!"(B\"$B$+(B\" $B$N$h$&$K(B \"k\" $B$+$i;O$^$k;R2;$rF~NO$7$F$$$k$H$-$O!"(Bskk-prefix $B$O!"(B\"k\" $B$G!"$=$N<!$KF~NO$5$l$?Jl2;(B \"a\" $B$KBP1~$9$k(B skk-roma-kana-a $B$NCf$N(B \"k\" $B$r%-!<$K;}$DCM!"(B\"$B$+(B\" $B$b$7$/$O(B \"$B%+(B\" $B$,F~NO$9$Y$-$+$JJ8;z$H$J$k!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-henkan-start-point nil "$BJQ493+;O%]%$%s%H$r<($9%^!<%+!<!#(B" ) (skk-deflocalvar skk-henkan-end-point nil "$BJQ49=*N;%]%$%s%H$r<($9%^!<%+!<!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-kana-start-point nil "$B$+$JJ8;z$N3+;O%]%$%s%H$r<($9%^!<%+!<!#(B" ) (skk-deflocalvar skk-okurigana-start-point nil "$BAw$j2>L>$N3+;O%]%$%s%H$r<($9%^!<%+!<!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-henkan-key nil "$BJQ49$9$Y$-8+=P$78l!#(B $BNc$($P!"(B\"$B"&$+$J(B\" $B$rJQ49$9$l$P!"(Bskk-henkan-key $B$K$O(B \"$B$+$J(B\" $B$,BeF~$5$l$k!#(B \"$B"&$o$i(B*$B$&(B\" $B$N$h$&$JAw$j$"$j$NJQ49$N>l9g$K$O!"(B\"$B$o$i(Bu\" $B$N$h$&$K!"4A;zItJ,$N(B $BFI$_$,$J(B + $BAw$j2>L>$N:G=i$NJ8;z$N%m!<%^;z$N%W%l%U%#%C%/%9$,BeF~$5$l$k!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-okuri-char nil "$BJQ49$9$Y$-8l$NAw$j2>L>$NItJ,$N%W%l%U%#%C%/%9!#(B $BNc$($P!"(B\"$B$*$/(B*$B$j(B\" $B$rJQ49$9$k$H$-$O!"(Bskk-okuri-char $B$O(B \"r\"$B!#(B skk-okuri-char $B$,(B non-nil $B$G$"$l$P!"Aw$j$"$j$NJQ49$G$"$k$3$H$r<($9!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-henkan-okurigana nil "$B8=:_$NJQ49$NAw$j2>L>ItJ,!#(B $BNc$($P!"(B\"$B"&$&$^$l(B*$B$k(B\" $B$rJQ49$9$l$P!"(Bskk-henkan-okurigana $B$K$O(B \"$B$k(B\" $B$,BeF~(B $B$5$l$k!#(B" ) (skk-deflocalvar skk-last-kakutei-henkan-key nil "$B3NDj<-=q$K$h$j:G8e$K3NDj$7$?$H$-$N8+=P$78l!#(B $B3NDj<-=q$K$h$k3NDj$ND>8e$K(B x $B%-!<$r2!$9$H3NDj$,%"%s%I%%$5$l$F!"3NDjA0$N>uBV$G(B $B$3$N8+=P$78l$,%+%l%s%H%P%C%U%!$KA^F~$5$l$k!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-henkan-list nil "$BJQ497k2L$N8uJd$N%j%9%H!#(B $BNc$($P!"(B\"$B"&$J(B*$B$/(B\" $B$H$$$&JQ49$9$l$P!"(Bskk-henkan-list $B$O(B (\"$BLD(B\" \"$B5c(B\" \"$BL5(B\" \"$BK4(B\") $B$N$h$&$K$J$k!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-henkan-count -1 "skk-henkan-list $B$N%j%9%H$N%$%s%G%/%9$G8=:_$N8uJd$r:9$9$b$N!#(B" ) (skk-deflocalvar skk-self-insert-non-undo-count 1 "skk-self-insert $B$J$I$GO"B3F~NO$7$?J8;z?t$rI=$o$9%+%&%s%?!<!#(B Emacs $B$N%*%j%8%J%k$NF0:n$G$O!"(Bself-insert-command $B$K%P%$%s%I$5$l$?%-!<F~NO$O!"(B $BO"B3(B 20 $B2s$^$G$,(B 1 $B$D$N%"%s%I%%$NBP>]$H$J$k!#$3$NF0:n$r%(%_%e%l!<%H$9$k$?$a$N(B $B%+%&%s%?!<!#(B skk-self-insert $B0J30$G$O!"(Bskk-abbrev-comma, skk-abbrev-period, skk-insert-a, skk-insert-comma, skk-insert-e, skk-insert-i, skk-insert-period, skk-insert-u, skk-kana-input, skk-set-henkan-point, skk-zenkaku-insert $B$N$$$:$l$+$N%3%^%s%I(B $B$GF~NO$5$l$?>l9g$bO"B3$7$?F~NO$H$7$F07$o$l$k!#(B $B$3$N%+%&%s%?!<$,!"(B20 $B0J2<$G$"$k$H$-$O!"F~NO$N$?$S$K(B cancel-undo-boundary $B$,%3!<(B $B%k$5$l$k!#(B" ) ;;;###skk-autoload (skk-deflocalvar skk-current-search-prog-list nil "skk-search-prog-list $B$N8=:_$NCM$rJ]B8$9$k%j%9%H!#(B $B:G=i$NJQ49;~$O(B skk-search-prog-list $B$NA4$F$NCM$rJ];}$7!"JQ49$r7+$jJV$9$?$S$K(B 1 $B$D$E$DC;$/$J$C$F$f$/!#(B" ) ;; for skk-undo-kakutei (skk-deflocalvar skk-last-henkan-key nil "skk-henkan-key $B$N:G8e$NCM!#(Bskk-undo-kakutei $B$G;2>H$5$l$k!#(B" ) (skk-deflocalvar skk-last-henkan-okurigana nil "skk-henkan-okurigana $B$N:G8e$NCM!#(Bskk-undo-kakutei $B$G;2>H$5$l$k!#(B" ) (skk-deflocalvar skk-last-henkan-list nil "skk-henkan-list $B$N:G8e$NCM!#(Bskk-undo-kakutei $B$G;2>H$5$l$k!#(B" ) (skk-deflocalvar skk-last-okuri-char nil "skk-okuri-char $B$N:G8e$NCM!#(Bskk-undo-kakutei $B$G;2>H$5$l$k!#(B" ) (skk-deflocalvar skk-henkan-overlay nil "$B8uJd$rI=<($9$k$H$-$K;HMQ$9$k(B Overlay$B!#(B" ) ;;;###skk-autoload (defvar skk-menu-modified-user-option nil "SKK $B%a%K%e!<%3%^%s%I$GJQ99$5$l$?%f!<%6!<JQ?tJ];}$9$k%j%9%H!#(B" ) (or (assq 'skk-mode minor-mode-alist) (setq minor-mode-alist (cons '(skk-mode skk-input-mode-string) minor-mode-alist) )) ;; +----------------------+-------- skk-mode -----+----------------------+ ;; | | | | ;; | | | | ;; skk-j-mode skk-ascii-mode skk-zenkaku-mode skk-abbrev-mode ;; ASCII ZENKAKU EIMOJI ABBREVIATION ;; (C-j wakes up skk-j-mode) ;; ;; skk-j-mode-map skk-ascii-mode-map skk-zenkaku-mode-map skk-abbrev-mode-map ;; skk-katakana: nil ;; HIRAKANA ;; ;; skk-j-mode-map ;; skk-katakana: t ;; KATAKANA ;; sub minor mode ;;(cond ((and skk-xemacs (local-variable-p 'minor-mode-map-alist nil t))) ;; ((local-variable-p 'minor-mode-map-alist) ;; (setq-default minor-mode-map-alist minor-mode-map-alist) )) (or (assq 'skk-ascii-mode minor-mode-map-alist) (setq minor-mode-map-alist (cons (cons 'skk-ascii-mode skk-ascii-mode-map) minor-mode-map-alist) )) (or (assq 'skk-abbrev-mode minor-mode-map-alist) (setq minor-mode-map-alist (cons (cons 'skk-abbrev-mode skk-abbrev-mode-map) minor-mode-map-alist) )) (or (assq 'skk-j-mode minor-mode-map-alist) (setq minor-mode-map-alist (cons (cons 'skk-j-mode skk-j-mode-map) minor-mode-map-alist) )) (or (assq 'skk-zenkaku-mode minor-mode-map-alist) (setq minor-mode-map-alist (cons (cons 'skk-zenkaku-mode skk-zenkaku-mode-map) minor-mode-map-alist) )) ;;;; aliases (defalias 'skk-backward-char 'backward-char) (defalias 'skk-eventp 'eventp) (defalias 'skk-forward-char 'forward-char) (defalias 'skk-insert-and-inherit 'insert-and-inherit) (defalias 'skk-skip-chars-backward 'skip-chars-backward) ;;;; macros ;; Why I use non-intern temporary variable in the macro --- see comment in ;; save-match-data of subr.el of GNU Emacs. And should we use the same manner ;; in the save-current-buffer, with-temp-buffer and with-temp-file macro ;; definition? ;;;###skk-autoload (defmacro skk-save-point (&rest body) (` (let ((skk-save-point (point-marker))) (unwind-protect (progn (,@ body)) (goto-char skk-save-point) (skk-set-marker skk-save-point nil) )))) ;;;###skk-autoload (defmacro skk-message (japanese english &rest arg) ;; skk-japanese-message-and-error $B$,(B non-nil $B$@$C$?$i(B JAPANESE $B$r(B nil $B$G$"$l(B ;; $B$P(B ENGLISH $B$r%(%3!<%(%j%"$KI=<($9$k!#(B ;; ARG $B$O(B message $B4X?t$NBh#20z?t0J9_$N0z?t$H$7$FEO$5$l$k!#(B (list 'let (list (list 'mc-flag t) (list 'enable-multibyte-characters t)) (append (list 'message (list 'if 'skk-japanese-message-and-error japanese english )) arg ))) ;;;###skk-autoload (defmacro skk-error (japanese english &rest arg) ;; skk-japanese-message-and-error $B$,(B non-nil $B$@$C$?$i(B JAPANESE $B$r(B nil $B$G$"$l(B ;; $B$P(B ENGLISH $B$r%(%3!<%(%j%"$KI=<($7!"%(%i!<$rH/@8$5$;$k!#(B ;; ARG $B$O(B error $B4X?t$NBh#20z?t0J9_$N0z?t$H$7$FEO$5$l$k!#(B (list 'let (list (list 'mc-flag t) (list 'enable-multibyte-characters t)) (append (list 'error (list 'if 'skk-japanese-message-and-error japanese english )) arg ))) ;;;###skk-autoload (defmacro skk-yes-or-no-p (japanese english) ;; skk-japanese-message-and-error $B$,(B non-nil $B$G$"$l$P!"(Bjapanese $B$r(B nil $B$G$"(B ;; $B$l$P(B english $B$r%W%m%s%W%H$H$7$F(B yes-or-no-p $B$r<B9T$9$k!#(B ;; yes-or-no-p $B$N0z?t$N%W%m%s%W%H$,J#;($KF~$l9~$s$G$$$k>l9g$O$3$N%^%/%m$r;H(B ;; $B$&$h$j%*%j%8%J%k$N(B yes-or-no-p $B$r;HMQ$7$?J}$,%3!<%I$,J#;($K$J$i$J$$>l9g$,(B ;; $B$"$k!#(B (list 'let (list (list 'mc-flag t) (list 'enable-multibyte-characters t)) (list 'yes-or-no-p (list 'if 'skk-japanese-message-and-error japanese english )))) ;;;###skk-autoload (defmacro skk-y-or-n-p (japanese english) ;; skk-japanese-message-and-error $B$,(B non-nil $B$G$"$l$P!"(Bjapanese $B$r(B nil $B$G$"(B ;; $B$l$P(B english $B$r%W%m%s%W%H$H$7$F(B y-or-n-p $B$r<B9T$9$k!#(B (list 'let (list (list 'mc-flag t) (list 'enable-multibyte-characters t)) (list 'y-or-n-p (list 'if 'skk-japanese-message-and-error japanese english )))) ;;;###skk-autoload (defmacro skk-set-marker (marker position &optional buffer) ;; $B%P%C%U%!%m!<%+%kCM$G$"$k(B skk-henkan-start-point, skk-henkan-end-point, ;; skk-kana-start-point, $B$"$k$$$O(B skk-okurigana-start-point $B$,(B nil $B$@$C$?$i!"(B ;; $B?75,%^!<%+!<$r:n$C$FBeF~$9$k!#(B ;; ;; skk.el $B$N%P%C%U%!%m!<%+%kCM$N07$$$K$OCm0U$9$Y$-E@$,$"$k!#(B ;; $BNc$($P!"$"$k%P%C%U%!(B Buffer A $B$G2<5-$N$h$&$J%U%)!<%`$rI>2A$7$?$H$9$k!#(B ;; ---------- Buffer A ---------------+--------------- Buffer B ---------- ;; (setq test (make-marker)) | ;; -> #<marker in no buffer> | ;; | ;; (make-variable-buffer-local 'test) | ;; | ;; test | test ;; -> #<marker in no buffer> | -> #<marker in no buffer> ;; | ;; (set-marker test (point)) | ;; | ;; test | test ;; -> #<marker at 122 in A> | -> #<marker at 122 in A> ;; ;; $B%P%C%U%!%m!<%+%kCM$H$7$F$N@k8@$r$9$kA0$K(B non-nil $BCM$rBeF~$7!"$=$N(B non-nil ;; $BCM$rD>@\=q$-JQ$($k$h$&$J%U%)!<%`$rI>2A$9$k$H(B Buffer B $B$+$i8+$($k%G%#%U%)%k(B ;; $B%HCM$^$G=q$-JQ$C$F$7$^$&!#>e5-$NNc$O%^!<%+!<$@$,!"2<5-$N$h$&$K%j%9%H$KBP$7(B ;; $B$FGK2uE*4X?t$GA`:n$7$?$H$-$bF1MM$N7k2L$H$J$k!#(B ;; ---------- Buffer A ---------------+--------------- Buffer B ---------- ;; (setq test '(A B C)) | ;; -> (A B C) | ;; | ;; (make-variable-buffer-local 'test) | ;; | ;; test | test ;; -> (A B C) | -> (A B C) ;; | ;; (setcar test 'X) | ;; | ;; test | test ;; -> (X B C) | -> (X B C) ;; ;; $B$3$N8=>]$G0lHV:$$k$N$O!"4A;zEPO?$J$I$G%_%K%P%C%U%!$KF~$C$?$H$-(B ;; (skk-henkan-show-candidate $B$N$h$&$KC1$K!V%(%3!<%(%j%"!W$r;HMQ$9$k4X?t$G$O(B ;; $B4X78$J$$(B) $B$K!"$b$H$N%P%C%U%!$H%_%K%P%C%U%!$H$G$O$=$l$>$lJL$NJQ49$r9T$J$&(B ;; $B$N$,IaDL$G$"$k$N$G!">e5-$N$h$&$KB>$N%P%C%U%!$N%P%C%U%!%m!<%+%kCM$^$G=q$-(B ;; $BJQ$($F$7$^$&$H!"JQ49$r5Y;_$7$F$$$kB>$N%P%C%U%!$G@5>o$JJQ49$,$G$-$J$/$J$k(B ;; $B>l9g$,$"$k$3$H$G$"$k!#(B ;; ;; $B$7$+$b(B SKK $B$G$O%j%+!<%7%V%_%K%P%C%U%!$,;HMQ$G$-$k$N$G!"(B *Minibuf-0* $B$H(B ;; *Minibuf-1 $B$N4V(B ($B$"$k$$$O$b$C$H?<$$%j%+!<%7%V%_%K%P%C%U%!F1;N$N4V(B) $B$G%P%C(B ;; $B%U%!%m!<%+%kCM$NGK2uE*=q$-JQ$($,9T$J$o$l$F$7$^$$!">e0L$N%_%K%P%C%U%!$KLa$C(B ;; $B$?$H$-$K@5>o$JJQ49$,$G$-$J$/$J$k>l9g$,$"$k!#(B ;; ;; $B$H$3$m$,2<5-$N$h$&$K=i4|CM$r(B nil $B$K$7$F!"%P%C%U%!%m!<%+%kCM$H$7$F$N@k8@8e!"(B ;; non-nil $BCM$rBeF~$9$l$P!"0J8e$=$N%P%C%U%!%m!<%+%kCM$KGK2uE*A`:n$r$7$F$b$=$N(B ;; $B%P%C%U%!$K8GM-$NCM$7$+JQ2=$7$J$$!#(B ;; ---------- Buffer A ---------------+--------------- Buffer B ---------- ;; (setq test nil) | ;; | ;; (make-variable-buffer-local 'test) | ;; | ;; test | test ;; -> nil | -> nil ;; | ;; (setq test (make-marker)) | ;; -> #<marker in no buffer> | ;; | ;; (set-marker test (point)) | ;; | ;; test | test ;; -> #<marker at 122 in A> | -> nil ;; ;; skk.el 9.3 $B$N;~E@$G$O!"(Bskk-henkan-start-point, skk-henkan-end-point, ;; skk-kana-start-point $B5Z$S(B skk-okurigana-start-point $B$N=i4|CM(B ;; (make-variable-buffer-local $B$,%3!<%k$5$l$kA0$NCM(B) $B$,(B make-marker $B$NJV$jCM(B ;; $B$G$"$k(B #<marker in no buffer> $B$G$"$C$?$N$G!"%j%+!<%7%V%_%K%P%C%U%!$KF~$C(B ;; $B$FJQ49$7$?$H$-$K(B "$B"'(B" $B$,>C$($J$$!"$J$I$N%H%i%V%k$,$"$C$?$,!"$3$l$i$N=i4|(B ;; $BCM$r(B nil $B$K$7$F;HMQ;~$K(B make-marker $B$NJV$jCM$rBeF~$9$k$h$&$K$7!"$3$NLdBj$r(B ;; $B2r7h$7$?!#(B (list 'progn (list 'if (list 'not marker) (list 'setq marker (list 'make-marker)) ) (list 'set-marker marker position buffer) )) ;;;; inline functions (defsubst skk-mode-off () (setq skk-mode nil skk-abbrev-mode nil skk-ascii-mode nil skk-j-mode nil skk-zenkaku-mode nil ;; j's sub mode. skk-katakana nil ) ;; initialize (setq skk-input-mode-string skk-hirakana-mode-string) (setq skk-last-henkan-result nil) (skk-set-marker skk-last-henkan-point nil) (skk-set-cursor-color skk-default-cursor-color) (force-mode-line-update) ) ;;;###skk-autoload (defsubst skk-j-mode-on (&optional katakana) (setq skk-mode t skk-abbrev-mode nil skk-ascii-mode nil skk-j-mode t skk-zenkaku-mode nil ;; j's sub mode. skk-katakana katakana ) ;; mode line (if katakana (progn (setq skk-input-mode-string skk-katakana-mode-string) (skk-set-cursor-color skk-katakana-cursor-color) ) (setq skk-input-mode-string skk-hirakana-mode-string) (skk-set-cursor-color skk-hirakana-cursor-color) ) (force-mode-line-update) ) ;;;###skk-autoload (defsubst skk-ascii-mode-on () (setq skk-mode t skk-abbrev-mode nil skk-ascii-mode t skk-j-mode nil skk-zenkaku-mode nil ;; j's sub mode. skk-katakana nil skk-input-mode-string skk-ascii-mode-string ) (skk-set-cursor-color skk-ascii-cursor-color) (force-mode-line-update) ) ;;;###skk-autoload (defsubst skk-zenkaku-mode-on () (setq skk-mode t skk-abbrev-mode nil skk-ascii-mode nil skk-j-mode nil skk-zenkaku-mode t ;; j's sub mode. skk-katakana nil skk-input-mode-string skk-zenkaku-mode-string ) (skk-set-cursor-color skk-zenkaku-cursor-color) (force-mode-line-update) ) ;;;###skk-autoload (defsubst skk-abbrev-mode-on () (setq skk-mode t skk-abbrev-mode t skk-ascii-mode nil skk-j-mode nil skk-zenkaku-mode nil ;; j's sub mode. skk-katakana nil skk-input-mode-string skk-abbrev-mode-string ) (skk-set-cursor-color skk-abbrev-cursor-color) (force-mode-line-update) ) ;;;###skk-autoload (defsubst skk-in-minibuffer-p () ;; $B%+%l%s%H%P%C%U%!$,%_%K%P%C%U%!$+$I$&$+$r%A%'%C%/$9$k!#(B (window-minibuffer-p (selected-window)) ) ;;;###skk-autoload (defsubst skk-insert-prefix (&optional char) ;; skk-echo $B$,(B non-nil $B$G$"$l$P%+%l%s%H%P%C%U%!$K(B skk-prefix $B$rA^F~$9$k!#(B (if skk-echo ;; skk-prefix $B$NA^F~$r%"%s%I%%$NBP>]$H$7$J$$!#A^F~$7$?%W%l%U%#%C%/%9$O!"(B ;; $B$+$JJ8;z$rA^F~$9$kA0$KA4$F>C5n$9$k$N$G!"$=$N4V!"(Bbuffer-undo-list $B$r(B ;; t $B$K$7$F%"%s%I%%>pJs$rC_$($J$/$H$bLdBj$,$J$$!#(B (let ((buffer-undo-list t)) (insert (or char skk-prefix)) ))) ;;;###skk-autoload (defsubst skk-erase-prefix () ;; skk-echo $B$,(B non-nil $B$G$"$l$P%+%l%s%H%P%C%U%!$KA^F~$5$l$?(B skk-prefix $B$r>C(B ;; $B$9!#(B (if skk-echo ;; skk-prefix $B$N>C5n$r%"%s%I%%$NBP>]$H$7$J$$!#(B (let ((buffer-undo-list t)) (delete-region skk-kana-start-point (point) )))) (defsubst skk-string<= (str1 str2) ;; str1 $B$,(B str2 $B$HHf3S$7$F!"(Bstring< $B$+(B string= $B$G$"$l$P!"(Bt $B$rJV$9!#(B (or (string< str1 str2) (string= str1 str2)) ) (defsubst skk-jis-char-p (char) ;; char $B$,(B JIS $BJ8;z$@$C$?$i(B t $B$rJV$9!#(B (> char 127) ) (defsubst skk-alpha-char-p (char) ;; char $B$,(B ascii $BJ8;z$@$C$?$i(B t $B$rJV$9!#(B (<= char 127) ) (defsubst skk-lower-case-p (char) ;; char $B$,>.J8;z$N%"%k%U%!%Y%C%H$G$"$l$P!"(Bt $B$rJV$9!#(B (and (<= ?a char) (>= ?z char) )) (defsubst skk-do-auto-fill () ;; auto-fill-function $B$KCM$,BeF~$5$l$F$*$l$P!"(Bdo-auto-fill $B$r%3!<%k$9$k!#(B (and auto-fill-function (funcall auto-fill-function)) ) ;;;; from dabbrev.el. Welcome! ;; $BH=Dj4V0c$$$rHH$9>l9g$"$j!#MW2~NI!#(B (defsubst skk-minibuffer-origin () (nth 1 (buffer-list)) ) ;;;###skk-autoload (defsubst skk-numeric-p () (and skk-use-numeric-conversion (require 'skk-num) skk-num-list )) (defsubst skk-substring-head-character (string) (char-to-string (string-to-char string)) ) (defsubst skk-get-simply-current-candidate (&optional noconv) (if (> skk-henkan-count -1) ;; (nth -1 '(A B C)) $B$O!"(BA $B$rJV$9$N$G!"Ii$G$J$$$+$I$&$+%A%'%C%/$9$k!#(B (let ((word (nth skk-henkan-count skk-henkan-list))) (and word (if (and (skk-numeric-p) (consp word)) (if noconv (car word) (cdr word)) word ))))) (eval-after-load "font-lock" '(mapcar (function (lambda (pattern) (add-to-list 'lisp-font-lock-keywords-2 (cons pattern '((1 font-lock-keyword-face) (2 font-lock-variable-name-face) ))))) '("^(\\(skk-deflocalvar\\)[ \t'\(]*\\(\\sw+\\)?" "^(\\(skk-defunsoft\\)[ \t'\(]*\\(\\sw+\\)?" ))) (defun skk-submit-bug-report () "$B%a!<%k$G(B SKK $B$N%P%0%l%]!<%H$rAw$k!#(B reporter-mailer $B$r@_Dj$9$k$3$H$K$h$j9%$_$N%a!<%k%$%s%?!<%U%'%$%9$r;HMQ$9$k$3$H(B $B$,$G$-$k!#Nc$($P!"(BMew $B$r;HMQ$7$?$$>l9g$O2<5-$N$h$&$K@_Dj$9$k!#(B \(setq reporter-mailer '\(mew-send reporter-mail\)\) reporter.el 3.2 $B$G$O!"JQ?t(B reporter-mailer $B$,$J$/$J$C$?!#$3$N%P!<%8%g%s$G$O!"(B \(setq mail-user-agent 'mew-user-agent\) $B$H;XDj$9$k!#(B" (interactive) (require 'reporter) (if (and (boundp 'mail-user-agent) (eq mail-user-agent 'mew-user-agent) ) (define-mail-user-agent 'mew-user-agent 'mew-send 'mew-draft-send-letter 'mew-draft-kill )) (and (y-or-n-p "Do you really want to submit a report on SKK? ") (reporter-submit-bug-report skk-ml-address (concat "skk.el " (skk-version) (if (or (and (boundp 'skk-server-host) skk-server-host) (and (boundp 'skk-servers-list) skk-servers-list) (getenv "SKKSERVER") (getenv "SKKSERV") ) (progn (require 'skk-server) (concat ", skkserv; " (skk-server-version) (if (getenv "SKKSERVER") (concat ",\nSKKSERVER; " (getenv "SKKSERVER") )) (if (getenv "SKKSERV") (concat ", SKKSERV; " (getenv "SKKSERV") )))))) (let ((base (list 'window-system 'skk-auto-okuri-process 'skk-auto-start-henkan 'skk-egg-like-newline 'skk-henkan-okuri-strictly 'skk-henkan-strict-okuri-precedence 'skk-kakutei-early 'skk-process-okuri-early 'skk-search-prog-list 'skk-use-face 'skk-use-vip ))) (if (boundp 'skk-henkan-face) (nconc base '(skk-henkan-face)) ) (if (boundp 'skk-server-host) (nconc base '(skk-server-host)) ) (if (boundp 'skk-server-prog) (nconc base '(skk-server-prog)) ) (if (boundp 'skk-servers-list) (nconc base '(skk-servers-list)) ) base )))) ;;;; defadvices. ;; defadvice $B$GDj5A$9$k$H!"8e$G%f!<%6!<$,?75,$N5!G=$rIU$1$F99$K(B defadvice $B$7$F(B ;; $B$b$A$c$s$HF0$/!#(B ;; cover to original functions. (defadvice keyboard-quit (around skk-ad activate) "$B"'%b!<%I$G$"$l$P!"8uJd$NI=<($r$d$a$F"&%b!<%I$KLa$9(B ($B8+=P$78l$O;D$9(B)$B!#(B $B"&%b!<%I$G$"$l$P!"8+=P$78l$r:o=|$9$k!#(B $B>e5-$N$I$A$i$N%b!<%I$G$b$J$1$l$P(B keyboard-quit $B$HF1$8F0:n$r$9$k!#(B" (cond ((not skk-henkan-on) (with-current-buffer (skk-minibuffer-origin) (skk-set-cursor-properly) ) ad-do-it ) (skk-henkan-active (setq skk-henkan-count 0) (if (and skk-delete-okuri-when-quit skk-henkan-okurigana) (let ((count (/ (length skk-henkan-okurigana) skk-kanji-len))) (skk-previous-candidate) ;; $B$3$3$G$O(B delete-backward-char $B$KBhFs0z?t$rEO$5$J$$J}$,%Y%?!<!)(B (delete-backward-char count) ) (skk-previous-candidate) )) (t (if (> (point) skk-henkan-start-point) (delete-region (point) skk-henkan-start-point) ) (skk-kakutei) ))) (defadvice abort-recursive-edit (around skk-ad activate) "$B"'%b!<%I$G$"$l$P!"8uJd$NI=<($r$d$a$F"&%b!<%I$KLa$9(B ($B8+=P$78l$O;D$9(B)$B!#(B $B"&%b!<%I$G$"$l$P!"8+=P$78l$r:o=|$9$k!#(B $B>e5-$N$I$A$i$N%b!<%I$G$b$J$1$l$P(B abort-recursive-edit $B$HF1$8F0:n$r$9$k!#(B" (cond ((not skk-henkan-on) (with-current-buffer (skk-minibuffer-origin) (skk-set-cursor-properly) ) ad-do-it ) (skk-henkan-active (setq skk-henkan-count 0) (if (and skk-delete-okuri-when-quit skk-henkan-okurigana) (let ((count (/ (length skk-henkan-okurigana) skk-kanji-len))) (skk-previous-candidate) ;; $B$3$3$G$O(B delete-backward-char $B$KBhFs0z?t$rEO$5$J$$J}$,%Y%?!<!)(B (delete-backward-char count) ) (skk-previous-candidate) )) (t (if (> (point) skk-henkan-start-point) (delete-region (point) skk-henkan-start-point) ) (skk-kakutei) ))) (defadvice newline (around skk-ad activate) (if (not (or skk-j-mode skk-abbrev-mode)) ad-do-it (let ((arg (ad-get-arg 0)) ;; skk-kakutei $B$r<B9T$9$k$H(B skk-henkan-on $B$NCM$,L5>r7o$K(B nil $B$K$J$k(B ;; $B$N$G!"J]B8$7$F$*$/I,MW$,$"$k!#(B (no-newline (and skk-egg-like-newline skk-henkan-on)) (auto-fill-function auto-fill-function) ) (if (not (interactive-p)) (setq auto-fill-function nil) ) (if (skk-kakutei) ;; skk-do-auto-fill $B$K$h$C$F9T$,@^$jJV$5$l$?$i(B arg $B$r(B 1 $B$D8:$i$9!#(B ;; fill $B$5$l$F$b(B nil $B$,5"$C$F$/$k(B :-< (setq arg (1- arg)) ) (if (not no-newline) (progn (ad-set-arg 0 arg) ad-do-it ))))) (defadvice newline-and-indent (around skk-ad activate) (if (and skk-egg-like-newline skk-henkan-on) (newline) ad-do-it)) (defadvice exit-minibuffer (around skk-ad activate) (if (not (or skk-j-mode skk-abbrev-mode)) ad-do-it (let ((no-newline (and skk-egg-like-newline skk-henkan-on))) (if skk-mode (skk-kakutei)) (or no-newline ad-do-it) ))) (defadvice delete-backward-char (around skk-ad activate) "$B8=:_$N%]%$%s%H$+$iLa$C$F(B COUNT $BJ8;z$r>C5n$9$k!#(B" (let ((count (or (prefix-numeric-value (ad-get-arg 0)) 1))) (cond ((and skk-henkan-on (>= skk-henkan-start-point (point))) (setq skk-henkan-count 0) (skk-kakutei) ) (skk-henkan-active (if (and (not skk-delete-implies-kakutei) (= skk-henkan-end-point (point)) ) (skk-previous-candidate) ;;(if skk-use-face (skk-henkan-face-off)) ;; overwrite-mode $B$GA43QJ8;zA43QJ8;z$K0O$^$l!"$+$DD>A0$NJ8;z$,A4(B ;; $B3QJ8;z$G$"$k%]%$%s%H$G(B delete-backward-char $B$r;H$&$H!"A43QJ8;z(B ;; $B$O>C$9$,H>3QJ8;zJ,$7$+(B backward $BJ}8~$K%]%$%s%H$,La$i$J$$(B ;; (Emacs 19.31 $B$K$F3NG'(B)$B!#JQ49Cf$N8uJd$KBP$7$F$O(B ;; delete-backward-char $B$GI,$:A43QJ8;z(B 1 $BJ8;zJ,(B backward $BJ}8~$KLa$C(B ;; $B$?J}$,NI$$!#(B (if overwrite-mode (progn (backward-char count) (delete-char count) ) ad-do-it ) (if (>= skk-henkan-end-point (point)) (skk-kakutei)) )) ;; $BF~NOCf$N8+=P$78l$KBP$7$F$O(B delete-backward-char $B$GI,$:A43QJ8;z(B 1 ;; $BJ8;zJ,(B backward $BJ}8~$KLa$C$?J}$,NI$$!#(B ((and skk-henkan-on overwrite-mode) (backward-char count) (delete-char count) ) (t ad-do-it) ))) (defadvice save-buffers-kill-emacs (before skk-ad activate) "SKK $B<-=q$r%;!<%V$7$F!"(BEmacs $B$r=*N;$9$k!#(B $B%;!<%V8e!"(Bskk-before-kill-emacs-hook $B$r<B9T$7$F$+$i(B Emacs $B$r%-%k$9$k!#(B" ;; defadvice $B$9$k:]!"Ho(B advice $B4X?t$H$O0c$&J}K!$G0z?tEO$7$r$7$?$$>l9g0J30$O!"(B ;; interactive + descripter $B$OMW$i$J$$$_$?$$!#(B ;;(interactive "P") (skk-save-jisyo) (run-hooks 'skk-before-kill-emacs-hook) ) (defadvice picture-mode-exit (before skk-ad activate) "SKK $B$N%P%C%U%!%m!<%+%kJQ?t$rL58z$K$7!"(Bpicture-mode-exit $B$r%3!<%k$9$k!#(B picture-mode $B$+$i=P$?$H$-$K$=$N%P%C%U%!$G(B SKK $B$r@5>o$KF0$+$9$?$a$N=hM}!#(B" (if skk-mode (skk-kill-local-variables)) ) (defadvice undo (before skk-ad activate) "SKK $B%b!<%I$,(B on $B$J$i(B skk-self-insert-non-undo-count $B$r=i4|2=$9$k!#(B" (if skk-mode (setq skk-self-insert-non-undo-count 0) )) (defadvice kill-buffer (around skk-ad activate) "SKK $B$N"'%b!<%I$@$C$?$i!"3NDj$7$F$+$i%P%C%U%!$r%-%k$9$k!#(B $B%P%C%U%!$N%-%k8e!"(BSKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (if skk-mode (and skk-henkan-on (skk-kakutei)) ) ad-do-it ;; $BJL$N%P%C%U%!$XHt$V%3%^%s%I$O(B skk-mode $B$,(B nil $B$G$b%+!<%=%k?'$rD4@0$9$kI,MW(B ;; $B$,$"$k!#(B (skk-set-cursor-properly) ) (defadvice overwrite-mode (after skk-ad activate) (if skk-use-cursor-change (skk-change-cursor-when-ovwrt) )) (defadvice eval-expression (before skk-ad activate) (if skk-mode (skk-mode-off)) ) (defadvice query-replace-regexp (before skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (add-hook 'minibuffer-setup-hook 'skk-setup-minibuffer) ) (defadvice query-replace (before skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (add-hook 'minibuffer-setup-hook 'skk-setup-minibuffer) ) (defadvice goto-line (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (and skk-mode (skk-set-cursor-properly)) ) (defadvice yank (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (and skk-mode (skk-set-cursor-properly)) ) (defadvice yank-pop (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (and skk-mode (skk-set-cursor-properly)) ) (defadvice recenter (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (and skk-mode (skk-set-cursor-properly)) ) ;; $BJL$N%P%C%U%!$XHt$V%3%^%s%I$O(B skk-mode $B$,(B nil $B$G$b%+!<%=%k?'$rD4@0$9$kI,MW$,(B ;; $B$"$k!#(B (defadvice bury-buffer (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (skk-set-cursor-properly) ) (defadvice switch-to-buffer (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (skk-set-cursor-properly) ) ;; cover to hilit19 functions. ;; forward advice $B$H(B automatic advice activation $B5!G=$,$"$k$+$i!"(Bhilit19.el ;; $B$N%m!<%IA0$K(B defadvice $B$7$F$bBg>fIW!#(B ;;(if (not (fboundp 'hilit-add-pattern)) ;; nil (defadvice hilit-yank (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (and skk-mode (skk-set-cursor-properly)) ) (defadvice hilit-yank-pop (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (and skk-mode (skk-set-cursor-properly)) ) (defadvice hilit-recenter (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (and skk-mode (skk-set-cursor-properly)) ) (defadvice execute-extended-command (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (skk-set-cursor-properly) ) (defadvice pop-to-buffer (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (skk-set-cursor-properly) ) ;; abort-recursive-edit $B$G$O!"(Bafter original command $B$X0\9T$9$kA0$K%"%\!<%H(B ;; $B$7$F$7$^$&!#(B ;;(defadvice abort-recursive-edit (after skk-ad activate) ;; "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" ;; (skk-set-cursor-properly) ) ;; (defadvice abort-recursive-edit (before skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" ;; $BJ#?t$N(B window $B$r3+$$$F$$$k>l9g$J$I$O!"8mF0:n$N2DG=@-$"$j!#(B (with-current-buffer (skk-minibuffer-origin) (skk-set-cursor-properly) )) (defadvice other-window (after skk-ad activate) "SKK $B$N%b!<%I$K=>$$%+!<%=%k$N?'$rJQ$($k!#(B" (skk-set-cursor-properly) ) (if skk-xemacs ;; XEmacs has minibuffer-keyboard-quit that has nothing to do with delsel. (defadvice minibuffer-keyboard-quit (around skk-ad activate) (cond ((or (string= skk-henkan-key "") (not skk-henkan-on)) (with-current-buffer (skk-minibuffer-origin) (skk-set-cursor-properly) ) ad-do-it ) (skk-henkan-active (setq skk-henkan-count 0) (if (and skk-delete-okuri-when-quit skk-henkan-okurigana) (let ((count (/ (length skk-henkan-okurigana) skk-kanji-len))) (skk-previous-candidate) ;; $B$3$3$G$O(B delete-backward-char $B$KBhFs0z?t$rEO$5$J$$J}$,%Y%?!<!)(B (delete-backward-char count) ) (skk-previous-candidate) )) (t (if (> (point) skk-henkan-start-point) (delete-region (point) skk-henkan-start-point) ) (skk-kakutei) ))) (defadvice minibuffer-keyboard-quit (around skk-ad activate) ;; for delsel.el (if (and skk-mode (not (and delete-selection-mode transient-mark-mode mark-active ))) (keyboard-quit) ad-do-it ))) ;;;; mode setup ;;;###skk-autoload (defun skk-mode (&optional arg) "$BF|K\8lF~NO%b!<%I!#(B $B%^%$%J!<%b!<%I$N0l<o$G!"%*%j%8%J%k$N%b!<%I$K$O1F6A$rM?$($J$$!#(B $BIi$N0z?t$rM?$($k$H(B SKK $B%b!<%I$+$iH4$1$k!#(B An input mode for Japanese, converting romanized phonetic strings to kanji. A minor mode, it should not affect the use of any major mode or orthogonal minor modes. In the initial SKK mode, hiragana submode, the mode line indicator is $B!V$+$J!W(B. Lowercase romaji entry is automatically converted to hiragana where possible. The lowercase characters `q' and `l' change submodes of SKK, and `x' is used as a prefix indicating a small kana. `q' is used to toggle between hiragana and katakana (mode line indicator $B!V%+%J!W(B) entry submodes. `l' is used to enter ASCII submode (mode line indicator \"SKK\"). Uppercase `L' enters zenkaku (wide) ASCII submode (mode line indicator $B!VA41Q!W(B). `\C-j' returns to hiragana submode from either ASCII submode. Kanji conversion is complex, but the basic principle is that the user signals the appropriate stem to be matched against dictionary keys by the use of uppercase letters. Because SKK does not use grammatical information, both the beginning and the end of the stem must be marked. For non-inflected words (eg, nouns) consisting entirely of kanji, the simplest way to invoke conversion is to enter the reading of the kanji, the first character only in uppercase. A leading $B!V"&!W(B indicates that kanji conversion is in progress. After entering the reading, press space. This invokes dictionary lookup, and the hiragana reading will be redisplayed in kanji as the first candidate. Pressing space again gives the next candidate. Further presses of space produce further candidates, as well as a list of the next few candidates in the minibuffer. Eg, \"Benri\" => $B!V"&$Y$s$j!W(B, and pressing space produces $B!V"'JXMx!W(B (the solid triangle indicates that conversion is in progress). Backspace steps through the candidate list in reverse. A candidate can be accepted by pressing `\C-j', or by entering a self-inserting character. (Unlike other common Japanese input methods, RET not only accepts the current candidate, but also inserts a line break.) Inflected words (verbs and adjectives), like non-inflected words, begin entry with a capital letter. However, for these words the end of the kanji string is signaled by capitalizing the next mora. Eg, \"TuyoI\" => $B!V"'6/$$!W(B. If no candidate is available at that point, the inflection point will be indicated with an asterisk \"*\", and trailing characters will be displayed until a candidate is recognized. It will be immediately displayed (pressing space is not necessary). Space and backspace are used to step forward and backward through the list of candidates. For more information, see the `skk' topic in Info. (Japanese only.) A tutorial is available in Japanese or English via \"M-x skk-tutorial\". Use a prefix argument to be prompted for the language. The default is system-dependent. " (interactive "P") (setq skk-mode (cond ((null arg) (not skk-mode)) ;; - $B$O(B -1 $B$KJQ49$5$l$k!#(B ((> (prefix-numeric-value arg) 0) t) )) (if (not skk-mode) ;; exit skk-mode (progn (let ((skk-mode t)) (skk-kakutei)) (skk-mode-off) ) ;; enter skk-mode (if (not skk-mode-invoked) ;; enter skk-mode for the first time in this session (progn (setq skk-mode-invoked t) (skk-setup-init-file) (load skk-init-file t) (if skk-keep-record (skk-create-file skk-record-file (if skk-japanese-message-and-error "SKK $B$N5-O?MQ%U%!%$%k$r:n$j$^$7$?(B" "I have created an SKK record file for you" ))) (skk-create-file skk-jisyo (if skk-japanese-message-and-error "SKK $B$N6u<-=q$r:n$j$^$7$?(B" "I have created an empty SKK Jisyo file for you" )) (skk-get-jisyo-buffer skk-jisyo 'nomsg) )) ;;$B0J2<$O(B skk-mode $B$KF~$k$?$S$KKhEY%3!<%k$5$l$k%3!<%I!#(B ;;(if (boundp 'disable-undo) ;; (make-local-variable 'disable-undo) ) (cond (skk-use-vip (skk-vip-mode)) (skk-use-viper (require 'skk-viper) (funcall skk-viper-normalize-map-function) )) (if (and (not (featurep 'skk-server)) (or (and (boundp 'skk-server-host) skk-server-host) (and (boundp 'skk-servers-list) skk-servers-list) (getenv "SKKSERVER") (getenv "SKKSERV") )) (require 'skk-server) ) ;; $B%f!<%6!<JQ?t$K4X$9$k$b$N$O!"%f!<%6!<$,$$$D!"$=$l$i$NJQ?t$rJQ99$9$k$+M=(B ;; $BB,$,IU$+$J$$$N$G!"(Bskk-mode $B$KF~$k$?$S$K@_Dj$7$J$*$7$F$$$k!#(B (if (featurep 'skk-server) ;; skk-search-server $B$O%5!<%P!<$,Mn$A$F$b;H$($k$N$G!"30$5$J$$!#(B (skk-adjust-search-prog-list-for-server-search 'non-del) ) (if skk-auto-okuri-process (skk-adjust-search-prog-list-for-auto-okuri) ) (if skk-use-relation (progn (require 'skk-attr) (setq skk-search-prog-list (cons '(skk-search-relation) skk-search-prog-list) ))) (skk-setup-delete-selection-mode) (skk-setup-special-midashi-char) (skk-setup-auto-paren) (skk-adjust-user-option) (define-key minibuffer-local-map skk-kakutei-key 'skk-kakutei) ;;(define-key minibuffer-local-map "\C-m" 'skk-newline) (define-key minibuffer-local-completion-map skk-kakutei-key 'skk-kakutei) ;;(define-key minibuffer-local-completion-map "\C-m" 'skk-newline) ;; XEmacs doesn't have minibuffer-local-ns-map (if (boundp 'minibuffer-local-ns-map) ;;(define-key minibuffer-local-ns-map "\C-m" 'skk-newline) (define-key minibuffer-local-ns-map skk-kakutei-key 'skk-kakutei) ) (skk-j-mode-on) (run-hooks 'skk-mode-hook) )) ;;;###skk-autoload (defun skk-auto-fill-mode (&optional arg) "$BF|K\8lF~NO%b!<%I!#<+F0@^$jJV$75!G=IU$-!#(B $B%^%$%J!<%b!<%I$N0l<o$G!"%*%j%8%J%k$N%b!<%I$K$O1F6A$rM?$($J$$!#(B $B@5$N0z?t$rM?$($k$H!"6/@)E*$K(B auto-fill-mode $B5Z$S(B SKK $B%b!<%I$KF~$k!#(B $BIi$N0z?t$rM?$($k$H(B auto-fill-mode $B5Z$S(B SKK $B%b!<%I$+$iH4$1$k!#(B" (interactive "P") (let ((auto-fill (cond ((null arg) (not auto-fill-function)) ((> (prefix-numeric-value arg) 0) t) ))) (auto-fill-mode (if auto-fill 1 -1)) (skk-mode arg) (skk-set-cursor-color (if skk-mode skk-hirakana-cursor-color skk-default-cursor-color )) (run-hooks 'skk-auto-fill-mode-hook) )) (defun skk-kill-emacs-without-saving-jisyo (&optional query) "SKK $B<-=q$r%;!<%V$7$J$$$G!"(BEmacs $B$r=*N;$9$k!#(B skk-before-kill-emacs-hook $B$r<B9T$7$F$+$i(B Emacs $B$r%-%k$9$k!#(B" (interactive "P") ;; format $B$r0z?t$K;}$?$;$?>l9g$O!"(Bskk-yes-or-no-p $B$r;H$&$H$+$($C$F>iD9$K$J$k!#(B (if (yes-or-no-p (format (if skk-japanese-message-and-error "$B<-=q$NJ]B8$r$;$:$K(B %s $B$r=*N;$7$^$9!#NI$$$G$9$+!)(B" "Do you really wish to kill %s without saving Jisyo? " ) (cond (skk-mule "Mule") (skk-xemacs "XEmacs") (t "Emacs") ))) (let ((buff (skk-get-jisyo-buffer skk-jisyo 'nomsg))) (if buff (progn (set-buffer buff) (set-buffer-modified-p nil) (kill-buffer buff) )) (run-hooks 'skk-before-kill-emacs-hook) (ad-remove-advice 'save-buffers-kill-emacs 'before 'skk-ad) (ad-activate 'save-buffers-kill-emacs) (save-buffers-kill-emacs query) ))) (defun skk-setup-init-file () ;; skk-byte-compile-init-file $B$,(B non-nil $B$N>l9g$G!"(Bskk-init-file $B$r%P%$%H%3(B ;; $B%s%Q%$%k$7$?%U%!%$%k$,B8:_$7$J$$$+!"$=$N%P%$%H%3%s%Q%$%k:Q%U%!%$%k$h$j(B ;; skk-init-file $B$NJ}$,?7$7$$$H$-$O!"(Bskk-init-file $B$r%P%$%H%3%s%Q%$%k$9$k!#(B ;; ;; skk-byte-compile-init-file $B$,(B nil $B$N>l9g$G!"(Bskk-init-file $B$r%P%$%H%3%s%Q(B ;; $B%$%k$7$?%U%!%$%k$h$j(B skk-init-file $B$NJ}$,?7$7$$$H$-$O!"$=$N%P%$%H%3%s%Q%$(B ;; $B%k:Q%U%!%$%k$r>C$9!#(B (save-match-data (let* ((init-file (expand-file-name skk-init-file)) (elc (concat init-file (if (string-match "\\.el$" init-file) "c" ".elc" )))) (if skk-byte-compile-init-file (if (and (file-exists-p init-file) (or (not (file-exists-p elc)) (file-newer-than-file-p init-file elc) )) (save-window-excursion ;; for keep window configuration. (skk-message "%s $B$r%P%$%H%3%s%Q%$%k$7$^$9!#(B" "Byte-compile %s" skk-init-file ) (sit-for 2) (byte-compile-file init-file) )) (if (and (file-exists-p init-file) (file-exists-p elc) (file-newer-than-file-p init-file elc) ) (delete-file elc) ))))) ;; ;;(skk-setup-special-midashi-char skk-minibuff-map) ;;;###skk-autoload (defun skk-emulate-original-map (arg) ;; $B%-!<F~NO$KBP$7$F!"(BSKK $B$N%b!<%I$G$O$J$/!"(BEmacs $B$N%*%j%8%J%k$N%-!<3d$jIU$1$G(B ;; $B%3%^%s%I$r<B9T$9$k!#(B (let ((prefix-arg arg) (keys (skk-command-key-sequence (this-command-keys) this-command)) ) (if (not keys) ;; no alternative commands. may be invoked by M-x. nil (let (skk-mode skk-ascii-mode skk-j-mode skk-abbrev-mode skk-zenkaku-mode command ) (setq command (key-binding keys)) (if (eq command this-command) ;; avoid recursive calling of skk-emulate-original-map. nil ;; if no bindings are found, call `undefined'. it's ;; original behaviour. (skk-cancel-undo-boundary) (command-execute (or command (function undefined)))))))) (defun skk-command-key-sequence (key command) ;; KEY $B$+$i(B universal arguments $B$r<h$j=|$-!"(BCOMMAND $B$r<B9T$9$k%-!<$rJV$9!#(B ;; `execute-extended-command' $B$K$h$C$F%3%^%s%I$,<B9T$5$l$?>l9g$O!"(Bnil $B$rJV$9!#(B (while (not (or (zerop (length key)) (eq command (key-binding key)))) (setq key (vconcat (cdr (append key nil))))) (and (not (zerop (length key))) key)) (defun skk-setup-special-midashi-char () ;; skk-special-midashi-char-list $B$K;XDj$5$l$?(B char $B$r(B skk-j-mode-map $B$N(B ;; skk-set-henkan-point $B$K3d$jIU$1$k!#(Bskk-special-midashi-char-list $B$K;XDj$5(B ;; $B$l$?(B char $B$G!"@\F,<-!"@\Hx<-$NF~NO$r2DG=$K$9$k$?$a$N=hM}!#(B (let ((strlist (mapcar 'char-to-string skk-special-midashi-char-list)) ;; Use default-value for Viper. It localizes minor-mode-map-alist. (map (cdr (assq 'skk-j-mode (default-value 'minor-mode-map-alist)))) str ) (while strlist (setq str (car strlist)) (if (not (eq 'skk-set-henkan-point (lookup-key map str))) (define-key map str 'skk-set-henkan-point) ) (setq strlist (cdr strlist)) ))) (defun skk-setup-delete-selection-mode () ;; Delete Selection $B%b!<%I$,(B SKK $B$r;H$C$?F|K\8lF~NO$KBP$7$F$b5!G=$9$k$h$&$K(B ;; $B%;%C%H%"%C%W$9$k!#(B (if (and (featurep 'delsel) (not (get 'skk-insert-a 'delete-selection)) ) (progn ;;(put 'skk-delete-backward-char 'delete-selection 'supersede) (mapcar (function (lambda (func) (put func 'delete-selection t))) '(skk-input-by-code-or-menu skk-insert-comma skk-insert-period skk-kana-input ;;skk-newline ;;skk-set-henkan-point-subr skk-set-henkan-point skk-self-insert skk-today ))))) (defun skk-setup-auto-paren () ;; skk-auto-paren-string-alist $B$NCf$+$i!"(Bskk-special-midashi-char-list ;; $B$NMWAG$K4XO"$9$k$b$N$r<h$j=|$/!#(B ;; $B$^$?!"(Bskk-auto-paren-string-alist $B$N3FMWAG$N(B car $B$NJ8;z$,(B ascii char $B$G$"(B ;; $B$k>l9g$O!"(Bskk-input-vector $B$N3:Ev$N>l=j(B ($B$=$N(B ascii char $B$rI>2A$7$??t$,%$(B ;; $B%s%G%/%9$H$J$k(B) $B$K$=$NJ8;z$r=q$-9~$`(B ($BK\Mh$O(B ascii char $B$O(B ;; skk-input-vector $B$K=q$/I,MW$,$J$$$,!"(Bskk-auto-paren-string-alist $B$K;XDj$5(B ;; $B$l$?BP$K$J$kJ8;z$NA^F~$N$?$a$K$O!"%-!<$H$J$kJ8;z$r=q$$$F$*$/I,MW$,$"$k(B)$B!#(B (if (null skk-auto-paren-string-alist) nil (let ((strlist (mapcar 'char-to-string skk-special-midashi-char-list)) cell str alist ) (while strlist (setq cell (assoc (car strlist) skk-auto-paren-string-alist)) (if cell ;; assoc $B$GCj=P$7$?(B cell $B$rD>@\;XDj$7$F$$$k$N$G!"(Bdelete $B$G$J$/$H$bBg(B ;; $B>fIW!#(B (setq skk-auto-paren-string-alist (delq cell skk-auto-paren-string-alist) )) (setq strlist (cdr strlist)) ) (setq alist skk-auto-paren-string-alist) (while alist (setq str (car (car alist))) (if (and (eq (string-width str) 1) ;; $B4{$K%f!<%6!<$,;XDj$7$F$$$k>l9g$O!"$I$s$JJ8;z$G$"$C$F$b(B ($B%-!<(B ;; $B$H$J$kJ8;z$H$O0c$C$F$$$F$b(B)$B!"2?$b$7$J$$!#(B (not (aref skk-input-vector (string-to-char str))) ) (aset skk-input-vector (string-to-char str) str) ) (setq alist (cdr alist)) )))) (defun skk-adjust-user-option () ;; $BN>N)$G$-$J$$%*%W%7%g%s$ND4@0$r9T$J$&!#(B (if skk-process-okuri-early ;; skk-process-okuri-early $B$NCM$,(B non-nil $B$G$"$k$H$-$K2<5-$NCM$,(B non-nil ;; $B$G$"$l$P@5>o$KF0$+$J$$$N$G$3$NJQ?t$NM%@h=g0L$r9b$/$7$?!#(B (setq skk-kakutei-early nil skk-auto-okuri-process nil skk-henkan-okuri-strictly nil skk-henkan-strict-okuri-precedence nil))) (defun skk-try-completion (arg) "$B"&%b!<%I$G8+=P$78l$NJd40$r9T$&!#(B $B$=$l0J30$N%b!<%I$G$O!"%*%j%8%J%k$N%-!<3d$jIU$1$N%3%^%s%I$r%(%_%e%l!<%H$9$k!#(B" (interactive "P") (if (and skk-henkan-on (not skk-henkan-active)) (progn (setq this-command 'skk-completion) (skk-completion (not (eq last-command 'skk-completion))) ) (skk-emulate-original-map arg) )) (defun skk-ascii-mode () "SKK $B$N%b!<%I$r(B ascii $B%b!<%I$KJQ99$9$k!#(B" (interactive) (skk-kakutei) (skk-ascii-mode-on) ) (defun skk-zenkaku-mode () "SKK $B$N%b!<%I$rA43Q1Q;zF~NO%b!<%I$KJQ99$9$k!#(B" (interactive) (skk-kakutei) (skk-zenkaku-mode-on) ) (defun skk-abbrev-mode () "ascii $BJ8;z$r%-!<$K$7$?JQ49$r9T$&$?$a$NF~NO%b!<%I!#(B" (interactive "*") (if (and skk-henkan-on (not skk-henkan-active)) (skk-error "$B4{$K"&%b!<%I$KF~$C$F$$$^$9(B" "Already in $B"&(B mode") ) (skk-kakutei) (skk-set-henkan-point-subr) (skk-abbrev-mode-on) ) (defun skk-toggle-kana (arg) "$B$R$i$,$J%b!<%I$H%+%?%+%J%b!<%I$r%H%0%k$G@Z$jBX$($k!#(B $B%+%?%+%J%b!<%I$GJQ49$r9T$J$&$H$-$K!"Aw$j2>L>$r%+%?%+%J$KJQ49$7$?$/$J$$$H$-$O!"(B skk-convert-okurigana-into-katakana $B$NCM$r(B non-nil $B$K$9$k!#(B $B"&%b!<%I$G$O!"(Bskk-henkan-start-point ($B"&$ND>8e(B) $B$H%+!<%=%k$N4V$NJ8;zNs$r(B $B$R$i$,$J(B <=> $B%+%?%+%J(B $BA43Q1Q?t;z(B <=> ascii $B$N$h$&$KJQ49$9$k!#(B" (interactive "P") (cond ((and skk-henkan-on (not skk-henkan-active)) (let (char) (skk-save-point (goto-char skk-henkan-start-point) ;; "$B!<(B" $B$G$OJ8;z<oJL$,H=JL$G$-$J$$$N$G!"%]%$%s%H$r?J$a$k!#(B (while (looking-at "$B!<(B") (skk-forward-char 1) ) (setq char (skk-what-char-type)) ) (skk-set-marker skk-henkan-end-point (point)) (cond ((eq char 'hirakana) (skk-katakana-henkan arg) ) ((eq char 'katakana) (skk-hiragana-henkan arg) ) ((eq char 'ascii) (skk-zenkaku-henkan arg) ) ((eq char 'zenkaku) (skk-ascii-henkan arg) )))) ((and (skk-in-minibuffer-p) (not skk-j-mode)) ;; $B%_%K%P%C%U%!$X$N=iFMF~;~!#(B (skk-j-mode-on) ) (t (setq skk-katakana (not skk-katakana))) ) (skk-kakutei) (if skk-katakana (progn (setq skk-input-mode-string skk-katakana-mode-string) (skk-set-cursor-color skk-katakana-cursor-color) ) (setq skk-input-mode-string skk-hirakana-mode-string) (skk-set-cursor-color skk-hirakana-cursor-color) ) (force-mode-line-update) ) (defun skk-misc-for-picture () ;; picture-mode $B$XF~$C$?$H$-$K(B SKK $B$r@5>o$KF0$+$9$?$a$KI,MW$J=hM}$r9T$J$&!#(B ;; edit-picture-hook $B$K(B add-hook $B$7$F;HMQ$9$k!#(B ;; ;; picture-mode $B$G(B SKK $B$r;HMQ$74A;zF~NO$r$7$?>l9g$K!"(BBS $B$GA43QJ8;z$,>C$;$J$$(B ;; $B$N$O!"(BSKK $B$NIT6q9g$G$O$J$/!"(Bpicture.el $B$NLdBj(B (move-to-column-force $B4X?t(B ;; $B$NCf$G;HMQ$7$F$$$k(B move-to-column $B$GA43QJ8;z$rL5;k$7$?%+%i%`?t$,M?$($i$l(B ;; $B$?$H$-$K%+!<%=%k0\F0$,$G$-$J$$$+$i(B) $B$G$"$k!#>C$7$?$$J8;z$K%]%$%s%H$r9g$o(B ;; $B$;!"(BC-c C-d $B$G0lJ8;z$E$D>C$9$7$+J}K!$O$J$$!#(B (if skk-mode ;; SKK $B5/F0A0$N>uBV$KLa$9!#(B (skk-kill-local-variables) )) (defun skk-kill-local-variables () ;; SKK $B4XO"$N%P%C%U%!%m!<%+%kJQ?t$rL58z$K$9$k!#(B ;; $B4{B8$N%P%C%U%!$r(B picture mode $B$K$7$?$H$-!"(Bpicture-mode $B4X?t$O(B ;; kill-all-local-variables $B4X?t$r8F$P$J$$$N$G!"(BSKK $B4XO"$N%P%C%U%!%m!<%+%k(B ;; $BJQ?t$,85$N%P%C%U%!$NCM$N$^$^$K$J$C$F$7$^$&!#$=$3$G!"(Bpicture mode $B$KF~$C$?(B ;; $B$H$-$K%U%C%/$rMxMQ$7$F$3$l$i$N%P%C%U%!%m!<%+%kJQ?t$r(B kill $B$9$k!#(B ;; RMS $B$O(B picture-mode $B$G(B kill-all-local-variables $B4X?t$r8F$P$J$$$N$O!"%P%0(B ;; $B$G$O$J$$!"$H8@$C$F$$$?!#(B (if (eq (nth 1 mode-line-format) 'skk-mode-line) (setq mode-line-format (delq 'skk-mode-line mode-line-format) )) (let ((lv (buffer-local-variables)) v vstr ) (while lv (setq v (car (car lv)) lv (cdr lv) vstr (prin1-to-string v) ) (if (and (> (length vstr) 3) (string= "skk-" (substring vstr 0 4)) ) (kill-local-variable v) )))) ;;;; kana inputting functions (defun skk-insert (table) ;; skk-prefix $B$r%-!<$H$7$F!"O"A[%j%9%H(B TABLE $B$+$iJ8;zNs$rC5$7$FF~NO$9$k!#(B (let ((char (assoc skk-prefix table))) (if (null char) (progn ;; skk-prefix not found in the table (setq skk-prefix "") (skk-unread-event (skk-character-to-event last-command-char)) ) (if (and skk-henkan-active skk-kakutei-early (not skk-process-okuri-early) ) (skk-kakutei) ) (skk-insert-str (if skk-katakana (nthcdr 2 char) (nth 1 char))) (if skk-okurigana (skk-set-okurigana) (setq skk-prefix "") ) (if (not skk-henkan-on) (skk-do-auto-fill)) ))) (defun skk-insert-str (str) ;; skk-insert $B$N%5%V%k!<%A%s!#(BSTR $B$rA^F~$9$k!#I,MW$G$"$l$P(B ;; self-insert-after-hook $B$r%3!<%k$9$k!#(Boverwrite-mode $B$G$"$l$P!"E,@Z$K>e=q$-(B ;; $B$r9T$&!#$3$N4X?t$O!"(Bskk-vip.el $B$G>e=q$-$5$l$k(B (skk-cancel-undo-boundary) (skk-insert-and-inherit str) (if (and skk-henkan-on (not skk-henkan-active)) (if (and skk-auto-start-henkan (not skk-okurigana)) (skk-auto-start-henkan str) ) (if (and (boundp 'self-insert-after-hook) self-insert-after-hook) (funcall self-insert-after-hook (- (point) (length str)) (point)) ) (if overwrite-mode (skk-del-char-with-pad (skk-ovwrt-len (string-width str))) ))) (defun skk-auto-start-henkan (str) ;; skk-auto-start-henkan-keyword-list $B$NMWAG$NJ8;zNs$rA^F~$7$?$H$-$K<+F0E*$K(B ;; ($B%9%Z!<%9$rBG80$7$J$/$H$b(B) $BJQ49$r3+;O$9$k!#%(!<!_%$%=%U%H<R$N(B MSDOS $BMQ(B $B$N(B ;; FEP$B!"(BWX2+ $BIw!#(B (if (member str skk-auto-start-henkan-keyword-list) (skk-save-point (skk-backward-char 1) (if (> (point) skk-henkan-start-point) (let ((skk-prefix "")) (skk-start-henkan (prefix-numeric-value current-prefix-arg)) ))))) (defun skk-ovwrt-len (len) ;; $B>e=q$-$7$FNI$$D9$5$rJV$9!#(B ;; $B$3$N4X?t$O!"(Bskk-vip.el $B$G>e=q$-$5$l$k(B (<(skk-vip.el/skk-ovwrt-len)>)$B!#(B (min (string-width (skk-buffer-substring (point) (skk-save-point (end-of-line) (point))) ) len )) (defun skk-del-char-with-pad (length) ;; $BD9$5(B LENGTH $B$NJ8;z$r>C5n$9$k!#D4@0$N$?$a!"I,MW$G$"$l$P!"KvHx$K%9%Z!<%9$r(B ;; $BA^F~$9$k!#(B (let ((p (point)) (len 0)) (while (< len length) (forward-char 1) (setq len (string-width (skk-buffer-substring (point) p)))) (delete-region p (point)) (or (eq length len) (progn (insert " ") (backward-char 1))))) (defun skk-cancel-undo-boundary () ;; skk-insert-[aiue], skk-insert-comma, skk-insert-period, skk-kana-input, ;; skk-self-insert, skk-set-henkan-point, skk-zenkaku-insert $B$GO"B3$7$FF~NO(B ;; $B$5$l$?(B 20 $BJ8;z$r(B 1 $B2s$N%"%s%I%%$NBP>]$H$9$k!#(B`20' $B$O(B keyboard.c $B$KDj$a$i(B ;; $B$l$?%^%8%C%/%J%s%P!<!#(BMule-2.3 $BE:IU$N(B egg.el $B$r;29M$K$7$?!#(B (if (and (< skk-self-insert-non-undo-count 20) (memq last-command '( ;; SKK abbrev $B%b!<%I$G$O!"%"%9%-!<J8;zF~NO$,(B Emacs $B%*%j%8%J(B ;; $B%k$N(B self-insert-command $B$K$h$j9T$J$o$l$F$$$k$N$G!"(B ;; skk-self-insert-non-undo-count $B$r%$%s%/%j%a%s%H$9$k$3$H(B ;; $B$,$G$-$J$$$N$G!"%"%s%I%%$r%(%_%e%l!<%H$G$-$J$$!#(B ;; $B$7$+$b!"%+%s%^$d%T%j%*%I$rA^F~$7$?;~E@$G!"(B ;; skk-abbrev-comma $B$d(B skk-abbrev-period $B$r;H$&$3$H$K$J$k$N(B ;; $B$G!"%*%j%8%J%k$N%"%s%I%%$N5!G=$bB;$J$C$F$7$^$&!#8=<BLdBj(B ;; $B$H$7$F$O!"(BSKK abbrev $B%b!<%I$O>JN,7A$H$7$F$N8+=P$78l$rA^(B ;; $BF~$9$k$?$a$N%b!<%I$G$"$k$N$G!"D9$$8+=P$78l$rA^F~$9$k$3$H(B ;; $B$O$"$^$j$J$/!"LdBj$b>.$5$$$H9M$($i$l$k!#(B ;;skk-abbrev-comma ;;skk-abbrev-period skk-insert-comma skk-insert-period skk-kana-input skk-self-insert ;;skk-set-henkan-point skk-zenkaku-insert ))) (progn (cancel-undo-boundary) (setq skk-self-insert-non-undo-count (1+ skk-self-insert-non-undo-count) )) (setq skk-self-insert-non-undo-count 1) )) (defun skk-get-next-rule (prefix) (or (if (and (boundp 'skk-rom-kana-rule-tree) skk-rom-kana-rule-tree ) (skk-assoc-tree prefix skk-rom-kana-rule-tree ) (cdr (assoc prefix skk-rom-kana-rule-list)) ) (if (and (boundp 'skk-standard-rom-kana-rule-tree) skk-standard-rom-kana-rule-tree) (skk-assoc-tree prefix skk-standard-rom-kana-rule-tree ) (cdr (assoc prefix skk-standard-rom-kana-rule-list)) ))) (defun skk-get-fallback-rule (prefix) (cdr (assoc prefix skk-fallback-rule-alist)) ) (defun skk-check-postfix-rule (last) (let ((l skk-postfix-rule-alist) ret) (while l (if (eq (string-to-char last) (string-to-char (car (car l)))) (setq ret (cons (car l) ret)) ) (setq l (cdr l)) ) ret )) (defun skk-get-postfix-rule (prefix &optional alist) (let ((alist (or alist skk-postfix-rule-alist))) (cdr (assoc prefix alist)) )) (defun skk-kana-input () "$B$+$JJ8;z$NF~NO$r9T$&%k!<%A%s!#(B" (interactive "*") (combine-after-change-calls (if (and skk-henkan-active skk-kakutei-early (not skk-process-okuri-early) ) (skk-kakutei) ) (let ((echo-keystrokes 0) ;; don't echo key strokes in the minibuffer. last-input last-kana ) (if skk-isearch-message (skk-isearch-message)) (setq skk-prefix "") (skk-set-marker skk-kana-start-point (point)) (skk-unread-event (skk-character-to-event last-command-char)) (condition-case nil (let ((cont t) prev ) (while cont (let* ((raw-event (skk-read-event)) ;; ascii equivallence of raw-event or nil. (r-char (skk-event-to-character raw-event)) input prefix next low ) (if skk-debug (message "%S" r-char)) (if r-char (progn (if (and (or (and skk-henkan-on (not skk-henkan-active) (= skk-henkan-start-point skk-kana-start-point )) (and skk-okurigana (= (1+ skk-okurigana-start-point) ;; "*" skk-kana-start-point ))) (not (eq r-char (skk-downcase r-char))) ) ;; this case takes care of the rare case where ;; one types two characters in upper case ;; consequtively. For example, one sometimes ;; types "TE" when one should type "Te" (setq r-char (skk-downcase r-char) raw-event (skk-character-to-event r-char) )) (setq input (skk-char-to-string r-char) last-input input prefix (concat skk-prefix input) next (skk-get-next-rule prefix) ))) (if skk-debug (message "%S" next)) (if skk-isearch-message (skk-isearch-message)) (if next (let ((newprefix (car next)) (output (nth 1 next)) ) (setq low (nth 2 next)) (skk-erase-prefix) (if output (progn (setq last-kana (if skk-katakana (car output) (cdr output))) ;; XXX for isearch (skk-insert-str last-kana) (if skk-okurigana (skk-set-okurigana)))) (if newprefix (progn (skk-set-marker skk-kana-start-point (point)) (skk-insert-prefix newprefix) (setq skk-prefix newprefix)) (setq cont nil skk-prefix "" ))) (let ((type (skk-kana-input-char-type (or r-char (skk-event-to-character raw-event))))) (cond ((eq type 5) ; delete prefix (setq cont nil) (if skk-okurigana (progn (skk-delete-okuri-mark) (skk-set-marker skk-kana-start-point skk-okurigana-start-point ))) (or (string= skk-prefix "") (if skk-echo (skk-erase-prefix) (skk-message "$B%W%l%U%#%C%/%9(B \"%s\" $B$r>C$7$^$7$?(B" "Deleted prefix \"%s\"" skk-prefix ))) (setq skk-prefix "") ) (t (if (string= skk-prefix "") (progn (skk-message "$BE,@Z$J%m!<%^;z$+$JJQ49%k!<%k$,$"$j$^$;$s!#(B" "No suitable rule." ) (skk-set-marker skk-kana-start-point nil) (setq cont nil) ) (skk-erase-prefix) (let ((output (skk-get-fallback-rule skk-prefix))) (if output (progn (setq last-kana (if skk-katakana (car output) (cdr output))) ;; XXX for isearch (skk-insert-str last-kana) (if skk-okurigana (skk-set-okurigana)) )) (skk-unread-event raw-event) (skk-set-marker skk-kana-start-point nil) (setq skk-prefix "") (setq cont nil) )) ))) ) ))) (quit (setq skk-prefix "") (skk-erase-prefix) (skk-set-marker skk-kana-start-point nil) (keyboard-quit) )) (let ((postfix-rules (skk-check-postfix-rule last-input))) (if postfix-rules (progn (let ((prefix last-kana)) (if skk-isearch-message (skk-isearch-message))) (let* ((raw-event (skk-read-event)) ;; ascii equivallence of raw-event or nil. (r-char (skk-event-to-character raw-event)) ) (if r-char (let ((new-char (skk-get-postfix-rule (concat last-input (skk-char-to-string r-char)) postfix-rules )) prefix ) (if new-char (progn (setq skk-prefix (skk-char-to-string r-char)) (skk-set-marker skk-kana-start-point (point)) (skk-insert-prefix skk-prefix) ;; XXX for isearch (setq prefix (concat last-kana skk-prefix)) (if skk-isearch-message (skk-isearch-message)) (condition-case nil (let* ((raw-event2 (skk-read-event)) (r-char2 (skk-event-to-character raw-event2)) (type (skk-kana-input-char-type r-char2)) (prefix (concat skk-prefix (skk-char-to-string r-char2))) (next (skk-get-next-rule prefix) )) (cond (next ;; rule $B$,$"$k!#(B (setq skk-prefix "") (skk-erase-prefix) (skk-set-marker skk-kana-start-point nil) (skk-unread-event raw-event2) (skk-unread-event raw-event) ) ((eq type 5) ;; delete (setq skk-prefix "") (skk-erase-prefix) (skk-set-marker skk-kana-start-point nil) ) (t (skk-erase-prefix) (skk-insert-str (if skk-katakana (car new-char) (cdr new-char))) (skk-unread-event raw-event2) ))) (quit (setq skk-prefix "") (skk-erase-prefix) (skk-set-marker skk-kana-start-point nil) (skk-unread-event raw-event) (keyboard-quit) ))) (skk-unread-event raw-event) )) (skk-unread-event raw-event) ))))) ))) (defun skk-translate-okuri-char (okurigana) (if skk-okuri-char-alist (cdr (assoc (skk-substring-head-character okurigana) skk-okuri-char-alist)) )) (defun skk-set-okurigana () ;; $B8+=P$78l$+$i(B skk-henkan-okurigana, skk-henkan-key $B$N3FCM$r%;%C%H$9$k!#(B (if skk-katakana (skk-hiragana-region skk-henkan-start-point (point)) ) (skk-set-marker skk-henkan-end-point skk-okurigana-start-point) ;; just in case (skk-save-point (goto-char skk-okurigana-start-point) (if (not (eq (following-char) ?*)) ;?* (insert "*") )) (setq skk-henkan-okurigana (skk-buffer-substring (1+ skk-okurigana-start-point) (point) )) (setq skk-henkan-key (concat (skk-buffer-substring skk-henkan-start-point skk-henkan-end-point ) (or (skk-translate-okuri-char skk-henkan-okurigana) skk-okuri-char )) skk-prefix "" ) (if skk-debug (message "%S %S %S" skk-henkan-okurigana skk-henkan-key skk-okuri-char) ) (delete-region skk-okurigana-start-point (1+ skk-okurigana-start-point)) (setq skk-henkan-count 0) (skk-henkan) (setq skk-okurigana nil) (cancel-undo-boundary) ) ;;;; other inputting functions (defun skk-insert-period (count) "$B8+=P$7$NJd40$r9T$C$F$$$k:GCf$G$"$l$P!"<!$N8uJd$rI=<($9$k!#(B $BJd40$ND>8e$G$J$1$l$P!"(B\".\" $B$rA^F~$9$k!#(B SKK abbrev $B%b!<%I$G$O!"(Bskk-abbrev-period $B4X?t$r;HMQ$9$k$3$H!#(B" (interactive "*P") (if (and (eq last-command 'skk-completion) (not skk-henkan-active)) (progn (setq this-command 'skk-completion) (skk-completion nil) ) (skk-self-insert count) (setq skk-last-henkan-result nil) (skk-set-marker skk-last-henkan-point nil) )) (defun skk-insert-comma (count) "$B8+=P$7$NJd40$r9T$C$F$$$k:GCf$G$"$l$P!"D>A0$N8uJd$rI=<($9$k!#(B $BJd40$ND>8e$G$J$1$l$P!"(B\",\" $B$rA^F~$9$k!#(B SKK abbrev $B%b!<%I$G$O!"(Bskk-abbrev-comma $B4X?t$r;HMQ$9$k$3$H!#(B" (interactive "*P") (if (and (eq last-command 'skk-completion) (not skk-henkan-active)) (skk-previous-completion) (skk-self-insert count) )) (defun skk-abbrev-period (arg) "SKK abbrev $B%b!<%I$G8+=P$7$NJd40$r9T$C$F$$$k:GCf$G$"$l$P!"<!$N8uJd$rI=<($9$k!#(B $BJd40$ND>8e$G$J$1$l$P!"%*%j%8%J%k$N%-!<3d$jIU$1$N%3%^%s%I$r%(%_%e%l!<%H$9$k!#(B SKK abbrev $B%b!<%I0J30$G$O!"(Bskk-insert-period $B4X?t$r;HMQ$9$k$3$H!#(B" (interactive "*P") (if (eq last-command 'skk-completion) (progn (setq this-command 'skk-completion) (skk-completion nil) ) (skk-emulate-original-map arg) )) (defun skk-abbrev-comma (arg) "SKK abbrev $B%b!<%I$G8+=P$7$NJd40$r9T$C$F$$$k:GCf$G$"$l$P!"D>A0$N8uJd$rI=<($9$k!#(B $BJd40$ND>8e$G$J$1$l$P!"%*%j%8%J%k$N%-!<3d$jIU$1$N%3%^%s%I$r%(%_%e%l!<%H$9$k!#(B SKK abbrev $B%b!<%I0J30$G$O!"(Bskk-insert-comma $B4X?t$r;HMQ$9$k$3$H!#(B" (interactive "*P") (if (eq last-command 'skk-completion) (skk-previous-completion) (skk-emulate-original-map arg) )) (defun skk-self-insert (arg) "$B$R$i$,$J!"%+%?%+%J!"$b$7$/$O(B ascii $BJ8;z$r%+%l%s%H%P%C%U%!$KA^F~$9$k!#(B $B$R$i$,$J%b!<%I$b$7$/$O%+%?%+%J%b!<%I$G$O!"(Bskk-input-vector $B$r%F!<%V%k$H$7$F!"(B $B:G8e$KF~NO$5$l$?%-!<$KBP1~$9$kJ8;z$rA^F~$9$k!#(B ascii $B%b!<%I$G$O!"%-!<F~NO$r$=$N$^$^A^F~$9$k!#(B skk-auto-insert-paren $B$NCM$,(B non-nil $B$N>l9g$G!"(Bskk-auto-paren-string-alist $B$K(B $BBP1~$9$kJ8;zNs$,$"$k$H$-$O!"$=$NBP1~$9$kJ8;zNs(B ($B$+$C$3N`(B) $B$r<+F0E*$KA^F~$9$k!#(B" (interactive "*P") (let ((str (aref skk-input-vector last-command-char))) ;; Overlay $B$r>C$9$?$a$K@h$K3NDj$9$k!#(B (if skk-henkan-active (skk-kakutei)) (if (not str) (skk-emulate-original-map arg) (let* ((count (prefix-numeric-value arg)) (count2 count) (pair-str (and skk-auto-insert-paren (cdr (assoc str skk-auto-paren-string-alist)) )) (pair-str-inserted 0) ) (while (> count 0) (skk-insert-str str) (setq count (1- count)) ) (if (not pair-str) nil (while (> count2 0) (if (not (string= pair-str (char-to-string (following-char)))) (progn (setq pair-str-inserted (1+ pair-str-inserted)) (skk-insert-str pair-str) )) (setq count2 (1- count2)) ) (if (not (eq pair-str-inserted 0)) (backward-char pair-str-inserted) )))))) (defun skk-zenkaku-insert (arg) "$BA41QJ8;z$r%+%l%s%H%P%C%U%!$KA^F~$9$k!#(B skk-zenkaku-vector $B$r%F!<%V%k$H$7$F!":G8e$KF~NO$5$l$?%-!<$KBP1~$9$kJ8;z$rA^F~(B $B$9$k!#(B skk-auto-insert-paren $B$NCM$,(B non-nil $B$N>l9g$G!"(Bskk-auto-paren-string-alist $B$K(B $BBP1~$9$kJ8;zNs$,$"$k$H$-$O!"$=$NBP1~$9$kJ8;zNs(B ($B$+$C$3N`(B) $B$r<+F0E*$KA^F~$9$k!#(B" (interactive "*p") (let* ((str (aref skk-zenkaku-vector last-command-char)) (arg2 arg) (pair-str (and skk-auto-insert-paren (cdr (assoc str skk-auto-paren-string-alist)) )) (pair-str-inserted 0) ) (while (> arg 0) (skk-insert-str str) (setq arg (1- arg)) ) (if (not pair-str) nil (while (> arg2 0) (if (not (string= pair-str (char-to-string (following-char)))) (progn (setq pair-str-inserted (1+ pair-str-inserted)) (skk-insert-str pair-str) )) (setq arg2 (1- arg2)) ) (if (not (eq pair-str-inserted 0)) (backward-char pair-str-inserted) )))) ;;;; henkan routines (defun skk-henkan () ;; $B%+%J$r4A;zJQ49$9$k%a%$%s%k!<%A%s!#(B (let (mark new-word kakutei-henkan) (if (string= skk-henkan-key "") (skk-kakutei) (if (not (eobp)) ;; we use mark to go back to the correct position after henkan (setq mark (skk-save-point (forward-char 1) (point-marker))) ) (if (not skk-henkan-active) (progn (skk-change-marker) (setq skk-current-search-prog-list skk-search-prog-list) )) ;; skk-henkan-1 $B$NCf$+$i%3!<%k$5$l$k(B skk-henkan-show-candidate $B$+$i(B throw ;; $B$5$l$k!#$3$3$G%-%c%C%A$7$?>l9g$O!"(B?x $B$,%9%H%j!<%`$KLa$5$l$F$$$k$N$G!"(B ;; $B$3$N4X?t$r=P$F!"(Bskk-previous-candidates $B$X$f$/!#(B (catch 'unread (setq new-word (or (skk-henkan-1) (skk-henkan-in-minibuff)) kakutei-henkan skk-kakutei-flag ) (if new-word (skk-insert-new-word new-word) )) (if mark (progn (goto-char mark) ;; $B;2>H$5$l$F$$$J$$%^!<%+!<$O!"(BGarbage Collection $B$,%3!<%k$5$l$?$H(B ;; $B$-$K2s<}$5$l$k$,!"$=$l$^$G$N4V!"%F%-%9%H$N$I$3$+$r;X$7$F$$$k$H!"(B ;; $B%F%-%9%H$N%"%C%W%G!<%H$N:]$K$=$N%^!<%+!<CM$r99?7$9$kI,MW$,$"$k(B ;; $B$N$G!"$I$3$b;X$5$J$$$h$&$K$9$k!#(B (skk-set-marker mark nil) (backward-char 1) ) (goto-char (point-max)) ) (if kakutei-henkan ;; $B3NDj$7$F$bNI$$(B ($B3NDj<-=q$K8uJd$r8+$D$1$?>l9g!"<-(B ;; $B=qEPO?$r9T$C$?>l9g!"$"$k$$$O%_%K%P%C%U%!$+$i8uJd(B ;; $B$rA*Br$7$?>l9g(B) $B$N$J$i!"(BOverlay $B$K$h$kI=<(JQ99$;(B ;; $B$:$K$=$N$^$^3NDj!#(B (skk-kakutei (if (skk-numeric-p) (skk-get-simply-current-candidate 'noconv) new-word ))) ))) (defun skk-henkan-1 () ;; skk-henkan $B$N%5%V%k!<%A%s!#(B (let (new-word) (if (eq skk-henkan-count 0) (progn (if (and (eq last-command 'skk-undo-kakutei-henkan) (eq (car (car skk-current-search-prog-list)) 'skk-search-kakutei-jisyo-file )) ;; in this case, we should not search kakutei jisyo. (setq skk-current-search-prog-list (cdr skk-current-search-prog-list) )) (setq skk-henkan-list (skk-search)) (if (null skk-henkan-list) nil (setq new-word (skk-get-current-candidate)) (if skk-kakutei-flag ;; found the unique candidate in kakutei jisyo (setq this-command 'skk-kakutei-henkan skk-last-kakutei-henkan-key skk-henkan-key )))) ;; $BJQ492s?t$,(B 1 $B0J>e$N$H$-!#(B (setq new-word (skk-get-current-candidate)) (if (not new-word) ;; $B?7$7$$8uJd$r8+$D$1$k$+!"(Bskk-current-search-prog-list $B$,6u$K$J(B ;; $B$k$^$G(B skk-search $B$rO"B3$7$F%3!<%k$9$k!#(B (while (and skk-current-search-prog-list (not new-word)) (setq skk-henkan-list (skk-nunion skk-henkan-list (skk-search)) new-word (skk-get-current-candidate) ))) (if (and new-word (> skk-henkan-count 3)) ;; show candidates in minibuffer (setq new-word (skk-henkan-show-candidates) ))) new-word )) ;;;###skk-autoload (defun skk-get-current-candidate () (if (skk-numeric-p) (let (val) (skk-uniq-numerals) (setq val (skk-numeric-convert (skk-get-simply-current-candidate))) (if (not skk-recompute-numerals-key) val (skk-uniq-numerals) (skk-numeric-convert (skk-get-simply-current-candidate)) )) (skk-get-simply-current-candidate) )) (defun skk-henkan-show-candidates () ;; $B%_%K%P%C%U%!$GJQ49$7$?8uJd72$rI=<($9$k!#(B (skk-save-point (let* ((candidate-keys ; $BI=<(MQ$N%-!<%j%9%H(B (mapcar (function (lambda (c) (char-to-string (upcase c)))) skk-henkan-show-candidates-keys )) key-num-alist ; $B8uJdA*BrMQ$NO"A[%j%9%H(B (key-num-alist1 ; key-num-alist $B$rAH$_N)$F$k$?$a$N:n6HMQO"A[%j%9%H!#(B (let ((count 6)) (mapcar (function (lambda (key) (prog1 (cons key count) (setq count (1- count)) ))) ;; $B5U$5$^$K$7$F$*$$$F!"I=<($9$k8uJd$N?t$,>/$J$+$C$?$i@h(B ;; $BF,$+$i4v$D$+:o$k!#(B (reverse skk-henkan-show-candidates-keys) ))) (loop 0) inhibit-quit henkan-list new-one str reverse n ) ;; $BG0$N$?$a!#(Bskk-previous-candidate $B$r;2>H!#(B (if skk-use-face (skk-henkan-face-off)) (delete-region skk-henkan-start-point skk-henkan-end-point) (while loop (if str (let (message-log-max) (message str) ) (cond (reverse (setq loop (1- loop) henkan-list (nthcdr (+ 4 (* loop 7)) skk-henkan-list) reverse nil )) (skk-exit-show-candidates ;; $B8uJd$,?T$-$F$7$^$C$F!"(Bskk-henkan-show-candidates -> ;; skk-henkan-in-minibuff -> skk-henkan ;; -> skk-henkan-show-candidates $B$N=g$G!":F$S$3$N4X?t$,8F$P$l(B ;; $B$?$H$-$O!"$3$3$G(B henkan-list $B$H(B loop $B$r7W;;$9$k!#(B (setq henkan-list (nthcdr skk-henkan-count skk-henkan-list) loop (car skk-exit-show-candidates) skk-exit-show-candidates nil )) (t ;; skk-henkan-show-candidates-keys $B$N:G=*$N%-!<$KBP1~$9$k8uJd(B ;; $B$,=P$F$/$k$^$G%5!<%A$rB3$1$k!#(B (if (skk-numeric-p) (skk-uniq-numerals)) (while (and skk-current-search-prog-list (null (nthcdr (+ 11 (* loop 7)) skk-henkan-list)) ) (setq skk-henkan-list (skk-nunion skk-henkan-list (skk-search)) ) (if (skk-numeric-p) (skk-uniq-numerals) )) (if (skk-numeric-p) (skk-numeric-convert*7) ) (setq henkan-list (nthcdr (+ 4 (* loop 7)) skk-henkan-list )))) (setq n (skk-henkan-show-candidate-subr candidate-keys henkan-list)) ) (if (> n 0) (condition-case nil (let* ((event (skk-read-event)) (char (skk-event-to-character event)) num ) (if (null char) (skk-unread-event event) (setq key-num-alist (nthcdr (- 7 n) key-num-alist1)) (if (null key-num-alist) nil (setq num (cdr (or (assq char key-num-alist) (if (skk-lower-case-p char) (assq (upcase char) key-num-alist) (assq (downcase char) key-num-alist) ))))) (cond (num (setq new-one (nth num henkan-list) skk-henkan-count (+ 4 (* loop 7) num) skk-kakutei-flag t loop nil str nil )) ((eq char (skk-int-char 32)) ; space (if (or skk-current-search-prog-list (nthcdr 7 henkan-list) ) (setq loop (1+ loop) str nil ) ;; $B8uJd$,?T$-$?!#$3$N4X?t$+$iH4$1$k!#(B (let ((last-showed-index (+ 4 (* loop 7)))) (setq skk-exit-show-candidates ;; cdr $BIt$O!"<-=qEPO?$KF~$kA0$K:G8e$KI=<($7(B ;; $B$?8uJd72$NCf$G:G=i$N8uJd$r;X$9%$%s%G%/%9(B (cons loop last-showed-index) ) ;; $B<-=qEPO?$KF~$k!#(Bskk-henkan-count $B$O(B ;; skk-henkan-list $B$N:G8e$N8uJd$N<!(B ($BB8:_$7$J$$(B ;; --- nil )$B$r;X$9!#(B (setq skk-henkan-count (+ last-showed-index n) loop nil str nil )))) ((eq char skk-previous-candidate-char) ; ?x (if (eq loop 0) ;; skk-henkan-show-candidates $B$r8F$VA0$N>uBV$KLa(B ;; $B$9!#(B (progn (setq skk-henkan-count 4) (skk-unread-event (skk-character-to-event skk-previous-candidate-char)) ;; skk-henkan $B$^$G0l5$$K(B throw $B$9$k!#(B (throw 'unread nil) ) ;; $B0l$DA0$N8uJd72$r%(%3!<%(%j%"$KI=<($9$k!#(B (setq reverse t str nil ))) (t (skk-message "\"%c\" $B$OM-8z$J%-!<$G$O$"$j$^$;$s!*(B" "\"%c\" is not valid here!" char ) (sit-for 1) )))) (quit ;; skk-previous-candidate $B$X(B (setq skk-henkan-count 0) (skk-unread-event (skk-character-to-event skk-previous-candidate-char)) ;; skk-henkan $B$^$G0l5$$K(B throw $B$9$k!#(B (throw 'unread nil) )))) ; end of while loop (if (consp new-one) (cdr new-one) new-one )))) (defun skk-henkan-show-candidate-subr (keys candidates) ;; key $B$H(B candidates $B$rAH$_9g$o$;$F(B 7 $B$D0J2<$N8uJd72(B ($B8uJd?t$,B-$j$J$+$C$?$i(B ;; $B$=$3$GBG$A@Z$k(B) $B$NJ8;zNs$r:n$j!"%_%K%P%C%U%!$KI=<($9$k!#(B (let ((n 0) str cand message-log-max ) (if (not (car candidates)) nil (setq n 1 ;; $B:G=i$N8uJd$NA0$K6uGr$r$/$C$D$1$J$$$h$&$K:G=i$N8uJd$@$1@h$K<h$j(B ;; $B=P$9!#(B str (concat (car keys) ":" (skk-%-to-%% (if (consp (car candidates)) (cdr (car candidates)) (car candidates) )))) ;; $B;D$j$N(B 6 $B$D$r<h$j=P$9!#8uJd$H8uJd$N4V$r6uGr$G$D$J$0!#(B (while (and (< n 7) (setq cand (nth n candidates))) (setq cand (skk-%-to-%% (if (consp cand) (cdr cand) cand)) str (concat str " " (nth n keys) ":" cand) n (1+ n) )) (message "%s [$B;D$j(B %d%s]" str (length (nthcdr n candidates)) (make-string (length skk-current-search-prog-list) ?+) )) ;; $BI=<($9$k8uJd?t$rJV$9!#(B n )) (defun skk-%-to-%% (str) ;; STR $BCf$K(B % $B$r4^$`J8;z$,$"$C$?$i!"(B%% $B$K$7$F(B message $B$G%(%i!<$K$J$i$J$$$h$&(B ;; $B$K$9$k!#(B (let ((tail str) temp beg end ) (save-match-data (while (string-match "%+" tail) (setq beg (match-beginning 0) end (match-end 0) temp (concat temp (substring tail 0 beg) (make-string (* 2 (- end beg)) ?%) ) tail (substring tail end) )) (concat temp tail) ))) (defun skk-henkan-in-minibuff () ;; $B%_%K%P%C%U%!$G<-=qEPO?$r$7!"EPO?$7$?%(%s%H%j$NJ8;zNs$rJV$9!#(B (save-match-data (let ((enable-recursive-minibuffers t) ;; $BJQ49Cf$K(B isearch message $B$,=P$J$$$h$&$K$9$k!#(B skk-isearch-message new-one ) (add-hook 'minibuffer-setup-hook 'skk-setup-minibuffer) (condition-case nil (setq new-one (read-from-minibuffer (concat (or (if (skk-numeric-p) (skk-numeric-midasi-word) ) (if skk-okuri-char (skk-compute-henkan-key2) skk-henkan-key )) " " ))) (quit (setq new-one "") )) (if (string= new-one "") (if skk-exit-show-candidates ;; $B%_%K%P%C%U%!$KI=<($7$?8uJd$,?T$-$F<-=qEPO?$KF~$C$?$,!"6uJ8;z(B ;; $BNs$,EPO?$5$l$?>l9g!#:G8e$K%_%K%P%C%U%!$KI=<($7$?8uJd72$r:FI=(B ;; $B<($9$k!#(B (progn (setq skk-henkan-count (cdr skk-exit-show-candidates)) (skk-henkan) ) ;; skk-henkan-show-candidates $B$KF~$kA0$K8uJd$,?T$-$?>l9g(B (setq skk-henkan-count (1- skk-henkan-count)) (if (eq skk-henkan-count -1) (progn ;; $BAw$j$"$j$NJQ49$G<-=qEPO?$KF~$j!"6uJ8;z$rEPO?$7$?8e!"$=$N(B ;; $B$^$^:FEYAw$j$J$7$H$7$FJQ49$7$?>l9g$O(B ;; skk-henkan-okurigana, skk-okuri-char $B$NCM$r(B nil $B$K$7$J$1(B ;; $B$l$P!"$=$l$>$l$NCM$K8E$$Aw$j2>L>$,F~$C$?$^$^$G8!:w$K<:GT(B ;; $B$9$k!#(B (setq skk-henkan-okurigana nil skk-okurigana nil skk-okuri-char nil ) (skk-change-marker-to-white) ) ;; skk-henkan-count $B$,(B -1 $B$G$J$1$l$P!"%+%l%s%H%P%C%U%!$G$O:G8e$N(B ;; $B8uJd$rI=<($7$?$^$^$J$N$G(B ($BI=<(4XO"$G$O2?$b$7$J$/$F$b!"$b$&4{(B ;; $B$KK>$_$N>uBV$K$J$C$F$$$k(B) $B2?$b$7$J$$!#(B )) ;; $B%_%K%P%C%U%!$GJQ49$7$?J8;zNs$,$"$k(B ($B6uJ8;zNs$G$J$$(B) $B$H$-!#(B ;; $BKvHx$N6uGr$r<h$j=|$/!#(B (if (string-match "[ $B!!(B]+$" new-one) (setq new-one (substring new-one 0 (match-beginning 0))) ) (if (skk-numeric-p) (setq new-one (skk-adjust-numeric-henkan-data new-one)) ;; $B$9$4$/$?$/$5$s$N8uJd$,$"$k>l9g$K!"$=$N:G8e$K?7$7$$8uJd$r2C$($k$N$O(B ;; $B$1$C$3$&9|$@$,!#(B (setq skk-henkan-list (nconc skk-henkan-list (list new-one)) ;; $B%U%i%0$r%*%s$K$9$k!#(B skk-kakutei-flag t )) (setq skk-henkan-in-minibuff-flag t skk-touroku-count (1+ skk-touroku-count) )) ;; (nth skk-henkan-count skk-henkan-list) $B$,(B nil $B$@$+$i<-=qEPO?$K(B ;; $BF~$C$F$$$k!#(Bskk-henkan-count $B$r%$%s%/%j%a%s%H$9$kI,MW$O$J$$!#(B ;; (setq skk-henkan-count (1+ skk-henkan-count)) ;; new-one $B$,6uJ8;zNs$@$C$?$i(B nil $B$rJV$9!#(B (if (not (string= new-one "")) new-one) ))) (defun skk-compute-henkan-key2 () ;; skk-henkan-okurigana $B$,(B non-nil $B$J$i(B skk-henkan-key $B$+$i!"$+$D$F(B ;; skk-henkan-key2 $B$H8F$P$l$F$$$?$b$N$r:n$k!#(B ;; skk-henkan-key2 $B$H$O!"!V4A;zItJ,$NFI$_(B + "*" + $BAw$j2>L>!W$N7A<0$NJ8;zNs$r(B ;; $B8@$&!#(B (if skk-henkan-okurigana (save-match-data (if (string-match "[a-z]+$" skk-henkan-key) (concat (substring skk-henkan-key 0 (match-beginning 0)) "*" skk-henkan-okurigana ))))) (defun skk-setup-minibuffer () ;; $B%+%l%s%H%P%C%U%!$NF~NO%b!<%I$K=>$$%_%K%P%C%U%!$NF~NO%b!<%I$r@_Dj$9$k!#(B (let ((mode (skk-spy-origin-buffer-mode))) (if (not mode) nil (cond ((eq mode 'hirakana) (skk-j-mode-on)) ((eq mode 'katakana) (skk-j-mode-on t)) ((eq mode 'abbrev) (skk-abbrev-mode-on)) ((eq mode 'ascii) (skk-ascii-mode-on)) ((eq mode 'zenkaku) (skk-zenkaku-mode-on)))))) (defun skk-spy-origin-buffer-mode () ;; $B%_%K%P%C%U%!$K5o$k$H$-$K%*%j%8%J%k$N%+%l%s%H%P%C%U%!$NF~NO%b!<%I$rDe;!$9$k!#(B (with-current-buffer (skk-minibuffer-origin) (if skk-mode (cond (skk-abbrev-mode 'abbrev) (skk-ascii-mode 'ascii) (skk-zenkaku-mode 'zenkaku) (skk-katakana 'katakana) (t 'hirakana) )))) ;;;###skk-autoload (defun skk-previous-candidate () "$B"'%b!<%I$G$"$l$P!"0l$DA0$N8uJd$rI=<($9$k!#(B $B"'%b!<%I0J30$G$O%+%l%s%H%P%C%U%!$K(B \"x\" $B$rA^F~$9$k!#(B $B3NDj<-=q$K$h$k3NDj$ND>8e$K8F$V$H3NDj$,%"%s%I%%$5$l$F!"3NDjA0$N>uBV$G(B skk-last-kakutei-henkan-key $B$,%+%l%s%H%P%C%U%!$KA^F~$5$l$k!#(B" (interactive) (if (not skk-henkan-active) (if (not (eq last-command 'skk-kakutei-henkan)) (skk-kana-input) ;; restore the state just before the last kakutei henkan. (delete-region skk-henkan-start-point (point)) (skk-set-henkan-point-subr) (insert skk-last-kakutei-henkan-key) (setq this-command 'skk-undo-kakutei-henkan) ) (if (string= skk-henkan-key "") nil ;; $B6uGr$rA^F~$7$F$*$$$F!"8e$G(B delete-backward-char $B$r;H$C$F>C$9J}K!$G$O!"(B ;; overwrite-mode $B$N$H$-$K$=$N6uGr$r>C$;$J$$!#=>$$(B skk-henkan $B$G9T$J$C$F(B ;; $B$$$kJ}K!$HF1$8$b$N$r;H$&!#(B ;;(insert " ") (let ((mark (if (not (eobp)) (skk-save-point (forward-char 1) (point-marker)) ))) (skk-save-point (if (eq skk-henkan-count 0) (progn (if skk-okuri-char ;; roman prefix for okurigana should be removed. (setq skk-henkan-key (substring skk-henkan-key 0 -1)) ) (setq skk-henkan-count -1 skk-henkan-list nil skk-henkan-okurigana nil skk-okuri-char nil skk-okurigana nil skk-prefix "" ) (if skk-auto-okuri-process (skk-init-auto-okuri-variables) ) (if (skk-numeric-p) (skk-init-numeric-conversion-variables) ) ;; Emacs 19.28 $B$@$H2?8N$+(B Overlay $B$r>C$7$F$*$+$J$$$H!"<!$K(B ;; insert $B$5$l$k(B skk-henkan-key Overlay $B$,$+$+$C$F$7$^$&!#(B (if skk-use-face (skk-henkan-face-off)) (delete-region skk-henkan-start-point skk-henkan-end-point) (goto-char skk-henkan-end-point) (insert skk-henkan-key) (skk-change-marker-to-white) ) (setq skk-henkan-count (1- skk-henkan-count)) (skk-insert-new-word (skk-get-simply-current-candidate)) )) ;;(if (and (> (point) 1) (eq (char-after (1- (point))) 32)) ;; delete-backward-char $B$G$O!"(Boverwrite-mode $B$N$H$-$KD>A0$N6uGr$r>C$;(B ;; $B$J$$!#(B ;; (delete-backward-char 1) ) (if mark (progn (goto-char mark) (skk-set-marker mark nil) (backward-char 1) ) (goto-char (point-max)) ) (if (and skk-abbrev-mode (eq skk-henkan-count -1)) (skk-abbrev-mode-on) ))))) (defun skk-insert-new-word (word) ;; $B8+=P$78l$r>C$7!"$=$N>l=j$XJQ497k2L$NJ8;zNs$rA^F~$9$k!#(B (let (func) ;; $BG0$N$?$a!#2?8N$3$l$rF~$l$k$N$+$K$D$$$F$O!"(Bskk-previous-candidate $B$r;2>H(B (if skk-use-face (skk-henkan-face-off)) (delete-region skk-henkan-start-point skk-henkan-end-point) (goto-char skk-henkan-start-point) ;; (^_^;) $B$N$h$&$J8+=P$78l$KBP$7!"(Bread-from-string $B$r8F$V$H%(%i!<$K$J$k$N(B ;; $B$G!"(Bcondition-case $B$G$=$N%(%i!<$rJa$^$($k!#(B (condition-case nil (setq func (car (read-from-string word))) (error (setq func word))) ;; symbolp $B$G(B nil $B$rJV$9$h$&$JC18l$r!"(Bsymbolp $B$G%A%'%C%/$9$k$3$HL5$/$$$-(B ;; $B$J$j(B fboundp $B$G%A%'%C%/$9$k$H!"%(%i!<$K$J$k!#(B ;; e.x. "(#0)" (condition-case nil (if (and (listp func) (symbolp (car func)) (fboundp (car func))) (insert (eval func)) (insert word) ) ;; $BJ8;zNs$rJV$5$J$$(B Lisp $B%W%m%0%i%`$rI>2A$7$F$b%(%i!<$K$J$i$J$$J}$,JXMx!)(B (error nil) ) (skk-set-marker skk-henkan-end-point (point)) (if skk-use-face (skk-henkan-face-on)) (if skk-insert-new-word-function (funcall skk-insert-new-word-function) ))) ;;;###skk-autoload (defun skk-kakutei (&optional word) "$B8=:_I=<($5$l$F$$$k8l$G3NDj$7!"<-=q$N99?7$r9T$&!#(B $B%*%W%7%g%J%k0z?t$N(B WORD $B$rEO$9$H!"8=:_I=<($5$l$F$$$k8uJd$H$OL54X78$K(B WORD $B$G3N(B $BDj$9$k!#(B" ;; read only $B$G%(%i!<$K$J$k$h$&$K$9$k$H(B read only $B%P%C%U%!$G(B SKK $B$,5/F0$G$-(B ;; $B$J$/$J$k!#(B (interactive) (let ((inhibit-quit t) converted kakutei-word ) (if skk-mode (skk-j-mode-on skk-katakana) ;; $B%+%l%s%H%P%C%U%!$G$^$@(B skk-mode $B$,%3!<%k$5$l$F$$$J$+$C$?$i!"%3!<%k$9(B ;; $B$k!#(B (skk-mode 1) ) (if (not skk-henkan-on) nil (if (not skk-henkan-active) nil (setq kakutei-word ;; $B3NDj<-=q$N8l$G3NDj$7$?$H$-$O!"<-=q$K$=$N8l$r=q$-9~$`I,MW$b$J(B ;; $B$$$7!"99?7$9$kI,MW$b$J$$$H;W$C$F$$$?$,!"Jd40$r9T$J$&$H$-$O!"(B ;; $B8D?M<-=q$r;2>H$9$k(B ($B3NDj<-=q$O;2>H$7$J$$(B) $B$N$G!"B?>/;q8;$H;~(B ;; $B4V$rL5BL$K$7$F$b!"8D?M<-=q$K3NDj<-=q$N%(%s%H%j$r=q$-9~$s$G99(B ;; $B?7$b$7$F$*$/!#(B (or word (skk-get-simply-current-candidate (skk-numeric-p))) ) (if (or (and (not skk-search-excluding-word-pattern-function) kakutei-word) (and kakutei-word skk-search-excluding-word-pattern-function (not (funcall skk-search-excluding-word-pattern-function kakutei-word) ))) (progn (skk-update-jisyo kakutei-word) ;; keep this order (setq skk-last-henkan-result kakutei-word) (skk-set-marker skk-last-henkan-point (point)) (if (skk-numeric-p) (progn (setq converted (skk-get-simply-current-candidate)) (skk-update-jisyo-for-numerals kakutei-word converted) ))))) (skk-kakutei-cleanup-henkan-buffer) ) (skk-kakutei-save-and-init-variables (if (skk-numeric-p) (cons kakutei-word converted) kakutei-word )) (skk-do-auto-fill) (skk-set-cursor-color (if skk-katakana skk-katakana-cursor-color skk-hirakana-cursor-color )))) (defun skk-kakutei-cleanup-henkan-buffer () ;; $B3NDjD>8e$N%P%C%U%!$N@07A$r9T$J$&!#(B ;; $B$3$N4X?t$O!"(Bskk-vip.el $B$G>e=q$-$5$l$k!#(B (if skk-okurigana (progn (skk-delete-okuri-mark) (if (and skk-katakana skk-convert-okurigana-into-katakana) (skk-katakana-region skk-henkan-end-point (point)) ))) (skk-delete-henkan-markers) (if (and (boundp 'self-insert-after-hook) self-insert-after-hook) (funcall self-insert-after-hook skk-henkan-start-point (point)) ) (if overwrite-mode (skk-del-char-with-pad (skk-ovwrt-len (string-width (skk-buffer-substring skk-henkan-start-point (point)) ))))) (defun skk-kakutei-save-and-init-variables (&optional kakutei-word) ;; $B3NDj;~$KJQ?t$N=i4|2=$H%"%s%I%%$N$?$a$NJQ?t$NJ]B8$r9T$J$&!#(B (if (and kakutei-word (or (consp kakutei-word) (not (string= kakutei-word "")) )) (progn ;; skk-undo-kakutei $B$N$?$a$K:G8e$NJQ49$N%G!<%?!<$rJ]B8$9$k!#(B (setq skk-last-henkan-key skk-henkan-key ;; $B3NDj$7$?8l$r@hF,$K$7$F(B skk-henkan-list $B$NCM$rJ]B8$9$k!#(B skk-last-henkan-list (cons kakutei-word (delete kakutei-word skk-henkan-list) ) skk-last-henkan-okurigana skk-henkan-okurigana skk-last-okuri-char skk-okuri-char skk-kakutei-count (1+ skk-kakutei-count) ) ;;(if (boundp 'disable-undo) ;; (setq disable-undo nil) )) (setq skk-abbrev-mode nil skk-exit-show-candidates nil skk-henkan-active nil skk-henkan-count -1 skk-henkan-key nil skk-henkan-list nil skk-henkan-okurigana nil skk-henkan-on nil skk-kakutei-flag nil skk-okuri-char nil skk-prefix "" ) (if skk-auto-okuri-process (skk-init-auto-okuri-variables) ) (if (skk-numeric-p) (skk-init-numeric-conversion-variables) )) (defun skk-undo-kakutei () "$B0lHV:G8e$N3NDj$r%"%s%I%%$7!"8+=P$7$KBP$9$k8uJd$rI=<($9$k!#(B $B:G8e$K3NDj$7$?$H$-$N8uJd$O%9%-%C%W$5$l$k!#(B $B8uJd$,B>$K$J$$$H$-$O!"%_%K%P%C%U%!$G$N<-=qEPO?$KF~$k!#(B" (interactive) (cond ((eq last-command 'skk-undo-kakutei) (skk-error "$B3NDj%"%s%I%%$OO"B3;HMQ$G$-$^$;$s(B" "Cannot undo kakutei repeatedly" )) (skk-henkan-active (skk-error "$B"'%b!<%I$G$O3NDj%"%s%I%%$G$-$^$;$s(B" "Cannot undo kakutei in $B"'(B mode" )) ((or (not skk-last-henkan-key) (string= skk-last-henkan-key "")) ;; skk-last-henkan-key may be nil or "". (skk-error "$B%"%s%I%%%G!<%?!<$,$"$j$^$;$s(B" "Lost undo data") )) (condition-case nil (let ((end (if skk-last-henkan-okurigana (+ (length skk-last-henkan-okurigana) skk-henkan-end-point ) skk-henkan-end-point ))) (setq skk-henkan-active t skk-henkan-key skk-last-henkan-key skk-henkan-list skk-last-henkan-list skk-henkan-on t skk-henkan-okurigana skk-last-henkan-okurigana skk-okuri-char skk-last-okuri-char skk-current-search-prog-list (if (eq (car (car skk-search-prog-list)) 'skk-search-kakutei-jisyo-file ) ;; $B3NDj<-=q$OC5$7$F$bL50UL#!#(B (cdr skk-search-prog-list) skk-search-prog-list )) (if (>= (point-max) end) ;; $B:G8e$NJQ49ItJ,$N%F%-%9%H$r>C$9!#Aw$j2>L>$rGD0.$7$F$$$k$N$J$i(B ;; (skk-process-okuri-early $B$,(B non-nil $B$J$iAw$j2>L>$rGD0.$G$-$J$$(B)$B!"(B ;; $BAw$j2>L>$r4^$a$?ItJ,$^$G$r>C$9!#(B (delete-region skk-henkan-start-point end) ) (goto-char skk-henkan-start-point) (cancel-undo-boundary) (insert "$B"'(B") (undo-boundary) (skk-set-marker skk-henkan-start-point (point)) (if skk-okuri-char ;; $BAw$j$"$j(B (progn (insert (substring skk-henkan-key 0 (1- (length skk-henkan-key)) )) (skk-set-marker skk-henkan-end-point (point)) (if skk-henkan-okurigana (insert skk-henkan-okurigana)) ) (insert skk-henkan-key) (skk-set-marker skk-henkan-end-point (point)) ) ;; $B$5$!!"=`Hw$,@0$$$^$7$?!*(B (skk-message "$B3NDj%"%s%I%%!*(B" "Undo kakutei!") (setq skk-henkan-count 1) (skk-henkan) ) ;; skk-kakutei-undo $B$+$iESCf$GH4$1$?>l9g$O!"3F<o%U%i%0$r=i4|2=$7$F$*$+$J$$(B ;; $B$H<!$NF0:n$r$7$h$&$H$7$?$H$-$K%(%i!<$K$J$k!#(B (error (skk-kakutei)) (quit (skk-kakutei)) )) (defun skk-downcase (char) (let ((d (cdr (assq char skk-downcase-alist)))) (if d d (downcase char) ))) (defun skk-set-henkan-point (&optional arg) "$BJQ49$r3+;O$9$k%]%$%s%H$r%^!<%/$7!"BP1~$9$k(B skk-prefix $B$+!"Jl2;$rF~NO$9$k!#(B" (interactive "*P") (combine-after-change-calls (let* ((last-char (skk-downcase last-command-char)) (normal (not (eq last-char last-command-char))) (sokuon (and (string= skk-prefix (char-to-string last-char)) (/= last-char ?o))) (henkan-active skk-henkan-active)) (cancel-undo-boundary) (if (or (not skk-henkan-on) skk-henkan-active) (if normal (skk-set-henkan-point-subr) (if skk-henkan-on (skk-set-henkan-point-subr) ) (if henkan-active (skk-emulate-original-map arg) (skk-self-insert arg) )) (if (not normal) ;; process special char (progn (insert last-char) (skk-set-marker skk-henkan-end-point (point)) (setq skk-henkan-count 0 skk-henkan-key (skk-buffer-substring skk-henkan-start-point (point) ) skk-prefix "" ) (skk-henkan) ) ;; prepare for the processing of okurigana if not skk-okurigana ;; and the preceding character is not a numeric character. ;; if the previous char is a special midashi char or a ;; numeric character, we assume that the user intended to type the ;; last-command-char in lower case. (if (and (not skk-okurigana) (or (= skk-henkan-start-point (point)) (let ((p (char-after (1- (point))))) (not (or ;; previous char is a special midashi char (memq p skk-special-midashi-char-list) ;; previous char is an ascii numeric char (and (<= 48 p) ; ?0 (<= p 57) ) ; ?9 ;; previous char is a jis numeric char (and (eq (char-after (- (point) 2)) 163) (<= 176 p) (<= p 185) )))))) (if skk-process-okuri-early (progn (skk-set-marker skk-henkan-end-point (point)) (setq skk-okuri-char (char-to-string last-char)) (if sokuon (progn (setq skk-henkan-key (concat (skk-buffer-substring skk-henkan-start-point skk-kana-start-point ) (if skk-katakana "$B%C(B" "$B$C(B") skk-henkan-okurigana )) (skk-erase-prefix) (insert (if skk-katakana "$B%C(B " "$B$C(B ")) (setq skk-prefix "" skk-henkan-count 0 ) (skk-henkan) ;;(if skk-use-face (skk-henkan-face-off)) (delete-backward-char 2) ;;(if skk-use-face (skk-henkan-face-on)) ) (setq skk-henkan-key (concat (skk-buffer-substring skk-henkan-start-point (point) ) skk-okuri-char )) (insert " ") (setq skk-prefix "" skk-henkan-count 0 ) (skk-henkan) ;;(if skk-use-face (skk-henkan-face-off)) (delete-backward-char 1) ;;(if skk-use-face (skk-henkan-face-on)) ) ;; we set skk-kana-start-point here, since the marker may no ;; longer point at the correct position after skk-henkan. (skk-set-marker skk-kana-start-point (point)) ) (if (= skk-henkan-start-point (point)) nil (if sokuon (progn (skk-erase-prefix) (insert (if skk-katakana "$B%C(B" "$B$C(B")) (setq skk-prefix "") )) (skk-set-marker skk-okurigana-start-point (point)) (insert "*") (skk-set-marker skk-kana-start-point (point)) (setq skk-okuri-char (char-to-string last-char) skk-okurigana t )))))) (if normal (skk-unread-event (skk-character-to-event last-char)) )))) ;;;###skk-autoload (defun skk-start-henkan (arg) "$B"&%b!<%I$G$OJQ49$r3+;O$9$k!#"'%b!<%I$G$O<!$N8uJd$rI=<($9$k!#(B $B$=$NB>$N%b!<%I$G$O!"%*%j%8%J%k$N%-!<3d$jIU$1$N%3%^%s%I$r%(%_%e%l!<%H$9$k!#(B" (interactive "*p") (combine-after-change-calls (save-match-data (if (not skk-henkan-on) (skk-self-insert arg) (if skk-henkan-active (progn (setq skk-henkan-count (1+ skk-henkan-count)) (skk-henkan) ) (let ((pos (point))) (or (string= skk-prefix "") (skk-error "$B%U%#%C%/%9$5$l$F$$$J$$(B skk-prefix $B$,$"$j$^$9(B" "Have unfixed skk-prefix" )) (if (< pos skk-henkan-start-point) (skk-error "$B%+!<%=%k$,JQ493+;OCOE@$h$jA0$K$"$j$^$9(B" "Henkan end point must be after henkan start point" )) ;; $B8+=P$78l$,%+%?%+%J$G$"$l$P$R$i$,$J$KJQ49$9$k!#$b$78+=P$78l$NJQ49(B ;; $B$;$:$K$=$N$^$^(B skk-henkan $B$KEO$7$?$1$l$P!"(BC-u SPC (arg $B$,(B 4 $B$K$J(B ;; $B$k(B) $B$H%?%$%W$9$l$P$h$$!#(B (if (and skk-katakana (eq arg 1)) (skk-hiragana-region skk-henkan-start-point pos) ) (setq skk-henkan-key (skk-buffer-substring skk-henkan-start-point pos )) (if skk-allow-spaces-newlines-and-tabs ;; skk-henkan-key $B$NCf$N(B "[ \n\t]+" $B$r40A4$K<h$j=|$/!#(B (while (string-match "[ \n\t]+" skk-henkan-key) (setq skk-henkan-key (concat (substring skk-henkan-key 0 (match-beginning 0)) (substring skk-henkan-key (match-end 0)) ))) (skk-save-point (beginning-of-line) (if (> (point) skk-henkan-start-point) (skk-error "$BJQ49%-!<$K2~9T$,4^$^$l$F$$$^$9(B" "Henkan key may not contain a new line character" ))) ;; $B:G=i$N%9%Z!<%9$G(B skk-henkan-key $B$r$A$g$s@Z$k$@$1!#(B (setq skk-henkan-key (substring skk-henkan-key 0 (string-match " " skk-henkan-key )))) (skk-set-marker skk-henkan-end-point pos) (setq skk-henkan-count 0) (skk-henkan) (if (and skk-abbrev-mode skk-henkan-active) (progn (skk-j-mode-on) (setq skk-abbrev-mode t) )))) ;; XXX (cancel-undo-boundary) )))) (defun skk-backward-and-set-henkan-point (arg) "$B%]%$%s%H$ND>A0$K$"$kJ8;zNs$N@hF,$KJQ493+;O%]%$%s%H$r<($9(B \"$B"&(B\" $B$rIU$1$k!#(B $B%+!<%=%k$ND>A0$K$"$kJ8;z(B \($B%9%Z!<%9J8;z!"%?%VJ8;z!"D92;$rI=$o$9!V!<!W(B $B$OL5>r7o(B $B$K%9%-%C%W$5$l$k(B\) $B$r(B skk-what-char-type $B$K$FH=JL$7!"F1<o$NJ8;zNs$r$R$H$+$?$^(B $B$j$H$7$F8eJ}$X%9%-%C%W$9$k!#(B $BC"$7!"$R$i$+$J$N>l9g$O!V$r!W$ND>A0$G!"%+%?%+%J$N>l9g$O!V%r!W$ND>A0$G;_$^$k!#(B C-u ARG $B$G(B ARG $B$rM?$($k$H!"$=$NJ8;zJ,$@$1La$C$FF1$8F0:n$r9T$J$&!#(B" (interactive "*P") (if (not skk-mode) (skk-emulate-original-map arg) (catch 'exit1 (skk-save-point ;; $B$H$j$"$($::G=i$N(B SPC, TAB, $BA43Q(B SPC $B$@$1%8%c%s%W$9$k!#(B (skip-chars-backward " \t$B!!(B") ;; $B0z?t$"$j!#(B (if arg (if (not skk-allow-spaces-newlines-and-tabs) (skk-backward-char (prefix-numeric-value arg)) (setq arg (prefix-numeric-value arg)) (while (> arg 0) (skip-chars-backward " \t$B!!(B") (if (bolp) ;; $B9TF,$@$C$?$i0l9TA0$N9TKv$^$GLa$k$,!"(Barg $B$O8:$i$5$J$$!#(B (skk-backward-char 1) (skk-backward-char 1) (setq arg (1- arg)) ))) ;; $B0z?t$J$7!#(B (let ((limit (if (not skk-allow-spaces-newlines-and-tabs) (skk-save-point (beginning-of-line) (point)) (point-min) )) ;; $B!2!1!0!/!.!-!,!+!*!)!(!'!&!%!$!#(B (unknown-chars-regexp (if skk-allow-spaces-newlines-and-tabs "[ $B!!(B\n\t$B!<!7!6!5!4!3(B]" "[$B!!!<!7!6!5!4!3(B]" )) char p ) (save-match-data (skk-save-point (skk-backward-char 1) (while (and (> (point) limit) ;; unknown-chars-regexp $B$G$OJ8;z<oJL$,H=JL$G$-$J$$$N(B ;; $B$G!"$=$NJ8;zNs$,B3$/8B$j%]%$%s%H$r%P%C%U%!$N@hF,(B ;; $BJ}8~$XLa$9!#(B (looking-at unknown-chars-regexp) ) (skk-backward-char 1) ) (setq char (skk-what-char-type)) (if (eq char 'unknown) (throw 'exit1 nil) (skk-backward-and-set-henkan-point-1 char) (setq p (point)) (if skk-allow-spaces-newlines-and-tabs (while (and (> (point) limit) (bolp)) ;; 1 $B9T>e$N9TKv$X!#(B (skk-backward-char 1) ;; $B%]%$%s%H$,H=JL$G$-$J$$J8;z<oJL$N>e$K$"$k4V$O(B ;; backward $BJ}8~$X%]%$%s%H$rLa$9!#(B ;;(while (and (> (point) limit) ;; (looking-at unknown-chars-regexp) ) ;; (skk-backward-char 1) ) (if ;;(or (> 0 (skk-backward-and-set-henkan-point-1 char)) ;;(eq (skk-what-char-type) char)) (setq p (point)) )))))) (goto-char p) (skip-chars-forward unknown-chars-regexp) )) (skk-set-henkan-point-subr) )))) (defun skk-backward-and-set-henkan-point-1 (char) ;; skk-backward-and-set-henkan-point $B$N%5%V%k!<%A%s!#(BCHAR $B$N<oN`$K1~$8$?J8;z(B ;; $B$r%9%-%C%W$7$F%P%C%U%!$N@hF,J}8~$XLa$k!#(B (cond ((eq char 'hirakana) ;; "$B$r(B" $B$NA0$G;_$^$C$?J}$,JXMx!)(B (skip-chars-backward "$B!3!4!5!6!7!<$s$!(B-$B$q(B") ) ((eq char 'katakana) ;; "$B%r(B" $B$NA0$G;_$^$C$?J}$,JXMx!)(B (skip-chars-backward "$B!3!4!5!6!7!<%s%!(B-$B%q(B") ) ((eq char 'zenkaku) (skip-chars-backward "$B!!(B-$B#z(B") ) ((eq char 'ascii) (skip-chars-backward " -~") ))) (defun skk-what-char-type () ;; $B8=:_$N%]%$%s%H$K$"$kJ8;z$,$I$s$J<oN`$+$rH=JL$9$k!#(B (save-match-data (cond ((looking-at "[$B$!(B-$B$s(B]") 'hirakana) ((looking-at "[$B%!(B-$B%s(B]") 'katakana) ;; "$B!<(B" $B$r=|30$7$F$$$k(B ("$B!<(B" $B$O(B "$B!;(B" $B$H(B "$B!=(B" $B$N4V$KF~$C$F$$$k(B)$B!#(B ((looking-at "[$B!!(B-$B!;!=(B-$B#z(B]") 'zenkaku) ((looking-at "[ -~]") 'ascii) (t 'unknown) ))) (defun skk-set-henkan-point-subr () "$B$+$J$rF~NO$7$?8e$G!"%]%$%s%H$KJQ493+;O$N%^!<%/(B \($B"&(B\) $B$rIU$1$k!#(B $B85!9$O$3$N4X?t$O(B skk-set-henkan-point $B$NFbIt4X?t$G$"$k!#(B" (interactive "*") (if skk-henkan-on (skk-kakutei)) ;;(if (boundp 'disable-undo) ;; (setq disable-undo t) (cancel-undo-boundary) ;; ) (if (string= skk-prefix "") (insert "$B"&(B") (skk-erase-prefix) (insert "$B"&(B") (skk-set-marker skk-kana-start-point (point)) (skk-insert-prefix) ) ;;(or (boundp 'disable-undo) (undo-boundary) ;; ) (setq skk-henkan-on t) (skk-set-marker skk-henkan-start-point (point)) ) (defun skk-change-marker () ;; "$B"&(B"$B$r(B"$B"'(B"$B$KJQ$($k!#(Bskk-henkan-active $B%U%i%0$r(B t $B$K$9$k!#(B (combine-after-change-calls (skk-save-point (goto-char (- skk-henkan-start-point skk-kanji-len)) (if (looking-at "$B"&(B") (progn (cancel-undo-boundary) (let ((buffer-undo-list t)) (insert "$B"'(B") (delete-char 1) (setq skk-henkan-active t) ) (undo-boundary) ) (skk-kakutei) (skk-error "$B"&$,$"$j$^$;$s(B" "It seems that you have deleted $B"&(B") )))) (defun skk-change-marker-to-white () ;; "$B"'(B"$B$r(B"$B"&(B"$B$KJQ$($k!#(Bskk-henkan-active $B%U%i%0$r(B nil $B$K$9$k!#(B (combine-after-change-calls (skk-save-point (goto-char (- skk-henkan-start-point skk-kanji-len)) (cancel-undo-boundary) (if (looking-at "$B"'(B") (let ((buffer-undo-list t)) (insert "$B"&(B") (delete-char 1) ) (goto-char skk-henkan-start-point) (insert "$B"&(B") ;;(or (boundp 'disable-undo) ;;(undo-boundary) ;; ) (skk-set-marker skk-henkan-start-point (point)) (skk-message "$B"'$,$"$j$^$;$s(B" "It seems that you have deleted $B"'(B") ) (setq skk-henkan-active nil) ))) (defun skk-delete-henkan-markers (&optional nomesg) ;; $BJQ49;~$K%+%l%s%H%P%C%U%!$KI=$o$l$k(B `$B"&(B', `$B"'(B' $B%^!<%/$r>C$9!#(B (if (not (marker-position skk-henkan-start-point)) nil (combine-after-change-calls (save-match-data (skk-save-point (goto-char (- skk-henkan-start-point skk-kanji-len)) (if skk-henkan-active (progn (if skk-use-face (skk-henkan-face-off)) (if (looking-at "$B"'(B") (delete-char 1) (or nomesg (skk-message "$B"'$,$"$j$^$;$s(B" "It seems that you have deleted $B"'(B" )))) (if (looking-at "$B"&(B") (delete-char 1) (or nomesg (skk-message "$B"&$,$"$j$^$;$s(B" "It seems that you have deleted $B"&(B" ))))))))) (defun skk-delete-okuri-mark () ;; $BAw$j2>L>F~NOCf$K%+%l%s%H%P%C%U%!$KI=$o$l$k(B `*' $B%^!<%/$r>C$7!"Aw$j2>L>4XO"(B ;; $B%U%i%0$r(B nil $B$K%;%C%H$9$k!#(B (if (not (marker-position skk-okurigana-start-point)) nil (skk-save-point (if (eq (char-after skk-okurigana-start-point) ?*) ; ?* (delete-region skk-okurigana-start-point (1+ skk-okurigana-start-point) )) (setq skk-okurigana nil skk-okuri-char nil skk-henkan-okurigana nil )))) ;;;; jisyo related functions (defun skk-purge-from-jisyo () "$B"'%b!<%I$G8=:_$N8uJd$r<-=q%P%C%U%!$+$i>C5n$9$k!#(B" (interactive "*") (if (and skk-henkan-active (not (string= skk-henkan-key ""))) (if (not (yes-or-no-p (format (if skk-japanese-message-and-error "%s /%s/%s$B$r<-=q$+$i:o=|$7$^$9!#NI$$$G$9$+!)(B" "Really purge \"%s /%s/%s\"?" ) skk-henkan-key (skk-get-simply-current-candidate) (if (and skk-henkan-okurigana (or skk-henkan-okuri-strictly skk-henkan-strict-okuri-precedence )) (concat (if skk-japanese-message-and-error " ($BAw$j2>L>(B: " "(okurigana: " ) skk-henkan-okurigana ") " ) " " )))) nil ;; skk-henkan-start-point $B$+$i(B point $B$^$G:o=|$7$F$7$^$C$F$b!"JQ49D>8e(B ;; $B$K(B ($B%+!<%=%k$rF0$+$9$3$H$J$/(B) skk-purge-from-jisyo $B$r8F$Y$PLdBj$J$$(B ;; $B$,!"%+!<%=%k$,0c$&>l=j$X0\F0$7$F$$$?>l9g$O!":o=|$9$Y$-$G$J$$$b$N$^(B ;; $B$G:o=|$7$F$7$^$&2DG=@-$,$"$k!#$=$3$G!"Aw$j2>L>$,$"$l$P$=$ND9$5$r4^(B ;; $B$a$?(B end $B$r5a$a!":#2s$NJQ49$K4XO"$7$?8D=j$@$1$r@53N$K@Z$j<h$k$h$&$K(B ;; $B$9$k!#(B (let ((end (if skk-henkan-okurigana (+ (length skk-henkan-okurigana) skk-henkan-end-point ) skk-henkan-end-point )) (word (skk-get-simply-current-candidate (skk-numeric-p))) ) ;;(if skk-use-numeric-conversion ;; (skk-update-jisyo-for-numerals purge-word 'purge) ) (skk-update-jisyo word 'purge) ;; $BG0$N$?$a!#(Bskk-previous-candidate $B$r;2>H!#(B (if skk-use-face (skk-henkan-face-off)) (delete-region skk-henkan-start-point end) (skk-change-marker-to-white) (skk-kakutei) (if skk-use-relation (skk-update-relation (if skk-use-numeric-conversion (skk-compute-numeric-henkan-key skk-henkan-key) skk-henkan-key ) (or skk-henkan-okurigana skk-okuri-char) word nil 'purge)) ;;(if (boundp 'skk-attr-alist) ;; (skk-attr-purge ;; (if skk-use-numeric-conversion ;; (skk-compute-numeric-henkan-key skk-henkan-key) ;; skk-henkan-key ) ;; (or skk-henkan-okurigana skk-okuri-char) ;; word )) )))) ;;;###skk-autoload (defun skk-save-jisyo (&optional quiet) "SKK $B$N<-=q%P%C%U%!$r%;!<%V$9$k!#(B $B%*%W%7%g%J%k0z?t$N(B QUIET $B$,(B non-nil $B$G$"$l$P!"<-=q%;!<%V;~$N%a%C%;!<%8$r=P$5$J(B $B$$!#(B" (interactive "P") (let* ((skk-jisyo (expand-file-name skk-jisyo)) (jisyo-buffer (skk-get-jisyo-buffer skk-jisyo 'nomsg)) ) (if (or (not jisyo-buffer) (not (buffer-modified-p jisyo-buffer))) (if (not quiet) (progn (skk-message "SKK $B<-=q$rJ]B8$9$kI,MW$O$"$j$^$;$s(B" "No need to save SKK jisyo" ) (sit-for 1) )) (with-current-buffer jisyo-buffer (let ((inhibit-quit t) (tempo-file (skk-make-temp-jisyo)) ) (if (not quiet) (skk-message "SKK $B<-=q$rJ]B8$7$F$$$^$9(B..." "Saving SKK jisyo..." )) (skk-save-jisyo-1 tempo-file) (skk-check-jisyo-size tempo-file) ;; $B<-=q$N%;!<%V$K@.8y$7$F=i$a$F(B modified $B%U%i%C%0$r(B nil $B$K$9$k!#(B (set-buffer-modified-p nil) (if (not quiet) (progn (skk-message "SKK $B<-=q$rJ]B8$7$F$$$^$9(B...$B40N;!*(B" "Saving SKK jisyo...done" ) (sit-for 1) )) (if (eq this-command 'save-buffers-kill-emacs) (skk-record-jisyo-data jisyo-buffer) ))) (skk-set-cursor-properly) ))) (defun skk-save-jisyo-1 (file) (save-match-data (let (mc-flag enable-multibyte-characters buffer-read-only) (goto-char (point-min)) (if (re-search-forward "^;; okuri-ari entries.$" nil 'noerror) nil (skk-error "$BAw$j$"$j%(%s%H%j$N%X%C%@!<$,$"$j$^$;$s!*(B SKK $B<-=q$N%;!<%V$rCf;_$7$^$9(B" "Header line for okuri-ari entries is missing! Stop saving SKK jisyo" )) ;; $B$*$C!"%3%a%s%H%U%'%$%9$,(B $" $B$G=*$o$i$J$$$>(B > hilit19.el (if (re-search-forward "^;; okuri-nasi entries.$" nil 'noerror) nil (skk-error "$BAw$j$J$7%(%s%H%j$N%X%C%@!<$,$"$j$^$;$s(B $B!*(B SKK $B<-=q$N%;!<%V$rCf;_$7$^$9(B" "Header line for okuri-nasi entries is missing! Stop saving SKK jisyo" ))) (write-region 1 (point-max) file nil 'nomsg) )) (defun skk-check-jisyo-size (new-file) (let ((new-size (nth 7 (file-attributes new-file))) old-size ) (if (eq new-size 0) (progn (delete-file new-file) (skk-error "SKK $B<-=q$,6u$K$J$C$F$$$^$9!*(B $B<-=q$N%;!<%V$rCf;_$7$^$9(B" "Null SKK jisyo! Stop saving jisyo" ))) (if (or (not skk-compare-jisyo-size-when-saving) ;; $B5l<-=q$H$N%5%$%:Hf3S$r9T$J$o$J$$!#(B (progn ;; (1)skk-jisyo $B$,$J$$$+!"(B ;; (2)new-file $B$H(B skk-jisyo $B$,F10l$N%5%$%:$+(B ;; (skk-(aux-)large-jisyo $B$+$i?75,$NC18l$rFI$_9~$^$J$+$C$?$j!"(B ;; $B?75,C18l$NEPO?$r9T$J$o$J$+$C$?>l9g$O%5%$%:$,F1$8(B)$B!"(B ;; (3)new-file $B$NJ}$,Bg$-$$(B ;; $B>l9g(B ($B>e5-$N(B 3 $BDL$j$G$"$l$P$$$:$l$b@5>o(B)$B!#(B (setq old-size (nth 7 (file-attributes skk-jisyo))) (or (not old-size) (>= new-size old-size) ))) (skk-make-new-jisyo new-file) ;; yes-or-no-p $B$K2sEz$7!"(Bnewline $B$9$k$H!"(Bthis-command $B$,JQ$C$F$7$^$&!#(B (let (this-command this-command-char last-command last-command-char) (if (skk-yes-or-no-p (format "skk-jisyo $B$,(B %dbytes $B>.$5$/$J$j$^$9$,!"%;!<%V$7$FNI$$$G$9$+!)(B" (- old-size new-size) ) (format "New %s will be %dbytes smaller. Save anyway?" skk-jisyo (- old-size new-size) )) ;; $B$H$K$+$/%;!<%V!#(B (skk-make-new-jisyo new-file) ;; $B%;!<%V$H$j;_$a!#(B (delete-file new-file) (with-output-to-temp-buffer "*SKK warning*" (if skk-japanese-message-and-error (progn (princ "$B%;!<%V$7$h$&$H$9$k<-=q$N%5%$%:$,85$N$b$N$h$j$b>.$5$J$C$F$7$^$&$N$G!"(B") (terpri) (princ "$B%;!<%V$rESCf$GCf;_$7$^$7$?!#<-=q$N%5%$%:$,>.$5$/$J$C$?860x$K$ONc$((B") (terpri) (princ "$B$P!"(B") (terpri) (terpri) (princ " $B!&(BM-x skk-purge-from-jisyo $B$r<B9T$7$?!#(B") (terpri) (terpri) (princ " $B!&(B.skk-jisyo $B$N4A;z%3!<%I$H!"(B\" *.skk-jisyo*\" $B%P%C%U%!$N4A;z%3!<%I(B") (terpri) (princ " $B$,0[$J$C$F$$$k!#(B") (terpri) (terpri) (princ " $B!&(B\" *.skk-jisyo*\" $B%P%C%U%!$r<+J,$GJT=8$7$?!#(B") (terpri) (terpri) (princ "$B$J$I$,9M$($i$l$^$9(B ($B:G=i$N(B 2 $B$D$,860x$G$"$l$P!"0[>o$G$O$"$j$^$;$s!#(B") (terpri) (princ "$B:G8e$N>l9g$O!"$"$J$?$,$I$N$h$&$JJT=8$r$7$?$+$K$h$j$^$9(B)$B!#860x$r3NG'(B") (terpri) (princ "$B8e!"?5=E$K<-=q$N%;!<%V$r9T$J$&$3$H$r$*4+$a$7$^$9!#(B") (terpri) (terpri) (princ "$B85$N<-=q$r:FEYFI$_9~$`$K$O!"(B") (terpri) (terpri) (princ " M-x skk-reread-private-jisyo") (terpri) (terpri) (princ "$B$r<B9T$7$F2<$5$$!#(B") ) (princ "As size of your private JISYO to be saved is smaller than the") (terpri) (princ "original, we have stopped saving JISYO. For example, the following") (terpri) (princ "condition makes a smaller private JISYO;") (terpri) (terpri) (princ " (a)You executed M-x skk-purge-from-jisyo,") (terpri) (terpri) (princ " (b)Kanji code of .skk-jisyo is different from the one of") (terpri) (princ " \" *.skk-jisyo*\" buffer, or") (terpri) (terpri) (princ " (c)You edited \" *.skk-jisyo*\" buffer manually.") (terpri) (terpri) (princ "The first two condition is not strange, but the last one depends on") (terpri) (princ "how you edited JISYO. We strongly recommend to save JISYO") (terpri) (princ "carefully after checking what causes this.") (terpri) (princ "If you want to reread your original private JISYO, type") (terpri) (terpri) (princ " M-x skk-reread-private-jisyo") (terpri) )) (skk-error "SKK $B<-=q$N%;!<%V$rCf;_$7$^$7$?!*(B" "Stop saving SKK jisyo!" )))))) (defun skk-make-temp-jisyo () ;; SKK $B8D?M<-=qJ]B8$N$?$a$N:n6HMQ$N%U%!%$%k$r:n$j!"%U%!%$%k$N%b!<%I$r(B ;; skk-jisyo $B$N$b$N$HF1$8$K@_Dj$9$k!#:n$C$?:n6HMQ%U%!%$%k$NL>A0$rJV$9!#(B (let ((tempo-name (skk-make-temp-file "skkdic"))) (skk-create-file tempo-name) (set-file-modes tempo-name (file-modes skk-jisyo)) tempo-name )) (defun skk-make-temp-file (prefix) ;; from call-process-region of mule.el. Welcome! (make-temp-name (if (null (memq system-type '(ms-dos windows-nt))) (concat "/tmp/" prefix) (let ((tem (or (getenv "TMP") (getenv "TEMP") "/"))) (concat tem (if (memq (aref tem (1- (length tem))) '(47 92)) ;?/, ?\\ "" "/" ) prefix ))))) (defun skk-make-new-jisyo (tempo-file) ;; TEMPO-FILE $B$r?75,$N(B skk-jisyo $B$K$9$k!#(Bskk-backup-jisyo $B$,(B non-nil $B$@$C$?(B ;; $B$i%P%C%/%"%C%W<-=q$r:n$k!#(B (if skk-backup-jisyo (progn (if (file-exists-p skk-backup-jisyo) (delete-file skk-backup-jisyo) ) (rename-file skk-jisyo skk-backup-jisyo) ) (delete-file skk-jisyo) ) (rename-file tempo-file skk-jisyo 'ok-if-already-exists) ) (defun skk-reread-private-jisyo () "$B%P%C%U%!$KFI$_9~$s$@8D?M<-=q$rGK4~$7!"%U%!%$%k$+$i%P%C%U%!$X:FFI$_9~$_$9$k!#(B" (interactive) (let ((buf (skk-get-jisyo-buffer skk-jisyo 'nomsg))) (if (and buf (skk-yes-or-no-p "$BJT=8Cf$N8D?M<-=q$rGK4~$7$^$9$+!)(B" "Discard your editing private JISYO?" )) (progn (save-excursion (set-buffer buf) (set-buffer-modified-p nil) (kill-buffer buf) ) (or (skk-get-jisyo-buffer skk-jisyo 'nomsg) (skk-error "$B8D?M<-=q$r:FFI$_9~$_$9$k$3$H$,$G$-$^$;$s!*(B" "Cannot reread private JISYO!" )))))) (defun skk-record-jisyo-data (jisyo-buffer) ;; $B<-=q%G!<%?!<$r<h$j!"(BEmacs $B$N=*N;$N:]$G$"$l$P!"$=$N%G!<%?!<$r(B ;; skk-record-file $B$KJ]B8$7!"$=$l0J30$G$"$l$P!"$=$l$r%(%3!<$9$k!#(B (if (or (not skk-keep-record) (> 1 skk-kakutei-count)) nil (with-temp-file skk-record-file (insert-file-contents skk-record-file) (goto-char (point-min)) (insert (format "%s $BEPO?(B: %3d $B3NDj(B: %4d $B3NDjN((B: %3d%% $B8l?t(B:%6d\n" (current-time-string) skk-touroku-count skk-kakutei-count (/ (* 100 (- skk-kakutei-count skk-touroku-count)) skk-kakutei-count ) (if skk-count-private-jisyo-candidates-exactly (skk-count-jisyo-candidates (expand-file-name skk-jisyo)) ;; 1 $B9T(B 1 $B8uJd$H$_$J$9!#(B (with-current-buffer jisyo-buffer (- (count-lines (point-min) (point-max)) 2) ))))) (setq skk-touroku-count 0 skk-kakutei-count 0) )) (defun skk-count-jisyo-candidates (file) "SKK $B<-=q$N8uJd?t$r?t$($k!#(B `[' $B$H(B `]' $B$K0O$^$l$?Aw$j2>L>Kh$N%V%m%C%/Fb$O?t$($J$$!#(B" (interactive (list (read-file-name (format "Jisyo File: (default: %s) " skk-jisyo) "~/" skk-jisyo 'confirm ))) ;; mule@emacs19.31 $B$@$H2<5-$N$h$&$K$9$k$H(B (`$B%!(B' $B$,860x$N$h$&(B) $B2?8N$+(B ;; default-directory $B$NKvHx$K2~9T$,IU$/!#(B ;; $BDL>o$O5$$,IU$+$J$$$,!"(Brsz-mini.el $B$r;H$C$F(B resize-minibuffer-mode $B$r(B ;; non-nil $B$K$7$F$$$k$HITMW$J(B 2 $B9TL\$,=P8=$9$k!#(B ;; (interactive "f$B<-=q%U%!%$%k(B: ") (with-current-buffer (find-file-noselect file) (save-match-data (let ((count 0) (min (point-min)) (max (if (interactive-p) (point-max))) (interactive-p (interactive-p)) mc-flag enable-multibyte-characters ) (goto-char min) (if (or ;; $B$3$A$i$O(B skk-save-point $B$r;H$o$:!"%]%$%s%H$r0\F0$5$;$k!#(B (not (re-search-forward "^;; okuri-ari entries.$" nil t nil)) (not (skk-save-point (re-search-forward "^;; okuri-nasi entries.$" nil t nil) ))) (skk-error "$B$3$N%U%!%$%k$O(B SKK $B<-=q$G$O$"$j$^$;$s(B" "This file is not a SKK dictionary") ) (while (search-forward "/" nil t) (cond ((looking-at "\\[") (forward-line 1) (beginning-of-line) ) ((not (eolp)) (setq count (1+ count)) )) (if interactive-p (message "Counting jisyo candidates...%3d%% done" (/ (* 100 (- (point) min)) max) ))) (if (interactive-p) (message "%d entries" count) count ))))) (defun skk-create-file (file &optional message) ;; FILE $B$,$J$1$l$P!"(BFILE $B$H$$$&L>A0$N6u%U%!%$%k$r:n$k!#(B ;; $B%*%W%7%g%J%k0z?t$N(B MESSAGE $B$r;XDj$9$k$H!"%U%!%$%k:n@.8e$=$N%a%C%;!<%8$r(B ;; $B%_%K%P%C%U%!$KI=<($9$k!#(B (let ((file (expand-file-name file))) (or (file-exists-p file) (progn (write-region 1 1 file nil 0) (if message (progn (message message) (sit-for 3) )))))) (defun skk-get-jisyo-buffer (file &optional nomsg) ;; FILE $B$r3+$$$F(B SKK $B<-=q%P%C%U%!$r:n$j!"%P%C%U%!$rJV$9!#(B ;; $B%*%W%7%g%J%k0z?t$N(B NOMSG $B$r;XDj$9$k$H%U%!%$%kFI$_9~$_$N:]$N%a%C%;!<%8$r(B ;; $BI=<($7$J$$!#(B (if file (let ((inhibit-quit t) ;; expand-file-name $B$r8F$s$G$*$+$J$$$H!";H$C$F$$$k(B OS $B>e$"$j$($J$$(B ;; $B%U%!%$%k%M!<%`$G$b!"$=$N$^$^EO$5$l$F$7$^$&!#(B ;; ($BNc(B) MSDOS $B$N>l9g(B ~/_skk-jisyo $B$N<B:]$N%U%!%$%k%M!<%`$O!"(BOS $B>e(B ;; $B$N@)8B$+$i(B ~/_skk-jis $B$H$J$k!#(Bexpand-file-name $B$r8F$P$J$$$H!"(B ;; " *_skk-jisyo*" $B$H$$$&%P%C%U%!$,$G$-$F$7$^$$!"(Bskk-save-jisyo $B$J(B ;; $B$IB>$N4X?t$K1F6A$,=P$k!#(B (file (expand-file-name file)) (jisyo-buf (concat " *" (file-name-nondirectory file) "*" ))) ;; $B<-=q%P%C%U%!$H$7$F%*!<%W%s$5$l$F$$$k$J$i!"2?$b$7$J$$!#(B (or (get-buffer jisyo-buf) (with-current-buffer (setq jisyo-buf (get-buffer-create jisyo-buf)) (buffer-disable-undo jisyo-buf) (auto-save-mode -1) ;; $B%o!<%-%s%0%P%C%U%!$N%b!<%I%i%$%s$O%"%C%W%G!<%H$5$l$J$$!)(B ;;(make-local-variable 'line-number-mode) ;;(make-local-variable 'column-number-mode) (setq buffer-read-only nil case-fold-search nil ;; buffer-file-name $B$r(B nil $B$K$9$k$H!"<-=q%P%C%U%!$KF~$j9~(B ;; $B$s$G(B C-x C-s $B$7$?$H$-$K%U%!%$%k%M!<%`$r?R$M$F$/$k$h$&$K(B ;; $B$J$k$,!"(BM-x compile $B$J$IFbIt$G(B save-some-buffers $B$r%3!<(B ;; $B%k$7$F$$$k%3%^%s%I$r;H$C$?$H$-$G$b%;!<%V$9$k$+$I$&$+$r(B ;; $B?R$M$F$3$J$/$J$k!#(B ;;buffer-file-name file ;;cache-long-line-scans nil ;;column-number-mode nil ;;line-number-mode nil ;; dabbrev $B$N%5!<%A$H$J$k%P%C%U%!$K$J$i$J$$$h$&$KB8:_$7$J(B ;; $B$$%b!<%IL>$K$7$F$*$/!#<B32$N$"$kI{:nMQ$O$J$$$O$:!#(B major-mode 'skk-jisyo-mode mode-name "SKK$B<-=q(B" ) (or nomsg (skk-message "SKK $B<-=q(B %s $B$r%P%C%U%!$KFI$_9~$s$G$$$^$9(B..." "Inserting contents of %s ..." (file-name-nondirectory file) )) (let ((coding-system-for-read 'euc-japan); XXX enable-character-unification) (insert-file-contents file) ) (skk-set-jisyo-code) (or nomsg (skk-message "SKK $B<-=q(B %s $B$r%P%C%U%!$KFI$_9~$s$G$$$^$9(B...$B40N;!*(B" "Inserting contents of %s ...done" (file-name-nondirectory file) )) (skk-setup-jisyo-buffer) (set-buffer-modified-p nil) jisyo-buf ))))) (defun skk-set-jisyo-code () ;; $BJ8;z%3!<%I$r(B CODE $B$K%;%C%H$9$k!#(B (if (not skk-jisyo-code) nil (if (stringp skk-jisyo-code) (setq skk-jisyo-code (cdr (assoc skk-jisyo-code skk-coding-system-alist) ))) (if (fboundp 'set-buffer-file-coding-system) (set-buffer-file-coding-system skk-jisyo-code) (set-file-coding-system skk-jisyo-code) ))) (defun skk-setup-jisyo-buffer () ;; skk-jisyo $B$N<-=q%P%C%U%!$G!"(B ;; (1)$B6u%P%C%U%!$G$"$l$P!"?7$7$/%X%C%@!<$r:n$j!"(B ;; (2)$B<-=q%(%s%H%j$,$"$k4{B8$N<-=q%P%C%U%!$J$i$P!"%X%C%@!<$,@5$7$$$+$I$&$+$r(B ;; $B%A%'%C%/$9$k!#(B ;; ;; skk-okuri-ari-min $B$H(B skk-okuri-nasi-min $B$N0LCV$rJQ99$7$?!#(B ;; $B"-(B $B?7$7$$(B skk-okuri-ari-min ;; ;; okuri-ari entries. ;; $B"+(B $B0JA0$N(B skk-okuri-ari-min ;; ;; $B"-(B skk-okuri-ari-max $B"-(B $B?7$7$$(B skk-okuri-nasi-min ;; ;; okuri-nasi entries. ;; $B"+(B $B0JA0$N(B skk-okuri-nasi-min ;; ;; ;; $BJQ99A0$N0LCV$G$"$l$P!"2<5-$N$h$&$J6u<-=q$N>l9g!"(B ;; ;; ;; okuri-ari entries. ;; ;; okuri-nasi entries. ;; ;; skk-okuri-ari-min $B$H(B skk-okuri-ari-max $B$N%^!<%+!<$,=E$J$C$F$7$^$$!"(B ;; skk-okuri-ari-min $B$N0LCV$KA^F~$7$?%(%s%H%j$,(B skk-okuri-ari-max $B$N%^!<%+!<(B ;; $B$r8eJ}$K2!$7$d$i$J$$!#(B ;; ;; $B$3$N4X?t$N%*%j%8%J%k$NL>>N$O!"(Bj-check-jisyo $B$@$C$?$,!"(Bskk-check-jisyo $B$H(B ;; $B$$$&L>A0$K$9$k$H(B skk-tools.el $BFb$N4X?tL>$H=EJ#$9$k!#(B ;; case-fold-search $B$O!"<-=q%P%C%U%!$G$O>o$K(B nil$B!#(B (let (mc-flag enable-multibyte-characters) (save-match-data (if (eq (buffer-size) 0) ;; $B6u%P%C%U%!$@$C$?$i!"%X%C%@!<$N$_A^F~!#(B (insert ";; okuri-ari entries.\n" ";; okuri-nasi entries.\n") ) (goto-char (point-min)) (if (re-search-forward "^;; okuri-ari entries.$" nil 'noerror) ;; $B8GDj%]%$%s%H$J$N$G!"(B(point) $B$G==J,!#(B (setq skk-okuri-ari-min (point)) (skk-error "$BAw$j$"$j%(%s%H%j$N%X%C%@!<$,$"$j$^$;$s!*(B" "Header line for okuri-ari entries is missing!" )) (if (re-search-forward "^;; okuri-nasi entries.$" nil 'noerror) (progn (beginning-of-line) ;; $B6&M-<-=q$J$i8GDj%]%$%s%H$G$bNI$$$N$@$,!"<-=q%P%C%U%!$GJT=8$r9T(B ;; $B$J$C$?$H$-$N$3$H$rG[N8$7$F%^!<%+!<$K$7$F$*$/!#(B (setq skk-okuri-ari-max (point-marker)) (forward-line 1) (backward-char 1) (setq skk-okuri-nasi-min (point-marker)) ) (skk-error "$BAw$j$J$7%(%s%H%j$N%X%C%@!<$,$"$j$^$;$s!*(B" "Header line for okuri-nasi entries is missing!" ))))) ;;;###skk-autoload (defun skk-search () ;; skk-current-search-prog-list $B$NMWAG$K$J$C$F$$$k%W%m%0%i%`$rI>2A$7$F!"(B ;; skk-henkan-key$B$r%-!<$K$7$F8!:w$r9T$&!#(B (let (l) (while (and (null l) skk-current-search-prog-list) (setq l (eval (car skk-current-search-prog-list)) skk-current-search-prog-list (cdr skk-current-search-prog-list) )) l )) (defun skk-search-relation () (let ((last (if (not (and skk-last-henkan-result (markerp skk-last-henkan-point) (< skk-last-henkan-point (point)) (< (- (point) skk-last-henkan-point) skk-relation-length) )) nil skk-last-henkan-result ))) (skk-attr-search-relation skk-henkan-key (or skk-henkan-okurigana skk-okuri-char) last ))) (defun skk-attr-search-relation (midasi okuri last) (if skk-debug (message "%S" midasi okuri last)) (or skk-attr-alist (skk-attr-read)) (let ((entries (cdr (skk-attr-get-table-for-midasi midasi okuri))) ret rest ) (if skk-debug (message "%S" entries)) (while entries (let* ((entry (car entries)) (rel (assq 'relation (cdr entry)))) (if (or (null last) (member last (cdr rel))) (setq ret (nconc ret (list (car entry)))) (setq rest (nconc rest (list (car entry)))) ) ) (setq entries (cdr entries)) ) (nconc ret rest) )) (defun skk-update-relation (midasi okuri word last &optional purge) (skk-attr-update-relation midasi okuri word last purge) ) (defun skk-attr-update-relation (midasi okuri word last &optional purge) (or skk-attr-alist (skk-attr-read)) (if skk-debug (message "update %S %S %S %S" midasi okuri word last)) (if purge (skk-attr-purge midasi okuri word) (let* ((table (skk-attr-get-table-for-midasi midasi okuri)) (entry (assoc word (cdr table))) (oldattr (assq 'relation (cdr entry))) (listlast (if last (list last) nil)) ) (cond (oldattr (if last (progn (setcdr oldattr (cons last (delete last (cdr oldattr)) )) (let ((tail (nthcdr skk-relation-record-num oldattr))) (if tail (setcdr tail nil) ))))) (entry (setcdr entry (cons (cons 'relation listlast) (cdr entry)))) (table (setcdr table (cons (list word (list 'okurigana okuri) (cons 'relation listlast) ) (cdr table) ))) ;; new entry (t (skk-attr-put-1 midasi okuri word 'relation listlast)) )))) (defun skk-search-jisyo-file (file limit &optional nomsg) ;; SKK $B<-=q%U%)!<%^%C%H$N(B FILE $B$G(B skk-henkan-key $B$r%-!<$K$7$F8!:w$r9T$&!#(B ;; $B8!:w%j!<%8%g%s$,(B LIMIT $B0J2<$K$J$k$^$G%P%$%J%j%5!<%A$r9T$$!"$=$N8e%j%K%"(B ;; $B%5!<%A$r9T$&!#(B ;; LIMIT $B$,(B 0 $B$G$"$l$P!"%j%K%"%5!<%A$N$_$r9T$&!#(B ;; $B<-=q$,%=!<%H$5$l$F$$$J$$$N$G$"$l$P!"(BLIMIT $B$r(B 0 $B$9$kI,MW$,$"$k!#(B ;; $B%*%W%7%g%J%k0z?t$N(B NOMSG $B$,(B non-nil $B$G$"$l$P(B skk-get-jisyo-buffer $B$N%a%C(B ;; $B%;!<%8$r=PNO$7$J$$$h$&$K$9$k!#(B (let ((jisyo-buffer (skk-get-jisyo-buffer file nomsg))) (if jisyo-buffer ;; skk-henkan-key $B$H(B skk-henkan-okurigana $B$O%+%l%s%H%P%C%U%!$N%m!<%+%k(B ;; $BCM!#(B (let ((okurigana (or skk-henkan-okurigana skk-okuri-char)) (midasi (if skk-use-numeric-conversion ;; skk-henkan-key $B$,(B nil $B$N$3$H$,$"$k!#2?8N(B? (skk-compute-numeric-henkan-key skk-henkan-key) skk-henkan-key )) entry-list entry ) (with-current-buffer jisyo-buffer (setq skk-henkan-key midasi entry-list (skk-search-jisyo-file-1 okurigana limit) ) (if entry-list (progn (setq entry (cond ((and okurigana skk-henkan-okuri-strictly) ;; $BAw$j2>L>$,F10l$N%(%s%H%j$N$_$rJV$9!#(B (nth 2 entry-list) ) ((and okurigana skk-henkan-strict-okuri-precedence) ;; $BAw$j2>L>$,F10l$N%(%s%H%j$N$&$7$m$K!"(B ;; $B$=$NB>$N%(%s%H%j$r$D$1$F$+$($9!#(B (skk-nunion (nth 2 entry-list) (car entry-list))) (t (car entry-list)) )) (if (and (boundp 'skk-attr-search-function) skk-attr-search-function ) (funcall skk-attr-search-function midasi okurigana entry) entry )))))))) (defun skk-search-jisyo-file-1 (okurigana limit &optional delete) ;; skk-search-jisyo-file $B$N%5%V%k!<%A%s!#(Bskk-compute-henkan-lists $B$r;HMQ$7!"(B ;; $B8+=P$78l$K$D$$$F$N%(%s%H%j$N>pJs$rJV$9!#(B ;; DELETE $B$,(B non-nil $B$G$"$l$P!"(BMIDASI $B$K%^%C%A$9$k%(%s%H%j$r:o=|$9$k!#(B (let ((key (concat "\n" skk-henkan-key " /")) min max size p ) (save-match-data ;; skk-okuri-ari-min $B$H(B skk-okuri-ari-max $B$O<-=q%P%C%U%!$N%m!<%+%kCM!#(B (if okurigana (setq min skk-okuri-ari-min max skk-okuri-ari-max ) (setq min skk-okuri-nasi-min max (point-max) )) (if (> limit 0) (while (progn (setq size (- max min)) (> size limit)) (goto-char (+ min (/ size 2))) (beginning-of-line) (setq p (point)) ;; $BAw$j$"$j$J$i5U=g$KHf3S$r9T$J$&!#(B (if (if okurigana (string< (skk-buffer-substring p (1- (search-forward " "))) skk-henkan-key ) (string< skk-henkan-key (skk-buffer-substring p (1- (search-forward " "))) )) (setq max p) (setq min p) ))) (goto-char min) ;; key $B$,8!:w3+;OCOE@$K$"$C$?>l9g$G$b8!:w2DG=$J$h$&$K0lJ8;zLa$k!#(Bkey $B$,(B ;; $B$=$N@hF,ItJ,$K(B "\n" $B$r4^$s$G$$$k$3$H$KCm0U!#(B (or (bobp) (backward-char 1)) ;; $B8zN($,NI$$$h$&$K(B kanji-flag, mc-flag, enable-multibyte-characters $B$r(B ;; nil $B$K$7$F$*$/!#(B ;; case-fold-search $B$O!"<-=q%P%C%U%!$G$O>o$K(B nil$B!#(B (let (mc-flag) ;; enable-multibyte-characters) (if (search-forward key max 'noerror) (prog1 (skk-compute-henkan-lists okurigana) (if delete (progn (beginning-of-line) (delete-region (point) (progn (forward-line 1) (point)) ))))))))) (defun skk-compute-henkan-lists (okurigana) ;; $B<-=q%(%s%H%j$r(B 4 $B$D$N%j%9%H$KJ,2r$9$k!#(B ;; ;; $BAw$j$J$7(B ($BNc$($P!"<-=q%(%s%H%j(B "$B$F$s$5$$(B /$BE>:\(B/$BE7:R(B/$BE7:M(B/" $B$N=hM}(B) ;; entry1 := ("$BE>:\(B" "$BE7:R(B" "$BE7:M(B") == $BA4%(%s%H%j(B ;; entry2 := nil ;; entry3 := nil ;; entry4 := nil ;; ;; $BAw$j$"$j(B ($BNc$($P!"!V5c$/!W$NJQ49$r9T$C$?>l9g$N!"<-=q%(%s%H%j(B ;; "$B$J(Bk /$BK4(B/$BL5(B/$BLD(B/$B5c(B/[$B$/(B/$BL5(B/$BLD(B/$B5c(B/]/[$B$-(B/$BK4(B/]/" $B$N=hM}(B) ;; entry1 := ("$BK4(B" "$BL5(B" "$BLD(B" "$B5c(B") == $B4A;zItJ,$NA4%(%s%H%j(B ;; entry2 := ("[$B$/(B") == $BB>$NAw$j2>L>$r;H$&4A;z%(%s%H%j(B ($B$"$l(B ;; $B$P(B) + $B:#2s$NJQ49$NAw$j2>L>ItJ,(B ;; entry3 := ("$BL5(B" "$BLD(B" "$B5c(B") == $B:#2s$NJQ49$NAw$j2>L>$r;H$&2DG=@-$N(B ;; $B$"$kA44A;z%(%s%H%j(B ;; entry4 := ("]" "[$B$-(B" "$BK4(B" "]") == $BB>$NAw$j2>L>$r;H$&4A;z%(%s%H%j(B ($B;D(B ;; $B$j!#$"$l$P(B) ;; ;; * "[" $B$OD>8e$KB3$/$R$i$,$J$rAw$j2>L>$K;}$D4A;z$N%(%s%H%j$N=i$^$j$rI=$7!"(B ;; "]" $B$O!"3:Ev$NAw$j2>L>%0%k!<%W$N=*$j$r<($9!#(B ;; ;; $B$3$N4X?t$O!"JQ49;~$H!"3NDjD>8e$N<-=q$N%"%C%W%G!<%H;~$N(B 2 $BEY8F$P$l$k(B ;; ($BJQ49;~$K8!:w$r9T$C$?<-=q$,!"(Bskk-jisyo $B$H$O8B$i$J$$$N$G!"(B2 $BEY7W;;$;$6$k(B ;; $B$rF@$J$$(B)$B!#(B ;; ;; $BJQ49;~$O!"(Bskk-henkan-okuri-strictly $B$,(B non-nil $B$G$"$l$P!"(B ;; $B7W;;7k2L$N(B entry3$B$r!"(Bskk-henkan-okuri-strictly $B$,(B nil $B$G$"$C$F(B ;; $B$+$D(B skk-henkan-strict-okuri-precedence $B$,(B non-nil $B$"$l$P(B ;; (skk-uniion entry3 entry1) $B$r<h$j=P$9!#(B ;; $B$U$?$D$NJQ?t$,$H$b$K(B nil $B$N>l9g$O(B entry1 $B$r<h$j=P$9!#(B (if (not okurigana) (list (string-split "/" (skk-buffer-substring (point) (progn (end-of-line) (1- (point))) )) nil nil nil ) (save-match-data (let ((stage 1) (q1 (queue-create)) (q2 (queue-create)) (q3 (queue-create)) (q4 (queue-create)) (okuri-key (concat "\[" okurigana)) item headchar ) (catch 'exit (while (not (eolp)) (setq item (skk-buffer-substring (point) (1- (search-forward "/"))) headchar (if (string= item "") (skk-int-char 0) (aref item 0)) ) (cond ((and (eq headchar ?\[) ; ?\[ (<= stage 2) ) (if (string= item okuri-key) (progn (queue-enqueue q2 item) (setq stage 3) ) (setq stage 2) (queue-enqueue q2 item) )) ((eq stage 1) (queue-enqueue q1 item) ) ((eq stage 2) (queue-enqueue q2 item) ) ((eq stage 3) (if (eq headchar ?\]) ; ?\] (progn (setq stage 4) (queue-enqueue q4 item) ) (queue-enqueue q3 item) )) ((eq stage 4) (queue-enqueue q4 item) )))) ;; entry1 entry2 entry3 entry4 (list (queue-all q1) (queue-all q2) (queue-all q3) (queue-all q4)) )))) ;; $B%-%e!<4XO"$N4X?t$N;HMQ$K:]$7$F$O!"!V%W%m%0%i%`$N9=B$$H<B9T!W(B(H. $B%(!<%Y%k%=(B ;; $B%s!"(BG.J.$B%5%9%^%s!"(BJ.$B%5%9%^%sCx!"855HJ8CKLu!#%^%0%m%&%R%k=PHG(B) $B$H(B Elib (the ;; GNU emacs lisp library version 1.0) $B$r;29M$K$7$?!#>e5-$NJ88%$G2r@b$5$l$F$$(B ;; $B$k%-%e!<$NI=8=$O!"(BElib $B$N(B queue-m.el $B$K$*$$$F<B8=$5$l$F$$$k$b$N$H$[$\F1$8<B(B ;; $BAu$H$J$C$F$$$k!#(B ;; ;; $B%j%9%H$G$N%-%e!<$NI=8=$O!"6qBNE*$K$ONc$($P(B ((A B C D E F) F) $B$N$h$&$J7A$K$J$C(B ;; $B$F$*$j!"(Bcar $B$N%j%9%H(B (A B C D E F) $B$,%-%e!<$NA4BN$rI=$o$7!"%-%e!<$N(B nth 1 ;; $B$r<h$C$?$H$-$N(B F $B$,%-%e!<$N:G8eHx$rI=$o$9!#%-%e!<$N(B cdr $B$r<h$C$?$H$-$N(B (F) ;; $B$H$$$&%j%9%H$O!"%-%e!<$N(B car $B$KBP$7(B nthcdr 5 $B$r<h$C$?$H$-$N%j%9%H(B (F) $B$HF1(B ;; $B$8$b$N$G$"$k!#=>$$!"(Bcdr $B$N%j%9%H$N8e$K?7$7$$MWAG$rDI2C$9$k$3$H$G!"(Bcar $B$GI=(B ;; $B$o$5$l$k%-%e!<$NKvHx$K?7$7$$MWAG$rDI2C$9$k$3$H$,$G$-$k!#(B ;; $B0lJ}!"(Bnconc $B$d(B append $B$G$D$J$0$K$O!"$=$l$i$N4X?t$NBh#10z?t$N%j%9%H$NA4$F$N(B ;; $BMWAG$rAv::$;$M$P$J$i$:!"(BO(n) $B$N;~4V$,$+$+$k$N$G!"D9$$%j%9%H$r$D$J$0$H$-$OHf(B ;; $B3SE*%3%9%H$,$+$+$k!#(B ;; ;; $B$5$F!"6u$N(B queue == (cons nil nil) $B$KBP$7!"?7$7$$MWAG(B A $B$rDI2C$9$kJ}K!$r@b(B ;; $BL@$9$k!#$^$:!"?7$7$$MWAG(B A $B$N$_$r4^$s$@D9$5(B 1 $B$N%j%9%H(B (A) $B$r:n$k(B ($B2>$K(B ;; new-pair $B$H$$$&JQ?t$K<h$k(B)$B!#<!$K!"(B(setcar queue new-pair) $B$r9T$J$&$3$H$K$h(B ;; $B$j!"(Bqueue $B$,(B ((A)) $B$H$J$k(B (setcar, setcdr $B$NJV$jCM$O!"(Bnew-pair $B$G$"$k$3$H$K(B ;; $BCm0U(B)$B!#<!$K(B (setcdr queue new-pair) $B$7$F(B ((A) A) $B$H$J$C$?$H$3$m$r?^<($9$k!#(B ;; front, rear $B$NN>J}$N%]%$%s%?$,(B (A) $B$r;X$9$h$&$K$9$k(B ($B%-%e!<$NMWAG$,(B A $B$7$+(B ;; $B$J$$$N$G!"(Bfront, rear $B%]%$%s%?$H$b$KF1$8$b$N$r;X$7$F$$$k(B)$B!#(B ;; queue ;; +-------+-------+ ;; | Front | Rear | ;; +---|---+---|---+ ;; | +---> +---------------+ ;; +------------>| o | nil | ;; +---|---+-------+ ;; | +-------+ ;; +----> | A | ;; +-------+ ;; ;; $B>e5-$N(B queue, ((A) A) $B$KBP$7!"99$K?7$7$$MWAG(B B $B$rDI2C$9$k!#Nc$K$h$j(B B $B$N$_(B ;; $B$r4^$`D9$5(B 1 $B$N%j%9%H(B (B) $B$r:n$j!"JQ?t(B new-pair $B$K<h$k!#$3$3$G(B ;; (setcdr (cdr queue) new-pair) $B$rI>2A$9$k$H(B ($BCm(B1)$B!"(B* $B$N8D=j$N%]%$%s%?A`:n$,(B ;; $B9T$J$o$l$k!#%-%e!<$N:G8eJ}$K?7$7$$MWAG$G$"$k(B B $B$,DI2C$5$l$k$3$H$K$J$k!#(B ;; queue $B$O(B ((A B) A B) $B$H$J$k!#(B ;; queue ;; +-------+-------+ ;; | Front | Rear | ;; +---|---+---|---+ ;; | +---> +---------------+ * +---------------+ ;; +------------>| o | o --|------->| o | nil | ;; +---|---+-------+ +-------+-------+ ;; | +-------+ | +-------+ ;; +----> | A | +----> | B | ;; +-------+ +-------+ ;; ;; $BCm(B1; $BDI2CA0$N%-%e!<$NMWAG$,(B 1 $B$D$N$H$-$O!"(Bfront $B$b(B rear $B$bF1$8$b$N$r;X$7(B ;; $B$F$$$k$N$G(B (setcdr (car queue) new-pair) $B$G$bEy2A$@$,!"%-%e!<$NMWAG(B ;; $B$,(B 2 $B$D0J>e$N$H$-$O(B (setcdr (cdr queue) new-pair) $B$G$J$$$H$^$:$$!#(B ;; ;; $B:G8e$K(B (setcdr queue new-pair) $B$rI>2A$9$k$3$H$K$h$j!"(Brear $B%]%$%s%?$rD%$jJQ(B ;; $B$($k(B (* $B$N8D=j$N%]%$%s%?A`:n$,9T$J$o$l$k(B)$B!#(Brear $B%]%$%s%?$,%-%e!<$N:G8eJ}$N(B ;; $BMWAG$r;X$9$h$&$K$9$k!#(Bfront $B%]%$%s%?$,;X$9%j%9%H$O%-%e!<$NA4$F$NMWAG$rI=$o(B ;; $B$9!#(B ;; queue ;; +-------+-------+ * ;; | Front | Rear |---------------------+ ;; +---|---+-------+ | ;; | +---------------+ +--> +---------------+ ;; +------------>| o | o --|------->| o | nil | ;; +---|---+-------+ +-------+-------+ ;; | +-------+ | +-------+ ;; +----> | A | +----> | B | ;; +-------+ +-------+ ;; ;; $B$3$N$h$&$K%-%e!<$N:G8eJ}$K?7$7$$MWAG$rDI2C$9$k$3$H(B ($B%j%9%H$N:G8eJ}$KD9$5(B 1 ;; $B$N?7$7$$%j%9%H$r$D$J$2$k$3$H(B) $B$,(B 2 $B2s$N%]%$%s%?A`:n$G2DG=$H$J$k$N$G!"$I$N$h(B ;; $B$&$JD9$$%j%9%H$G$"$C$F$bO"7k$K$+$+$k%3%9%H$O0lDj(B (O(1) $B$N4X?t$G$"$k(B) $B$G$"$k!#(B ;; $B$J$*!"8=>u$G$O!"J?6Q$7$F0B2A$K%j%9%H$N:G8eJ}$KMWAG$r$D$J$2$k!"$H$$$&L\E*$K(B ;; $B$@$1%-%e!<$r;H$C$F$$$k!#%-%e!<K\Mh$NL\E*$G$O;HMQ$7$F$*$i$J$$$N$G!"Nc$($P!"(B ;; $B2<5-$N$h$&$J4X?t$O;HMQ$7$F$$$J$$!#(B ;; queue-last, queue-first, queue-nth, queue-nthcdr, queue-dequeue ;;;###skk-autoload (defun skk-nunion (x y) ;; X $B$H(B Y $B$NOB=89g$r:n$k!#Ey$7$$$+$I$&$+$NHf3S$O!"(Bequal $B$G9T$o$l$k!#(BX $B$K(B Y ;; $B$rGK2uE*$KO"@\$9$k!#(B (cond ((null x) y) ((null y) x) (t (let ((e x)) (while e (setq y (delete (car e) y) e (cdr e) )) (if y ;; $B>e5-$N(B while $B%k!<%W$NCf$N(B delete $B$H2<5-$N(B nconc $B$H$r9g$o$;(B ;; $B$F!"A4It$G(B X $B$r(B 2 $B2s!"(BY $B$r(B X $B2sAv::$7$?$3$H$K$J$k!#%=!<(B ;; $B%H$5$l$F$$$J$$=89gF1;N$+$i=89g$r:n$k0J>e(B ($B8uJd$O%=!<%H$7$F(B ;; $B$O$J$i$J$$(B) $B!"C`<!Av::$K$J$k$N$G$3$l$O;_$`$rF@$J$$$+(B...$B!#(B (nconc x y) x ))))) (defun skk-search-kakutei-jisyo-file (file limit &optional nomsg) ;; $B<-=q%U%!%$%k$rC5$7!"8uJd$r%j%9%H$GJV$9!#(B ;; $B8uJd$r8+$D$1$?>l9g$O!"Bg0hJQ?t(B skk-kakutei-flag $B$K(B non-nil $B$rBeF~$9$k!#(B ;; $B8uJd$,8+$D$+$i$J$+$C$?>l9g$O!"(Bnil $B$rJV$9!#(B (setq skk-kakutei-flag (skk-search-jisyo-file file limit nomsg)) ) ;;;###skk-autoload (defun skk-update-jisyo (word &optional purge) ;; WORD $B$,<!$NJQ49;~$K:G=i$N8uJd$K$J$k$h$&$K!"%W%i%$%Y!<%H<-=q$r99?7$9$k!#(B ;; PURGE $B$,(B non-nil $B$G(B WORD $B$,6&M-<-=q$K$"$k%(%s%H%j$J$i(B skk-ignore-dic-word ;; $B4X?t$G%/%)!<%H$7$?%(%s%H%j$r%W%i%$%Y!<%H<-=q$K:n$j!"<!$NJQ49$+$i=PNO$7$J(B ;; $B$$$h$&$K$9$k!#(B ;; WORD $B$,6&M-<-=q$K$J$1$l$P!"%W%i%$%Y!<%H<-=q$N<-=q%(%s%H%j$+$i:o=|$9$k!#(B ;; ;; SKK 9.x $B$h$j!"%W%i%$%Y!<%H<-=q$N%(%s%H%j$NA^F~$NJ}K!$rJQ99$7$?(B (9.3 $B$N$_(B ;; $B$ONc30(B)$B!#(B ;; ;; $B!ZJQ99A0![(B ;; ;; okuri-ari entries. ;; $B8+%-(B $B$o$k(Bk /$B0-(B/[$B$+(B/$B0-(B/]/[$B$/(B/$B0-(B/]/ ;; $B=P!<(B $B$o$k(Bi /$B0-(B/[$B$$(B/$B0-(B/]/ ;; $B$7$K(B $B$o$?(Bs /$BEO(B/[$B$5(B/$BEO(B/]/[$B$;(B/$BEO(B/]/ ;; $B8l9_(B $B$o$9(Br /$BK:(B/[$B$l(B/$BK:(B/]/ ;; $B$r=g(B $B$o$+(Bt /$BJ,(B/$BH=(B/[$B$C$?(B/$BJ,(B/$BH=(B/]/[$B$C$F(B/$BJ,(B/]/ ;; $B"-(B ..... ;; $B$"(Bi /$B9g(B/[$B$$(B/$B9g(B/]/ ;; ;; okuri-nasi entries. ;; $BJQ$G(B $B$8$g$&$?$$(B /$B>uBV(B/ ;; $B49>:(B $B$=$&$K$e$&(B /$BA^F~(B/ ;; $B=g=g(B $B$+$J(B /$B2>L>(B/ ;; $B"-(B ... ;; ... ;; ;; $B!ZJQ998e![(B ;; ;; okuri-ari entries. ;; $BJQ$G(B $B$G(Bt /$B=P(B/[$B$F(B/$B=P(B/]/[$B$?(B/$B=P(B/]/ ;; $B49>:(B $B$D(Bi /$BIU(B/[$B$$(B/$BIU(B/]/ ;; $B=g=g(B $B$1(Bs /$B>C(B/[$B$9(B/$B>C(B/]/[$B$7(B/$B>C(B/]/[$B$;(B/$B>C(B/]/[$B$5(B/$B>C(B/]/ ;; $B"-(B $B$+$((Bs /$BJV(B/[$B$7(B/$BJV(B/]/[$B$9(B/$BJV(B/]/[$B$5(B/$BJV(B/]/[$B$;(B/$BJV(B/]/ ;; ... ;; ... ;; $B$J$,(Bs /$BD9(B/$BN.(B/[$B$7(B/$BN.(B/]/[$B$5(B/$BD9(B/]/[$B$=(B/$BN.(B/]/ ;; ;; okuri-nasi entries. ;; $BJQ$G(B $B$8$g$&$?$$(B /$B>uBV(B/ ;; $B49>:(B $B$=$&$K$e$&(B /$BA^F~(B/ ;; $B=g=g(B $B$+$J(B /$B2>L>(B/ ;; $B"-(B ... ;; ... ;; ;; skk-auto-okuri-process $B$,(B non-nil $B$N$H$-$K!"(B(j-okuri-search $B2~$a(B) ;; skk-okuri-search $B$O8+=P$78l$ND9$$=g$K8uJd$rJV$9I,MW$,$"$k!#(B ;; SKK 8.6 $B$^$G$O!"(Bskk-okuri-search $B$,(B j-okuri-ari-min $B$+$i(B j-okuri-ari-max ;; $B$^$G$r=g$KC5$7!"8+$D$1$?$b$N=g$K8uJd$rJV$9$?$a$K%W%i%$%Y!<%H<-=q$,8+=P$7(B ;; $B8l$r%-!<$H$7$F9_=g$K%=!<%H$5$l$F$$$kI,MW$,$"$C$?!#(B ;; SKK 9.x $B$G$O!"(Bskk-okuri-search $B$,!"8+IU$1$?8uJd$r8+=P$78l$r%-!<$H$7$F>:=g(B ;; $B$K%=!<%H$7$FJV$9$?$a!"%W%i%$%Y!<%H<-=q$N%=!<%H$OI,MW$G$J$$!#$h$C$F!":G8e(B ;; $B$KJQ49$7$?$b$N$r(B (j-okuri-ari-min $B2~$a(B) skk-okuri-ari-min $B$N0LCV$KA^F~$9(B ;; $B$k!#(B ;; (let ((jisyo-buffer (skk-get-jisyo-buffer skk-jisyo 'nomsg)) (midasi (if skk-use-numeric-conversion (skk-compute-numeric-henkan-key skk-henkan-key) skk-henkan-key )) (last skk-last-henkan-result) (last-point skk-last-henkan-point) (here (point)) ) (if jisyo-buffer (let ((inhibit-quit t) buffer-read-only old-entry okurigana) (if skk-auto-okuri-process (setq word (skk-remove-common word)) ) (setq okurigana (or skk-henkan-okurigana skk-okuri-char)) ;; midasi skk-henkan-key ) (with-current-buffer jisyo-buffer ;; $B4{B8%(%s%H%j$r8!:w8e>C5n$9$k!#A^F~$9$Y$-%(%s%H%j$,(B entry1 $B$K(B 1 ;; $B$D$7$+$J$/!"(Bword $B$HF1$8J8;z$G$"$C$F$b!"$$$C$?$s>C$7$F$=$N%(%s%H(B ;; $B%j$r(B min $B%]%$%s%H$K0\F0$5$;$J$1$l$P$J$i$J$$(B ($BFI$_$NJd40$r9T$&$H(B ;; $B$-$O!"(Bmin $B%]%$%s%H$+$i8+=P$7$rC5$9$?$a!"?7$7$$8+=P$7$[$I!"(Bmin ;; $B%]%$%s%H$K6a$$$H$3$m$K$J$1$l$P$J$i$J$$(B)$B!#(B (setq skk-henkan-key midasi old-entry (skk-search-jisyo-file-1 okurigana 0 'delete) ) (skk-update-jisyo-1 okurigana word old-entry purge) (if skk-use-relation (progn (if (not (and last (markerp last-point) (< last-point here) (< (- here last-point) skk-relation-length) )) (setq last nil) ) (skk-update-relation midasi okurigana word last purge) )) (if skk-debug (message "%S %S %S" last last-point here)) ;;(if (featurep 'skk-attr) ;; (progn ;; (and skk-attr-default-update-function ;; (funcall skk-attr-default-update-function midasi ;; okurigana word purge )) ;; (and skk-attr-update-function ;; (funcall skk-attr-update-function midasi okurigana ;; word purge )))) ;; auto save. (if skk-jisyo-save-count (if (> skk-jisyo-save-count skk-update-jisyo-count) (setq skk-update-jisyo-count (1+ skk-update-jisyo-count)) (setq skk-update-jisyo-count 0) (skk-save-jisyo 'quiet) )) ;; $B<-=q%P%C%U%!$r%*!<%W%s$7$?$H$-$K(B auto-save-mode $B$r%*%U$K$7$F$*(B ;; $B$1$PKhEY2<5-$N$h$&$JA`:n$r$7$J$/$F:Q$`!#(B ;; ;; $B$3$&$7$F$*$1$P!"<-=q%P%C%U%!$O%*!<%H%;!<%V$5$l$J$/$F:Q$`!#(B ;;(set-buffer-modified-p nil) ))))) (defun skk-update-jisyo-1 (okurigana word old-entry-list purge) ;; $B4{B8%(%s%H%j$+$i7W;;$7$?(B entry[1-4] $B$NCM$H!":#2s$NJQ49$N7k2L(B word $B$H$r%^!<(B ;; $B%8$7$F!"?7$?$J%(%s%H%j$r7W;;$7!"A^F~$9$k!#(B (let ((entry1 (car old-entry-list)) (entry2 (nth 1 old-entry-list)) (entry3 (nth 2 old-entry-list)) (entry4 (nth 3 old-entry-list)) ) (if (not purge) ;; entry1 $B$N@hF,$N%(%s%H%j$r(B word $B$K$9$k!#(B (setq entry1 (cons word (delete word entry1))) ;; $BAw$j$J$7!"$b$7$/$O(B skk-henkan-okuri-strictly $B$H(B ;; skk-henkan-strict-okuri-precedence $B$,(B nil $B$N>l9g!#(B (if (or (not okurigana) (not (or skk-henkan-okuri-strictly skk-henkan-strict-okuri-precedence ))) ;; entry1 $B$r(B purge$B!#6&MQ<-=q$K$"$k%(%s%H%j$@$C$?$i!"(B ;; skk-ignore-dic-word $B$G%/%)!<%H$7$F<!$NJQ49$+$i=PNO$7$J$$$h$&$K$9(B ;; $B$k!#6&MQ<-=q$K$J$$J8;zNs$O(B word $B$r>C$9!#(B (if (skk-public-jisyo-contains-p okurigana word) (setq entry1 (skk-compose-ignore-entry entry1 word)) (setq entry1 (delete word entry1)) ) ;; $BAw$j$"$j$G!"$+$D(B skk-henkan-okuri-strictly $B$+(B ;; skk-henkan-strict-okuri-precedence $B$,(B non-nil $B$N>l9g$G!"$+$D(B ;; $B$3$N(B word $B$H%Z%"$K$J$kAw$j2>L>$,(B okurigana $B$7$+$J$$$H$-!#(B (if (and okurigana (or skk-henkan-okuri-strictly skk-henkan-strict-okuri-precedence ) (null (member word entry2)) (null (member word entry4)) ) (setq entry1 (delete word entry1)) ;; $B$=$NB>$N>l9g$O2?$b$7$J$$!#(B ))) (if (null entry1) ;; entry1 $B$,(B null $B$G$"$l$P!"$b$&2?$b$9$k$3$H$O$J$$!#(B nil (goto-char (if okurigana skk-okuri-ari-min skk-okuri-nasi-min)) (insert "\n" skk-henkan-key " /") ;; entry1 -- $BA4%(%s%H%j(B ($BAw$j$J$7$N>l9g(B) or $B4A;zItJ,$NA4%(%s%H%j(B ($BAw$j$"(B ;; $B$j$N>l9g(B) (insert (mapconcat 'skk-quote-char entry1 "/") "/") (if (not okurigana) nil ;; entry2 $B0J9_$N%(%s%H%j$r=hM}$9$k$N$O!"Aw$j$"$j$N>l9g$N$_!#(B ;; $B@h$KA^F~$9$Y$-%(%s%H%j$r7W;;!"D4@0$9$k!#(B (if entry3 (if (not purge) (setq entry3 (cons word (delete word entry3))) (setq entry3 (delete word entry3)) (if (null entry3) ;; entry3 $B$H$7$FA^F~$9$k$b$N$,A4$/$J$1$l$P!"(B"/[$B$/(B/]/" $B$N$h(B ;; $B$&$JAw$j2>L>$N$_$N%(%s%H%j$r:n$i$J$$$h$&$K$9$k(B ($BI,MW$G(B ;; $B$"$l$P!"(Bentry2 $B$N:G8eJ}$H(B) entry4 $B$N@hF,$N%(%s%H%j(B "]" ;; $B$r:o=|!#(B (let ((last2 (nthcdr (- (length entry2) 2) entry2))) ;; entry2 $B$N:G8eJ}$O>o$K(B "[$BAw$j2>L>(B" $B$H$O8B$i$J$$!#(B (if (string= (nth 1 last2) (concat "[" okurigana)) (setcdr last2 nil) ) ;; entry4 $B$N@hF,$O>o$K(B "]"$B!#(B (setq entry4 (cdr entry4)) ))) ;; entry3 $B$,(B null $B$G$"$l$P(B (if (or skk-process-okuri-early purge) ;; skk-process-okuri-early $B$,(B non-nil $B$J$iAw$j2>L>$,J,$i$J$$$N$G(B ;; $B2?$b$7$J$$!#(B-- $B:#2s;HMQ$7$?Aw$j2>L>$,$o$+$i$J$$$^$^JQ49$7$F$$(B ;; $B$k$N$G!"A4$F$N%(%s%H%j$,(B entry2 $B$KF~$C$F$$$k(B -- entry3, ;; entry4 $B$O(B null$B!#(B ;; entry3 $B$H$7$FA^F~$9$k$b$N$,A4$/$J$1$l$P!"2?$b$7$J$$(B -- entry3 ;; $B$,(B purge $BA0$+$i(B null $B$J$i!"(Bentry2 $B$NKvHx$O(B "[" $B$G$J$$$7!"(B ;; entry4 $B$O(B null $B$@$+$i(B entry[234] $B$NA`:n$OITMW!#(B nil (setq entry2 (nconc entry2 (list (concat "[" okurigana))) entry3 (list word) ;; purge $BA0$+$i(B entry3 $B$,(B null $B$@$C$?$N$@$+$i(B entry4 $B$b(B null$B!#(B entry4 (list "]") )))) (if entry2 ;; entry2 -- $B:#2s;HMQ$7$J$+$C$?Aw$j2>L>$r;H$&4A;z$N8uJd72(B + "[" + $B:#(B ;; $B2s;HMQ$7$?Aw$j2>L>(B ($BAw$j2>L>$N$_!#$=$NAw$j2>L>$r;HMQ$9$k4A;z$N8u(B ;; $BJd72$O!"(Bentry3 $B$K4^$^$l$k(B)$B!#(B (progn (insert (mapconcat 'skk-quote-char entry2 "/" ) "/") ;; entry2 $B$,(B null $B$J$i(B entry3 $B$b(B null$B!#(B (if entry3 ;; entry3 -- $B:#2s;HMQ$7$?Aw$j2>L>$r;H$&A44A;z%(%s%H%j(B (insert (mapconcat 'skk-quote-char entry3 "/") "/") ) ;; purge $B$G(B entry3 $B$,(B null $B$K$J$C$?>l9g$O(B entry4 $B$,;D$C$F$$$k$H$-(B ;; $B$,$"$k!#(B (if entry4 ;; entry4 -- "]" + $BB>$NAw$j2>L>$r;H$&A44A;z%(%s%H%j(B (entry2 $B$N(B ;; $B;D$j(B)$B!#(B (insert (mapconcat 'skk-quote-char entry4 "/") "/") )))))) (defun skk-quote-char (word) ;; $B<-=q$N@)8B$+$i<-=q%(%s%H%jFb$K4^$a$F$O$J$i$J$$J8;z$,(B WORD $B$NCf$K$"$l$P!"(B ;; $BI>2A$7$?$H$-$K$=$NJ8;z$H$J$k$h$&$J(B Lisp $B%3!<%I$rJV$9!#(B (save-match-data (if (and word (string-match "[/\n\r\"]" word) ;; we should not quote WORD if it is a symbolic expression (not (skk-lisp-prog-p word)) ) (concat "(concat \"" (mapconcat (function (lambda (c) (cond ((eq c ?/) ; ?/ "\\057" ) ((eq c ?\n) ; ?\n "\\n" ) ((eq c ?\r) ; ?\r "\\r" ) ((eq c ?\") ; ?\" "\\\"" ) ((eq c ?\\) ; ?\\ "\\\\" ) (t (char-to-string c))))) ;; $BJ8;zNs$rBP1~$9$k(B char $B$N%j%9%H$KJ,2r$9$k!#(B (append word nil) "") "\")") word ))) (defun skk-lisp-prog-p (word) ;; word $B$,(B Lisp $B%W%m%0%i%`$G$"$l$P!"(Bt $B$rJV$9!#(B (let ((l (length word))) (and (> l 2) (eq (aref word 0) ?\() ; ?\( (< (aref word 1) 128) (eq (aref word (1- l)) ?\)) ))) ; ?\) (defun skk-public-jisyo-contains-p (okurigana word) ;; $B6&M-<-=q$,(B MIDASHI $B5Z$S$=$l$KBP1~$9$k(B WORDS $B%(%s%H%j$r;}$C$F$$$l$P!"(B ;; non-nil $B$rJV$9!#%W%i%$%Y!<%H<-=q$N%P%C%U%!$G%3!<%k$5$l$k!#(B (let (fn skk-henkan-okuri-strictly skk-henkan-strict-okuri-precedence) (if okurigana (setq skk-henkan-okurigana okurigana) ) (if (and (not (featurep 'skk-server)) (or (and (boundp 'skk-server-host) skk-server-host) (and (boundp 'skk-servers-list) skk-servers-list) (getenv "SKKSERVER") (getenv "SKKSERV") )) (require 'skk-server) ) (if (and (featurep 'skk-server) (or (and skk-server-host skk-server-prog) skk-servers-list )) (setq fn (assq 'skk-search-server skk-search-prog-list)) ) ;; skk-search-server $B$+$i;O$^$k%j%9%H$,$J$1$l$P!"$H$K$+$/Bg$-$$<-=q$r0z?t(B ;; $B$K$7$F$$$k(B skk-search-jisyo-file $B%W%m%0%i%`$rC5$9!#(B (if (and (not fn) (or skk-aux-large-jisyo skk-large-jisyo)) (let ((spl skk-search-prog-list) cell ) (while (setq cell (car spl)) (if (and (eq (car cell) 'skk-search-jisyo-file) (member (nth 1 cell) '(skk-aux-large-jisyo skk-large-jisyo) )) (setq fn cell spl nil ) (setq spl (cdr spl)) )))) (and fn (member word (eval fn))) )) (defun skk-compose-ignore-entry (entry &optional add) ;; ENTRY $B$NCf$K(B skk-ignore-dic-word $B4X?t$G%/%)!<%H$7$?%(%s%H%j$,$"$l(B ;; $B$P!"0l$D$N%(%s%H%j$K$^$H$a$k!#(B ;; $B%*%W%7%g%J%k0z?t$N(B ADD $B$,;XDj$5$l$F$$$?$i!"(BADD $B$r4^$a$?(B ;; skk-ignore-dic-word $B%(%s%H%j$r:n$k!#(B ;; $B?7$7$$(B skk-ignore-dic-word $B%(%s%H%j$r(B car $B$K!"$=$l0J30$N%(%s%H%j(B cdr $B$K$7(B ;; $B$?%j%9%H$rJV$9!#(B (let (l arg e) (if add (setq entry (delete add entry))) (setq l entry) (save-match-data (while l (setq e (car l) l (cdr l) ) (if (string-match "(skk-ignore-dic-word +\\([^\)]+\\))" e) (setq arg (concat arg (substring e (1+ (match-beginning 1)) (1- (match-end 1)) ) "\" \"" ) entry (delq e entry) ))) (if add (setq arg (if arg (concat arg add) add)) ;; $BKvHx$N(B " \"" $B$r@Z$jMn$H$9!#(B (setq arg (substring arg 0 -2)) ) (cons (concat "(skk-ignore-dic-word \"" arg "\")") entry) ))) (defun skk-katakana-region (start end &optional vcontract) "$B%j!<%8%g%s$N$R$i$,$J$r%+%?%+%J$KJQ49$9$k!#(B $B%*%W%7%g%J%k0z?t$N(B VCONTRACT $B$,(B non-nil $B$G$"$l$P!"(B\"$B$&!+(B\" $B$r(B \"$B%t(B\" $B$KJQ49$9(B $B$k!#(B $B0z?t$N(B START $B$H(B END $B$O?t;z$G$b%^!<%+!<$G$bNI$$!#(B" (interactive "*r\nP") (let ((diff (if skk-mule (- ?$B%"(B ?$B$"(B))) ch ) (skk-save-point (save-match-data ;;(if (and skk-henkan-active skk-use-face) (skk-henkan-face-off)) (goto-char start) (while (re-search-forward "[$B$!(B-$B$s(B]" end 'noerror) (setq ch (preceding-char)) ;; firstly insert a new char, secondly delete an old char to save ;; the cursor position. (if skk-mule (progn (backward-char 1) (cancel-undo-boundary) (insert (+ ch diff)) ) (backward-char 2) (cancel-undo-boundary) (insert ?\245 ch) ) (cancel-undo-boundary) (delete-region (+ (match-beginning 0) skk-kanji-len) (+ (match-end 0) skk-kanji-len) )) (if vcontract (progn (goto-char start) (while (re-search-forward "$B%&!+(B" end 'noerror) (if skk-mule (backward-char 2) (backward-char 3) ) (cancel-undo-boundary) (insert "$B%t(B") (cancel-undo-boundary) (delete-region (+ (match-beginning 0) skk-kanji-len) (+ (match-end 0) skk-kanji-len) )))) ;;(if (and skk-henkan-active skk-use-face) (skk-henkan-face-on)) (skk-set-cursor-properly) )))) (defun skk-hiragana-region (start end &optional vexpand) "$B%j!<%8%g%s$N%+%?%+%J$r$R$i$,$J$KJQ49$9$k!#(B $B%*%W%7%g%J%k0z?t$N(B VEXPAND $B$,(B non-nil $B$G$"$l$P!"(B\"$B%t(B\" $B$r(B \"$B$&!+(B\" $B$KJQ49$9$k!#(B $B0z?t$N(B START $B$H(B END $B$O?t;z$G$b%^!<%+!<$G$bNI$$!#(B \"$B%u(B\" $B$H(B \"$B%v(B\" $B$OJQ99$5$l$J$$!#$3$N(B 2 $B$D$NJ8;z$OBP1~$9$k$R$i$,$J$,$J$$$N$G!"%+(B $B%?%+%J$H$7$F$O07$o$l$J$$!#(B" (interactive "*r\nP") (let ((diff (if skk-mule (- ?$B%"(B ?$B$"(B))) ch ) (skk-save-point (save-match-data ;;(if (and skk-henkan-active skk-use-face) (skk-henkan-face-off)) (goto-char start) (while (re-search-forward "[$B%!(B-$B%s(B]" end 'noerror) (setq ch (preceding-char)) ;; firstly insert a new char, secondly delete an old char to save ;; the cursor position. (if skk-mule (progn (backward-char 1) (cancel-undo-boundary) (insert (- ch diff)) ) (backward-char 2) (cancel-undo-boundary) (insert ?\244 ch) ) (cancel-undo-boundary) (delete-region (+ (match-beginning 0) skk-kanji-len) (+ (match-end 0) skk-kanji-len) )) (if vexpand (progn (goto-char start) (while (re-search-forward "$B%t(B" end 'noerror) (backward-char 1) (cancel-undo-boundary) (insert "$B$&!+(B") (cancel-undo-boundary) (delete-region (+ (match-beginning 0) (* skk-kanji-len 2)) (+ (match-end 0) (* skk-kanji-len 2)) )))) ;;(if (and skk-henkan-active skk-use-face) (skk-henkan-face-on)) (skk-set-cursor-properly) )))) (defun skk-zenkaku-region (start end) "$B%j!<%8%g%s$N(B ascii $BJ8;z$rBP1~$9$kA43QJ8;z$KJQ49$9$k!#(B" (interactive "*r") (skk-save-point (save-match-data ;;(if (and skk-henkan-active skk-use-face) (skk-henkan-face-off)) (goto-char end) (while (re-search-backward "[ -~]" start 'noerror) (cancel-undo-boundary) ;; firstly insert a new char, secondly delete an old char to save ;; the cursor position. (insert (aref skk-default-zenkaku-vector (following-char))) (cancel-undo-boundary) (delete-region (+ (match-beginning 0) skk-kanji-len) (+ (match-end 0) skk-kanji-len) )) ;;(if (and skk-henkan-active skk-use-face) (skk-henkan-face-on)) (skk-set-cursor-properly) ))) (defun skk-ascii-region (start end) ;; $B%j!<%8%g%s$NA43Q1Q?t;z$rBP1~$9$k(B ascii $BJ8;z$KJQ49$9$k!#(B ;; egg.el 3.09 $B$N(B hankaku-region $B$r;29M$K$7$?!#(B (interactive "*r") (skk-save-point (save-match-data (let (val) ;;(if (and skk-henkan-active skk-use-face) (skk-henkan-face-off)) (goto-char end) (while (re-search-backward "\\cS\\|\\cA" start 'noerror) (setq val (skk-jisx0208-to-ascii (char-to-string (following-char)))) (if val (progn (insert val) (delete-region (+ (match-beginning 0) 1) (+ (match-end 0) 1) )))) ;;(if (and skk-henkan-active skk-use-face) (skk-henkan-face-on)) (skk-set-cursor-properly) )))) (defun skk-katakana-henkan (arg) "$B"&%b!<%I$G$"$l$P!"%j!<%8%g%s$N$R$i$,$J$r%+%?%+%J$KJQ49$9$k!#(B $B"'%b!<%I$G$O2?$b$7$J$$!#(B $B$=$NB>$N%b!<%I$G$O!"%*%j%8%J%k$N%-!<3d$jIU$1$G%P%$%s%I$5$l$F$$$k%3%^%s%I$r<B9T(B $B$9$k!#(B" (interactive "*P") (if skk-henkan-on (if (not skk-henkan-active) (skk-*-henkan-1 'skk-katakana-region skk-henkan-start-point skk-henkan-end-point 'vcontract )) (skk-emulate-original-map arg) )) (defun skk-hiragana-henkan (arg) "$B"&%b!<%I$G$"$l$P!"%j!<%8%g%s$N%+%?%+%J$r$R$i$,$J$KJQ49$9$k!#(B $B"'%b!<%I$G$O2?$b$7$J$$!#(B $B$=$NB>$N%b!<%I$G$O!"%*%j%8%J%k$N%-!<3d$jIU$1$G%P%$%s%I$5$l$F$$$k%3%^%s%I$r<B9T(B $B$9$k!#(B" (interactive "*P") (if skk-henkan-on (if (not skk-henkan-active) (skk-*-henkan-1 'skk-hiragana-region skk-henkan-start-point skk-henkan-end-point 'vexpand )) (skk-emulate-original-map arg) )) (defun skk-zenkaku-henkan (arg) "$B"&%b!<%I$G$"$l$P!"(Bascii $BJ8;z$rBP1~$9$kA43QJ8;z$KJQ49$9$k!#(B $B"'%b!<%I$G$O2?$b$7$J$$!#(B $B$=$NB>$N%b!<%I$G$O!"%*%j%8%J%k$N%-!<3d$jIU$1$G%P%$%s%I$5$l$F$$$k%3%^%s%I$r<B9T(B $B$9$k!#(B" (interactive "*P") (if skk-henkan-on (if (not skk-henkan-active) (skk-*-henkan-1 'skk-zenkaku-region skk-henkan-start-point skk-henkan-end-point )) (skk-emulate-original-map arg) )) (defun skk-ascii-henkan (arg) "$B"&%b!<%I$G$"$l$P!"(Bascii $BJ8;z$rBP1~$9$kA43QJ8;z$KJQ49$9$k!#(B $B"'%b!<%I$G$O2?$b$7$J$$!#(B $B$=$NB>$N%b!<%I$G$O!"%*%j%8%J%k$N%-!<3d$jIU$1$G%P%$%s%I$5$l$F$$$k%3%^%s%I$r<B9T(B $B$9$k!#(B" (interactive "*P") (if skk-henkan-on (if (not skk-henkan-active) (skk-*-henkan-1 'skk-ascii-region skk-henkan-start-point skk-henkan-end-point )) (skk-emulate-original-map arg) )) (defun skk-*-henkan-1 (func &rest args) ;; $BJQ492DG=$+$I$&$+$N%A%'%C%/$r$7$?8e$K(B ARGS $B$r0z?t$H$7$F(B FUNC $B$rE,MQ$7!"(B ;; skk-henkan-start-point $B$H(B skk-henkan-end-point $B$N4V$NJ8;zNs$rJQ49$9$k!#(B (let ((pos (point))) (cond ((not (string= skk-prefix "")) (skk-error "$B%U%#%C%/%9$5$l$F$$$J$$(B skk-prefix $B$,$"$j$^$9(B" "Have unfixed skk-prefix" )) ((< pos skk-henkan-start-point) (skk-error "$B%+!<%=%k$,JQ493+;OCOE@$h$jA0$K$"$j$^$9(B" "Henkan end point must be after henkan start point" )) ((and (not skk-allow-spaces-newlines-and-tabs) (skk-save-point (beginning-of-line) (> (point) skk-henkan-start-point) )) (skk-error "$BJQ49%-!<$K2~9T$,4^$^$l$F$$$^$9(B" "Henkan key may not contain a new line character" ))) (skk-set-marker skk-henkan-end-point pos) (apply func args) (skk-kakutei) )) ;;;###skk-autoload (defun skk-jisx0208-to-ascii (string) (let ((char (cond (skk-mule3 (require 'language/japan-util) (get-char-code-property (string-to-char string) 'ascii) ) (skk-mule (let* ((ch (string-to-char string)) (ch1 (char-component ch 1)) ) (cond ((eq 161 ch1) ; ?\241 (cdr (assq (char-component ch 2) skk-hankaku-alist)) ) ((eq 163 ch1) ; ?\243 (- (char-component ch 2) 128) ; ?\200 )))) (t (- (aref string (1- skk-kanji-len)) 128)) ))) (if char (char-to-string char)) )) ;;;###skk-autoload (defun skk-middle-list (org offset inserted) ;; ORG := '(A B C), INSERTED := '(X Y), OFFSET := 1 ;; -> '(A B X Y C) (let (tmp tail) (if (>= 0 offset) (error "Cannot insert!") ) (setq tmp (nthcdr (1- offset) org) tail (cdr tmp) ) (setcdr tmp nil) ;cut off (setcdr tmp (if tail (nconc inserted tail) inserted)) org )) ;;(defun skk-chomp (nth list) ;; (let ((l (nthcdr (1- nth) list))) ;; (setcdr l nil) ;; list )) ;;(defun skk-cutoff-list (list offset) ;; ;; LIST := '(A B C), OFFSET := 1 ;; ;; -> '(A B) ;; (if (< 0 offset) ;; (setcdr (nthcdr (1- offset) list) nil) ) ;; list ) (defun skk-henkan-face-on () ;; skk-use-face $B$,(B non-nil $B$N>l9g!"(Bskk-henkan-start-point $B$H(B ;; skk-henkan-end-point $B$N4V$N(B face $BB0@-$r(B skk-henkan-face $B$NCM$KJQ99$9$k!#(B ;; ;; SKK 9.4 $B$h$j(B Text Properties $B$r;HMQ$9$k$N$r;_$a$F!"(BOverlays $B$r;HMQ$9$k$h(B ;; $B$&$K$7$?(B (egg.el, canna.el, wnn-egg.el $B$r;29M$K$7$?(B)$B!#(B ;; Overlays $B$O!"%F%-%9%H$N0lIt$G$O$J$$$N$G!"%P%C%U%!$+$iJ8;z$r@Z$j=P$7$F$b%3(B ;; $B%T!<$NBP>]$K$J$i$J$$$7!"%"%s%I%%;~$bL5;k$5$l$k$N$G!"JQ49$5$l$?8uJd$NI=<((B ;; $B$r0l;~E*$KJQ99$9$k$K$O(B Text Properties $B$h$j$b9%ET9g$G$"$k!#(B ;; ;; $BC"$7!"(BOverlays $B$O(B Text Properties $B$h$j07$$$KCm0U$9$Y$-E@$,$"$k!#(B ;; $B%*!<%P%l%$$NCf$N%^!<%+$rD>@\JQ99$7$F$7$^$&$H!"$[$+$N=EMW$J%G!<%?9=B$$N99(B ;; $B?7$,9T$o$l$:!"<:$o$l$k%*!<%P%l%$$,=P$k$3$H$K$J$j$+$M$J$$(B (Overlay $B$N(B ;; Buffer$B$NHO0O$rJQ99$9$k$H$-$O!"I,$:(B move-overlay $B$r;HMQ$7$J$1$l$P$J$i$J$$(B) ;; $B$H$$$&E@$G$"$k!#(Bskk-henkan-face-on $B$GJQ497k2L$N8uJd$K4X$9$k(B ;; skk-henkan-overlay $B$r?75,$K:n$C$F$+$i(B ($B$"$k$$$O4{B8$N(B Overlay $B$r3:Ev8D=j(B ;; $B$K0\F0$7$F$+$i(B) skk-henkan-face-off $B$G>C5n$9$k$^$G$N4V$K(B ;; skk-henkan-start-point $B$H(B skk-henkan-end-point $BCf$N%F%-%9%H$r:o=|$9$k$H!"(B ;; $B7k2LE*$K(B move-overlay $B$r;HMQ$;$:$=$l$i$N%^!<%+!<CM$r99?7$9$k$3$H$K$J$C$F(B ;; $B$7$^$&!#=>$$!"(Bskk-henkan-start-point $B$H(B skk-henkan-end-point $B$N4V$K$"$k%F(B ;; $B%-%9%H$KJQ99$r2C$($k$H$-$O!"@h$K(B skk-henkan-face-off $B$G0lC6(B ;; skk-henkan-overlay $B$r>C$9I,MW$,$"$k(B (<(skk-e19.el/kill-region)>)$B!#(B ;; ;;From: enami tsugutomo <enami@ba2.so-net.or.jp> ;;Subject: overlay (was Re: SKK-9.4.15) ;;Date: 23 Oct 1996 16:35:53 +0900 ;;Message-ID: <87n2xe5e06.fsf@plants-doll.enami.ba2.so-net.or.jp> ;; ;;enami> $B4X?t(B skk-henkan-face-on $B$N(B comment $B$N(B ;;enami> ;;enami> ;; $BC"$7!"(BOverlays $B$O(B Text Properties $B$h$j07$$$KCm0U$9$Y$-E@$,$"$k!#(B ;;enami> ;; $B%*!<%P%l%$$NCf$N%^!<%+$rD>@\JQ99$7$F$7$^$&$H!"$[$+$N=EMW$J%G!<%?9=B$$N99(B ;;enami> ;; $B?7$,9T$o$l$:!"<:$o$l$k%*!<%P%l%$$,=P$k$3$H$K$J$j$+$M$J$$(B ;;enami> ;;enami> ($B5Z$S$=$l0J9_(B) $B$NItJ,$K4X$7$F$G$9$,(B, make-overlay $B$G0LCV$N;XDj$K;H$C(B ;;enami> $B$?(B marker $B$,$=$N$^$^(B overlay $B$N0lIt$H$7$F;H$o$l$k$H(B, $B8m2r$7$F$$$^$;$s(B ;;enami> $B$G$7$g$&$+(B? ;;enami> ;;enami> $B<B:]$K$O(B overlay $B$N0lIt$r0Y$9(B marker $B$rD>@\0\F0$5$;$k$3$H$O$G$-$^$;$s(B ;;enami> $B$7(B, text $B$N:o=|DI2C$K$h$k0\F0$K$OBP=h$7$F$$$^$9$+$iLdBj$J$$$H;W$$$^$9(B. ;;enami> ;;enami> # $B$=$&$G$J$+$C$?$i(B overlay $B$C$FL5Cc6lCc;H$$$E$i$$$b$N$K$J$C$F$7$^$$$^(B ;;enami> # $B$9(B. ;;enami> $B$($J$_(B (let ((inhibit-quit t) cbuf ) (if (and skk-henkan-face (setq cbuf (current-buffer)) (eq (marker-buffer skk-henkan-start-point) cbuf) (eq (marker-buffer skk-henkan-end-point) cbuf) (marker-position skk-henkan-start-point) (marker-position skk-henkan-end-point) ) (progn (or skk-henkan-overlay (setq skk-henkan-overlay (skk-make-overlay skk-henkan-start-point skk-henkan-end-point cbuf ))) (skk-move-overlay skk-henkan-overlay skk-henkan-start-point skk-henkan-end-point cbuf ) ;; evaporate $BB0@-$rIU$1$k$Y$-$+(B...$B!#$G$bJQ49$r7+$jJV$9$H$-$O!":FMxMQ(B ;; $B$9$k$N$@$+$i!"$`$7$m!"4{$K:n$C$F$"$kJ}$,NI$$$+$b!#(B (skk-overlay-put skk-henkan-overlay 'face skk-henkan-face) )))) (defun skk-henkan-face-off () ;; skk-henkan-start-point $B$H(B skk-henkan-end-point $B$N4V$NI=<($rJQ99$7$F$$$k(B ;; skk-henkan-overlay $B$r>C$9!#(B (and skk-henkan-face ;; $B%j%+!<%7%V%_%K%P%C%U%!$KF~$C$?$H$-$O!"(Boverlayp $B$K$h$k8!::$,I,MW!)(B (skk-overlayp skk-henkan-overlay) (skk-delete-overlay skk-henkan-overlay) )) (defun skk-set-cursor-color (color) ;; $B%+!<%=%k$N?'$r(B COLOR $B$KJQ99$9$k!#(B (if skk-use-color-cursor (condition-case nil (set-cursor-color color) (error (set-cursor-color skk-default-cursor-color) (if skk-report-set-cursor-error (skk-message "$B%+%i!<%^%C%W@Z$l$G$9!#%G%#%U%)%k%H$N%+%i!<$r;H$$$^$9!#(B" "Color map is exhausting, use default cursor color" )))))) ;;;###skk-autoload (defun skk-set-cursor-properly () ;; $B%+%l%s%H%P%C%U%!$N(B SKK $B$N%b!<%I$K=>$$!"%+!<%=%k$N?'$rJQ99$9$k!#(B (if skk-use-color-cursor (if (not skk-mode) (skk-set-cursor-color skk-default-cursor-color) (skk-set-cursor-color (cond (skk-zenkaku-mode skk-zenkaku-cursor-color) (skk-katakana skk-katakana-cursor-color) (skk-j-mode skk-hirakana-cursor-color) (t skk-ascii-cursor-color) )))) (if skk-use-cursor-change (skk-change-cursor-when-ovwrt) )) ;;;###skk-autoload (defun skk-change-cursor-when-ovwrt () (if skk-xemacs (setq bar-cursor overwrite-mode) (if overwrite-mode (modify-frame-parameters (selected-frame) '((cursor-type bar . 3))) (modify-frame-parameters (selected-frame) '((cursor-type . box))) ))) ;;;###skk-autoload (defun skk-make-face (face) ;; hilit-lookup-face-create $B$N%5%V%;%C%H!#(Btutorial $B$G?'IU$1$r9T$J$&>l9g$G$b(B ;; hilit19 $B$K0MB8$;$:$H$j$"$($:(B face $B$r<+A0$G:n$k$3$H$,$G$-$k$h$&$K!"$H$$$&(B ;; $BL\E*$G:n$C$?$b$N$G!"4JC1$J?'IU$1$7$J$G$-$J$$!#$"$^$j8-$/$O$J$$!#J#;($J(B ;; face $B$r:n$j$?$$?M$O(B hilit-lookup-face-create $BEy$r;H$C$F2<$5$$!#(B (or (car (memq face (face-list))) (let ((face-name (symbol-name face)) fore back ) (setq face (make-face face)) (save-match-data (if (not (string-match "/" face-name)) (set-face-foreground face face-name) (set-face-foreground face (substring face-name 0 (match-beginning 0)) ) (set-face-background face (substring face-name (1+ (match-beginning 0))) )) face )))) ;;(defun skk-reinvoke () ;; (let ((original-status ;; (cond (skk-katakana 'katakana) ;; (skk-zenkaku-mode 'zenkaku) ;; (skk-j-mode 'hirakana) ;; (skk-mode 'ascii) ;; (t 'unkown) ))) ;; (skk-mode 1) ;; (cond ((eq original-status 'katakana) ;; (setq skk-katakana t) ) ;; ((eq original-status 'zenkaku) ;; (setq skk-zenkaku-mode t) ) ;; ((eq original-status 'ascii) ;; (setq skk-j-mode nil) ) ;; ((eq original-status 'hirakana)) ) ;; (skk-kakutei) )) (add-hook 'edit-picture-hook 'skk-misc-for-picture 'append) (add-hook 'skk-before-kill-emacs-hook (function (lambda () (if skk-menu-modified-user-option (skk-menu-save-modified-user-option) )))) (add-hook 'after-make-frame-hook 'skk-set-cursor-properly) (add-hook 'minibuffer-setup-hook (function (lambda () (skk-set-cursor-properly))) ) (add-hook 'minibuffer-exit-hook (function (lambda () (remove-hook 'minibuffer-setup-hook 'skk-setup-minibuffer) (skk-set-cursor-properly) ))) (run-hooks 'skk-load-hook) (provide 'skk) ;;; skk.el ends here