[elpa] master 387cb55 40/50: add on-screen-unload-function

[Michael Heerdegen]

branch: master
commit 387cb55e4c8d43084d68ca7e16809f93717277e3
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    add on-screen-unload-function
---
 on-screen.el |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)

diff --git a/on-screen.el b/on-screen.el
index 08048bb..25d8335 100644
--- a/on-screen.el
+++ b/on-screen.el
@@ -659,6 +659,14 @@ highlightings and clear all associated data."
   (add-hook 'window-configuration-change-hook #'on-screen-after-wconf-change)
   (setq on-screen-initialized-p t))
 
+(defun on-screen-unload-function ()
+  "Function to run when unloading on-screen."
+  (remove-hook 'pre-command-hook        #'on-screen-pre-command)
+  (remove-hook 'window-scroll-functions #'on-screen-after-scroll)
+  (remove-hook 'after-change-functions  #'on-screen-after-change)
+  (remove-hook 'window-configuration-change-hook 
#'on-screen-after-wconf-change)  
+  nil)
+
 
 (provide 'on-screen)