[elpa] externals/greader 06cc1d3208: greader.el: added greader-after-stop-hook.

[ELPA Syncer]

branch: externals/greader
commit 06cc1d3208f0cdb3193521fa81825b913ed04d2a
Author: Michelangelo Rodriguez <michelangelo.rodrig...@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodrig...@gmail.com>

    greader.el: added greader-after-stop-hook.
    
    This hook runs after the tts has been stopped.
---
 greader.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 8883fc902d..85adbf5504 100644
--- a/greader.el
+++ b/greader.el
@@ -114,6 +114,8 @@ If all the functions in the hook return nil, this function 
return
              (setq flag t)))
          flag))
     nil))
+(defvar greader-after-stop-hook nil
+  "The functions in this variable are executed just after tts is stopped.")
 
 (defgroup
   greader
@@ -546,7 +548,8 @@ if `GOTO-MARKER' is t and if you pass a prefix to this
        (greader-reset-elapsed-time))
     (setq-local greader-stop-timer 0)))
   (greader-set-greader-keymap)
-  (greader-tts-stop))
+  (greader-tts-stop)
+  (run-hooks 'greader-after-stop-hook))
 
 (defun greader-debug (arg)
   "Used to get some fast debugging.