[MD:4168] Re: CVS 2003-01-14 14:00 現在最新

[Keiichi Suzuki <keiichi@xxxxxxxxx>]

>>>>> meadow-develop の No. 4167
>>>>> Message-Id: <uhebjfkkg.fsf@xxxxxxxxxxxxx> で、
>>>>> "圭一" == 私は書きました。

圭一> 2. 新規フレーム作成時にささる(Meadow が反応しなくなる)。

[...]

圭一> gdb で attach して各スレッドの backtrace を取ってみたところ下の
圭一> ような結果でしたので、 select-window-functions を nil にしてみた
圭一> ところ、固まらずにすむことまでは確認しました。

;; こういうことをすると、また怒られそうですが。 ^^;; 

このままではとりあえず不自由なのと、 post-command-hook まで引っ
張っておいてからだと、大丈夫なようなので、
(mw32-ime-initialize)
の後にこんなのを書いておくと無事に動くようになりました。

(defvar my-mw32-ime-selected-windows nil)
(defun my-mw32-ime-select-window-hook (old new)
  (unless (eq old new)
    (push (cons old new) my-mw32-ime-selected-windows)
    (add-hook 'post-command-hook
	      (lambda ()
		(let ((windows (nreverse my-mw32-ime-selected-windows))
		      dest)
		  (setq my-mw32-ime-selected-windows nil)
		  (while windows
		    (setq dest (pop windows))
		    (mw32-ime-select-window-hook (car dest) (cdr dest))))
		(remove-hook 'post-command-hook
			     'my-mw32-ime-select-window-hook)))))

(remove-hook 'select-window-functions
	     'mw32-ime-select-window-hook)
(add-hook 'select-window-functions
	  'my-mw32-ime-select-window-hook)

-- 
鈴木圭一 / keiichi@xxxxxxxxx
PGP finger print (DH/DSS)
0B32 B37E 6DE9 3BC1 68A4  4089 7AAF 2B03 ECBD 614B