[nongnu] elpa/scala-mode e18c50e 158/217: add cleanup hooks.

[ELPA Syncer]

branch: elpa/scala-mode
commit e18c50eacf1ff1da09a8c0a0870f4ff472c55a2c
Author: Ivan Malison <IvanMalison@gmail.com>
Commit: Ivan Malison <IvanMalison@gmail.com>

    add cleanup hooks.
---
 scala-mode2-imenu.el | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scala-mode2-imenu.el b/scala-mode2-imenu.el
index 0dda3c4..5eec53a 100644
--- a/scala-mode2-imenu.el
+++ b/scala-mode2-imenu.el
@@ -15,6 +15,8 @@
 (defcustom scala-imenu:build-imenu-candidate
   'scala-imenu:default-build-imenu-candidate
   "Controls whether or not the imenu index has definition type information.")
+(defcustom scala-imenu:cleanup-hooks nil
+  "Functions that will be run after the construction of each imenu")
 
 (defun scala-imenu:flatten-list (incoming-list &optional predicate)
   (when (not predicate) (setq predicate 'listp))
@@ -29,6 +31,8 @@
 (defun scala-imenu:create-imenu-index ()
   (let ((imenu-index (cl-mapcar 'scala-imenu:build-imenu-candidates
                             (scala-imenu:create-index))))
+    (dolist (cleanup-hook scala-imenu:cleanup-hooks)
+      (funcall cleanup-hook))
     (if scala-imenu:should-flatten-index
        (scala-imenu:flatten-imenu-index imenu-index)
       imenu-index)))
@@ -60,6 +64,7 @@
       member-info (funcall scala-imenu:build-imenu-candidate 
                           member-name definition-type marker parents)))
 
+
 (defun scala-imenu:default-build-imenu-candidate (member-name definition-type
                                                              marker parents)
   (let* ((all-names