# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1201273878 0
# Node ID 5096ade2d1f53e2c7877f1c0f1128137fe135ee3
# Parent  e42a426fa236363b0d2005c9a21c8204d87fb2de
(allout-unload-function): New function.

diff -r e42a426fa236 -r 5096ade2d1f5 lisp/allout.el
--- a/lisp/allout.el	Fri Jan 25 14:10:35 2008 +0000
+++ b/lisp/allout.el	Fri Jan 25 15:11:18 2008 +0000
@@ -2120,6 +2120,16 @@
 ;;;_  > allout-minor-mode
 (defalias 'allout-minor-mode 'allout-mode)
 
+;;;_  > allout-unload-function
+(defun allout-unload-function ()
+  "Unload the allout outline library."
+  (save-current-buffer
+    (dolist (buffer (buffer-list))
+      (set-buffer buffer)
+      (when allout-mode (allout-mode -1))))
+  ;; continue standard unloading
+  nil)
+
 ;;;_  - Position Assessment
 ;;;_   > allout-hidden-p (&optional pos)
 (defsubst allout-hidden-p (&optional pos)