[prime-dev: 289] patch for prime-main.el

Back to archive index

中川 誠 Makot****@hp*****
2004年 3月 4日 (木) 11:50:25 JST


中川@日本HP(株)です。

PRIME 使ってみようとしています。まだろくに使っていない段階で何なのですが、
パッチです。

私は現時点では DDSKK をメインの input method としており、気分的に余裕の
ある時に PRIME を試したいと考えています。leim を利用するれば切り替えは実
現できるのですが、post-command-hook に prime-set-cursor-color が設定され
ている現状では、DDSKK を利用している時にでも PRIME の設定でカーソルの色
が変更されてしまいます。

diff -u prime-main.orig.el prime-main.el
--- prime-main.orig.el	Fri Jan 30 14:10:32 2004
+++ prime-main.el	Thu Mar  4 11:14:34 2004
@@ -212,7 +212,10 @@
 		(prime-face-find-color prime-cursor-color))
 	       (t
 		prime-default-cursor-color))))
-    (if (not (eq current-color mode-color))
+    (if (and (not (eq current-color mode-color))
+	     (or (null current-input-method)
+		 (eq (nth 2 (assoc current-input-method input-method-alist))
+		     'prime-mode)))
 	(set-cursor-color mode-color))
     ))

leim を利用している時には input-method-activate-hook を利用する方がよい
のかもしれませんが...。

-- 
/***   Hewlett-Packard Japan, Ltd.                                ***/
/***   Manufacturing Accounts #4 Practice                         ***/
/***   Consulting & Integration                                   ***/
/***   Nakagawa, Makoto(中川 誠)                               ***/
/***   PGP: 0B33 EAC3 F2F6 3D10 D9E9  AE7F 8EDA 44F9 1D29 D44A    ***/
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: 無し
型:         application/pgp-signature
サイズ:     232 バイト
説明:       無し
Télécharger 


Prime-dev メーリングリストの案内
Back to archive index