[elpa] externals/greader 4ef8c7d 57/76: work on punctuation completed.

[Stefan Monnier]

branch: externals/greader
commit 4ef8c7df9d1a70e4438df55efe14616caee30044
Author: Michelangelo Rodriguez <address@hidden>
Commit: Michelangelo Rodriguez <address@hidden>

    work on punctuation completed.
---
 greader-espeak.el | 13 ++++++-------
 greader.el        |  6 +++---
 2 files changed, 9 insertions(+), 10 deletions(-)

diff --git a/greader-espeak.el b/greader-espeak.el
index 604dbd5..cac7780 100644
--- a/greader-espeak.el
+++ b/greader-espeak.el
@@ -3,11 +3,11 @@
 
 
 
-;Copyright (C) 2019 by Michelangelo Rodriguez
+                                       ;Copyright (C) 2019 by Michelangelo 
Rodriguez
 
 
 (defgroup greader-espeak
-nil
+  nil
   "back-end of espeak for greader."
   :group 'greader
   )
@@ -39,7 +39,7 @@ this variable determines authomatically if espeak is present 
in your PATH enviro
   "espeak punctuation switch."
   :tag "espeak punctuation"
   :type 'boolean)
-  
+
 ;;; code
 (defun greader-espeak-set-rate
     (&optional rate)
@@ -92,9 +92,8 @@ this function accepts only nil or t."
        greader-espeak-rate)))
     ('punctuation
      (cond
-
       (
-       (or (equal arg 'yes) arg)
+       (equal arg 'yes)
        (setq-local greader-espeak-punctuation t)
        "--punct")
       (
@@ -104,8 +103,8 @@ this function accepts only nil or t."
       ((not arg)
        (if greader-espeak-punctuation
           "--punct"
-        greader-espeak-punctuation))))
-     
+        nil))))
+    
     (command-not-implemented
      'not-implemented)))
 (put 'greader-espeak 'greader-backend-name "greader-espeak")
diff --git a/greader.el b/greader.el
index 6894d61..06ef1ea 100644
--- a/greader.el
+++ b/greader.el
@@ -467,15 +467,15 @@ This function sets the language of tts local for current 
buffer, so if you want
 (defun greader-toggle-punctuation ()
   "Toggles punctuation locally for current buffer."
   (interactive)
-  (if (equal (greader-call-backend 'punctuation) "")
+  (if (not (greader-call-backend 'punctuation))
       (progn
        (greader-stop)
-       (greader-set-punctuation t)
+       (greader-set-punctuation 'yes)
        (message "punctuation enabled in current buffer")
        (greader-read))
     (progn
       (greader-stop)
-      (greader-set-punctuation nil)
+      (greader-set-punctuation 'no)
       (message "punctuation disabled in current buffer")
       (greader-read))))