Re: partial-completion-mode problem

[Michal <rabbit50@xxxxxxxxxxx>]

"T. V. Raman" <raman@xxxxxxxxxxx> writes:

> that mode is not speech-enabled because i dont use it. Feel free
> to advice it appropriately 

I played a while with it. The following thing did the job with minibuffer partial completion.

;; minibuffer partial completion advising. It is based on
;;  `minibuffer-complete-word' and `minibuffer-complete', which are
;;  advised in emacspeak-advice.el. The only thing I did is:
;; <       '(minibuffer-complete-word  minibuffer-complete)
;; >       '(PC-complete-word  PC-complete)

(loop for f in
      '(PC-complete-word  PC-complete)
      do
      (eval
       `(defadvice ,f (around emacspeak pre act)
          "Say what you completed."
          (cond
           ((interactive-p)
            (let ((prior (point ))
                  (emacspeak-speak-messages nil))
              (emacspeak-kill-buffer-carefully "*Completions*")
              ad-do-it
              (if (> (point) prior)
                  (tts-with-punctuations
                   'all
                   (dtk-speak
                    (buffer-substring (point) prior)))
                (emacspeak-speak-completions-if-available))))
           (t ad-do-it))
          ad-return-value)))


best regards,
Michal

-----------------------------------------------------------------------------
To unsubscribe from the emacspeak list or change your address on the
emacspeak list send mail to "emacspeak-request@xxxxxxxxxxx" with a
subject of "unsubscribe" or "help"