Mercurial > emacs

changeset 79920:5096ade2d1f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(allout-unload-function): New function.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 25 Jan 2008 15:11:18 +0000
parents e42a426fa236
children c9f1d2d513a7
files lisp/allout.el
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)