[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index][Search]

Patch: supporting helm-help

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)
+;;{{{ 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)

|All Past Years |Current Year|

If you have questions about this archive or had problems using it, please contact us.

Contact Info Page