From: Juanma Barranquero <lekktu@gmail.com>
Date: Fri, 25 Jan 2008 15:11:18 +0000 (+0000)
Subject: (allout-unload-function): New function.
X-Git-Tag: emacs-pretest-22.1.90~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=41ff6d0a23c2002affb8f5235a84a49a8245d9f7;p=emacs.git

(allout-unload-function): New function.
---

diff --git a/lisp/allout.el b/lisp/allout.el
index 43642e6ee26..7782170e834 100644
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -2120,6 +2120,16 @@ OPEN:	A TOPIC that is not CLOSED, though its OFFSPRING or BODY may be."
 ;;;_  > 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)