[Emacs-diffs] Changes to emacs/lisp/whitespace.el,v

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      08/02/01 11:23:22

Index: whitespace.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/whitespace.el,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -b -r1.65 -r1.66
--- whitespace.el       1 Feb 2008 10:22:28 -0000       1.65
+++ whitespace.el       1 Feb 2008 11:23:22 -0000       1.66
@@ -931,7 +931,9 @@
        (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 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
+(defun whitespace-unload-function ()
+  "Unload the Whitespace library."
+  (global-whitespace-mode -1)
+  ;; continue standard unloading
+  nil)
+
 (provide 'whitespace)