branch: externals/greader
commit 4482ba6be8da7bf5cc375fdb5ce91c98582e8144
Author: Michelangelo Rodriguez <[email protected]>
Commit: Michelangelo Rodriguez <[email protected]>
initial work on punctuation.
A little delay to greader-speechd-stop added.
---
greader-speechd.el | 3 ++-
greader.el | 4 ++--
2 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/greader-speechd.el b/greader-speechd.el
index 17609a5..2159bba 100644
--- a/greader-speechd.el
+++ b/greader-speechd.el
@@ -93,7 +93,8 @@ punct must be a numeric value, 0 for no punctuation, 1 for
some and 2 or >2 for
(throw 'return (concat "-mall"))))))))
(defun greader-speechd-stop ()
"stops speech-dispatcher client."
- (start-process "speechd-client" nil greader-speechd-executable-path "-S"))
+ (start-process "speechd-client" nil greader-speechd-executable-path "-S")
+ (sleep-for 0 100))
;;;###autoload
(defun greader-speechd (command &optional arg &rest ignore)
"greader speech-dispatcher back-end."
diff --git a/greader.el b/greader.el
index 1d1f9ec..6894d61 100644
--- a/greader.el
+++ b/greader.el
@@ -462,8 +462,8 @@ This function sets the language of tts local for current
buffer, so if you want
(interactive "sset language to:")
(greader-call-backend 'lang lang))
(defun greader-set-punctuation (flag)
- (greader-call-backend 'punctuation flag)
- greader-punctuation)
+ (greader-call-backend 'punctuation flag))
+
(defun greader-toggle-punctuation ()
"Toggles punctuation locally for current buffer."
(interactive)
