branch: externals/greader
commit f3ace60c5f7d514b3fa31c4cbcf6f57a194656a7
Author: Michelangelo Rodriguez <michelangelo.rodrig...@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodrig...@gmail.com>
Back-end command `set-voice' added.
---
greader.el | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/greader.el b/greader.el
index 49843cc8c2..4e525dcac8 100644
--- a/greader.el
+++ b/greader.el
@@ -523,7 +523,13 @@ LANG must be in ISO code, for example 'en' for english or
'fr' for
french. This function set the language of tts local for current
buffer, so if you want to set it globally, please use 'm-x
`customize-option' <RET> greader-language <RET>'."
- (interactive "sset language to:")
+ (interactive
+ (list
+ (let (result)
+ (setq result (greader-call-backend 'set-voice nil))
+ (when (equal result 'not-implemented)
+ (setq result (read-string "Set language to: ")))
+ result)))
(greader-call-backend 'lang lang))
(defun greader-set-punctuation (flag)
"Set punctuation to FLAG."
