[nongnu] elpa/symbol-overlay 50a2bd6480 125/152: Merge pull request #47 from langston-barrett/master

[ELPA Syncer]

branch: elpa/symbol-overlay
commit 50a2bd64800a11d3418d89321a3d19c5acd1c70f
Merge: 8b8888c8b2 213629dc13
Author: wolray <290061869@qq.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #47 from langston-barrett/master
    
    Add a hook for when overlays are created
---
 symbol-overlay.el | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index f6eaff1143..8c6c40c6bb 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -156,6 +156,11 @@
   :group 'symbol-overlay
   :type 'float)
 
+(defcustom symbol-overlay-overlay-created-functions '()
+  "Functions called after overlay creation that may modify the overlay."
+  :group 'symbol-overlay
+  :type 'hook)
+
 (defcustom symbol-overlay-ignore-functions
   '((c-mode . symbol-overlay-ignore-function-c)
     (c++-mode . symbol-overlay-ignore-function-c++)
@@ -342,7 +347,9 @@ Otherwise apply `symbol-overlay-default-face'."
                     (overlay-put ov 'evaporate t)
                     (overlay-put ov 'symbol symbol))
       (overlay-put ov 'face 'symbol-overlay-default-face)
-      (overlay-put ov 'symbol ""))))
+      (overlay-put ov 'symbol ""))
+    (dolist (fun symbol-overlay-overlay-created-functions)
+      (funcall fun ov))))
 
 (defun symbol-overlay-put-all (symbol scope &optional keyword)
   "Put overlays on all occurrences of SYMBOL in the buffer.