Patch: supporting helm-help

[Parham Doustdar <parham90@xxxxxxxxxxx>]

Hi,

This is a patch to support pressing C-h m in Helm, which is weird because, since the author wanted it to be inside Helm itself, he implemented the event loop himself through read-key. That caused the problem that moving in the help buffer was impossible because Emacspeak would keep getting interrupted by the message that `read-key' would echo to the message area..

I'm not sure if everything in this patch takes the Emacspeak interaction model into account, so feel free to check before merging:

1 file changed, 11 insertions(+)
lisp/emacspeak-helm.el | 11 +++++++++++

modified   lisp/emacspeak-helm.el
@@ -132,6 +132,17 @@
   (when (ems-interactive-p)
     (emacspeak-auditory-icon 'yank-object)
     (emacspeak-speak-line)))
+;;}}}
+;;{{{ Support helm-help
+(add-hook 'helm-help-mode-before-hook (lambda()
+                                        "Turn off speaking read-key prompts"
+                                        (setq emacspeak-speak-messages nil)
+                                        (emacspeak-auditory-icon 'open-object)))
+
+(add-hook 'helm-help-mode-after-hook (lambda()
+                                       "restore speaking messages and read-key"
+                                       (setq emacspeak-speak-messages t)
+                                       (emacspeak-auditory-icon 'close-object)))
 
 ;;}}}
 (provide 'emacspeak-helm)