From: Juanma Barranquero 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)