emacspeak speaking engine for personal needs

["Dm. Paduchih" <paduch@xxxxxxxxxxx>]

Hi folks!

I would like to use emacspeak speaking possibilities from within my
own custom commands.  But I have found some difficulties with speaking
out several messages one by one.  For example, i have written the
following simple routine to read text continuously sentence by
sentence.  However it just passes silently through all text or reads
only some part.

;;; This reads buffer sentence by sentence

(defun my-read-book ()
  (interactive)
  (dtk-set-punctuations 'none)
  (emacspeak-dtk-sync)
  (let ((old (point)))
    (while (re-search-forward sentence-end nil t)
      (dtk-speak
       (buffer-substring-no-properties old (point)))
      (emacspeak-dtk-sync)
      (setq old (point))
      )))


What is wrong with this code?  Or maybe it is a problem with my speech
server?  Has anyone this code working?

Thanks. Dmitry

-----------------------------------------------------------------------------
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"