[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: partial-completion-mode problem



"T. V. Raman" <raman@users.sf.net> 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@cs.vassar.edu" with a
subject of "unsubscribe" or "help"



If you have questions about this archive or had problems using it, please send mail to:

priestdo@cs.vassar.edu No Soliciting!

Emacspeak List Archive | 2007 | 2006 | 2005 | 2004 | 2003 | 2002 | 2001 | 2000 | 1999 | 1998 | Pre 1998

Emacspeak Files | Emacspeak Blog | Search the archive