Re: emacspeak-mew.el

[Koichi INOUE <inoue@argv.org>]

井上です。

KIRIAKE Masanori <seiken@...> writes:

> 読み上げ始点の設定が悪いようです。アドレス帳とかを使っているとカーソルの
> 左側が変化することがあります。今のコードだと変化した左側を読んでくれない
> ことになります。いろいろ考えたのですが、現在のカーソル位置から左向きに空
> 白文字を探してそこを始点にするのがよいかな、という感じです。

以下のパッチでいいと思うのですが、タイミングあのか、completionsバッファ
を読みません。
なんかおかしいでしょうか？
1.1.2.9へのパッチです。


*** emacspeak-mew.el~	Mon Aug 28 08:52:37 2000
--- emacspeak-mew.el	Mon Aug 28 08:41:02 2000
***************
*** 92,98 ****
  
  (defadvice mew-complete-address (around emacspeak pre act)
    "Say what you completed."
!   (let ((prior (point ))
          (dtk-stop-immediately t))
      (emacspeak-kill-buffer-carefully "*Mew completions*")
      ad-do-it
--- 92,101 ----
  
  (defadvice mew-complete-address (around emacspeak pre act)
    "Say what you completed."
!   (let ((prior (save-excursion
! 		 (re-search-backward "[ 	,:]")
! 		 (forward-char)
! 		 (point)))
          (dtk-stop-immediately t))
      (emacspeak-kill-buffer-carefully "*Mew completions*")
      ad-do-it


-- 
                    Koichi Inoue, ARGV
                    E-Mail: inoue@...
                    ICQ UIN: 74900690