[elpa] externals/greader 081c7c4 34/76: greader-speechd.el:

[Stefan Monnier]

branch: externals/greader
commit 081c7c4aac3624971af7e1af12174806bacee97e
Author: Michelangelo Rodriguez <address@hidden>
Commit: Michelangelo Rodriguez <address@hidden>

    greader-speechd.el:
    Command extra implemented.
---
 greader-speechd.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/greader-speechd.el b/greader-speechd.el
index e9547dd..a605fd2 100644
--- a/greader-speechd.el
+++ b/greader-speechd.el
@@ -68,15 +68,15 @@ punct must be a numeric value, 0 for no punctuation, 1 for 
some and 2 or >2 for
   (cond
    ((booleanp punct)
     (if punct
-       (throw 'return (concat "-p all"))
-      (throw 'return (concat "-p none"))))
+       (throw 'return (concat "-m all"))
+      (throw 'return (concat "-m none"))))
    ((numberp punct)
      (if (= punct 0)
-        (throw 'return (concat "-p none")))
+        (throw 'return (concat "-m none")))
      (if (= punct 1)
-        (throw 'return (concat "-p some")))
+        (throw 'return (concat "-m some")))
      (if (>= punct 2)
-        (throw 'return (concat "-p all")))))))
+        (throw 'return (concat "-m all")))))))
 (defun greader-speechd-stop ()
   "stops speech-dispatcher client."
   (start-process "speechd-client" nil greader-speechd-executable-path "-S"))
@@ -93,11 +93,13 @@ punct must be a numeric value, 0 for no punctuation, 1 for 
some and 2 or >2 for
      (if (not arg)
         (greader-speechd-set-rate)
        (greader-speechd-set-rate arg)))
-    ('punct
+    ('punctuation
      (if (not arg)
         (greader-speechd-set-punctuation)
        (greader-speechd-set-punctuation arg)))
     ('stop
      (greader-speechd-stop))
+    ('extra
+     "-w")
     (not-implemented
      'not-implemented)))