speak mode-line on notify stream

tvraman · May 3, 2020 · 9b42e3e · 9b42e3e
1 parent 99df9b0
commit 9b42e3e
Showing 1 changed file with 3 additions and 2 deletions.
diff --git 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))