From 9b42e3e1daaf3ab6770d02a542262393af565715 Mon Sep 17 00:00:00 2001 From: "T.V Raman" Date: Sun, 3 May 2020 09:39:53 -0700 Subject: [PATCH] speak mode-line on notify stream --- lisp/emacspeak-m-player.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/emacspeak-m-player.el b/lisp/emacspeak-m-player.el index bc99390516..9fc37a8549 100644 --- a/lisp/emacspeak-m-player.el +++ b/lisp/emacspeak-m-player.el @@ -155,11 +155,12 @@ This is set to nil when playing Internet streams.") (cl-declare (special emacspeak-m-player-process)) (cond ((eq 'run (process-status emacspeak-m-player-process)) - (let ((info (emacspeak-m-player-get-position))) + (let ((info (emacspeak-m-player-get-position)) + (dtk-split-caps t)) (when info (put-text-property 0 (length (cl-first info)) 'personality 'voice-smoothen (cl-first info) ) - (dtk-speak-and-echo + (dtk-notify-speak (concat (cl-second info) " : " (ems--seconds-string-to-duration (cl-first info))