summaryrefslogtreecommitdiff
path: root/lisp/allout.el
diff options
context:
space:
mode:
authorJuanma Barranquero <lekktu@gmail.com>2008-01-25 15:11:18 +0000
committerJuanma Barranquero <lekktu@gmail.com>2008-01-25 15:11:18 +0000
commit41ff6d0a23c2002affb8f5235a84a49a8245d9f7 (patch)
tree38c31596ce7efca7a6b1a146bd896fadf4c65b2e /lisp/allout.el
parent0feb2f35d3748400f297f6c608809018bb2b9da1 (diff)
downloademacs-41ff6d0a23c2002affb8f5235a84a49a8245d9f7.tar.gz
emacs-41ff6d0a23c2002affb8f5235a84a49a8245d9f7.tar.bz2
emacs-41ff6d0a23c2002affb8f5235a84a49a8245d9f7.zip
(allout-unload-function): New function.
Diffstat (limited to 'lisp/allout.el')
-rw-r--r--lisp/allout.el10
1 files changed, 10 insertions, 0 deletions
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)