(global-whitespace-mode): When turning off the global mode,

turn off the local modes too if whitespace is being unloaded.
(whitespace-unload-function): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e418a357217008c5f1216bae696afb86d7b3824..b2a131b2b768e5324af20bc84450503c6dfe9033 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,9 @@
 2008-02-01  Juanma Barranquero  <lekktu@gmail.com>
 
        * whitespace.el (global-whitespace-mode): Fix modeline lighter.
+       When turning off the global mode, turn off the local modes too
+       if whitespace is being unloaded.
+       (whitespace-unload-function): New function.
 
 2008-02-01  Thien-Thi Nguyen  <ttn@gnuvola.org>
 

diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index e3ce8a4dc27355c4910f1f466d79cc5bd65e8e42..4615e28b97f016427aa06f7060d3bf03b97ec269 100644 (file)
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -931,7 +931,9 @@ Only useful with a windowing system."
        (remove-hook 'find-file-hooks 'whitespace-turn-on-if-enabled))
       (dolist (buffer (buffer-list))   ; adjust all local mode
        (set-buffer buffer)
-       (unless whitespace-mode
+       (when (or (not whitespace-mode)
+                 ;; whitespace is being unloaded
+                 (bound-and-true-p unload-function-defs-list))
          (whitespace-turn-off)))))))
 
 
@@ -1757,6 +1759,12 @@ options are valid."
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
+(defun whitespace-unload-function ()
+  "Unload the Whitespace library."
+  (global-whitespace-mode -1)
+  ;; continue standard unloading
+  nil)
+
 (provide 'whitespace)