[nongnu] elpa/symbol-overlay 39a2ad8ba5 104/152: Add "h" binding for help in symbol-overlay-map

[ELPA Syncer]

branch: elpa/symbol-overlay
commit 39a2ad8ba53a7af52e265efc74ddd7a912bc57c6
Author: Steve Purcell <steve@sanityinc.com>
Commit: Steve Purcell <steve@sanityinc.com>

    Add "h" binding for help in symbol-overlay-map
    
    See #32
---
 symbol-overlay.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index 18edd8bd8d..4e1ff23ba6 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -164,6 +164,7 @@ definitions to prevent a language's keywords from getting 
highlighted."
 (defvar symbol-overlay-map
   (let ((map (make-sparse-keymap)))
     (define-key map (kbd "i") 'symbol-overlay-put)
+    (define-key map (kbd "h") 'symbol-overlay-map-help)
     (define-key map (kbd "n") 'symbol-overlay-jump-next)
     (define-key map (kbd "p") 'symbol-overlay-jump-prev)
     (define-key map (kbd "w") 'symbol-overlay-save-symbol)
@@ -179,6 +180,14 @@ You can re-bind the commands to any keys you prefer.")
 
 (defvar-local symbol-overlay-keywords-alist nil)
 
+(defun symbol-overlay-map-help ()
+  "Display the bindings in `symbol-overlay-map'."
+  (interactive)
+  (let ((buf (get-buffer-create "*Help*")))
+    (with-help-window "*Help*"
+      (with-current-buffer buf
+        (insert (substitute-command-keys "\\{symbol-overlay-map}"))))))
+
 ;;;###autoload
 (define-minor-mode symbol-overlay-mode
   "Minor mode for auto-highlighting symbol at point."