branch: elpa/symbol-overlay
commit 39a2ad8ba53a7af52e265efc74ddd7a912bc57c6
Author: Steve Purcell <[email protected]>
Commit: Steve Purcell <[email protected]>
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."
