[elpa] externals/greader 4482ba6 56/76: initial work on punctuation.

[Stefan Monnier]

branch: externals/greader
commit 4482ba6be8da7bf5cc375fdb5ce91c98582e8144
Author: Michelangelo Rodriguez <address@hidden>
Commit: Michelangelo Rodriguez <address@hidden>

    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)