[elpa] externals/greader ace291fda0 1/2: functions `greader-inc-rate' and `greader-dec-rate' fixed.

[ELPA Syncer]

branch: externals/greader
commit ace291fda0574a19dc0507b649c8ffffe00515b7
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>

    functions `greader-inc-rate' and `greader-dec-rate' fixed.
    
    Now, when `current-backend' doesn't support `rate' command, they only
    emit a beep instead of signaling an error.
---
 greader.el | 18 ++++++++++++------
 1 file changed, 12 insertions(+), 6 deletions(-)

diff --git a/greader.el b/greader.el
index 376baa7f14..afb718bff1 100644
--- a/greader.el
+++ b/greader.el
@@ -1051,9 +1051,12 @@ If prefix, it will be used to increment by that.  
Default is N=10."
   (interactive "P")
   (if (not n)
       (setq n 10))
-  (greader-tts-stop)
-  (greader-set-rate (+ (greader-call-backend 'rate 'value) n))
-  (greader-read))
+  (if (stringp (greader-call-backend 'rate))
+      (progn
+       (greader-tts-stop)
+       (greader-set-rate (+ (greader-call-backend 'rate 'value) n))
+       (greader-read))
+    (beep)))
 
 (defun greader-dec-rate (&optional n)
   "Decrements rate of speech by units specified in N.
@@ -1061,9 +1064,12 @@ If prefix, it will be used to decrement  rate."
   (interactive "P")
   (if (not n)
       (setq n 10))
-  (greader-tts-stop)
-  (greader-set-rate (- (greader-call-backend 'rate 'value) n))
-  (greader-read))
+  (if (stringp (greader-call-backend 'rate))
+      (progn
+       (greader-tts-stop)
+       (greader-set-rate (- (greader-call-backend 'rate 'value) n))
+       (greader-read))
+    (beep)))
 
 (defun greader-sentence-needs-dehyphenation (str)
   "Return t if there are lines broken by hyphens in STR, nil otherwise."