;;;$Id$
(setq load-path
      (cons
      (expand-file-name  "~/emacs/lisp/emacspeak/sawfish")
      load-path))
(load "tts")
(load "tools")
(bind-keys global-keymap
           "M-e" 'emacs
           "M-t" 'tts-say-current-window
"M-F4" 'delete-this-window-safeley
"M-F12" 'quit
)

(require 'audio-events)
(setq audio-events-enabled t)
(setq play-sample-program "/usr/bin/play")
(emacs)
(tts-open)
(tts-say-window-on-focus t)