Hiroyuki Komatsu
komat****@users*****
2004年 12月 10日 (金) 21:20:39 JST
Index: prime-el/src/prime-main.el
diff -u prime-el/src/prime-main.el:1.14 prime-el/src/prime-main.el:1.15
--- prime-el/src/prime-main.el:1.14 Fri Dec 10 19:52:23 2004
+++ prime-el/src/prime-main.el Fri Dec 10 21:20:39 2004
@@ -593,9 +593,10 @@
(if (and prime-fix-by-capital-p
(>= char ?A)
(<= char ?Z)
- (let ((preedition (prime-input-get-inserting-label)))
+ (let ((preedition (prime-input-get-inserting-label))
+ (query (prime-input-get-query-string)))
(and (not (prime-input-no-japanese-p preedition))
- (not (prime-input-all-capital-p preedition)))))
+ (not (prime-input-all-capital-p query)))))
(progn
(prime-fix prime-curstr)
(prime-after-fix char)