[nongnu] elpa/symbol-overlay d403945b35 3/6: Merge pull request #84 from akirak/jump-hook

[ELPA Syncer]

branch: elpa/symbol-overlay
commit d403945b350a4424bc27511a5c5efab95bd44ed9
Merge: 83b087d78e 4c43895732
Author: Steve Purcell <steve@sanityinc.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #84 from akirak/jump-hook
    
    Add symbol-overlay-jump-hook
---
 symbol-overlay.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index d8d1957b26..5d16aa5bd0 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -184,6 +184,11 @@ prioritise `symbol-overlay' relative to `flymake' or other 
features."
   :group 'symbol-overlay
   :type 'integer)
 
+(defcustom symbol-overlay-jump-hook nil
+  "Hook to run after jumping to a symbol."
+  :group 'symbol-overlay
+  :type 'hook)
+
 ;;; Internal
 
 (defvar symbol-overlay-inhibit-map nil
@@ -647,6 +652,7 @@ DIR must be non-zero."
            (keyword (symbol-overlay-assoc symbol)))
       (push-mark nil t)
       (funcall jump-function symbol dir)
+      (run-hooks 'symbol-overlay-jump-hook)
       (when keyword
         (symbol-overlay-maybe-reput symbol keyword)
         (symbol-overlay-maybe-count keyword)))))