[nongnu] elpa/symbol-overlay 4c43895732 2/6: Add symbol-overlay-jump-hook

[ELPA Syncer]

branch: elpa/symbol-overlay
commit 4c43895732ae656c5d33cc196da2e516ed97adcb
Author: Akira Komamura <akira.komamura@gmail.com>
Commit: Akira Komamura <akira.komamura@gmail.com>

    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)))))