view lisp/allout.el @ 34972:c0953f8a8dff

(Fmarker_position): Remove unused variables `pos', `i', and `buf'. (Fmarker_insertion_type): Remove unused variable `buf'.

+
鐃緒申��申鐃緒申;;;_* allout.el --- Extensive outline mode for use alone and with other modes.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Author: Ken Manheimer <[e-mail]>
+
鐃緒申��申鐃緒申;; Maintainer: Ken Manheimer <[e-mail]>
+
鐃緒申��申鐃緒申;; Created: Dec 1991 - first release to usenet
+
鐃緒申��申鐃緒申;; Version: $Id: allout.el,v 4.35 2000/02/01 15:58:14 klm Exp klm $||
+
鐃緒申��申鐃緒申;; Keywords: outline mode wp languages
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; This file is part of GNU Emacs.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; GNU Emacs is free software; you can redistribute it and/or modify
+
鐃緒申��申鐃緒申;; it under the terms of the GNU General Public License as published by
+
鐃緒申��申鐃緒申;; the Free Software Foundation; either version 2, or (at your option)
+
鐃緒申��申鐃緒申;; any later version.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; GNU Emacs is distributed in the hope that it will be useful,
+
鐃緒申��申鐃緒申;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+
鐃緒申��申鐃緒申;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+
鐃緒申��申鐃緒申;; GNU General Public License for more details.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; You should have received a copy of the GNU General Public License
+
鐃緒申��申鐃緒申;; along with GNU Emacs; see the file COPYING.  If not, write to the
+
鐃緒申��申鐃緒申;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+
鐃緒申��申鐃緒申;; Boston, MA 02111-1307, USA.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_* Commentary:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Allout outline mode provides extensive outline formatting and
+
鐃緒申��申鐃緒申;; and manipulation beyond standard emacs outline mode.  It provides
+
鐃緒申��申鐃緒申;; for structured editing of outlines, as well as navigation and
+
鐃緒申��申鐃緒申;; exposure.  It also provides for syntax-sensitive text like
+
鐃緒申��申鐃緒申;; programming languages.  (For an example, see the allout code
+
鐃緒申��申鐃緒申;; itself, which is organized in ;; an outline framework.)
+
鐃緒申��申鐃緒申;; 
+
鐃緒申��申鐃緒申;; In addition to outline navigation and exposure, allout includes:
+
鐃緒申��申鐃緒申;; 
+
鐃緒申��申鐃緒申;;  - topic-oriented repositioning, cut, and paste
+
鐃緒申��申鐃緒申;;  - integral outline exposure-layout
+
鐃緒申��申鐃緒申;;  - incremental search with dynamic exposure and reconcealment of hidden text
+
鐃緒申��申鐃緒申;;  - automatic topic-number maintenance
+
鐃緒申��申鐃緒申;;  - "Hot-spot" operation, for single-keystroke maneuvering and
+
鐃緒申��申鐃緒申;;    exposure control.  (See the outline-mode docstring.)
+
鐃緒申��申鐃緒申;; 
+
鐃緒申��申鐃緒申;; and many other features.
+
鐃緒申��申鐃緒申;; 
+
鐃緒申��申鐃緒申;; The outline menubar additions provide quick reference to many of
+
鐃緒申��申鐃緒申;; the features, and see the docstring of the variable `outline-init'
+
鐃緒申��申鐃緒申;; for instructions on priming your emacs session for automatic
+
鐃緒申��申鐃緒申;; activation of outline-mode.
+
鐃緒申��申鐃緒申;; 
+
鐃緒申��申鐃緒申;; See the docstring of the variables `outline-layout' and
+
鐃緒申��申鐃緒申;; `outline-auto-activation' for details on automatic activation of
+
鐃緒申��申鐃緒申;; allout outline-mode as a minor mode.  (It has changed since allout
+
鐃緒申��申鐃緒申;; 3.x, for those of you that depend on the old method.)
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申;; Note - the lines beginning with `;;;_' are outline topic headers.
+
鐃緒申��申鐃緒申;;        Just `ESC-x eval-current-buffer' to give it a whirl.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Ken Manheimer	[e-mail]
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_* Provide
+
鐃緒申��申鐃緒申(provide 'outline)
+
鐃緒申��申鐃緒申(provide 'allout)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_* USER CUSTOMIZATION VARIABLES:
+
鐃緒申��申鐃緒申(defgroup allout nil
+
鐃緒申��申鐃緒申  "Extensive outline mode for use alone and with other modes."
+
鐃緒申��申鐃緒申  :prefix "outline-"
+
鐃緒申��申鐃緒申  :group 'outlines)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ + Layout, Mode, and Topic Header Configuration
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-auto-activation
+
鐃緒申��申鐃緒申(defcustom outline-auto-activation nil
+
鐃緒申��申鐃緒申  "*Regulates auto-activation modality of allout outlines - see `outline-init'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Setq-default by `outline-init' to regulate whether or not allout
+
鐃緒申��申鐃緒申outline mode is automatically activated when the buffer-specific
+
鐃緒申��申鐃緒申variable `outline-layout' is non-nil, and whether or not the layout
+
鐃緒申��申鐃緒申dictated by `outline-layout' should be imposed on mode activation.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With value `t', auto-mode-activation and auto-layout are enabled.
+
鐃緒申��申鐃緒申\(This also depends on `outline-find-file-hooks' being installed in
+
鐃緒申��申鐃緒申`find-file-hooks', which is also done by `outline-init'.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With value `ask', auto-mode-activation is enabled, and endorsement for
+
鐃緒申��申鐃緒申performing auto-layout is asked of the user each time.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With value `activate', only auto-mode-activation is enabled, 
+
鐃緒申��申鐃緒申auto-layout is not.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With value `nil', neither auto-mode-activation nor auto-layout are
+
鐃緒申��申鐃緒申enabled.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申See the docstring for `outline-init' for the proper interface to
+
鐃緒申��申鐃緒申this variable."
+
鐃緒申��申鐃緒申  :type '(choice (const :tag "On" t)
+
鐃緒申��申鐃緒申                (const :tag "Ask about layout" "ask")
+
鐃緒申��申鐃緒申                (const :tag "Mode only" "activate")
+
鐃緒申��申鐃緒申                (const :tag "Off" nil))
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  = outline-layout
+
鐃緒申��申鐃緒申(defvar outline-layout nil
+
鐃緒申��申鐃緒申  "*Layout specification and provisional mode trigger for allout outlines.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Buffer-specific.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申A list value specifies a default layout for the current buffer, to be
+
鐃緒申��申鐃緒申applied upon activation of allout outline-mode.  Any non-nil value will
+
鐃緒申��申鐃緒申automatically trigger allout outline-mode, provided `outline-init'
+
鐃緒申��申鐃緒申has been called to enable it.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申See the docstring for `outline-init' for details on setting up for
+
鐃緒申��申鐃緒申auto-mode-activation, and for `outline-expose-topic' for the format of
+
鐃緒申��申鐃緒申the layout specification.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申You can associate a particular outline layout with a file by setting
+
鐃緒申��申鐃緒申this var via the file's local variables.  For example, the following
+
鐃緒申��申鐃緒申lines at the bottom of an Emacs Lisp file:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;Local variables:
+
鐃緒申��申鐃緒申;;;outline-layout: \(0 : -1 -1 0)
+
鐃緒申��申鐃緒申;;;End:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申will, modulo the above-mentioned conditions, cause the mode to be
+
鐃緒申��申鐃緒申activated when the file is visited, followed by the equivalent of
+
鐃緒申��申鐃緒申`\(outline-expose-topic 0 : -1 -1 0)'.  \(This is the layout used for
+
鐃緒申��申鐃緒申the allout.el, itself.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Also, allout's mode-specific provisions will make topic prefixes default
+
鐃緒申��申鐃緒申to the comment-start string, if any, of the language of the file.  This
+
鐃緒申��申鐃緒申is modulo the setting of `outline-use-mode-specific-leader', which see.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-layout)
+
鐃緒申��申鐃緒申;;;_  = outline-show-bodies
+
鐃緒申��申鐃緒申(defcustom outline-show-bodies nil
+
鐃緒申��申鐃緒申  "*If non-nil, show entire body when exposing a topic, rather than
+
鐃緒申��申鐃緒申just the header."
+
鐃緒申��申鐃緒申  :type 'boolean
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-show-bodies)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-header-prefix
+
鐃緒申��申鐃緒申(defcustom outline-header-prefix "."
+
鐃緒申��申鐃緒申  "*Leading string which helps distinguish topic headers.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Outline topic header lines are identified by a leading topic
+
鐃緒申��申鐃緒申header prefix, which mostly have the value of this var at their front.
+
鐃緒申��申鐃緒申\(Level 1 topics are exceptions.  They consist of only a single
+
鐃緒申��申鐃緒申character, which is typically set to the outline-primary-bullet.  Many
+
鐃緒申��申鐃緒申outlines start at level 2 to avoid this discrepancy."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-header-prefix)
+
鐃緒申��申鐃緒申;;;_  = outline-primary-bullet
+
鐃緒申��申鐃緒申(defcustom outline-primary-bullet "*"
+
鐃緒申��申鐃緒申  "Bullet used for top-level outline topics.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Outline topic header lines are identified by a leading topic header
+
鐃緒申��申鐃緒申prefix, which is concluded by bullets that includes the value of this
+
鐃緒申��申鐃緒申var and the respective outline-*-bullets-string vars.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The value of an asterisk (`*') provides for backwards compatibility
+
鐃緒申��申鐃緒申with the original emacs outline mode.  See outline-plain-bullets-string
+
鐃緒申��申鐃緒申and outline-distinctive-bullets-string for the range of available
+
鐃緒申��申鐃緒申bullets."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-primary-bullet)
+
鐃緒申��申鐃緒申;;;_  = outline-plain-bullets-string
+
鐃緒申��申鐃緒申(defcustom outline-plain-bullets-string ".:,;"
+
鐃緒申��申鐃緒申  "*The bullets normally used in outline topic prefixes.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申See `outline-distinctive-bullets-string' for the other kind of
+
鐃緒申��申鐃緒申bullets.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申DO NOT include the close-square-bracket, `]', as a bullet.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Outline mode has to be reactivated in order for changes to the value
+
鐃緒申��申鐃緒申of this var to take effect."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-plain-bullets-string)
+
鐃緒申��申鐃緒申;;;_  = outline-distinctive-bullets-string
+
鐃緒申��申鐃緒申(defcustom outline-distinctive-bullets-string "*+-=>([{}&!?#%\"X@$~_\\"
+
鐃緒申��申鐃緒申  "*Persistent outline header bullets used to distinguish special topics.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申These bullets are used to distinguish topics from the run-of-the-mill
+
鐃緒申��申鐃緒申ones.  They are not used in the standard topic headers created by
+
鐃緒申��申鐃緒申the topic-opening, shifting, and rebulleting \(eg, on topic shift, 
+
鐃緒申��申鐃緒申topic paste, blanket rebulleting) routines, but are offered among the
+
鐃緒申��申鐃緒申choices for rebulleting.  They are not altered by the above automatic
+
鐃緒申��申鐃緒申rebulleting, so they can be used to characterize topics, eg:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 `?' question topics
+
鐃緒申��申鐃緒申 `\(' parenthetic comment \(with a matching close paren inside)
+
鐃緒申��申鐃緒申 `[' meta-note \(with a matching close ] inside)
+
鐃緒申��申鐃緒申 `\"' a quote
+
鐃緒申��申鐃緒申 `=' value settings
+
鐃緒申��申鐃緒申 `~' \"more or less\"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申... just for example.  (`#' typically has a special meaning to the
+
鐃緒申��申鐃緒申software, according to the value of `outline-numbered-bullet'.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申See `outline-plain-bullets-string' for the selection of
+
鐃緒申��申鐃緒申alternating bullets.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申You must run `set-outline-regexp' in order for outline mode to
+
鐃緒申��申鐃緒申reconcile to changes of this value.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申DO NOT include the close-square-bracket, `]', on either of the bullet
+
鐃緒申��申鐃緒申strings."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-distinctive-bullets-string)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-use-mode-specific-leader
+
鐃緒申��申鐃緒申(defcustom outline-use-mode-specific-leader t
+
鐃緒申��申鐃緒申  "*When non-nil, use mode-specific topic-header prefixes.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Allout outline mode will use the mode-specific `outline-mode-leaders'
+
鐃緒申��申鐃緒申and/or comment-start string, if any, to lead the topic prefix string,
+
鐃緒申��申鐃緒申so topic headers look like comments in the programming language.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申String values are used as they stand.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Value `t' means to first check for assoc value in `outline-mode-leaders'
+
鐃緒申��申鐃緒申alist, then use comment-start string, if any, then use default \(`.').
+
鐃緒申��申鐃緒申\(See note about use of comment-start strings, below.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Set to the symbol for either of `outline-mode-leaders' or
+
鐃緒申��申鐃緒申`comment-start' to use only one of them, respectively.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Value `nil' means to always use the default \(`.').
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申comment-start strings that do not end in spaces are tripled, and an
+
鐃緒申��申鐃緒申`_' underscore is tacked on the end, to distinguish them from regular
+
鐃緒申��申鐃緒申comment strings.  comment-start strings that do end in spaces are not
+
鐃緒申��申鐃緒申tripled, but an underscore is substituted for the space. [This
+
鐃緒申��申鐃緒申presumes that the space is for appearance, not comment syntax.  You
+
鐃緒申��申鐃緒申can use `outline-mode-leaders' to override this behavior, when
+
鐃緒申��申鐃緒申incorrect.]"
+
鐃緒申��申鐃緒申  :type '(choice (const t) (const nil) string 
+
鐃緒申��申鐃緒申		 (const outline-mode-leaders)
+
鐃緒申��申鐃緒申		 (const comment-start))
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  = outline-mode-leaders
+
鐃緒申��申鐃緒申(defvar outline-mode-leaders '()
+
鐃緒申��申鐃緒申  "Specific outline-prefix leading strings per major modes.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Entries will be used instead or in lieu of mode-specific
+
鐃緒申��申鐃緒申comment-start strings.  See also `outline-use-mode-specific-leader'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If you're constructing a string that will comment-out outline
+
鐃緒申��申鐃緒申structuring so it can be included in program code, append an extra
+
鐃緒申��申鐃緒申character, like an \"_\" underscore, to distinguish the lead string
+
鐃緒申��申鐃緒申from regular comments that start at bol.")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-old-style-prefixes
+
鐃緒申��申鐃緒申(defcustom outline-old-style-prefixes nil
+
鐃緒申��申鐃緒申  "*When non-nil, use only old-and-crusty outline-mode `*' topic prefixes.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Non-nil restricts the topic creation and modification
+
鐃緒申��申鐃緒申functions to asterix-padded prefixes, so they look exactly
+
鐃緒申��申鐃緒申like the original emacs-outline style prefixes.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Whatever the setting of this variable, both old and new style prefixes
+
鐃緒申��申鐃緒申are always respected by the topic maneuvering functions."
+
鐃緒申��申鐃緒申  :type 'boolean
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-old-style-prefixes)
+
鐃緒申��申鐃緒申;;;_  = outline-stylish-prefixes - alternating bullets
+
鐃緒申��申鐃緒申(defcustom outline-stylish-prefixes t
+
鐃緒申��申鐃緒申  "*Do fancy stuff with topic prefix bullets according to level, etc.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Non-nil enables topic creation, modification, and repositioning
+
鐃緒申��申鐃緒申functions to vary the topic bullet char (the char that marks the topic
+
鐃緒申��申鐃緒申depth) just preceding the start of the topic text) according to level.
+
鐃緒申��申鐃緒申Otherwise, only asterisks (`*') and distinctive bullets are used.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This is how an outline can look (but sans indentation) with stylish
+
鐃緒申��申鐃緒申prefixes:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    * Top level
+
鐃緒申��申鐃緒申    .* A topic
+
鐃緒申��申鐃緒申    . + One level 3 subtopic
+
鐃緒申��申鐃緒申    .  . One level 4 subtopic
+
鐃緒申��申鐃緒申    .  . A second 4 subtopic
+
鐃緒申��申鐃緒申    . + Another level 3 subtopic
+
鐃緒申��申鐃緒申    .  #1 A numbered level 4 subtopic
+
鐃緒申��申鐃緒申    .  #2 Another
+
鐃緒申��申鐃緒申    .  ! Another level 4 subtopic with a different distinctive bullet
+
鐃緒申��申鐃緒申    .  #4 And another numbered level 4 subtopic
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This would be an outline with stylish prefixes inhibited (but the
+
鐃緒申��申鐃緒申numbered and other distinctive bullets retained):
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    * Top level
+
鐃緒申��申鐃緒申    .* A topic
+
鐃緒申��申鐃緒申    . * One level 3 subtopic
+
鐃緒申��申鐃緒申    .  * One level 4 subtopic
+
鐃緒申��申鐃緒申    .  * A second 4 subtopic
+
鐃緒申��申鐃緒申    . * Another level 3 subtopic
+
鐃緒申��申鐃緒申    .  #1 A numbered level 4 subtopic
+
鐃緒申��申鐃緒申    .  #2 Another
+
鐃緒申��申鐃緒申    .  ! Another level 4 subtopic with a different distinctive bullet
+
鐃緒申��申鐃緒申    .  #4 And another numbered level 4 subtopic
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Stylish and constant prefixes (as well as old-style prefixes) are
+
鐃緒申��申鐃緒申always respected by the topic maneuvering functions, regardless of
+
鐃緒申��申鐃緒申this variable setting.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The setting of this var is not relevant when outline-old-style-prefixes
+
鐃緒申��申鐃緒申is non-nil."
+
鐃緒申��申鐃緒申  :type 'boolean
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-stylish-prefixes)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-numbered-bullet
+
鐃緒申��申鐃緒申(defcustom outline-numbered-bullet "#"
+
鐃緒申��申鐃緒申  "*String designating bullet of topics that have auto-numbering; nil for none.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Topics having this bullet have automatic maintenance of a sibling
+
鐃緒申��申鐃緒申sequence-number tacked on, just after the bullet.  Conventionally set
+
鐃緒申��申鐃緒申to \"#\", you can set it to a bullet of your choice.  A nil value
+
鐃緒申��申鐃緒申disables numbering maintenance."
+
鐃緒申��申鐃緒申  :type '(choice (const nil) string)
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-numbered-bullet)
+
鐃緒申��申鐃緒申;;;_  = outline-file-xref-bullet
+
鐃緒申��申鐃緒申(defcustom outline-file-xref-bullet "@"
+
鐃緒申��申鐃緒申  "*Bullet signifying file cross-references, for `outline-resolve-xref'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Set this var to the bullet you want to use for file cross-references."
+
鐃緒申��申鐃緒申  :type '(choice (const nil) string)
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-presentation-padding
+
鐃緒申��申鐃緒申(defcustom outline-presentation-padding 2
+
鐃緒申��申鐃緒申  "*Presentation-format white-space padding factor, for greater indent."
+
鐃緒申��申鐃緒申  :type 'integer
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-presentation-padding)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-abbreviate-flattened-numbering
+
鐃緒申��申鐃緒申(defcustom outline-abbreviate-flattened-numbering nil
+
鐃緒申��申鐃緒申  "*If non-nil, `outline-flatten-exposed-to-buffer' abbreviates topic
+
鐃緒申��申鐃緒申numbers to minimal amount with some context.  Otherwise, entire
+
鐃緒申��申鐃緒申numbers are always used."
+
鐃緒申��申鐃緒申  :type 'boolean
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ + LaTeX formatting
+
鐃緒申��申鐃緒申;;;_  - outline-number-pages
+
鐃緒申��申鐃緒申(defcustom outline-number-pages nil
+
鐃緒申��申鐃緒申  "*Non-nil turns on page numbering for LaTeX formatting of an outline."
+
鐃緒申��申鐃緒申  :type 'boolean
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  - outline-label-style
+
鐃緒申��申鐃緒申(defcustom outline-label-style "\\large\\bf"
+
鐃緒申��申鐃緒申  "*Font and size of labels for LaTeX formatting of an outline."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  - outline-head-line-style
+
鐃緒申��申鐃緒申(defcustom outline-head-line-style "\\large\\sl "
+
鐃緒申��申鐃緒申  "*Font and size of entries for LaTeX formatting of an outline."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  - outline-body-line-style
+
鐃緒申��申鐃緒申(defcustom outline-body-line-style " "
+
鐃緒申��申鐃緒申  "*Font and size of entries for LaTeX formatting of an outline."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  - outline-title-style
+
鐃緒申��申鐃緒申(defcustom outline-title-style "\\Large\\bf"
+
鐃緒申��申鐃緒申  "*Font and size of titles for LaTeX formatting of an outline."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  - outline-title
+
鐃緒申��申鐃緒申(defcustom outline-title '(or buffer-file-name (current-buffer-name))
+
鐃緒申��申鐃緒申  "*Expression to be evaluated to determine the title for LaTeX
+
鐃緒申��申鐃緒申formatted copy."
+
鐃緒申��申鐃緒申  :type 'sexp
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  - outline-line-skip
+
鐃緒申��申鐃緒申(defcustom outline-line-skip ".05cm"
+
鐃緒申��申鐃緒申  "*Space between lines for LaTeX formatting of an outline."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申;;;_  - outline-indent
+
鐃緒申��申鐃緒申(defcustom outline-indent ".3cm"
+
鐃緒申��申鐃緒申  "*LaTeX formatted depth-indent spacing."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ + Miscellaneous customization
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-command-prefix
+
鐃緒申��申鐃緒申(defcustom outline-command-prefix "\C-c"
+
鐃緒申��申鐃緒申  "*Key sequence to be used as prefix for outline mode command key bindings."
+
鐃緒申��申鐃緒申  :type 'string
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-keybindings-list
+
鐃緒申��申鐃緒申;;; You have to reactivate outline-mode - `(outline-mode t)' - to
+
鐃緒申��申鐃緒申;;; institute changes to this var.
+
鐃緒申��申鐃緒申(defvar outline-keybindings-list ()
+
鐃緒申��申鐃緒申  "*List of outline-mode key / function bindings, for outline-mode-map.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申String or vector key will be prefaced with outline-command-prefix,
+
鐃緒申��申鐃緒申unless optional third, non-nil element is present.")
+
鐃緒申��申鐃緒申(setq outline-keybindings-list
+
鐃緒申��申鐃緒申      '(
+
鐃緒申��申鐃緒申                                        ; Motion commands:
+
鐃緒申��申鐃緒申        ("\C-n" outline-next-visible-heading)
+
鐃緒申��申鐃緒申        ("\C-p" outline-previous-visible-heading)
+
鐃緒申��申鐃緒申        ("\C-u" outline-up-current-level)
+
鐃緒申��申鐃緒申        ("\C-f" outline-forward-current-level)
+
鐃緒申��申鐃緒申        ("\C-b" outline-backward-current-level)
+
鐃緒申��申鐃緒申        ("\C-a" outline-beginning-of-current-entry)
+
鐃緒申��申鐃緒申        ("\C-e" outline-end-of-current-entry)
+
鐃緒申��申鐃緒申                                        ; Exposure commands:
+
鐃緒申��申鐃緒申        ("\C-i" outline-show-children)
+
鐃緒申��申鐃緒申        ("\C-s" outline-show-current-subtree)
+
鐃緒申��申鐃緒申        ("\C-h" outline-hide-current-subtree)
+
鐃緒申��申鐃緒申        ("\C-o" outline-show-current-entry)
+
鐃緒申��申鐃緒申        ("!" outline-show-all)
+
鐃緒申��申鐃緒申                                        ; Alteration commands:
+
鐃緒申��申鐃緒申        (" " outline-open-sibtopic)
+
鐃緒申��申鐃緒申        ("." outline-open-subtopic)
+
鐃緒申��申鐃緒申        ("," outline-open-supertopic)
+
鐃緒申��申鐃緒申        ("'" outline-shift-in)
+
鐃緒申��申鐃緒申        (">" outline-shift-in)
+
鐃緒申��申鐃緒申        ("<" outline-shift-out)
+
鐃緒申��申鐃緒申        ("\C-m" outline-rebullet-topic)
+
鐃緒申��申鐃緒申        ("*" outline-rebullet-current-heading)
+
鐃緒申��申鐃緒申        ("#" outline-number-siblings)
+
鐃緒申��申鐃緒申        ("\C-k" outline-kill-line t)
+
鐃緒申��申鐃緒申        ("\C-y" outline-yank t)
+
鐃緒申��申鐃緒申        ("\M-y" outline-yank-pop t)
+
鐃緒申��申鐃緒申        ("\C-k" outline-kill-topic)
+
鐃緒申��申鐃緒申                                        ; Miscellaneous commands:
+
鐃緒申��申鐃緒申	;([?\C-\ ] outline-mark-topic)
+
鐃緒申��申鐃緒申        ("@" outline-resolve-xref)
+
鐃緒申��申鐃緒申        ("=c" outline-copy-exposed-to-buffer)
+
鐃緒申��申鐃緒申        ("=i" outline-indented-exposed-to-buffer)
+
鐃緒申��申鐃緒申	("=t" outline-latexify-exposed)
+
鐃緒申��申鐃緒申	("=p" outline-flatten-exposed-to-buffer)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-isearch-dynamic-expose
+
鐃緒申��申鐃緒申(defcustom outline-isearch-dynamic-expose t
+
鐃緒申��申鐃緒申  "*Non-nil enable dynamic exposure of hidden incremental-search
+
鐃緒申��申鐃緒申targets as they're encountered."
+
鐃緒申��申鐃緒申  :type 'boolean
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-isearch-dynamic-expose)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-use-hanging-indents
+
鐃緒申��申鐃緒申(defcustom outline-use-hanging-indents t
+
鐃緒申��申鐃緒申  "*If non-nil, topic body text auto-indent defaults to indent of the header.
+
鐃緒申��申鐃緒申Ie, it is indented to be just past the header prefix.  This is
+
鐃緒申��申鐃緒申relevant mostly for use with indented-text-mode, or other situations
+
鐃緒申��申鐃緒申where auto-fill occurs.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申\[This feature no longer depends in any way on the `filladapt.el'
+
鐃緒申��申鐃緒申lisp-archive package.\]"
+
鐃緒申��申鐃緒申  :type 'boolean
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-use-hanging-indents)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-reindent-bodies
+
鐃緒申��申鐃緒申(defcustom outline-reindent-bodies (if outline-use-hanging-indents
+
鐃緒申��申鐃緒申				    'text)
+
鐃緒申��申鐃緒申  "*Non-nil enables auto-adjust of topic body hanging indent with depth shifts.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申When active, topic body lines that are indented even with or beyond
+
鐃緒申��申鐃緒申their topic header are reindented to correspond with depth shifts of
+
鐃緒申��申鐃緒申the header.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申A value of `t' enables reindent in non-programming-code buffers, ie
+
鐃緒申��申鐃緒申those that do not have the variable `comment-start' set.  A value of
+
鐃緒申��申鐃緒申`force' enables reindent whether or not `comment-start' is set."
+
鐃緒申��申鐃緒申  :type '(choice (const nil) (const t) (const text) (const force))
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-reindent-bodies)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  = outline-inhibit-protection
+
鐃緒申��申鐃緒申(defcustom outline-inhibit-protection nil
+
鐃緒申��申鐃緒申  "*Non-nil disables warnings and confirmation-checks for concealed-text edits.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Outline mode uses emacs change-triggered functions to detect unruly
+
鐃緒申��申鐃緒申changes to concealed regions.  Set this var non-nil to disable the
+
鐃緒申��申鐃緒申protection, potentially increasing text-entry responsiveness a bit.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This var takes effect at outline-mode activation, so you may have to
+
鐃緒申��申鐃緒申deactivate and then reactivate the mode if you want to toggle the
+
鐃緒申��申鐃緒申behavior."
+
鐃緒申��申鐃緒申  :type 'boolean
+
鐃緒申��申鐃緒申  :group 'allout)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_* CODE - no user customizations below.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #1 Internal Outline Formatting and Configuration
+
鐃緒申��申鐃緒申;;;_  : Version
+
鐃緒申��申鐃緒申;;;_   = outline-version
+
鐃緒申��申鐃緒申(defvar outline-version
+
鐃緒申��申鐃緒申  (let ((rcs-rev "$Revision: 4.35 $"))
+
鐃緒申��申鐃緒申    (condition-case err
+
鐃緒申��申鐃緒申	(save-match-data
+
鐃緒申��申鐃緒申	  (string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev)
+
鐃緒申��申鐃緒申	  (substring rcs-rev (match-beginning 1) (match-end 1)))
+
鐃緒申��申鐃緒申      ('error rcs-rev)))
+
鐃緒申��申鐃緒申  "Revision number of currently loaded outline package.  \(allout.el)")
+
鐃緒申��申鐃緒申;;;_   > outline-version
+
鐃緒申��申鐃緒申(defun outline-version (&optional here)
+
鐃緒申��申鐃緒申  "Return string describing the loaded outline version."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (let ((msg (concat "Allout Outline Mode v " outline-version)))
+
鐃緒申��申鐃緒申    (if here (insert-string msg))
+
鐃緒申��申鐃緒申    (message "%s" msg)
+
鐃緒申��申鐃緒申    msg))
+
鐃緒申��申鐃緒申;;;_  : Topic header format
+
鐃緒申��申鐃緒申;;;_   = outline-regexp
+
鐃緒申��申鐃緒申(defvar outline-regexp ""
+
鐃緒申��申鐃緒申  "*Regular expression to match the beginning of a heading line.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Any line whose beginning matches this regexp is considered a
+
鐃緒申��申鐃緒申heading.  This var is set according to the user configuration vars
+
鐃緒申��申鐃緒申by set-outline-regexp.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-regexp)
+
鐃緒申��申鐃緒申;;;_   = outline-bullets-string
+
鐃緒申��申鐃緒申(defvar outline-bullets-string ""
+
鐃緒申��申鐃緒申  "A string dictating the valid set of outline topic bullets.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This var should *not* be set by the user - it is set by `set-outline-regexp',
+
鐃緒申��申鐃緒申and is produced from the elements of `outline-plain-bullets-string'
+
鐃緒申��申鐃緒申and `outline-distinctive-bullets-string'.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-bullets-string)
+
鐃緒申��申鐃緒申;;;_   = outline-bullets-string-len
+
鐃緒申��申鐃緒申(defvar outline-bullets-string-len 0
+
鐃緒申��申鐃緒申  "Length of current buffers' outline-plain-bullets-string.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-bullets-string-len)
+
鐃緒申��申鐃緒申;;;_   = outline-line-boundary-regexp
+
鐃緒申��申鐃緒申(defvar outline-line-boundary-regexp ()
+
鐃緒申��申鐃緒申  "Outline-regexp with outline-style beginning-of-line anchor.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申\(Ie, C-j, *or* C-m, for prefixes of hidden topics).  This is properly
+
鐃緒申��申鐃緒申set when outline-regexp is produced by `set-outline-regexp', so
+
鐃緒申��申鐃緒申that (match-beginning 2) and (match-end 2) delimit the prefix.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-line-boundary-regexp)
+
鐃緒申��申鐃緒申;;;_   = outline-bob-regexp
+
鐃緒申��申鐃緒申(defvar outline-bob-regexp ()
+
鐃緒申��申鐃緒申  "Like outline-line-boundary-regexp, for headers at beginning of buffer.
+
鐃緒申��申鐃緒申\(match-beginning 2) and \(match-end 2) delimit the prefix.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-bob-regexp)
+
鐃緒申��申鐃緒申;;;_   = outline-header-subtraction
+
鐃緒申��申鐃緒申(defvar outline-header-subtraction (1- (length outline-header-prefix))
+
鐃緒申��申鐃緒申  "Outline-header prefix length to subtract when computing topic depth.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-header-subtraction)
+
鐃緒申��申鐃緒申;;;_   = outline-plain-bullets-string-len
+
鐃緒申��申鐃緒申(defvar outline-plain-bullets-string-len (length outline-plain-bullets-string)
+
鐃緒申��申鐃緒申  "Length of outline-plain-bullets-string, updated by set-outline-regexp.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-plain-bullets-string-len)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_   X outline-reset-header-lead (header-lead)
+
鐃緒申��申鐃緒申(defun outline-reset-header-lead (header-lead)
+
鐃緒申��申鐃緒申  "*Reset the leading string used to identify topic headers."
+
鐃緒申��申鐃緒申  (interactive "sNew lead string: ")
+
鐃緒申��申鐃緒申  (setq outline-header-prefix header-lead)
+
鐃緒申��申鐃緒申  (setq outline-header-subtraction (1- (length outline-header-prefix)))
+
鐃緒申��申鐃緒申  (set-outline-regexp))
+
鐃緒申��申鐃緒申;;;_   X outline-lead-with-comment-string (header-lead)
+
鐃緒申��申鐃緒申(defun outline-lead-with-comment-string (&optional header-lead)
+
鐃緒申��申鐃緒申  "*Set the topic-header leading string to specified string.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Useful when for encapsulating outline structure in programming
+
鐃緒申��申鐃緒申language comments.  Returns the leading string."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (if (not (stringp header-lead))
+
鐃緒申��申鐃緒申      (setq header-lead (read-string
+
鐃緒申��申鐃緒申                         "String prefix for topic headers: ")))
+
鐃緒申��申鐃緒申  (setq outline-reindent-bodies nil)
+
鐃緒申��申鐃緒申  (outline-reset-header-lead header-lead)
+
鐃緒申��申鐃緒申  header-lead)
+
鐃緒申��申鐃緒申;;;_   > outline-infer-header-lead ()
+
鐃緒申��申鐃緒申(defun outline-infer-header-lead ()
+
鐃緒申��申鐃緒申  "Determine appropriate `outline-header-prefix'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Works according to settings of:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申       `comment-start'
+
鐃緒申��申鐃緒申       `outline-header-prefix' (default)
+
鐃緒申��申鐃緒申       `outline-use-mode-specific-leader'
+
鐃緒申��申鐃緒申and    `outline-mode-leaders'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Apply this via \(re)activation of `outline-mode', rather than
+
鐃緒申��申鐃緒申invoking it directly."
+
鐃緒申��申鐃緒申  (let* ((use-leader (and (boundp 'outline-use-mode-specific-leader)
+
鐃緒申��申鐃緒申			  (if (or (stringp outline-use-mode-specific-leader)
+
鐃緒申��申鐃緒申				  (memq outline-use-mode-specific-leader
+
鐃緒申��申鐃緒申					'(outline-mode-leaders
+
鐃緒申��申鐃緒申					  comment-start
+
鐃緒申��申鐃緒申					  t)))
+
鐃緒申��申鐃緒申			      outline-use-mode-specific-leader
+
鐃緒申��申鐃緒申			    ;; Oops - garbled value, equate with effect of 't:
+
鐃緒申��申鐃緒申			    t)))
+
鐃緒申��申鐃緒申	 (leader
+
鐃緒申��申鐃緒申	  (cond
+
鐃緒申��申鐃緒申	   ((not use-leader) nil)
+
鐃緒申��申鐃緒申	   ;; Use the explicitly designated leader:
+
鐃緒申��申鐃緒申	   ((stringp use-leader) use-leader)
+
鐃緒申��申鐃緒申	   (t (or (and (memq use-leader '(t outline-mode-leaders))
+
鐃緒申��申鐃緒申		       ;; Get it from outline mode leaders?
+
鐃緒申��申鐃緒申		       (cdr (assq major-mode outline-mode-leaders)))
+
鐃緒申��申鐃緒申		  ;; ... didn't get from outline-mode-leaders...
+
鐃緒申��申鐃緒申		  (and (memq use-leader '(t comment-start))
+
鐃緒申��申鐃緒申		       comment-start
+
鐃緒申��申鐃緒申		       ;; Use comment-start, maybe tripled, and with
+
鐃緒申��申鐃緒申		       ;; underscore:
+
鐃緒申��申鐃緒申		       (concat
+
鐃緒申��申鐃緒申			(if (string= " "
+
鐃緒申��申鐃緒申				     (substring comment-start
+
鐃緒申��申鐃緒申						(1- (length comment-start))))
+
鐃緒申��申鐃緒申			    ;; Use comment-start, sans trailing space:
+
鐃緒申��申鐃緒申			    (substring comment-start 0 -1)
+
鐃緒申��申鐃緒申			  (concat comment-start comment-start comment-start))
+
鐃緒申��申鐃緒申			;; ... and append underscore, whichever:
+
鐃緒申��申鐃緒申			"_")))))))
+
鐃緒申��申鐃緒申    (if (not leader)
+
鐃緒申��申鐃緒申	nil
+
鐃緒申��申鐃緒申      (if (string= leader outline-header-prefix)
+
鐃緒申��申鐃緒申	  nil				; no change, nothing to do.
+
鐃緒申��申鐃緒申	(setq outline-header-prefix leader)
+
鐃緒申��申鐃緒申	outline-header-prefix))))
+
鐃緒申��申鐃緒申;;;_   > outline-infer-body-reindent ()
+
鐃緒申��申鐃緒申(defun outline-infer-body-reindent ()
+
鐃緒申��申鐃緒申  "Determine proper setting for `outline-reindent-bodies'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Depends on default setting of `outline-reindent-bodies' \(which see)
+
鐃緒申��申鐃緒申and presence of setting for `comment-start', to tell whether the
+
鐃緒申��申鐃緒申file is programming code."
+
鐃緒申��申鐃緒申  (if (and outline-reindent-bodies
+
鐃緒申��申鐃緒申	   comment-start
+
鐃緒申��申鐃緒申	   (not (eq 'force outline-reindent-bodies)))
+
鐃緒申��申鐃緒申      (setq outline-reindent-bodies nil)))
+
鐃緒申��申鐃緒申;;;_   > set-outline-regexp ()
+
鐃緒申��申鐃緒申(defun set-outline-regexp ()
+
鐃緒申��申鐃緒申  "Generate proper topic-header regexp form for outline functions.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Works with respect to `outline-plain-bullets-string' and
+
鐃緒申��申鐃緒申`outline-distinctive-bullets-string'."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  ;; Derive outline-bullets-string from user configured components:
+
鐃緒申��申鐃緒申  (setq outline-bullets-string "")
+
鐃緒申��申鐃緒申  (let ((strings (list 'outline-plain-bullets-string
+
鐃緒申��申鐃緒申                       'outline-distinctive-bullets-string
+
鐃緒申��申鐃緒申                       'outline-primary-bullet))
+
鐃緒申��申鐃緒申        cur-string
+
鐃緒申��申鐃緒申        cur-len
+
鐃緒申��申鐃緒申        cur-char
+
鐃緒申��申鐃緒申        cur-char-string
+
鐃緒申��申鐃緒申        index
+
鐃緒申��申鐃緒申        new-string)
+
鐃緒申��申鐃緒申    (while strings
+
鐃緒申��申鐃緒申      (setq new-string "") (setq index 0)
+
鐃緒申��申鐃緒申      (setq cur-len (length (setq cur-string (symbol-value (car strings)))))
+
鐃緒申��申鐃緒申      (while (< index cur-len)
+
鐃緒申��申鐃緒申        (setq cur-char (aref cur-string index))
+
鐃緒申��申鐃緒申        (setq outline-bullets-string
+
鐃緒申��申鐃緒申              (concat outline-bullets-string
+
鐃緒申��申鐃緒申                      (cond
+
鐃緒申��申鐃緒申                                        ; Single dash would denote a
+
鐃緒申��申鐃緒申                                        ; sequence, repeated denotes
+
鐃緒申��申鐃緒申                                        ; a dash:
+
鐃緒申��申鐃緒申                       ((eq cur-char ?-) "--")
+
鐃緒申��申鐃緒申                                        ; literal close-square-bracket
+
鐃緒申��申鐃緒申                                        ; doesn't work right in the
+
鐃緒申��申鐃緒申                                        ; expr, exclude it:
+
鐃緒申��申鐃緒申                       ((eq cur-char ?\]) "")
+
鐃緒申��申鐃緒申                       (t (regexp-quote  (char-to-string cur-char))))))
+
鐃緒申��申鐃緒申        (setq index (1+ index)))
+
鐃緒申��申鐃緒申      (setq strings (cdr strings)))
+
鐃緒申��申鐃緒申    )
+
鐃緒申��申鐃緒申  ;; Derive next for repeated use in outline-pending-bullet:
+
鐃緒申��申鐃緒申  (setq outline-plain-bullets-string-len (length outline-plain-bullets-string))
+
鐃緒申��申鐃緒申  (setq outline-header-subtraction (1- (length outline-header-prefix)))
+
鐃緒申��申鐃緒申  ;; Produce the new outline-regexp:
+
鐃緒申��申鐃緒申  (setq outline-regexp (concat "\\(\\"
+
鐃緒申��申鐃緒申                               outline-header-prefix
+
鐃緒申��申鐃緒申                               "[ \t]*["
+
鐃緒申��申鐃緒申                               outline-bullets-string
+
鐃緒申��申鐃緒申                               "]\\)\\|\\"
+
鐃緒申��申鐃緒申                               outline-primary-bullet
+
鐃緒申��申鐃緒申                               "+\\|\^l"))
+
鐃緒申��申鐃緒申  (setq outline-line-boundary-regexp
+
鐃緒申��申鐃緒申        (concat "\\([\n\r]\\)\\(" outline-regexp "\\)"))
+
鐃緒申��申鐃緒申  (setq outline-bob-regexp
+
鐃緒申��申鐃緒申        (concat "\\(\\`\\)\\(" outline-regexp "\\)"))
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_  : Key bindings
+
鐃緒申��申鐃緒申;;;_   = outline-mode-map
+
鐃緒申��申鐃緒申(defvar outline-mode-map nil "Keybindings for (allout) outline minor mode.")
+
鐃緒申��申鐃緒申;;;_   > produce-outline-mode-map (keymap-alist &optional base-map)
+
鐃緒申��申鐃緒申(defun produce-outline-mode-map (keymap-list &optional base-map)
+
鐃緒申��申鐃緒申  "Produce keymap for use as outline-mode-map, from keymap-list.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Built on top of optional BASE-MAP, or empty sparse map if none specified.
+
鐃緒申��申鐃緒申See doc string for outline-keybindings-list for format of binding list."
+
鐃緒申��申鐃緒申  (let ((map (or base-map (make-sparse-keymap)))
+
鐃緒申��申鐃緒申	(pref (list outline-command-prefix)))
+
鐃緒申��申鐃緒申    (mapcar (function
+
鐃緒申��申鐃緒申	     (lambda (cell)
+
鐃緒申��申鐃緒申	       (let ((add-pref (null (cdr (cdr cell))))
+
鐃緒申��申鐃緒申		     (key-suff (list (car cell))))
+
鐃緒申��申鐃緒申		 (apply 'define-key
+
鐃緒申��申鐃緒申			(list map
+
鐃緒申��申鐃緒申			      (apply 'concat (if add-pref
+
鐃緒申��申鐃緒申						 (append pref key-suff)
+
鐃緒申��申鐃緒申					       key-suff))
+
鐃緒申��申鐃緒申			      (car (cdr cell)))))))
+
鐃緒申��申鐃緒申	    keymap-list)
+
鐃緒申��申鐃緒申    map))
+
鐃緒申��申鐃緒申;;;_   = outline-prior-bindings - being deprecated.
+
鐃緒申��申鐃緒申(defvar outline-prior-bindings nil
+
鐃緒申��申鐃緒申  "Variable for use in V18, with outline-added-bindings, for
+
鐃緒申��申鐃緒申resurrecting, on mode deactivation, bindings that existed before
+
鐃緒申��申鐃緒申activation.  Being deprecated.")
+
鐃緒申��申鐃緒申;;;_   = outline-added-bindings - being deprecated
+
鐃緒申��申鐃緒申(defvar outline-added-bindings nil
+
鐃緒申��申鐃緒申  "Variable for use in V18, with outline-prior-bindings, for
+
鐃緒申��申鐃緒申resurrecting, on mode deactivation, bindings that existed before
+
鐃緒申��申鐃緒申activation.  Being deprecated.")
+
鐃緒申��申鐃緒申;;;_  : Menu bar
+
鐃緒申��申鐃緒申(defun produce-outline-mode-menubar-entries ()
+
鐃緒申��申鐃緒申  (require 'easymenu)
+
鐃緒申��申鐃緒申  (easy-menu-define outline-mode-exposure-menu
+
鐃緒申��申鐃緒申		    outline-mode-map
+
鐃緒申��申鐃緒申		    "Allout outline exposure menu."
+
鐃緒申��申鐃緒申		    '("Exposure"
+
鐃緒申��申鐃緒申		      ["Show Entry" outline-show-current-entry t]
+
鐃緒申��申鐃緒申		      ["Show Children" outline-show-children t]
+
鐃緒申��申鐃緒申		      ["Show Subtree" outline-show-current-subtree t]
+
鐃緒申��申鐃緒申		      ["Hide Subtree" outline-hide-current-subtree t]
+
鐃緒申��申鐃緒申		      ["Hide Leaves" outline-hide-current-leaves t]
+
鐃緒申��申鐃緒申		      "----"
+
鐃緒申��申鐃緒申		      ["Show All" outline-show-all t]))
+
鐃緒申��申鐃緒申  (easy-menu-define outline-mode-editing-menu
+
鐃緒申��申鐃緒申		    outline-mode-map
+
鐃緒申��申鐃緒申		    "Allout outline editing menu."
+
鐃緒申��申鐃緒申		    '("Headings"
+
鐃緒申��申鐃緒申		      ["Open Sibling" outline-open-sibtopic t]
+
鐃緒申��申鐃緒申		      ["Open Subtopic" outline-open-subtopic t]
+
鐃緒申��申鐃緒申		      ["Open Supertopic" outline-open-supertopic t]
+
鐃緒申��申鐃緒申		      "----"
+
鐃緒申��申鐃緒申		      ["Shift Topic In" outline-shift-in t]
+
鐃緒申��申鐃緒申		      ["Shift Topic Out" outline-shift-out t]
+
鐃緒申��申鐃緒申		      ["Rebullet Topic" outline-rebullet-topic t]
+
鐃緒申��申鐃緒申		      ["Rebullet Heading" outline-rebullet-current-heading t]
+
鐃緒申��申鐃緒申		      ["Number Siblings" outline-number-siblings t]))
+
鐃緒申��申鐃緒申  (easy-menu-define outline-mode-navigation-menu
+
鐃緒申��申鐃緒申		    outline-mode-map
+
鐃緒申��申鐃緒申		    "Allout outline navigation menu."
+
鐃緒申��申鐃緒申		    '("Navigation"
+
鐃緒申��申鐃緒申		      ["Next Visible Heading" outline-next-visible-heading t]
+
鐃緒申��申鐃緒申		      ["Previous Visible Heading"
+
鐃緒申��申鐃緒申		       outline-previous-visible-heading t]
+
鐃緒申��申鐃緒申		      "----"
+
鐃緒申��申鐃緒申		      ["Up Level" outline-up-current-level t]
+
鐃緒申��申鐃緒申		      ["Forward Current Level" outline-forward-current-level t]
+
鐃緒申��申鐃緒申		      ["Backward Current Level"
+
鐃緒申��申鐃緒申		       outline-backward-current-level t]
+
鐃緒申��申鐃緒申		      "----"
+
鐃緒申��申鐃緒申		      ["Beginning of Entry"
+
鐃緒申��申鐃緒申		       outline-beginning-of-current-entry t]
+
鐃緒申��申鐃緒申		      ["End of Entry" outline-end-of-current-entry t]
+
鐃緒申��申鐃緒申		      ["End of Subtree" outline-end-of-current-subtree t]))
+
鐃緒申��申鐃緒申  (easy-menu-define outline-mode-misc-menu
+
鐃緒申��申鐃緒申		    outline-mode-map
+
鐃緒申��申鐃緒申		    "Allout outlines miscellaneous bindings."
+
鐃緒申��申鐃緒申		    '("Misc"
+
鐃緒申��申鐃緒申		      ["Version" outline-version t]
+
鐃緒申��申鐃緒申		      "----"
+
鐃緒申��申鐃緒申		      ["Duplicate Exposed" outline-copy-exposed-to-buffer t]
+
鐃緒申��申鐃緒申		      ["Duplicate Exposed, numbered"
+
鐃緒申��申鐃緒申		       outline-flatten-exposed-to-buffer t] 
+
鐃緒申��申鐃緒申		      ["Duplicate Exposed, indented"
+
鐃緒申��申鐃緒申		       outline-indented-exposed-to-buffer t] 
+
鐃緒申��申鐃緒申		      "----"
+
鐃緒申��申鐃緒申		      ["Set Header Lead" outline-reset-header-lead t]
+
鐃緒申��申鐃緒申		      ["Set New Exposure" outline-expose-topic t])))
+
鐃緒申��申鐃緒申;;;_  : Mode-Specific Variable Maintenance Utilities
+
鐃緒申��申鐃緒申;;;_   = outline-mode-prior-settings
+
鐃緒申��申鐃緒申(defvar outline-mode-prior-settings nil
+
鐃緒申��申鐃緒申  "Internal outline mode use; settings to be resumed on mode deactivation.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-mode-prior-settings)
+
鐃緒申��申鐃緒申;;;_   > outline-resumptions (name &optional value)
+
鐃緒申��申鐃緒申(defun outline-resumptions (name &optional value)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Registers or resumes settings over outline-mode activation/deactivation.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申First arg is NAME of variable affected.  Optional second arg is list
+
鐃緒申��申鐃緒申containing outline-mode-specific VALUE to be imposed on named
+
鐃緒申��申鐃緒申variable, and to be registered.  (It's a list so you can specify
+
鐃緒申��申鐃緒申registrations of null values.)  If no value is specified, the
+
鐃緒申��申鐃緒申registered value is returned (encapsulated in the list, so the caller
+
鐃緒申��申鐃緒申can distinguish nil vs no value), and the registration is popped
+
鐃緒申��申鐃緒申from the list."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let ((on-list (assq name outline-mode-prior-settings))
+
鐃緒申��申鐃緒申        prior-capsule                   ; By `capsule' i mean a list
+
鐃緒申��申鐃緒申                                        ; containing a value, so we can
+
鐃緒申��申鐃緒申                                        ; distinguish nil from no value.
+
鐃緒申��申鐃緒申        )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (if value
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申        ;; Registering:
+
鐃緒申��申鐃緒申        (progn
+
鐃緒申��申鐃緒申          (if on-list
+
鐃緒申��申鐃緒申              nil 	; Already preserved prior value - don't mess with it.
+
鐃緒申��申鐃緒申            ;; Register the old value, or nil if previously unbound:
+
鐃緒申��申鐃緒申            (setq outline-mode-prior-settings
+
鐃緒申��申鐃緒申                  (cons (list name
+
鐃緒申��申鐃緒申                              (if (boundp name) (list (symbol-value name))))
+
鐃緒申��申鐃緒申                        outline-mode-prior-settings)))
+
鐃緒申��申鐃緒申                                        ; And impose the new value, locally:
+
鐃緒申��申鐃緒申	  (progn (make-local-variable name)
+
鐃緒申��申鐃緒申		 (set name (car value))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      ;; Relinquishing:
+
鐃緒申��申鐃緒申      (if (not on-list)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申          ;; Oops, not registered - leave it be:
+
鐃緒申��申鐃緒申          nil
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申        ;; Some registration:
+
鐃緒申��申鐃緒申                                        ; reestablish it:
+
鐃緒申��申鐃緒申        (setq prior-capsule (car (cdr on-list)))
+
鐃緒申��申鐃緒申        (if prior-capsule
+
鐃緒申��申鐃緒申            (set name (car prior-capsule)) ; Some prior value - reestablish it.
+
鐃緒申��申鐃緒申          (makunbound name))		; Previously unbound - demolish var.
+
鐃緒申��申鐃緒申                                        ; Remove registration:
+
鐃緒申��申鐃緒申        (let (rebuild)
+
鐃緒申��申鐃緒申          (while outline-mode-prior-settings
+
鐃緒申��申鐃緒申            (if (not (eq (car outline-mode-prior-settings)
+
鐃緒申��申鐃緒申                         on-list))
+
鐃緒申��申鐃緒申                (setq rebuild
+
鐃緒申��申鐃緒申                      (cons (car outline-mode-prior-settings)
+
鐃緒申��申鐃緒申                            rebuild)))
+
鐃緒申��申鐃緒申            (setq outline-mode-prior-settings
+
鐃緒申��申鐃緒申                  (cdr outline-mode-prior-settings)))
+
鐃緒申��申鐃緒申          (setq outline-mode-prior-settings rebuild)))))
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_  : Mode-specific incidentals
+
鐃緒申��申鐃緒申;;;_   = outline-during-write-cue nil
+
鐃緒申��申鐃緒申(defvar outline-during-write-cue nil
+
鐃緒申��申鐃緒申  "Used to inhibit outline change-protection during file write.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申See also `outline-post-command-business', `outline-write-file-hook',
+
鐃緒申��申鐃緒申`outline-before-change-protect', and `outline-post-command-business'
+
鐃緒申��申鐃緒申functions.")
+
鐃緒申��申鐃緒申;;;_   = outline-pre-was-isearching nil
+
鐃緒申��申鐃緒申(defvar outline-pre-was-isearching nil
+
鐃緒申��申鐃緒申  "Cue for isearch-dynamic-exposure mechanism, implemented in
+
鐃緒申��申鐃緒申outline-pre- and -post-command-hooks.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-pre-was-isearching)
+
鐃緒申��申鐃緒申;;;_   = outline-isearch-prior-pos nil
+
鐃緒申��申鐃緒申(defvar outline-isearch-prior-pos nil
+
鐃緒申��申鐃緒申  "Cue for isearch-dynamic-exposure tracking, used by outline-isearch-expose.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-isearch-prior-pos)
+
鐃緒申��申鐃緒申;;;_   = outline-isearch-did-quit
+
鐃緒申��申鐃緒申(defvar outline-isearch-did-quit nil
+
鐃緒申��申鐃緒申  "Distinguishes isearch conclusion and cancellation.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Maintained by outline-isearch-abort \(which is wrapped around the real
+
鐃緒申��申鐃緒申isearch-abort), and monitored by outline-isearch-expose for action.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-isearch-did-quit)
+
鐃緒申��申鐃緒申;;;_   = outline-override-protect nil
+
鐃緒申��申鐃緒申(defvar outline-override-protect nil
+
鐃緒申��申鐃緒申  "Used in outline-mode for regulate of concealed-text protection mechanism.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Allout outline mode regulates alteration of concealed text to protect
+
鐃緒申��申鐃緒申against inadvertent, unnoticed changes.  This is for use by specific,
+
鐃緒申��申鐃緒申native outline functions to temporarily override that protection.
+
鐃緒申��申鐃緒申It's automatically reset to nil after every buffer modification.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-override-protect)
+
鐃緒申��申鐃緒申;;;_   > outline-unprotected (expr)
+
鐃緒申��申鐃緒申(defmacro outline-unprotected (expr)
+
鐃緒申��申鐃緒申  "Evaluate EXPRESSION with `outline-override-protect' let-bound `t'."
+
鐃緒申��申鐃緒申  `(let ((outline-override-protect t))
+
鐃緒申��申鐃緒申     ,expr))
+
鐃緒申��申鐃緒申;;;_   = outline-undo-aggregation
+
鐃緒申��申鐃緒申(defvar outline-undo-aggregation 30
+
鐃緒申��申鐃緒申  "Amount of successive self-insert actions to bunch together per undo.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This is purely a kludge variable, regulating the compensation for a bug in
+
鐃緒申��申鐃緒申the way that before-change-functions and undo interact.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-undo-aggregation)
+
鐃緒申��申鐃緒申;;;_   = file-var-bug hack
+
鐃緒申��申鐃緒申(defvar outline-v18/19-file-var-hack nil
+
鐃緒申��申鐃緒申  "Horrible hack used to prevent invalid multiple triggering of outline
+
鐃緒申��申鐃緒申mode from prop-line file-var activation.  Used by outline-mode function
+
鐃緒申��申鐃緒申to track repeats.")
+
鐃緒申��申鐃緒申;;;_   > outline-write-file-hook ()
+
鐃緒申��申鐃緒申(defun outline-write-file-hook ()
+
鐃緒申��申鐃緒申  "In outline mode, run as a local-write-file-hooks activity.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Currently just sets `outline-during-write-cue', so outline-change-protection
+
鐃緒申��申鐃緒申knows to keep inactive during file write."
+
鐃緒申��申鐃緒申  (setq outline-during-write-cue t)
+
鐃緒申��申鐃緒申  nil)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #2 Mode activation
+
鐃緒申��申鐃緒申;;;_  = outline-mode
+
鐃緒申��申鐃緒申(defvar outline-mode () "Allout outline mode minor-mode flag.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-mode)
+
鐃緒申��申鐃緒申;;;_  > outline-mode-p ()
+
鐃緒申��申鐃緒申(defmacro outline-mode-p ()
+
鐃緒申��申鐃緒申  "Return t if outline-mode is active in current buffer."
+
鐃緒申��申鐃緒申  'outline-mode)
+
鐃緒申��申鐃緒申;;;_  = outline-explicitly-deactivated
+
鐃緒申��申鐃緒申(defvar outline-explicitly-deactivated nil
+
鐃緒申��申鐃緒申  "Outline-mode was last deliberately deactivated.
+
鐃緒申��申鐃緒申So outline-post-command-business should not reactivate it...")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-explicitly-deactivated)
+
鐃緒申��申鐃緒申;;;_  > outline-init (&optional mode)
+
鐃緒申��申鐃緒申(defun outline-init (&optional mode)
+
鐃緒申��申鐃緒申  "Prime outline-mode to enable/disable auto-activation, wrt `outline-layout'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申MODE is one of the following symbols:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 - nil \(or no argument) deactivate auto-activation/layout;
+
鐃緒申��申鐃緒申 - `activate', enable auto-activation only;
+
鐃緒申��申鐃緒申 - `ask', enable auto-activation, and enable auto-layout but with
+
鐃緒申��申鐃緒申   confirmation for layout operation solicited from user each time;
+
鐃緒申��申鐃緒申 - `report', just report and return the current auto-activation state;
+
鐃緒申��申鐃緒申 - anything else \(eg, t) for auto-activation and auto-layout, without
+
鐃緒申��申鐃緒申   any confirmation check.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Use this function to setup your emacs session for automatic activation
+
鐃緒申��申鐃緒申of allout outline mode, contingent to the buffer-specific setting of
+
鐃緒申��申鐃緒申the `outline-layout' variable.  (See `outline-layout' and
+
鐃緒申��申鐃緒申`outline-expose-topic' docstrings for more details on auto layout).
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申`outline-init' works by setting up (or removing) the outline-mode
+
鐃緒申��申鐃緒申find-file-hook, and giving `outline-auto-activation' a suitable
+
鐃緒申��申鐃緒申setting.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申To prime your emacs session for full auto-outline operation, include
+
鐃緒申��申鐃緒申the following two lines in your emacs init file:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申\(require 'allout)
+
鐃緒申��申鐃緒申\(outline-init t)"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (if (interactive-p)
+
鐃緒申��申鐃緒申      (progn
+
鐃緒申��申鐃緒申	(setq mode
+
鐃緒申��申鐃緒申	      (completing-read
+
鐃緒申��申鐃緒申	       (concat "Select outline auto setup mode "
+
鐃緒申��申鐃緒申		       "(empty for report, ? for options) ")
+
鐃緒申��申鐃緒申	       '(("nil")("full")("activate")("deactivate")
+
鐃緒申��申鐃緒申		 ("ask") ("report") (""))
+
鐃緒申��申鐃緒申	       nil
+
鐃緒申��申鐃緒申	       t))
+
鐃緒申��申鐃緒申	(if (string= mode "")
+
鐃緒申��申鐃緒申	    (setq mode 'report)
+
鐃緒申��申鐃緒申	  (setq mode (intern-soft mode)))))
+
鐃緒申��申鐃緒申  (let
+
鐃緒申��申鐃緒申      ;; convenience aliases, for consistent ref to respective vars:
+
鐃緒申��申鐃緒申      ((hook 'outline-find-file-hook)
+
鐃緒申��申鐃緒申       (curr-mode 'outline-auto-activation))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (cond ((not mode)
+
鐃緒申��申鐃緒申	   (setq find-file-hooks (delq hook find-file-hooks))
+
鐃緒申��申鐃緒申	   (if (interactive-p)
+
鐃緒申��申鐃緒申	       (message "Allout outline mode auto-activation inhibited.")))
+
鐃緒申��申鐃緒申	  ((eq mode 'report)
+
鐃緒申��申鐃緒申	   (if (not (memq hook find-file-hooks))
+
鐃緒申��申鐃緒申	       (outline-init nil)
+
鐃緒申��申鐃緒申	     ;; Just punt and use the reports from each of the modes:
+
鐃緒申��申鐃緒申	     (outline-init (symbol-value curr-mode))))
+
鐃緒申��申鐃緒申	  (t (add-hook 'find-file-hooks hook)
+
鐃緒申��申鐃緒申	     (set curr-mode		; `set', not `setq'!
+
鐃緒申��申鐃緒申		  (cond ((eq mode 'activate)
+
鐃緒申��申鐃緒申			 (message
+
鐃緒申��申鐃緒申			  "Outline mode auto-activation enabled.")
+
鐃緒申��申鐃緒申			 'activate)
+
鐃緒申��申鐃緒申			((eq mode 'report)
+
鐃緒申��申鐃緒申			 ;; Return the current mode setting:
+
鐃緒申��申鐃緒申			 (outline-init mode))
+
鐃緒申��申鐃緒申			((eq mode 'ask)
+
鐃緒申��申鐃緒申			 (message
+
鐃緒申��申鐃緒申			  (concat "Outline mode auto-activation and "
+
鐃緒申��申鐃緒申				  "-layout \(upon confirmation) enabled."))
+
鐃緒申��申鐃緒申			 'ask)
+
鐃緒申��申鐃緒申			((message
+
鐃緒申��申鐃緒申			  "Outline mode auto-activation and -layout enabled.")
+
鐃緒申��申鐃緒申			 'full)))))))
+
鐃緒申��申鐃緒申		   
+
鐃緒申��申鐃緒申;;;_  > outline-setup-menubar ()
+
鐃緒申��申鐃緒申(defun outline-setup-menubar ()
+
鐃緒申��申鐃緒申  "Populate the current buffer's menubar with allout outline-mode stuff."
+
鐃緒申��申鐃緒申  (let ((menus (list outline-mode-exposure-menu
+
鐃緒申��申鐃緒申		     outline-mode-editing-menu
+
鐃緒申��申鐃緒申		     outline-mode-navigation-menu
+
鐃緒申��申鐃緒申		     outline-mode-misc-menu))
+
鐃緒申��申鐃緒申	cur)
+
鐃緒申��申鐃緒申    (while menus
+
鐃緒申��申鐃緒申      (setq cur (car menus)
+
鐃緒申��申鐃緒申	    menus (cdr menus))
+
鐃緒申��申鐃緒申      (easy-menu-add cur))))
+
鐃緒申��申鐃緒申;;;_  > outline-mode (&optional toggle)
+
鐃緒申��申鐃緒申;;;_   : Defun:
+
鐃緒申��申鐃緒申(defun outline-mode (&optional toggle)
+
鐃緒申��申鐃緒申;;;_    . Doc string:
+
鐃緒申��申鐃緒申  "Toggle minor mode for controlling exposure and editing of text outlines.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional arg forces mode to re-initialize iff arg is positive num or
+
鐃緒申��申鐃緒申symbol.  Allout outline mode always runs as a minor mode.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Allout outline mode provides extensive outline-oriented formatting and
+
鐃緒申��申鐃緒申manipulation.  It enables structural editing of outlines, as well as
+
鐃緒申��申鐃緒申navigation and exposure.  It also is specifically aimed at
+
鐃緒申��申鐃緒申accommodating syntax-sensitive text like programming languages.  \(For
+
鐃緒申��申鐃緒申an example, see the allout code itself, which is organized as an allout
+
鐃緒申��申鐃緒申outline.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申In addition to outline navigation and exposure, allout includes:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 - topic-oriented repositioning, cut, and paste
+
鐃緒申��申鐃緒申 - integral outline exposure-layout
+
鐃緒申��申鐃緒申 - incremental search with dynamic exposure and reconcealment of hidden text
+
鐃緒申��申鐃緒申 - automatic topic-number maintenance
+
鐃緒申��申鐃緒申 - \"Hot-spot\" operation, for single-keystroke maneuvering and
+
鐃緒申��申鐃緒申    exposure control.  \(See the outline-mode docstring.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申and many other features.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Below is a description of the bindings, and then explanation of
+
鐃緒申��申鐃緒申special outline-mode features and terminology.  See also the outline
+
鐃緒申��申鐃緒申menubar additions for quick reference to many of the features, and see
+
鐃緒申��申鐃緒申the docstring of the variable `outline-init' for instructions on
+
鐃緒申��申鐃緒申priming your emacs session for automatic activation of outline-mode.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The bindings are dictated by the `outline-keybindings-list' and
+
鐃緒申��申鐃緒申`outline-command-prefix' variables.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	Navigation:				   Exposure Control:
+
鐃緒申��申鐃緒申	----------                                 ----------------
+
鐃緒申��申鐃緒申C-c C-n outline-next-visible-heading     | C-c C-h outline-hide-current-subtree
+
鐃緒申��申鐃緒申C-c C-p outline-previous-visible-heading | C-c C-i outline-show-children
+
鐃緒申��申鐃緒申C-c C-u outline-up-current-level         | C-c C-s outline-show-current-subtree
+
鐃緒申��申鐃緒申C-c C-f outline-forward-current-level    | C-c C-o outline-show-current-entry
+
鐃緒申��申鐃緒申C-c C-b outline-backward-current-level   | ^U C-c C-s outline-show-all
+
鐃緒申��申鐃緒申C-c C-e outline-end-of-current-entry     |	   outline-hide-current-leaves
+
鐃緒申��申鐃緒申C-c C-a outline-beginning-of-current-entry, alternately, goes to hot-spot
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	Topic Header Production:
+
鐃緒申��申鐃緒申	-----------------------
+
鐃緒申��申鐃緒申C-c<SP>	outline-open-sibtopic	Create a new sibling after current topic.
+
鐃緒申��申鐃緒申C-c .	outline-open-subtopic	... an offspring of current topic.
+
鐃緒申��申鐃緒申C-c ,	outline-open-supertopic	... a sibling of the current topic's parent.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	Topic Level and Prefix Adjustment:
+
鐃緒申��申鐃緒申	---------------------------------
+
鐃緒申��申鐃緒申C-c >	outline-shift-in	Shift current topic and all offspring deeper.
+
鐃緒申��申鐃緒申C-c <	outline-shift-out	... less deep.
+
鐃緒申��申鐃緒申C-c<CR>	outline-rebullet-topic	Reconcile bullets of topic and its offspring
+
鐃緒申��申鐃緒申				- distinctive bullets are not changed, others
+
鐃緒申��申鐃緒申				  alternated according to nesting depth.
+
鐃緒申��申鐃緒申C-c b	outline-rebullet-current-heading Prompt for alternate bullet for
+
鐃緒申��申鐃緒申					 current topic.
+
鐃緒申��申鐃緒申C-c #	outline-number-siblings	Number bullets of topic and siblings - the
+
鐃緒申��申鐃緒申				offspring are not affected.  With repeat
+
鐃緒申��申鐃緒申				count, revoke numbering.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	Topic-oriented Killing and Yanking:
+
鐃緒申��申鐃緒申	----------------------------------
+
鐃緒申��申鐃緒申C-c C-k	outline-kill-topic	Kill current topic, including offspring.
+
鐃緒申��申鐃緒申C-k	outline-kill-line	Like kill-line, but reconciles numbering, etc.
+
鐃緒申��申鐃緒申C-y	outline-yank		Yank, adjusting depth of yanked topic to
+
鐃緒申��申鐃緒申				depth of heading if yanking into bare topic
+
鐃緒申��申鐃緒申				heading (ie, prefix sans text).
+
鐃緒申��申鐃緒申M-y	outline-yank-pop	Is to outline-yank as yank-pop is to yank
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	Misc commands:
+
鐃緒申��申鐃緒申	-------------
+
鐃緒申��申鐃緒申M-x outlineify-sticky		Activate outline mode for current buffer,
+
鐃緒申��申鐃緒申				and establish a default file-var setting
+
鐃緒申��申鐃緒申				for `outline-layout'.
+
鐃緒申��申鐃緒申C-c C-SPC outline-mark-topic
+
鐃緒申��申鐃緒申C-c = c	outline-copy-exposed-to-buffer
+
鐃緒申��申鐃緒申				Duplicate outline, sans concealed text, to
+
鐃緒申��申鐃緒申				buffer with name derived from derived from
+
鐃緒申��申鐃緒申				that of current buffer - \"*XXX exposed*\".
+
鐃緒申��申鐃緒申C-c = p	outline-flatten-exposed-to-buffer
+
鐃緒申��申鐃緒申				Like above 'copy-exposed', but convert topic
+
鐃緒申��申鐃緒申				prefixes to section.subsection... numeric
+
鐃緒申��申鐃緒申				format.
+
鐃緒申��申鐃緒申ESC ESC (outline-init t)	Setup emacs session for outline mode
+
鐃緒申��申鐃緒申				auto-activation.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申		 HOT-SPOT Operation
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Hot-spot operation provides a means for easy, single-keystroke outline
+
鐃緒申��申鐃緒申navigation and exposure control.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申\\<outline-mode-map>
+
鐃緒申��申鐃緒申When the text cursor is positioned directly on the bullet character of
+
鐃緒申��申鐃緒申a topic, regular characters (a to z) invoke the commands of the
+
鐃緒申��申鐃緒申corresponding outline-mode keymap control chars.  For example, \"f\"
+
鐃緒申��申鐃緒申would invoke the command typically bound to \"C-c C-f\"
+
鐃緒申��申鐃緒申\(\\[outline-forward-current-level] `outline-forward-current-level').
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Thus, by positioning the cursor on a topic bullet, you can execute
+
鐃緒申��申鐃緒申the outline navigation and manipulation commands with a single
+
鐃緒申��申鐃緒申keystroke.  Non-literal chars never get this special translation, so
+
鐃緒申��申鐃緒申you can use them to get away from the hot-spot, and back to normal
+
鐃緒申��申鐃緒申operation.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Note that the command `outline-beginning-of-current-entry' \(\\[outline-beginning-of-current-entry]\)
+
鐃緒申��申鐃緒申will move to the hot-spot when the cursor is already located at the
+
鐃緒申��申鐃緒申beginning of the current entry, so you can simply hit \\[outline-beginning-of-current-entry]
+
鐃緒申��申鐃緒申twice in a row to get to the hot-spot.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申			    Terminology
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Topic hierarchy constituents - TOPICS and SUBTOPICS:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申TOPIC:	A basic, coherent component of an emacs outline.  It can
+
鐃緒申��申鐃緒申	contain other topics, and it can be subsumed by other topics,
+
鐃緒申��申鐃緒申CURRENT topic:
+
鐃緒申��申鐃緒申	The visible topic most immediately containing the cursor.
+
鐃緒申��申鐃緒申DEPTH:	The degree of nesting of a topic; it increases with
+
鐃緒申��申鐃緒申	containment.  Also called the:
+
鐃緒申��申鐃緒申LEVEL:	The same as DEPTH.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申ANCESTORS:
+
鐃緒申��申鐃緒申	The topics that contain a topic.
+
鐃緒申��申鐃緒申PARENT:	A topic's immediate ancestor.  It has a depth one less than
+
鐃緒申��申鐃緒申	the topic.
+
鐃緒申��申鐃緒申OFFSPRING:
+
鐃緒申��申鐃緒申	The topics contained by a topic;
+
鐃緒申��申鐃緒申SUBTOPIC:
+
鐃緒申��申鐃緒申	An immediate offspring of a topic;
+
鐃緒申��申鐃緒申CHILDREN:
+
鐃緒申��申鐃緒申	The immediate offspring of a topic.
+
鐃緒申��申鐃緒申SIBLINGS:
+
鐃緒申��申鐃緒申	Topics having the same parent and depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Topic text constituents:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申HEADER:	The first line of a topic, include the topic PREFIX and header
+
鐃緒申��申鐃緒申	text.
+
鐃緒申��申鐃緒申PREFIX: The leading text of a topic which which distinguishes it from
+
鐃緒申��申鐃緒申	normal text.  It has a strict form, which consists of a
+
鐃緒申��申鐃緒申	prefix-lead string, padding, and a bullet.  The bullet may be
+
鐃緒申��申鐃緒申	followed by a number, indicating the ordinal number of the
+
鐃緒申��申鐃緒申	topic among its siblings, a space, and then the header text.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	The relative length of the PREFIX determines the nesting depth
+
鐃緒申��申鐃緒申	of the topic.
+
鐃緒申��申鐃緒申PREFIX-LEAD:
+
鐃緒申��申鐃緒申	The string at the beginning of a topic prefix, normally a `.'.
+
鐃緒申��申鐃緒申	It can be customized by changing the setting of
+
鐃緒申��申鐃緒申	`outline-header-prefix' and then reinitializing outline-mode.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	By setting the prefix-lead to the comment-string of a
+
鐃緒申��申鐃緒申	programming language, you can embed outline-structuring in
+
鐃緒申��申鐃緒申	program code without interfering with the language processing
+
鐃緒申��申鐃緒申	of that code.  See `outline-use-mode-specific-leader'
+
鐃緒申��申鐃緒申	docstring for more detail.
+
鐃緒申��申鐃緒申PREFIX-PADDING:
+
鐃緒申��申鐃緒申	Spaces or asterisks which separate the prefix-lead and the
+
鐃緒申��申鐃緒申	bullet, according to the depth of the topic.
+
鐃緒申��申鐃緒申BULLET: A character at the end of the topic prefix, it must be one of
+
鐃緒申��申鐃緒申	the characters listed on `outline-plain-bullets-string' or
+
鐃緒申��申鐃緒申        `outline-distinctive-bullets-string'.  (See the documentation
+
鐃緒申��申鐃緒申        for these variables for more details.)  The default choice of
+
鐃緒申��申鐃緒申	bullet when generating varies in a cycle with the depth of the
+
鐃緒申��申鐃緒申	topic.
+
鐃緒申��申鐃緒申ENTRY:	The text contained in a topic before any offspring.
+
鐃緒申��申鐃緒申BODY:	Same as ENTRY.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申EXPOSURE:
+
鐃緒申��申鐃緒申 	The state of a topic which determines the on-screen visibility
+
鐃緒申��申鐃緒申	of its offspring and contained text.
+
鐃緒申��申鐃緒申CONCEALED:
+
鐃緒申��申鐃緒申	Topics and entry text whose display is inhibited.  Contiguous
+
鐃緒申��申鐃緒申	units of concealed text is represented by `...' ellipses.
+
鐃緒申��申鐃緒申	(Ref the `selective-display' var.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	Concealed topics are effectively collapsed within an ancestor.
+
鐃緒申��申鐃緒申CLOSED:	A topic whose immediate offspring and body-text is concealed.
+
鐃緒申��申鐃緒申OPEN:	A topic that is not closed, though its offspring or body may be."
+
鐃緒申��申鐃緒申;;;_    . Code
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let* ((active (and (not (equal major-mode 'outline))
+
鐃緒申��申鐃緒申		     (outline-mode-p)))
+
鐃緒申��申鐃緒申				       ; Massage universal-arg `toggle' val:
+
鐃緒申��申鐃緒申	 (toggle (and toggle
+
鐃緒申��申鐃緒申		     (or (and (listp toggle)(car toggle))
+
鐃緒申��申鐃緒申			 toggle)))
+
鐃緒申��申鐃緒申				       ; Activation specifically demanded?
+
鐃緒申��申鐃緒申	 (explicit-activation (or
+
鐃緒申��申鐃緒申			      ;;
+
鐃緒申��申鐃緒申			      (and toggle
+
鐃緒申��申鐃緒申				   (or (symbolp toggle)
+
鐃緒申��申鐃緒申				       (and (natnump toggle)
+
鐃緒申��申鐃緒申					    (not (zerop toggle)))))))
+
鐃緒申��申鐃緒申	 ;; outline-mode already called once during this complex command?
+
鐃緒申��申鐃緒申	 (same-complex-command (eq outline-v18/19-file-var-hack
+
鐃緒申��申鐃緒申				  (car command-history)))
+
鐃緒申��申鐃緒申	 do-layout
+
鐃緒申��申鐃緒申	 )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申				       ; See comments below re v19.18,.19 bug.
+
鐃緒申��申鐃緒申    (setq outline-v18/19-file-var-hack (car command-history))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (cond
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申     ;; Provision for v19.18, 19.19 bug -
+
鐃緒申��申鐃緒申     ;; Emacs v 19.18, 19.19 file-var code invokes prop-line-designated
+
鐃緒申��申鐃緒申     ;; modes twice when file is visited.  We have to avoid toggling mode
+
鐃緒申��申鐃緒申     ;; off on second invocation, so we detect it as best we can, and
+
鐃緒申��申鐃緒申     ;; skip everything.
+
鐃緒申��申鐃緒申     ((and same-complex-command		; Still in same complex command
+
鐃緒申��申鐃緒申				       ; as last time outline-mode invoked.
+
鐃緒申��申鐃緒申	  active			; Already activated.
+
鐃緒申��申鐃緒申	  (not explicit-activation)	; Prop-line file-vars don't have args.
+
鐃緒申��申鐃緒申	  (string-match "^19.1[89]"	; Bug only known to be in v19.18 and
+
鐃緒申��申鐃緒申			emacs-version)); 19.19.
+
鐃緒申��申鐃緒申      t)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申     ;; Deactivation:
+
鐃緒申��申鐃緒申     ((and (not explicit-activation)
+
鐃緒申��申鐃緒申	  (or active toggle))
+
鐃緒申��申鐃緒申				       ; Activation not explicitly
+
鐃緒申��申鐃緒申				       ; requested, and either in
+
鐃緒申��申鐃緒申				       ; active state or *de*activation
+
鐃緒申��申鐃緒申				       ; specifically requested:
+
鐃緒申��申鐃緒申      (setq outline-explicitly-deactivated t)
+
鐃緒申��申鐃緒申      (if (string-match "^18\." emacs-version)
+
鐃緒申��申鐃緒申				       ; Revoke those keys that remain
+
鐃緒申��申鐃緒申				       ; as we set them:
+
鐃緒申��申鐃緒申	  (let ((curr-loc (current-local-map)))
+
鐃緒申��申鐃緒申	   (mapcar (function
+
鐃緒申��申鐃緒申		    (lambda (cell)
+
鐃緒申��申鐃緒申		      (if (eq (lookup-key curr-loc (car cell))
+
鐃緒申��申鐃緒申			      (car (cdr cell)))
+
鐃緒申��申鐃緒申			  (define-key curr-loc (car cell)
+
鐃緒申��申鐃緒申			    (assq (car cell) outline-prior-bindings)))))
+
鐃緒申��申鐃緒申		   outline-added-bindings)
+
鐃緒申��申鐃緒申	   (outline-resumptions 'outline-added-bindings)
+
鐃緒申��申鐃緒申	   (outline-resumptions 'outline-prior-bindings)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (if outline-old-style-prefixes
+
鐃緒申��申鐃緒申	  (progn
+
鐃緒申��申鐃緒申	   (outline-resumptions 'outline-primary-bullet)
+
鐃緒申��申鐃緒申	   (outline-resumptions 'outline-old-style-prefixes)))
+
鐃緒申��申鐃緒申      (outline-resumptions 'selective-display)
+
鐃緒申��申鐃緒申      (if (and (boundp 'before-change-functions) before-change-functions)
+
鐃緒申��申鐃緒申	  (outline-resumptions 'before-change-functions))
+
鐃緒申��申鐃緒申      (setq local-write-file-hooks
+
鐃緒申��申鐃緒申	   (delq 'outline-write-file-hook
+
鐃緒申��申鐃緒申		 local-write-file-hooks))
+
鐃緒申��申鐃緒申      (outline-resumptions 'paragraph-start)
+
鐃緒申��申鐃緒申      (outline-resumptions 'paragraph-separate)
+
鐃緒申��申鐃緒申      (outline-resumptions (if (string-match "^18" emacs-version)
+
鐃緒申��申鐃緒申			      'auto-fill-hook
+
鐃緒申��申鐃緒申			    'auto-fill-function))
+
鐃緒申��申鐃緒申      (outline-resumptions 'outline-former-auto-filler)
+
鐃緒申��申鐃緒申      (setq outline-mode nil))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申     ;; Activation:
+
鐃緒申��申鐃緒申     ((not active)
+
鐃緒申��申鐃緒申      (setq outline-explicitly-deactivated nil)
+
鐃緒申��申鐃緒申      (if outline-old-style-prefixes
+
鐃緒申��申鐃緒申	  (progn			; Inhibit all the fancy formatting:
+
鐃緒申��申鐃緒申	   (outline-resumptions 'outline-primary-bullet '("*"))
+
鐃緒申��申鐃緒申	   (outline-resumptions 'outline-old-style-prefixes '(()))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (outline-infer-header-lead)
+
鐃緒申��申鐃緒申      (outline-infer-body-reindent)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (set-outline-regexp)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申				       ; Produce map from current version
+
鐃緒申��申鐃緒申				       ; of outline-keybindings-list:
+
鐃緒申��申鐃緒申      (if (boundp 'minor-mode-map-alist)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	  (progn			; V19, and maybe lucid and
+
鐃緒申��申鐃緒申				       ; epoch, minor-mode key bindings:
+
鐃緒申��申鐃緒申	   (setq outline-mode-map
+
鐃緒申��申鐃緒申		 (produce-outline-mode-map outline-keybindings-list))
+
鐃緒申��申鐃緒申	   (produce-outline-mode-menubar-entries)
+
鐃緒申��申鐃緒申	   (fset 'outline-mode-map outline-mode-map)
+
鐃緒申��申鐃緒申				       ; Include on minor-mode-map-alist,
+
鐃緒申��申鐃緒申				       ; if not already there:
+
鐃緒申��申鐃緒申	   (if (not (member '(outline-mode . outline-mode-map)
+
鐃緒申��申鐃緒申			    minor-mode-map-alist))
+
鐃緒申��申鐃緒申	       (setq minor-mode-map-alist
+
鐃緒申��申鐃緒申		     (cons '(outline-mode . outline-mode-map)
+
鐃緒申��申鐃緒申			   minor-mode-map-alist))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申				       ; V18 minor-mode key bindings:
+
鐃緒申��申鐃緒申				       ; Stash record of added bindings
+
鐃緒申��申鐃緒申				       ; for later revocation:
+
鐃緒申��申鐃緒申	(outline-resumptions 'outline-added-bindings
+
鐃緒申��申鐃緒申			    (list outline-keybindings-list))
+
鐃緒申��申鐃緒申	(outline-resumptions 'outline-prior-bindings
+
鐃緒申��申鐃緒申			    (list (current-local-map)))
+
鐃緒申��申鐃緒申				       ; and add them:
+
鐃緒申��申鐃緒申	(use-local-map (produce-outline-mode-map outline-keybindings-list
+
鐃緒申��申鐃緒申						(current-local-map)))
+
鐃緒申��申鐃緒申	)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申				       ; selective-display is the
+
鐃緒申��申鐃緒申				       ; emacs conditional exposure
+
鐃緒申��申鐃緒申				       ; mechanism:
+
鐃緒申��申鐃緒申      (outline-resumptions 'selective-display '(t))
+
鐃緒申��申鐃緒申      (if outline-inhibit-protection
+
鐃緒申��申鐃緒申	  t
+
鐃緒申��申鐃緒申	(outline-resumptions 'before-change-functions
+
鐃緒申��申鐃緒申			    '(outline-before-change-protect)))
+
鐃緒申��申鐃緒申      (add-hook 'pre-command-hook 'outline-pre-command-business)
+
鐃緒申��申鐃緒申      (add-hook 'post-command-hook 'outline-post-command-business)
+
鐃緒申��申鐃緒申				       ; Temporarily set by any outline
+
鐃緒申��申鐃緒申				       ; functions that can be trusted to
+
鐃緒申��申鐃緒申				       ; deal properly with concealed text.
+
鐃緒申��申鐃緒申      (add-hook 'local-write-file-hooks 'outline-write-file-hook)
+
鐃緒申��申鐃緒申				       ; Custom auto-fill func, to support
+
鐃緒申��申鐃緒申				       ; respect for topic headline,
+
鐃緒申��申鐃緒申				       ; hanging-indents, etc:
+
鐃緒申��申鐃緒申      (let* ((fill-func-var (if (string-match "^18" emacs-version)
+
鐃緒申��申鐃緒申			       'auto-fill-hook
+
鐃緒申��申鐃緒申			     'auto-fill-function))
+
鐃緒申��申鐃緒申	    (fill-func (symbol-value fill-func-var)))
+
鐃緒申��申鐃緒申	;; Register prevailing fill func for use by outline-auto-fill:
+
鐃緒申��申鐃緒申	(outline-resumptions 'outline-former-auto-filler (list fill-func))
+
鐃緒申��申鐃緒申	;; Register outline-auto-fill to be used if filling is active:
+
鐃緒申��申鐃緒申	(outline-resumptions fill-func-var '(outline-auto-fill)))
+
鐃緒申��申鐃緒申      ;; Paragraphs are broken by topic headlines.
+
鐃緒申��申鐃緒申      (make-local-variable 'paragraph-start)
+
鐃緒申��申鐃緒申      (outline-resumptions 'paragraph-start
+
鐃緒申��申鐃緒申			  (list (concat paragraph-start "\\|^\\("
+
鐃緒申��申鐃緒申					outline-regexp "\\)")))
+
鐃緒申��申鐃緒申      (make-local-variable 'paragraph-separate)
+
鐃緒申��申鐃緒申      (outline-resumptions 'paragraph-separate
+
鐃緒申��申鐃緒申			  (list (concat paragraph-separate "\\|^\\("
+
鐃緒申��申鐃緒申					outline-regexp "\\)")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (or (assq 'outline-mode minor-mode-alist)
+
鐃緒申��申鐃緒申	  (setq minor-mode-alist
+
鐃緒申��申鐃緒申	       (cons '(outline-mode " Outl") minor-mode-alist)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (outline-setup-menubar)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (if outline-layout
+
鐃緒申��申鐃緒申	  (setq do-layout t))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (if (and outline-isearch-dynamic-expose
+
鐃緒申��申鐃緒申	       (not (fboundp 'outline-real-isearch-abort)))
+
鐃緒申��申鐃緒申	  (outline-enwrap-isearch))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (run-hooks 'outline-mode-hook)
+
鐃緒申��申鐃緒申      (setq outline-mode t))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申     ;; Reactivation:
+
鐃緒申��申鐃緒申     ((setq do-layout t)
+
鐃緒申��申鐃緒申      (outline-infer-body-reindent))
+
鐃緒申��申鐃緒申     )					; cond
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (if (and do-layout
+
鐃緒申��申鐃緒申	     outline-auto-activation
+
鐃緒申��申鐃緒申	     (listp outline-layout)
+
鐃緒申��申鐃緒申	     (and (not (eq outline-auto-activation 'activate))
+
鐃緒申��申鐃緒申		  (if (eq outline-auto-activation 'ask)
+
鐃緒申��申鐃緒申		      (if (y-or-n-p (format "Expose %s with layout '%s'? "
+
鐃緒申��申鐃緒申					    (buffer-name)
+
鐃緒申��申鐃緒申					    outline-layout))
+
鐃緒申��申鐃緒申			  t
+
鐃緒申��申鐃緒申			(message "Skipped %s layout." (buffer-name))
+
鐃緒申��申鐃緒申			nil)
+
鐃緒申��申鐃緒申		    t)))
+
鐃緒申��申鐃緒申	(save-excursion
+
鐃緒申��申鐃緒申	  (message "Adjusting '%s' exposure..." (buffer-name))
+
鐃緒申��申鐃緒申	  (goto-char 0)
+
鐃緒申��申鐃緒申	  (outline-this-or-next-heading)
+
鐃緒申��申鐃緒申	  (condition-case err
+
鐃緒申��申鐃緒申	      (progn
+
鐃緒申��申鐃緒申		(apply 'outline-expose-topic (list outline-layout))
+
鐃緒申��申鐃緒申		(message "Adjusting '%s' exposure... done." (buffer-name)))
+
鐃緒申��申鐃緒申	    ;; Problem applying exposure - notify user, but don't
+
鐃緒申��申鐃緒申	    ;; interrupt, eg, file visit:
+
鐃緒申��申鐃緒申	    (error (message "%s" (car (cdr err)))
+
鐃緒申��申鐃緒申		   (sit-for 1)))))
+
鐃緒申��申鐃緒申    outline-mode
+
鐃緒申��申鐃緒申    )					; let*
+
鐃緒申��申鐃緒申  )  					; defun
+
鐃緒申��申鐃緒申;;;_  > outline-minor-mode
+
鐃緒申��申鐃緒申;;; XXX released verion doesn't do this?
+
鐃緒申��申鐃緒申(defalias 'outline-minor-mode 'outline-mode)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #3 Internal Position State-Tracking - "outline-recent-*" funcs
+
鐃緒申��申鐃緒申;;; All the basic outline functions that directly do string matches to
+
鐃緒申��申鐃緒申;;; evaluate heading prefix location set the variables
+
鐃緒申��申鐃緒申;;; `outline-recent-prefix-beginning'  and `outline-recent-prefix-end'
+
鐃緒申��申鐃緒申;;; when successful.  Functions starting with `outline-recent-' all
+
鐃緒申��申鐃緒申;;; use this state, providing the means to avoid redundant searches
+
鐃緒申��申鐃緒申;;; for just-established data.  This optimization can provide
+
鐃緒申��申鐃緒申;;; significant speed improvement, but it must be employed carefully.
+
鐃緒申��申鐃緒申;;;_  = outline-recent-prefix-beginning
+
鐃緒申��申鐃緒申(defvar outline-recent-prefix-beginning 0
+
鐃緒申��申鐃緒申  "Buffer point of the start of the last topic prefix encountered.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-recent-prefix-beginning)
+
鐃緒申��申鐃緒申;;;_  = outline-recent-prefix-end
+
鐃緒申��申鐃緒申(defvar outline-recent-prefix-end 0
+
鐃緒申��申鐃緒申  "Buffer point of the end of the last topic prefix encountered.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-recent-prefix-end)
+
鐃緒申��申鐃緒申;;;_  = outline-recent-end-of-subtree
+
鐃緒申��申鐃緒申(defvar outline-recent-end-of-subtree 0
+
鐃緒申��申鐃緒申  "Buffer point last returned by outline-end-of-current-subtree.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-recent-end-of-subtree)
+
鐃緒申��申鐃緒申;;;_  > outline-prefix-data (beg end)
+
鐃緒申��申鐃緒申(defmacro outline-prefix-data (beg end)
+
鐃緒申��申鐃緒申  "Register outline-prefix state data - BEGINNING and END of prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申For reference by `outline-recent' funcs.  Returns BEGINNING."
+
鐃緒申��申鐃緒申  `(setq outline-recent-prefix-end ,end
+
鐃緒申��申鐃緒申         outline-recent-prefix-beginning ,beg))
+
鐃緒申��申鐃緒申;;;_  > outline-recent-depth ()
+
鐃緒申��申鐃緒申(defmacro outline-recent-depth ()
+
鐃緒申��申鐃緒申  "Return depth of last heading encountered by an outline maneuvering function.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申All outline functions which directly do string matches to assess
+
鐃緒申��申鐃緒申headings set the variables outline-recent-prefix-beginning and
+
鐃緒申��申鐃緒申outline-recent-prefix-end if successful.  This function uses those settings
+
鐃緒申��申鐃緒申to return the current depth."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  '(max 1 (- outline-recent-prefix-end
+
鐃緒申��申鐃緒申	     outline-recent-prefix-beginning
+
鐃緒申��申鐃緒申	     outline-header-subtraction)))
+
鐃緒申��申鐃緒申;;;_  > outline-recent-prefix ()
+
鐃緒申��申鐃緒申(defmacro outline-recent-prefix ()
+
鐃緒申��申鐃緒申  "Like outline-recent-depth, but returns text of last encountered prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申All outline functions which directly do string matches to assess
+
鐃緒申��申鐃緒申headings set the variables outline-recent-prefix-beginning and
+
鐃緒申��申鐃緒申outline-recent-prefix-end if successful.  This function uses those settings
+
鐃緒申��申鐃緒申to return the current depth."
+
鐃緒申��申鐃緒申  '(buffer-substring outline-recent-prefix-beginning
+
鐃緒申��申鐃緒申		     outline-recent-prefix-end))
+
鐃緒申��申鐃緒申;;;_  > outline-recent-bullet ()
+
鐃緒申��申鐃緒申(defmacro outline-recent-bullet ()
+
鐃緒申��申鐃緒申  "Like outline-recent-prefix, but returns bullet of last encountered prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申All outline functions which directly do string matches to assess
+
鐃緒申��申鐃緒申headings set the variables outline-recent-prefix-beginning and
+
鐃緒申��申鐃緒申outline-recent-prefix-end if successful.  This function uses those settings
+
鐃緒申��申鐃緒申to return the current depth of the most recently matched topic."
+
鐃緒申��申鐃緒申  '(buffer-substring (1- outline-recent-prefix-end)
+
鐃緒申��申鐃緒申		     outline-recent-prefix-end))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #4 Navigation
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Position Assessment
+
鐃緒申��申鐃緒申;;;_   : Location Predicates
+
鐃緒申��申鐃緒申;;;_    > outline-on-current-heading-p ()
+
鐃緒申��申鐃緒申(defun outline-on-current-heading-p ()
+
鐃緒申��申鐃緒申  "Return non-nil if point is on current visible topics' header line.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Actually, returns prefix beginning point."
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (beginning-of-line)
+
鐃緒申��申鐃緒申    (and (looking-at outline-regexp)
+
鐃緒申��申鐃緒申	 (outline-prefix-data (match-beginning 0) (match-end 0)))))
+
鐃緒申��申鐃緒申;;;_    > outline-on-heading-p ()
+
鐃緒申��申鐃緒申(defalias 'outline-on-heading-p 'outline-on-current-heading-p)
+
鐃緒申��申鐃緒申;;;_    > outline-e-o-prefix-p ()
+
鐃緒申��申鐃緒申(defun outline-e-o-prefix-p ()
+
鐃緒申��申鐃緒申  "True if point is located where current topic prefix ends, heading begins."
+
鐃緒申��申鐃緒申  (and (save-excursion (beginning-of-line)
+
鐃緒申��申鐃緒申		       (looking-at outline-regexp))
+
鐃緒申��申鐃緒申       (= (point)(save-excursion (outline-end-of-prefix)(point)))))
+
鐃緒申��申鐃緒申;;;_    > outline-hidden-p ()
+
鐃緒申��申鐃緒申(defmacro outline-hidden-p ()
+
鐃緒申��申鐃緒申  "True if point is in hidden text."
+
鐃緒申��申鐃緒申  '(save-excursion
+
鐃緒申��申鐃緒申     (and (re-search-backward "[\n\r]" () t)
+
鐃緒申��申鐃緒申	  (= ?\r (following-char)))))
+
鐃緒申��申鐃緒申;;;_    > outline-visible-p ()
+
鐃緒申��申鐃緒申(defmacro outline-visible-p ()
+
鐃緒申��申鐃緒申  "True if point is not in hidden text."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  '(not (outline-hidden-p)))
+
鐃緒申��申鐃緒申;;;_   : Location attributes
+
鐃緒申��申鐃緒申;;;_    > outline-depth ()
+
鐃緒申��申鐃緒申(defsubst outline-depth ()
+
鐃緒申��申鐃緒申  "Like outline-current-depth, but respects hidden as well as visible topics."
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (if (outline-goto-prefix)
+
鐃緒申��申鐃緒申	(outline-recent-depth)
+
鐃緒申��申鐃緒申      (progn
+
鐃緒申��申鐃緒申	;; Oops, no prefix, zero prefix data:
+
鐃緒申��申鐃緒申	(outline-prefix-data (point)(point))
+
鐃緒申��申鐃緒申	;; ... and return 0:
+
鐃緒申��申鐃緒申	0))))
+
鐃緒申��申鐃緒申;;;_    > outline-current-depth ()
+
鐃緒申��申鐃緒申(defmacro outline-current-depth ()
+
鐃緒申��申鐃緒申  "Return nesting depth of visible topic most immediately containing point."
+
鐃緒申��申鐃緒申  '(save-excursion
+
鐃緒申��申鐃緒申     (if (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申	 (max 1
+
鐃緒申��申鐃緒申	      (- outline-recent-prefix-end
+
鐃緒申��申鐃緒申		 outline-recent-prefix-beginning
+
鐃緒申��申鐃緒申		 outline-header-subtraction))
+
鐃緒申��申鐃緒申       0)))
+
鐃緒申��申鐃緒申;;;_    > outline-get-current-prefix ()
+
鐃緒申��申鐃緒申(defun outline-get-current-prefix ()
+
鐃緒申��申鐃緒申  "Topic prefix of the current topic."
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (if (outline-goto-prefix)
+
鐃緒申��申鐃緒申	(outline-recent-prefix))))
+
鐃緒申��申鐃緒申;;;_    > outline-get-bullet ()
+
鐃緒申��申鐃緒申(defun outline-get-bullet ()
+
鐃緒申��申鐃緒申  "Return bullet of containing topic (visible or not)."
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (and (outline-goto-prefix)
+
鐃緒申��申鐃緒申	 (outline-recent-bullet))))
+
鐃緒申��申鐃緒申;;;_    > outline-current-bullet ()
+
鐃緒申��申鐃緒申(defun outline-current-bullet ()
+
鐃緒申��申鐃緒申  "Return bullet of current (visible) topic heading, or none if none found."
+
鐃緒申��申鐃緒申  (condition-case err
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(outline-back-to-current-heading)
+
鐃緒申��申鐃緒申	(buffer-substring (- outline-recent-prefix-end 1)
+
鐃緒申��申鐃緒申			  outline-recent-prefix-end))
+
鐃緒申��申鐃緒申    ;; Quick and dirty provision, ostensibly for missing bullet:
+
鐃緒申��申鐃緒申    ('args-out-of-range nil))
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_    > outline-get-prefix-bullet (prefix)
+
鐃緒申��申鐃緒申(defun outline-get-prefix-bullet (prefix)
+
鐃緒申��申鐃緒申  "Return the bullet of the header prefix string PREFIX."
+
鐃緒申��申鐃緒申  ;; Doesn't make sense if we're old-style prefixes, but this just
+
鐃緒申��申鐃緒申  ;; oughtn't be called then, so forget about it...
+
鐃緒申��申鐃緒申  (if (string-match outline-regexp prefix)
+
鐃緒申��申鐃緒申      (substring prefix (1- (match-end 0)) (match-end 0))))
+
鐃緒申��申鐃緒申;;;_    > outline-sibling-index (&optional depth)
+
鐃緒申��申鐃緒申(defun outline-sibling-index (&optional depth)
+
鐃緒申��申鐃緒申  "Item number of this prospective topic among its siblings.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If optional arg depth is greater than current depth, then we're
+
鐃緒申��申鐃緒申opening a new level, and return 0.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If less than this depth, ascend to that depth and count..."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (cond ((and depth (<= depth 0) 0))
+
鐃緒申��申鐃緒申          ((or (not depth) (= depth (outline-depth)))
+
鐃緒申��申鐃緒申           (let ((index 1))
+
鐃緒申��申鐃緒申             (while (outline-previous-sibling (outline-recent-depth) nil)
+
鐃緒申��申鐃緒申	       (setq index (1+ index)))
+
鐃緒申��申鐃緒申             index))
+
鐃緒申��申鐃緒申          ((< depth (outline-recent-depth))
+
鐃緒申��申鐃緒申           (outline-ascend-to-depth depth)
+
鐃緒申��申鐃緒申           (outline-sibling-index))
+
鐃緒申��申鐃緒申          (0))))
+
鐃緒申��申鐃緒申;;;_    > outline-topic-flat-index ()
+
鐃緒申��申鐃緒申(defun outline-topic-flat-index ()
+
鐃緒申��申鐃緒申  "Return a list indicating point's numeric section.subsect.subsubsect...
+
鐃緒申��申鐃緒申Outermost is first."
+
鐃緒申��申鐃緒申  (let* ((depth (outline-depth))
+
鐃緒申��申鐃緒申	 (next-index (outline-sibling-index depth))
+
鐃緒申��申鐃緒申	 (rev-sibls nil))
+
鐃緒申��申鐃緒申    (while (> next-index 0)
+
鐃緒申��申鐃緒申      (setq rev-sibls (cons next-index rev-sibls))
+
鐃緒申��申鐃緒申      (setq depth (1- depth))
+
鐃緒申��申鐃緒申      (setq next-index (outline-sibling-index depth)))
+
鐃緒申��申鐃緒申    rev-sibls)
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Navigation macros
+
鐃緒申��申鐃緒申;;;_   > outline-next-heading ()
+
鐃緒申��申鐃緒申(defsubst outline-next-heading ()
+
鐃緒申��申鐃緒申  "Move to the heading for the topic \(possibly invisible) before this one.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Returns the location of the heading, or nil if none found."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (if (and (bobp) (not (eobp)))
+
鐃緒申��申鐃緒申       (forward-char 1))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (if (re-search-forward outline-line-boundary-regexp nil 0)
+
鐃緒申��申鐃緒申      (outline-prefix-data		; Got valid location state - set vars:
+
鐃緒申��申鐃緒申       (goto-char (or (match-beginning 2)
+
鐃緒申��申鐃緒申		      outline-recent-prefix-beginning))
+
鐃緒申��申鐃緒申       (or (match-end 2) outline-recent-prefix-end))))
+
鐃緒申��申鐃緒申;;;_   : outline-this-or-next-heading
+
鐃緒申��申鐃緒申(defun outline-this-or-next-heading ()
+
鐃緒申��申鐃緒申  "Position cursor on current or next heading."
+
鐃緒申��申鐃緒申  ;; A throwaway non-macro that is defined after outline-next-heading
+
鐃緒申��申鐃緒申  ;; and usable by outline-mode.
+
鐃緒申��申鐃緒申  (if (not (outline-goto-prefix)) (outline-next-heading)))
+
鐃緒申��申鐃緒申;;;_   > outline-previous-heading ()
+
鐃緒申��申鐃緒申(defmacro outline-previous-heading ()
+
鐃緒申��申鐃緒申  "Move to the prior \(possibly invisible) heading line.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Return the location of the beginning of the heading, or nil if not found."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  '(if (bobp)
+
鐃緒申��申鐃緒申       nil
+
鐃緒申��申鐃緒申     (outline-goto-prefix)
+
鐃緒申��申鐃緒申     (if
+
鐃緒申��申鐃緒申	 ;; searches are unbounded and return nil if failed:
+
鐃緒申��申鐃緒申	 (or (re-search-backward outline-line-boundary-regexp nil 0)
+
鐃緒申��申鐃緒申	     (looking-at outline-bob-regexp))
+
鐃緒申��申鐃緒申	 (progn				; Got valid location state - set vars:
+
鐃緒申��申鐃緒申	   (outline-prefix-data
+
鐃緒申��申鐃緒申	    (goto-char (or (match-beginning 2)
+
鐃緒申��申鐃緒申			   outline-recent-prefix-beginning))
+
鐃緒申��申鐃緒申	    (or (match-end 2) outline-recent-prefix-end))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Subtree Charting
+
鐃緒申��申鐃緒申;;;_   " These routines either produce or assess charts, which are
+
鐃緒申��申鐃緒申;;; nested lists of the locations of topics within a subtree.
+
鐃緒申��申鐃緒申;;;
+
鐃緒申��申鐃緒申;;; Use of charts enables efficient navigation of subtrees, by
+
鐃緒申��申鐃緒申;;; requiring only a single regexp-search based traversal, to scope
+
鐃緒申��申鐃緒申;;; out the subtopic locations.  The chart then serves as the basis
+
鐃緒申��申鐃緒申;;; for assessment or adjustment of the subtree, without redundant
+
鐃緒申��申鐃緒申;;; traversal of the structure.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_   > outline-chart-subtree (&optional levels orig-depth prev-depth)
+
鐃緒申��申鐃緒申(defun outline-chart-subtree (&optional levels orig-depth prev-depth)
+
鐃緒申��申鐃緒申  "Produce a location \"chart\" of subtopics of the containing topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional argument LEVELS specifies the depth \(relative to start
+
鐃緒申��申鐃緒申depth) for the chart.  Subsequent optional args are not for public
+
鐃緒申��申鐃緒申use.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Charts are used to capture outline structure, so that outline-altering
+
鐃緒申��申鐃緒申routines need assess the structure only once, and then use the chart
+
鐃緒申��申鐃緒申for their elaborate manipulations.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Topics are entered in the chart so the last one is at the car.
+
鐃緒申��申鐃緒申The entry for each topic consists of an integer indicating the point
+
鐃緒申��申鐃緒申at the beginning of the topic.  Charts for offspring consists of a
+
鐃緒申��申鐃緒申list containing, recursively, the charts for the respective subtopics.
+
鐃緒申��申鐃緒申The chart for a topics' offspring precedes the entry for the topic
+
鐃緒申��申鐃緒申itself.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The other function parameters are for internal recursion, and should
+
鐃緒申��申鐃緒申not be specified by external callers.  ORIG-DEPTH is depth of topic at
+
鐃緒申��申鐃緒申starting point, and PREV-DEPTH is depth of prior topic."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let ((original (not orig-depth))	; `orig-depth' set only in recursion.
+
鐃緒申��申鐃緒申	chart curr-depth)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (if original			; Just starting?
+
鐃緒申��申鐃緒申					; Register initial settings and
+
鐃緒申��申鐃緒申					; position to first offspring:
+
鐃緒申��申鐃緒申	(progn (setq orig-depth (outline-depth))
+
鐃緒申��申鐃緒申	       (or prev-depth (setq prev-depth (1+ orig-depth)))
+
鐃緒申��申鐃緒申	       (outline-next-heading)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    ;; Loop over the current levels' siblings.  Besides being more
+
鐃緒申��申鐃緒申    ;; efficient than tail-recursing over a level, it avoids exceeding
+
鐃緒申��申鐃緒申    ;; the typically quite constrained emacs max-lisp-eval-depth.
+
鐃緒申��申鐃緒申    ;;
+
鐃緒申��申鐃緒申    ;; Probably would speed things up to implement loop-based stack
+
鐃緒申��申鐃緒申    ;; operation rather than recursing for lower levels.  Bah.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (while (and (not (eobp))
+
鐃緒申��申鐃緒申					; Still within original topic?
+
鐃緒申��申鐃緒申		(< orig-depth (setq curr-depth (outline-recent-depth)))
+
鐃緒申��申鐃緒申		(cond ((= prev-depth curr-depth)
+
鐃緒申��申鐃緒申		       ;; Register this one and move on:
+
鐃緒申��申鐃緒申		       (setq chart (cons (point) chart))
+
鐃緒申��申鐃緒申		       (if (and levels (<= levels 1))
+
鐃緒申��申鐃緒申			   ;; At depth limit - skip sublevels:
+
鐃緒申��申鐃緒申			   (or (outline-next-sibling curr-depth)
+
鐃緒申��申鐃緒申			       ;; or no more siblings - proceed to
+
鐃緒申��申鐃緒申			       ;; next heading at lesser depth:
+
鐃緒申��申鐃緒申			       (while (and (<= curr-depth
+
鐃緒申��申鐃緒申					       (outline-recent-depth))
+
鐃緒申��申鐃緒申					   (outline-next-heading))))
+
鐃緒申��申鐃緒申			 (outline-next-heading)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申		      ((and (< prev-depth curr-depth)
+
鐃緒申��申鐃緒申			    (or (not levels)
+
鐃緒申��申鐃緒申				(> levels 0)))
+
鐃緒申��申鐃緒申		       ;; Recurse on deeper level of curr topic:
+
鐃緒申��申鐃緒申		       (setq chart
+
鐃緒申��申鐃緒申			     (cons (outline-chart-subtree (and levels
+
鐃緒申��申鐃緒申							       (1- levels))
+
鐃緒申��申鐃緒申							  orig-depth
+
鐃緒申��申鐃緒申							  curr-depth)
+
鐃緒申��申鐃緒申				   chart))
+
鐃緒申��申鐃緒申		       ;; ... then continue with this one.
+
鐃緒申��申鐃緒申		       )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申		      ;; ... else nil if we've ascended back to prev-depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申		      )))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (if original			; We're at the last sibling on
+
鐃緒申��申鐃緒申					; the original level.  Position
+
鐃緒申��申鐃緒申					; to the end of it:
+
鐃緒申��申鐃緒申	(progn (and (not (eobp)) (forward-char -1))
+
鐃緒申��申鐃緒申	       (and (memq (preceding-char) '(?\n ?\r))
+
鐃緒申��申鐃緒申		    (memq (aref (buffer-substring (max 1 (- (point) 3))
+
鐃緒申��申鐃緒申						  (point))
+
鐃緒申��申鐃緒申				1)
+
鐃緒申��申鐃緒申			  '(?\n ?\r))
+
鐃緒申��申鐃緒申		    (forward-char -1))
+
鐃緒申��申鐃緒申	       (setq outline-recent-end-of-subtree (point))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    chart				; (nreverse chart) not necessary,
+
鐃緒申��申鐃緒申					; and maybe not preferable.
+
鐃緒申��申鐃緒申    ))
+
鐃緒申��申鐃緒申;;;_   > outline-chart-siblings (&optional start end)
+
鐃緒申��申鐃緒申(defun outline-chart-siblings (&optional start end)
+
鐃緒申��申鐃緒申  "Produce a list of locations of this and succeeding sibling topics.
+
鐃緒申��申鐃緒申Effectively a top-level chart of siblings.  See `outline-chart-subtree'
+
鐃緒申��申鐃緒申for an explanation of charts."
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (if (outline-goto-prefix)
+
鐃緒申��申鐃緒申	(let ((chart (list (point))))
+
鐃緒申��申鐃緒申	  (while (outline-next-sibling)
+
鐃緒申��申鐃緒申	    (setq chart (cons (point) chart)))
+
鐃緒申��申鐃緒申	  (if chart (setq chart (nreverse chart)))))))
+
鐃緒申��申鐃緒申;;;_   > outline-chart-to-reveal (chart depth)
+
鐃緒申��申鐃緒申(defun outline-chart-to-reveal (chart depth)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Return a flat list of hidden points in subtree CHART, up to DEPTH.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Note that point can be left at any of the points on chart, or at the
+
鐃緒申��申鐃緒申start point."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let (result here)
+
鐃緒申��申鐃緒申    (while (and (or (eq depth t) (> depth 0))
+
鐃緒申��申鐃緒申		chart)
+
鐃緒申��申鐃緒申      (setq here (car chart))
+
鐃緒申��申鐃緒申      (if (listp here)
+
鐃緒申��申鐃緒申	  (let ((further (outline-chart-to-reveal here (or (eq depth t)
+
鐃緒申��申鐃緒申							   (1- depth)))))
+
鐃緒申��申鐃緒申	    ;; We're on the start of a subtree - recurse with it, if there's
+
鐃緒申��申鐃緒申	    ;; more depth to go:
+
鐃緒申��申鐃緒申	    (if further (setq result (append further result)))
+
鐃緒申��申鐃緒申	    (setq chart (cdr chart)))
+
鐃緒申��申鐃緒申	(goto-char here)
+
鐃緒申��申鐃緒申	(if (= (preceding-char) ?\r)
+
鐃緒申��申鐃緒申	    (setq result (cons here result)))
+
鐃緒申��申鐃緒申	(setq chart (cdr chart))))
+
鐃緒申��申鐃緒申    result))
+
鐃緒申��申鐃緒申;;;_   X outline-chart-spec (chart spec &optional exposing)
+
鐃緒申��申鐃緒申(defun outline-chart-spec (chart spec &optional exposing)
+
鐃緒申��申鐃緒申  "Not yet \(if ever) implemented.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Produce exposure directives given topic/subtree CHART and an exposure SPEC.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Exposure spec indicates the locations to be exposed and the prescribed
+
鐃緒申��申鐃緒申exposure status.  Optional arg EXPOSING is an integer, with 0
+
鐃緒申��申鐃緒申indicating pending concealment, anything higher indicating depth to
+
鐃緒申��申鐃緒申which subtopic headers should be exposed, and negative numbers
+
鐃緒申��申鐃緒申indicating (negative of) the depth to which subtopic headers and
+
鐃緒申��申鐃緒申bodies should be exposed.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The produced list can have two types of entries.  Bare numbers
+
鐃緒申��申鐃緒申indicate points in the buffer where topic headers that should be
+
鐃緒申��申鐃緒申exposed reside.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 - bare negative numbers indicates that the topic starting at the
+
鐃緒申��申鐃緒申   point which is the negative of the number should be opened,
+
鐃緒申��申鐃緒申   including their entries.
+
鐃緒申��申鐃緒申 - bare positive values indicate that this topic header should be
+
鐃緒申��申鐃緒申   opened.
+
鐃緒申��申鐃緒申 - Lists signify the beginning and end points of regions that should
+
鐃緒申��申鐃緒申   be flagged, and the flag to employ.  (For concealment: `\(\?r\)', and
+
鐃緒申��申鐃緒申   exposure:"
+
鐃緒申��申鐃緒申  (while spec
+
鐃緒申��申鐃緒申    (cond ((listp spec)
+
鐃緒申��申鐃緒申	   )
+
鐃緒申��申鐃緒申	  )
+
鐃緒申��申鐃緒申    (setq spec (cdr spec)))
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Within Topic
+
鐃緒申��申鐃緒申;;;_   > outline-goto-prefix ()
+
鐃緒申��申鐃緒申(defun outline-goto-prefix ()
+
鐃緒申��申鐃緒申  "Put point at beginning of immediately containing outline topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Goes to most immediate subsequent topic if none immediately containing.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Not sensitive to topic visibility.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Returns a the point at the beginning of the prefix, or nil if none."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let (done)
+
鐃緒申��申鐃緒申    (while (and (not done)
+
鐃緒申��申鐃緒申		(re-search-backward "[\n\r]" nil 1))
+
鐃緒申��申鐃緒申      (forward-char 1)
+
鐃緒申��申鐃緒申      (if (looking-at outline-regexp)
+
鐃緒申��申鐃緒申	  (setq done (outline-prefix-data (match-beginning 0)
+
鐃緒申��申鐃緒申					  (match-end 0)))
+
鐃緒申��申鐃緒申	(forward-char -1)))
+
鐃緒申��申鐃緒申    (if (bobp)
+
鐃緒申��申鐃緒申	(cond ((looking-at outline-regexp)
+
鐃緒申��申鐃緒申	       (outline-prefix-data (match-beginning 0)(match-end 0)))
+
鐃緒申��申鐃緒申	      ((outline-next-heading))
+
鐃緒申��申鐃緒申	      (done))
+
鐃緒申��申鐃緒申      done)))
+
鐃緒申��申鐃緒申;;;_   > outline-end-of-prefix ()
+
鐃緒申��申鐃緒申(defun outline-end-of-prefix (&optional ignore-decorations)
+
鐃緒申��申鐃緒申  "Position cursor at beginning of header text.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If optional IGNORE-DECORATIONS is non-nil, put just after bullet,
+
鐃緒申��申鐃緒申otherwise skip white space between bullet and ensuing text."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (if (not (outline-goto-prefix))
+
鐃緒申��申鐃緒申      nil
+
鐃緒申��申鐃緒申    (let ((match-data (match-data)))
+
鐃緒申��申鐃緒申      (goto-char (match-end 0))
+
鐃緒申��申鐃緒申      (if ignore-decorations
+
鐃緒申��申鐃緒申	  t
+
鐃緒申��申鐃緒申	(while (looking-at "[0-9]") (forward-char 1))
+
鐃緒申��申鐃緒申	(if (and (not (eolp)) (looking-at "\\s-")) (forward-char 1)))
+
鐃緒申��申鐃緒申      (store-match-data match-data))
+
鐃緒申��申鐃緒申    ;; Reestablish where we are:
+
鐃緒申��申鐃緒申    (outline-current-depth)))
+
鐃緒申��申鐃緒申;;;_   > outline-current-bullet-pos ()
+
鐃緒申��申鐃緒申(defun outline-current-bullet-pos ()
+
鐃緒申��申鐃緒申  "Return position of current \(visible) topic's bullet."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 (if (not (outline-current-depth))
+
鐃緒申��申鐃緒申      nil
+
鐃緒申��申鐃緒申   (1- (match-end 0))))
+
鐃緒申��申鐃緒申;;;_   > outline-back-to-current-heading ()
+
鐃緒申��申鐃緒申(defun outline-back-to-current-heading ()
+
鐃緒申��申鐃緒申  "Move to heading line of current topic, or beginning if already on the line."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (beginning-of-line)
+
鐃緒申��申鐃緒申  (prog1 (or (outline-on-current-heading-p)
+
鐃緒申��申鐃緒申             (and (re-search-backward (concat "^\\(" outline-regexp "\\)")
+
鐃緒申��申鐃緒申                                      nil
+
鐃緒申��申鐃緒申                                      'move)
+
鐃緒申��申鐃緒申                  (outline-prefix-data (match-beginning 1)(match-end 1))))
+
鐃緒申��申鐃緒申    (if (interactive-p) (outline-end-of-prefix))))
+
鐃緒申��申鐃緒申;;;_   > outline-back-to-heading ()
+
鐃緒申��申鐃緒申(defalias 'outline-back-to-heading 'outline-back-to-current-heading)
+
鐃緒申��申鐃緒申;;;_   > outline-pre-next-preface ()
+
鐃緒申��申鐃緒申(defun outline-pre-next-preface ()
+
鐃緒申��申鐃緒申  "Skip forward to just before the next heading line.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Returns that character position."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (if (re-search-forward outline-line-boundary-regexp nil 'move)
+
鐃緒申��申鐃緒申      (prog1 (goto-char (match-beginning 0))
+
鐃緒申��申鐃緒申             (outline-prefix-data (match-beginning 2)(match-end 2)))))
+
鐃緒申��申鐃緒申;;;_   > outline-end-of-current-subtree ()
+
鐃緒申��申鐃緒申(defun outline-end-of-current-subtree ()
+
鐃緒申��申鐃緒申  "Put point at the end of the last leaf in the currently visible topic."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申  (let ((level (outline-recent-depth)))
+
鐃緒申��申鐃緒申    (outline-next-heading)
+
鐃緒申��申鐃緒申    (while (and (not (eobp))
+
鐃緒申��申鐃緒申                (> (outline-recent-depth) level))
+
鐃緒申��申鐃緒申      (outline-next-heading))
+
鐃緒申��申鐃緒申    (and (not (eobp)) (forward-char -1))
+
鐃緒申��申鐃緒申    (and (memq (preceding-char) '(?\n ?\r))
+
鐃緒申��申鐃緒申         (memq (aref (buffer-substring (max 1 (- (point) 3)) (point)) 1)
+
鐃緒申��申鐃緒申               '(?\n ?\r))
+
鐃緒申��申鐃緒申         (forward-char -1))
+
鐃緒申��申鐃緒申    (setq outline-recent-end-of-subtree (point))))
+
鐃緒申��申鐃緒申;;;_   > outline-beginning-of-current-entry ()
+
鐃緒申��申鐃緒申(defun outline-beginning-of-current-entry ()
+
鐃緒申��申鐃緒申  "When not already there, position point at beginning of current topic's body.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If already there, move cursor to bullet for hot-spot operation.
+
鐃緒申��申鐃緒申\(See outline-mode doc string for details on hot-spot operation.)"
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (let ((start-point (point)))
+
鐃緒申��申鐃緒申    (outline-end-of-prefix)
+
鐃緒申��申鐃緒申    (if (and (interactive-p)
+
鐃緒申��申鐃緒申	     (= (point) start-point))
+
鐃緒申��申鐃緒申	(goto-char (outline-current-bullet-pos)))))
+
鐃緒申��申鐃緒申;;;_   > outline-end-of-current-entry ()
+
鐃緒申��申鐃緒申(defun outline-end-of-current-entry ()
+
鐃緒申��申鐃緒申  "Position the point at the end of the current topics' entry."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (outline-show-entry)
+
鐃緒申��申鐃緒申  (prog1 (outline-pre-next-preface)
+
鐃緒申��申鐃緒申    (if (and (not (bobp))(looking-at "^$"))
+
鐃緒申��申鐃緒申        (forward-char -1))))
+
鐃緒申��申鐃緒申;;;_   > outline-end-of-current-heading ()
+
鐃緒申��申鐃緒申(defun outline-end-of-current-heading ()
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (outline-beginning-of-current-entry)
+
鐃緒申��申鐃緒申  (forward-line -1)
+
鐃緒申��申鐃緒申  (end-of-line))
+
鐃緒申��申鐃緒申(defalias 'outline-end-of-heading 'outline-end-of-current-heading)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Depth-wise
+
鐃緒申��申鐃緒申;;;_   > outline-ascend-to-depth (depth)
+
鐃緒申��申鐃緒申(defun outline-ascend-to-depth (depth)
+
鐃緒申��申鐃緒申  "Ascend to depth DEPTH, returning depth if successful, nil if not."
+
鐃緒申��申鐃緒申  (if (and (> depth 0)(<= depth (outline-depth)))
+
鐃緒申��申鐃緒申      (let ((last-good (point)))
+
鐃緒申��申鐃緒申        (while (and (< depth (outline-depth))
+
鐃緒申��申鐃緒申                    (setq last-good (point))
+
鐃緒申��申鐃緒申                    (outline-beginning-of-level)
+
鐃緒申��申鐃緒申                    (outline-previous-heading)))
+
鐃緒申��申鐃緒申        (if (= (outline-recent-depth) depth)
+
鐃緒申��申鐃緒申            (progn (goto-char outline-recent-prefix-beginning)
+
鐃緒申��申鐃緒申                   depth)
+
鐃緒申��申鐃緒申          (goto-char last-good)
+
鐃緒申��申鐃緒申          nil))
+
鐃緒申��申鐃緒申    (if (interactive-p) (outline-end-of-prefix))))
+
鐃緒申��申鐃緒申;;;_   > outline-ascend ()
+
鐃緒申��申鐃緒申(defun outline-ascend ()
+
鐃緒申��申鐃緒申  "Ascend one level, returning t if successful, nil if not."
+
鐃緒申��申鐃緒申  (prog1
+
鐃緒申��申鐃緒申      (if (outline-beginning-of-level)
+
鐃緒申��申鐃緒申	  (outline-previous-heading))
+
鐃緒申��申鐃緒申    (if (interactive-p) (outline-end-of-prefix))))
+
鐃緒申��申鐃緒申;;;_   > outline-descend-to-depth (depth)
+
鐃緒申��申鐃緒申(defun outline-descend-to-depth (depth)
+
鐃緒申��申鐃緒申  "Descend to depth DEPTH within current topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Returning depth if successful, nil if not."
+
鐃緒申��申鐃緒申  (let ((start-point (point))
+
鐃緒申��申鐃緒申        (start-depth (outline-depth)))
+
鐃緒申��申鐃緒申    (while
+
鐃緒申��申鐃緒申        (and (> (outline-depth) 0)
+
鐃緒申��申鐃緒申             (not (= depth (outline-recent-depth))) ; ... not there yet
+
鐃緒申��申鐃緒申             (outline-next-heading)     ; ... go further
+
鐃緒申��申鐃緒申             (< start-depth (outline-recent-depth)))) ; ... still in topic
+
鐃緒申��申鐃緒申    (if (and (> (outline-depth) 0)
+
鐃緒申��申鐃緒申             (= (outline-recent-depth) depth))
+
鐃緒申��申鐃緒申        depth
+
鐃緒申��申鐃緒申      (goto-char start-point)
+
鐃緒申��申鐃緒申      nil))
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_   > outline-up-current-level (arg &optional dont-complain)
+
鐃緒申��申鐃緒申(defun outline-up-current-level (arg &optional dont-complain)
+
鐃緒申��申鐃緒申  "Move out ARG levels from current visible topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Positions on heading line of containing topic.  Error if unable to
+
鐃緒申��申鐃緒申ascend that far, or nil if unable to ascend but optional arg
+
鐃緒申��申鐃緒申DONT-COMPLAIN is non-nil."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申  (let ((present-level (outline-recent-depth))
+
鐃緒申��申鐃緒申	(last-good (point))
+
鐃緒申��申鐃緒申	failed
+
鐃緒申��申鐃緒申	return)
+
鐃緒申��申鐃緒申    ;; Loop for iterating arg:
+
鐃緒申��申鐃緒申    (while (and (> (outline-recent-depth) 1)
+
鐃緒申��申鐃緒申                (> arg 0)
+
鐃緒申��申鐃緒申                (not (bobp))
+
鐃緒申��申鐃緒申		(not failed))
+
鐃緒申��申鐃緒申      (setq last-good (point))
+
鐃緒申��申鐃緒申      ;; Loop for going back over current or greater depth:
+
鐃緒申��申鐃緒申      (while (and (not (< (outline-recent-depth) present-level))
+
鐃緒申��申鐃緒申		  (or (outline-previous-visible-heading 1)
+
鐃緒申��申鐃緒申		      (not (setq failed present-level)))))
+
鐃緒申��申鐃緒申      (setq present-level (outline-current-depth))
+
鐃緒申��申鐃緒申      (setq arg (- arg 1)))
+
鐃緒申��申鐃緒申    (if (or failed
+
鐃緒申��申鐃緒申	    (> arg 0))
+
鐃緒申��申鐃緒申	(progn (goto-char last-good)
+
鐃緒申��申鐃緒申	       (if (interactive-p) (outline-end-of-prefix))
+
鐃緒申��申鐃緒申	       (if (not dont-complain)
+
鐃緒申��申鐃緒申		   (error "Can't ascend past outermost level.")
+
鐃緒申��申鐃緒申		 (if (interactive-p) (outline-end-of-prefix))
+
鐃緒申��申鐃緒申		 nil))
+
鐃緒申��申鐃緒申      (if (interactive-p) (outline-end-of-prefix))
+
鐃緒申��申鐃緒申      outline-recent-prefix-beginning)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Linear
+
鐃緒申��申鐃緒申;;;_   > outline-next-sibling (&optional depth backward)
+
鐃緒申��申鐃緒申(defun outline-next-sibling (&optional depth backward)
+
鐃緒申��申鐃緒申  "Like outline-forward-current-level, but respects invisible topics.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Traverse at optional DEPTH, or current depth if none specified.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Go backward if optional arg BACKWARD is non-nil.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Return depth if successful, nil otherwise."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (if (and backward (bobp))
+
鐃緒申��申鐃緒申      nil
+
鐃緒申��申鐃緒申    (let ((start-depth (or depth (outline-depth)))
+
鐃緒申��申鐃緒申          (start-point (point))
+
鐃緒申��申鐃緒申	  last-depth)
+
鐃緒申��申鐃緒申      (while (and (not (if backward (bobp) (eobp)))
+
鐃緒申��申鐃緒申                  (if backward (outline-previous-heading)
+
鐃緒申��申鐃緒申                    (outline-next-heading))
+
鐃緒申��申鐃緒申                  (> (setq last-depth (outline-recent-depth)) start-depth)))
+
鐃緒申��申鐃緒申      (if (and (not (eobp))
+
鐃緒申��申鐃緒申               (and (> (or last-depth (outline-depth)) 0)
+
鐃緒申��申鐃緒申                    (= (outline-recent-depth) start-depth)))
+
鐃緒申��申鐃緒申          outline-recent-prefix-beginning
+
鐃緒申��申鐃緒申        (goto-char start-point)
+
鐃緒申��申鐃緒申	(if depth (outline-depth) start-depth)
+
鐃緒申��申鐃緒申        nil))))
+
鐃緒申��申鐃緒申;;;_   > outline-previous-sibling (&optional depth backward)
+
鐃緒申��申鐃緒申(defun outline-previous-sibling (&optional depth backward)
+
鐃緒申��申鐃緒申  "Like outline-forward-current-level,but backwards & respect invisible topics.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional DEPTH specifies depth to traverse, default current depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional BACKWARD reverses direction.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Return depth if successful, nil otherwise."
+
鐃緒申��申鐃緒申  (outline-next-sibling depth (not backward))
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_   > outline-snug-back ()
+
鐃緒申��申鐃緒申(defun outline-snug-back ()
+
鐃緒申��申鐃緒申  "Position cursor at end of previous topic
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Presumes point is at the start of a topic prefix."
+
鐃緒申��申鐃緒申 (if (or (bobp) (eobp))
+
鐃緒申��申鐃緒申     nil
+
鐃緒申��申鐃緒申   (forward-char -1))
+
鐃緒申��申鐃緒申 (if (or (bobp) (not (memq (preceding-char) '(?\n ?\r))))
+
鐃緒申��申鐃緒申     nil
+
鐃緒申��申鐃緒申   (forward-char -1)
+
鐃緒申��申鐃緒申   (if (or (bobp) (not (memq (preceding-char) '(?\n ?\r))))
+
鐃緒申��申鐃緒申       (forward-char -1)))
+
鐃緒申��申鐃緒申 (point))
+
鐃緒申��申鐃緒申;;;_   > outline-beginning-of-level ()
+
鐃緒申��申鐃緒申(defun outline-beginning-of-level ()
+
鐃緒申��申鐃緒申  "Go back to the first sibling at this level, visible or not."
+
鐃緒申��申鐃緒申  (outline-end-of-level 'backward))
+
鐃緒申��申鐃緒申;;;_   > outline-end-of-level (&optional backward)
+
鐃緒申��申鐃緒申(defun outline-end-of-level (&optional backward)
+
鐃緒申��申鐃緒申  "Go to the last sibling at this level, visible or not."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let ((depth (outline-depth)))
+
鐃緒申��申鐃緒申    (while (outline-previous-sibling depth nil))
+
鐃緒申��申鐃緒申    (prog1 (outline-recent-depth)
+
鐃緒申��申鐃緒申      (if (interactive-p) (outline-end-of-prefix)))))
+
鐃緒申��申鐃緒申;;;_   > outline-next-visible-heading (arg)
+
鐃緒申��申鐃緒申(defun outline-next-visible-heading (arg)
+
鐃緒申��申鐃緒申  "Move to the next ARG'th visible heading line, backward if arg is negative.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Move as far as possible in indicated direction \(beginning or end of
+
鐃緒申��申鐃緒申buffer) if headings are exhausted."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (let* ((backward (if (< arg 0) (setq arg (* -1 arg))))
+
鐃緒申��申鐃緒申	 (step (if backward -1 1))
+
鐃緒申��申鐃緒申	 (start-point (point))
+
鐃緒申��申鐃緒申	 prev got)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (while (> arg 0)			; limit condition
+
鐃緒申��申鐃緒申      (while (and (not (if backward (bobp)(eobp))) ; boundary condition
+
鐃緒申��申鐃緒申		  ;; Move, skipping over all those concealed lines:
+
鐃緒申��申鐃緒申		  (< -1 (forward-line step))
+
鐃緒申��申鐃緒申		  (not (setq got (looking-at outline-regexp)))))
+
鐃緒申��申鐃緒申      ;; Register this got, it may be the last:
+
鐃緒申��申鐃緒申      (if got (setq prev got))
+
鐃緒申��申鐃緒申      (setq arg (1- arg)))
+
鐃緒申��申鐃緒申    (cond (got				; Last move was to a prefix:
+
鐃緒申��申鐃緒申	   (outline-prefix-data (match-beginning 0) (match-end 0))
+
鐃緒申��申鐃緒申	   (outline-end-of-prefix))
+
鐃緒申��申鐃緒申	  (prev				; Last move wasn't, but prev was:
+
鐃緒申��申鐃緒申	   (outline-prefix-data (match-beginning 0) (match-end 0)))
+
鐃緒申��申鐃緒申	  ((not backward) (end-of-line) nil))))
+
鐃緒申��申鐃緒申;;;_   > outline-previous-visible-heading (arg)
+
鐃緒申��申鐃緒申(defun outline-previous-visible-heading (arg)
+
鐃緒申��申鐃緒申  "Move to the previous heading line.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With argument, repeats or can move forward if negative.
+
鐃緒申��申鐃緒申A heading line is one that starts with a `*' (or that outline-regexp
+
鐃緒申��申鐃緒申matches)."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (outline-next-visible-heading (- arg)))
+
鐃緒申��申鐃緒申;;;_   > outline-forward-current-level (arg)
+
鐃緒申��申鐃緒申(defun outline-forward-current-level (arg)
+
鐃緒申��申鐃緒申  "Position point at the next heading of the same level.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Takes optional repeat-count, goes backward if count is negative.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Returns resulting position, else nil if none found."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (let ((start-depth (outline-current-depth))
+
鐃緒申��申鐃緒申	(start-point (point))
+
鐃緒申��申鐃緒申	(start-arg arg)
+
鐃緒申��申鐃緒申	(backward (> 0 arg))
+
鐃緒申��申鐃緒申	last-depth
+
鐃緒申��申鐃緒申	(last-good (point))
+
鐃緒申��申鐃緒申	at-boundary)
+
鐃緒申��申鐃緒申    (if (= 0 start-depth)
+
鐃緒申��申鐃緒申	(error "No siblings, not in a topic..."))
+
鐃緒申��申鐃緒申    (if backward (setq arg (* -1 arg)))
+
鐃緒申��申鐃緒申    (while (not (or (zerop arg)
+
鐃緒申��申鐃緒申		    at-boundary))
+
鐃緒申��申鐃緒申      (while (and (not (if backward (bobp) (eobp)))
+
鐃緒申��申鐃緒申		  (if backward (outline-previous-visible-heading 1)
+
鐃緒申��申鐃緒申		    (outline-next-visible-heading 1))
+
鐃緒申��申鐃緒申		  (> (setq last-depth (outline-recent-depth)) start-depth)))
+
鐃緒申��申鐃緒申      (if (and last-depth (= last-depth start-depth)
+
鐃緒申��申鐃緒申	       (not (if backward (bobp) (eobp))))
+
鐃緒申��申鐃緒申	  (setq last-good (point)
+
鐃緒申��申鐃緒申		arg (1- arg))
+
鐃緒申��申鐃緒申	(setq at-boundary t)))
+
鐃緒申��申鐃緒申    (if (and (not (eobp))
+
鐃緒申��申鐃緒申	     (= arg 0)
+
鐃緒申��申鐃緒申	     (and (> (or last-depth (outline-depth)) 0)
+
鐃緒申��申鐃緒申		  (= (outline-recent-depth) start-depth)))
+
鐃緒申��申鐃緒申	outline-recent-prefix-beginning
+
鐃緒申��申鐃緒申      (goto-char last-good)
+
鐃緒申��申鐃緒申      (if (not (interactive-p))
+
鐃緒申��申鐃緒申	  nil
+
鐃緒申��申鐃緒申	(outline-end-of-prefix)
+
鐃緒申��申鐃緒申	(error "Hit %s level %d topic, traversed %d of %d requested."
+
鐃緒申��申鐃緒申	       (if backward "first" "last")
+
鐃緒申��申鐃緒申	       (outline-recent-depth)
+
鐃緒申��申鐃緒申	       (- (abs start-arg) arg)
+
鐃緒申��申鐃緒申	       (abs start-arg))))))
+
鐃緒申��申鐃緒申;;;_   > outline-backward-current-level (arg)
+
鐃緒申��申鐃緒申(defun outline-backward-current-level (arg)
+
鐃緒申��申鐃緒申  "Inverse of `outline-forward-current-level'."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (if (interactive-p)
+
鐃緒申��申鐃緒申      (let ((current-prefix-arg (* -1 arg)))
+
鐃緒申��申鐃緒申	(call-interactively 'outline-forward-current-level))
+
鐃緒申��申鐃緒申    (outline-forward-current-level (* -1 arg))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #5 Alteration
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Fundamental
+
鐃緒申��申鐃緒申;;;_   > outline-before-change-protect (beg end)
+
鐃緒申��申鐃緒申(defun outline-before-change-protect (beg end)
+
鐃緒申��申鐃緒申  "Outline before-change hook, regulates changes to concealed text.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Reveal concealed text that would be changed by current command, and
+
鐃緒申��申鐃緒申offer user choice to commit or forego the change.  Unchanged text is
+
鐃緒申��申鐃緒申reconcealed.  User has option to have changed text reconcealed.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Undo commands are specially treated - the user is not prompted for
+
鐃緒申��申鐃緒申choice, the undoes are always committed (based on presumption that the
+
鐃緒申��申鐃緒申things being undone were already subject to this regulation routine),
+
鐃緒申��申鐃緒申and undoes always leave the changed stuff exposed.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Changes to concealed regions are ignored while file is being written.
+
鐃緒申��申鐃緒申\(This is for the sake of functions that do change the file during
+
鐃緒申��申鐃緒申writes, like crypt and zip modes.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Locally bound in outline buffers to `before-change-functions', which
+
鐃緒申��申鐃緒申in emacs 19 is run before any change to the buffer.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Any functions which set [`this-command' to `undo', or which set]
+
鐃緒申��申鐃緒申`outline-override-protect' non-nil (as does, eg, outline-flag-chars)
+
鐃緒申��申鐃緒申are exempt from this restriction."
+
鐃緒申��申鐃緒申  (if (and (outline-mode-p)
+
鐃緒申��申鐃緒申					; outline-override-protect
+
鐃緒申��申鐃緒申					; set by functions that know what
+
鐃緒申��申鐃緒申					; they're doing, eg outline internals:
+
鐃緒申��申鐃緒申	   (not outline-override-protect)
+
鐃緒申��申鐃緒申	   (not outline-during-write-cue)
+
鐃緒申��申鐃緒申	   (save-match-data		; Preserve operation position state.
+
鐃緒申��申鐃緒申					; Both beginning and end chars must
+
鐃緒申��申鐃緒申					; be exposed:
+
鐃緒申��申鐃緒申	     (save-excursion (if (memq this-command '(newline open-line))
+
鐃緒申��申鐃緒申				 ;; Compensate for stupid emacs {new,
+
鐃緒申��申鐃緒申				 ;; open-}line display optimization:
+
鐃緒申��申鐃緒申				 (setq beg (1+ beg)
+
鐃緒申��申鐃緒申				       end (1+ end)))
+
鐃緒申��申鐃緒申			     (goto-char beg)
+
鐃緒申��申鐃緒申			     (or (outline-hidden-p)
+
鐃緒申��申鐃緒申				 (and (not (= beg end))
+
鐃緒申��申鐃緒申				      (goto-char end)
+
鐃緒申��申鐃緒申				      (outline-hidden-p))))))
+
鐃緒申��申鐃緒申      (save-match-data
+
鐃緒申��申鐃緒申	(if (equal this-command 'undo)
+
鐃緒申��申鐃緒申		 ;; Allow undo without inhibition.
+
鐃緒申��申鐃緒申		 ;; - Undoing new and open-line hits stupid emacs redisplay
+
鐃緒申��申鐃緒申		 ;;   optimization (em 19 cmds.c, ~ line 200).
+
鐃緒申��申鐃緒申		 ;; - Presumably, undoing what was properly protected when
+
鐃緒申��申鐃緒申		 ;;   done.
+
鐃緒申��申鐃緒申		 ;; - Undo may be users' only recourse in protection faults.
+
鐃緒申��申鐃緒申		 ;; So, expose what getting changed:
+
鐃緒申��申鐃緒申	    (progn (message "Undo! - exposing concealed target...")
+
鐃緒申��申鐃緒申		   (if (outline-hidden-p)
+
鐃緒申��申鐃緒申		       (outline-show-children))
+
鐃緒申��申鐃緒申		   (message "Undo!"))
+
鐃緒申��申鐃緒申	  (let (response
+
鐃緒申��申鐃緒申		(rehide-completely (save-excursion (outline-goto-prefix)
+
鐃緒申��申鐃緒申						   (outline-hidden-p)))
+
鐃緒申��申鐃緒申		rehide-place)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	    (save-excursion
+
鐃緒申��申鐃緒申	      (if (condition-case err
+
鐃緒申��申鐃緒申		      ;; Condition case to catch keyboard quits during reads.
+
鐃緒申��申鐃緒申		      (progn
+
鐃緒申��申鐃緒申					; Give them a peek where
+
鐃緒申��申鐃緒申			(save-excursion
+
鐃緒申��申鐃緒申			  (if (eolp) (setq rehide-place
+
鐃緒申��申鐃緒申					   (outline-goto-prefix)))
+
鐃緒申��申鐃緒申			  (outline-show-entry))
+
鐃緒申��申鐃緒申					; Present the message, but...
+
鐃緒申��申鐃緒申					; leave the cursor at the location
+
鐃緒申��申鐃緒申					; until they respond:
+
鐃緒申��申鐃緒申					; Then interpret the response:
+
鐃緒申��申鐃緒申			(while
+
鐃緒申��申鐃緒申			    (progn
+
鐃緒申��申鐃緒申			      (message (concat "Change inside concealed"
+
鐃緒申��申鐃緒申					       " region - do it? "
+
鐃緒申��申鐃緒申					       "(n or 'y'/'r'eclose)"))
+
鐃緒申��申鐃緒申			      (setq response (read-char))
+
鐃緒申��申鐃緒申			      (not
+
鐃緒申��申鐃緒申			       (cond ((memq response '(?r ?R))
+
鐃緒申��申鐃緒申				      (setq response 'reclose))
+
鐃緒申��申鐃緒申				     ((memq response '(?y ?Y ? ))
+
鐃緒申��申鐃緒申				      (setq response t))
+
鐃緒申��申鐃緒申				     ((memq response '(?n ?N 127))
+
鐃緒申��申鐃緒申				      (setq response nil)
+
鐃緒申��申鐃緒申				      t)
+
鐃緒申��申鐃緒申				     ((eq response ??)
+
鐃緒申��申鐃緒申				      (message
+
鐃緒申��申鐃緒申				       "`r' means `yes, then reclose'")
+
鐃緒申��申鐃緒申				      nil)
+
鐃緒申��申鐃緒申				     (t (message "Please answer y, n, or r")
+
鐃緒申��申鐃緒申					(sit-for 1)
+
鐃緒申��申鐃緒申					nil)))))
+
鐃緒申��申鐃緒申			response)
+
鐃緒申��申鐃緒申		    ('quit nil))
+
鐃緒申��申鐃緒申					; Continue:
+
鐃緒申��申鐃緒申		  (if (eq response 'reclose)
+
鐃緒申��申鐃緒申		      (save-excursion
+
鐃緒申��申鐃緒申			(if rehide-place (goto-char rehide-place))
+
鐃緒申��申鐃緒申			(if rehide-completely
+
鐃緒申��申鐃緒申			    (outline-hide-current-entry-completely)
+
鐃緒申��申鐃緒申			  (outline-hide-current-entry)))
+
鐃緒申��申鐃緒申		    (if (outline-ascend-to-depth (1- (outline-recent-depth)))
+
鐃緒申��申鐃緒申			(outline-show-children)
+
鐃緒申��申鐃緒申		      (outline-show-to-offshoot)))
+
鐃緒申��申鐃緒申					; Prevent:
+
鐃緒申��申鐃緒申		(if rehide-completely
+
鐃緒申��申鐃緒申		    (save-excursion
+
鐃緒申��申鐃緒申		      (if rehide-place (goto-char rehide-place))
+
鐃緒申��申鐃緒申		      (outline-hide-current-entry-completely))
+
鐃緒申��申鐃緒申		  (outline-hide-current-entry))
+
鐃緒申��申鐃緒申		(error (concat
+
鐃緒申��申鐃緒申			"Change within concealed region prevented.")))))))
+
鐃緒申��申鐃緒申    )	; if
+
鐃緒申��申鐃緒申  )	; defun
+
鐃緒申��申鐃緒申;;;_   = outline-post-goto-bullet
+
鐃緒申��申鐃緒申(defvar outline-post-goto-bullet nil
+
鐃緒申��申鐃緒申  "Outline internal var, for `outline-pre-command-business' hot-spot operation.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申When set, tells post-processing to reposition on topic bullet, and
+
鐃緒申��申鐃緒申then unset it.  Set by outline-pre-command-business when implementing
+
鐃緒申��申鐃緒申hot-spot operation, where literal characters typed over a topic bullet
+
鐃緒申��申鐃緒申are mapped to the command of the corresponding control-key on the
+
鐃緒申��申鐃緒申outline-mode-map.")
+
鐃緒申��申鐃緒申(make-variable-buffer-local 'outline-post-goto-bullet)
+
鐃緒申��申鐃緒申;;;_   > outline-post-command-business ()
+
鐃緒申��申鐃緒申(defun outline-post-command-business ()
+
鐃緒申��申鐃緒申  "Outline post-command-hook function.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申- Null outline-override-protect, so it's not left open.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申- Implement (and clear) outline-post-goto-bullet, for hot-spot
+
鐃緒申��申鐃緒申  outline commands.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申- Massages buffer-undo-list so successive, standard character self-inserts are
+
鐃緒申��申鐃緒申  aggregated.  This kludge compensates for lack of undo bunching when
+
鐃緒申��申鐃緒申  before-change-functions is used."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申					; Apply any external change func:
+
鐃緒申��申鐃緒申  (if (not (outline-mode-p))		; In outline-mode.
+
鐃緒申��申鐃緒申      nil
+
鐃緒申��申鐃緒申    (setq outline-override-protect nil)
+
鐃緒申��申鐃緒申    (if outline-isearch-dynamic-expose
+
鐃緒申��申鐃緒申	(outline-isearch-rectification))
+
鐃緒申��申鐃緒申    (if outline-during-write-cue
+
鐃緒申��申鐃緒申	;; Was used by outline-before-change-protect, done with it now:
+
鐃緒申��申鐃緒申	(setq outline-during-write-cue nil))
+
鐃緒申��申鐃緒申    ;; Undo bunching business:
+
鐃緒申��申鐃緒申    (if (and (listp buffer-undo-list)	; Undo history being kept.
+
鐃緒申��申鐃緒申	     (equal this-command 'self-insert-command)
+
鐃緒申��申鐃緒申	     (equal last-command 'self-insert-command))
+
鐃緒申��申鐃緒申	(let* ((prev-stuff (cdr buffer-undo-list))
+
鐃緒申��申鐃緒申	       (before-prev-stuff (cdr (cdr prev-stuff)))
+
鐃緒申��申鐃緒申	       cur-cell cur-from cur-to
+
鐃緒申��申鐃緒申	       prev-cell prev-from prev-to)
+
鐃緒申��申鐃緒申	  (if (and before-prev-stuff	; Goes back far enough to bother,
+
鐃緒申��申鐃緒申		   (not (car prev-stuff)) ; and break before current,
+
鐃緒申��申鐃緒申		   (not (car before-prev-stuff)) ; !and break before prev!
+
鐃緒申��申鐃緒申		   (setq prev-cell (car (cdr prev-stuff))) ; contents now,
+
鐃緒申��申鐃緒申		   (setq cur-cell (car buffer-undo-list)) ; contents prev.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申		   ;; cur contents denote a single char insertion:
+
鐃緒申��申鐃緒申		   (numberp (setq cur-from (car cur-cell)))
+
鐃緒申��申鐃緒申		   (numberp (setq cur-to (cdr cur-cell)))
+
鐃緒申��申鐃緒申		   (= 1 (- cur-to cur-from))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申		   ;; prev contents denote fewer than aggregate-limit
+
鐃緒申��申鐃緒申		   ;; insertions:
+
鐃緒申��申鐃緒申		   (numberp (setq prev-from (car prev-cell)))
+
鐃緒申��申鐃緒申		   (numberp (setq prev-to (cdr prev-cell)))
+
鐃緒申��申鐃緒申					; Below threshold:
+
鐃緒申��申鐃緒申		   (> outline-undo-aggregation (- prev-to prev-from)))
+
鐃緒申��申鐃緒申	      (setq buffer-undo-list
+
鐃緒申��申鐃緒申		    (cons (cons prev-from cur-to)
+
鐃緒申��申鐃緒申			  (cdr (cdr (cdr buffer-undo-list))))))))
+
鐃緒申��申鐃緒申    ;; Implement -post-goto-bullet, if set: (must be after undo business)
+
鐃緒申��申鐃緒申    (if (and outline-post-goto-bullet
+
鐃緒申��申鐃緒申	     (outline-current-bullet-pos))
+
鐃緒申��申鐃緒申	(progn (goto-char (outline-current-bullet-pos))
+
鐃緒申��申鐃緒申	       (setq outline-post-goto-bullet nil)))
+
鐃緒申��申鐃緒申    ))
+
鐃緒申��申鐃緒申;;;_   > outline-pre-command-business ()
+
鐃緒申��申鐃緒申(defun outline-pre-command-business ()
+
鐃緒申��申鐃緒申  "Outline pre-command-hook function for outline buffers.
+
鐃緒申��申鐃緒申Implements special behavior when cursor is on bullet char.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Self-insert characters are reinterpreted control-character references
+
鐃緒申��申鐃緒申into the outline-mode-map.  The outline-mode post-command hook will
+
鐃緒申��申鐃緒申position a cursor that has moved as a result of such reinterpretation,
+
鐃緒申��申鐃緒申on the destination topic's bullet, when the cursor wound up in the
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The upshot is that you can get easy, single (ie, unmodified) key
+
鐃緒申��申鐃緒申outline maneuvering operations by positioning the cursor on the bullet
+
鐃緒申��申鐃緒申char.  You stay in this mode until you use some regular
+
鐃緒申��申鐃緒申cursor-positioning command to relocate the cursor off of a bullet
+
鐃緒申��申鐃緒申char."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (if (not (outline-mode-p))
+
鐃緒申��申鐃緒申      ;; Shouldn't be invoked if not in allout outline-mode, but just in case:
+
鐃緒申��申鐃緒申      nil
+
鐃緒申��申鐃緒申    ;; Register isearch status:
+
鐃緒申��申鐃緒申    (if (and (boundp  'isearch-mode) isearch-mode)
+
鐃緒申��申鐃緒申	(setq outline-pre-was-isearching t)
+
鐃緒申��申鐃緒申      (setq outline-pre-was-isearching nil))
+
鐃緒申��申鐃緒申    ;; Hot-spot navigation provisions:
+
鐃緒申��申鐃緒申    (if (and (eq this-command 'self-insert-command)
+
鐃緒申��申鐃緒申	     (eq (point)(outline-current-bullet-pos)))
+
鐃緒申��申鐃緒申	(let* ((this-key-num (cond
+
鐃緒申��申鐃緒申			      ((numberp last-command-char)
+
鐃緒申��申鐃緒申			       last-command-char)
+
鐃緒申��申鐃緒申			      ;; XXX Only xemacs has characterp.
+
鐃緒申��申鐃緒申			      ((and (fboundp 'characterp)
+
鐃緒申��申鐃緒申				    (characterp last-command-char))
+
鐃緒申��申鐃緒申			       (char-to-int last-command-char))
+
鐃緒申��申鐃緒申			      (t 0)))
+
鐃緒申��申鐃緒申	       mapped-binding)
+
鐃緒申��申鐃緒申	  (if (zerop this-key-num)
+
鐃緒申��申鐃緒申	      nil
+
鐃緒申��申鐃緒申					; Map upper-register literals
+
鐃緒申��申鐃緒申					; to lower register:
+
鐃緒申��申鐃緒申	    (if (<= 96 this-key-num)
+
鐃緒申��申鐃緒申		(setq this-key-num (- this-key-num 32)))
+
鐃緒申��申鐃緒申					; Check if we have a literal:
+
鐃緒申��申鐃緒申	    (if (and (<= 64 this-key-num)
+
鐃緒申��申鐃緒申		     (>= 96 this-key-num))
+
鐃緒申��申鐃緒申		(setq mapped-binding
+
鐃緒申��申鐃緒申		      (lookup-key 'outline-mode-map
+
鐃緒申��申鐃緒申				  (concat outline-command-prefix
+
鐃緒申��申鐃緒申					  (char-to-string (- this-key-num
+
鐃緒申��申鐃緒申							     64))))))
+
鐃緒申��申鐃緒申	    (if mapped-binding
+
鐃緒申��申鐃緒申		(setq outline-post-goto-bullet t
+
鐃緒申��申鐃緒申		      this-command mapped-binding)))))))
+
鐃緒申��申鐃緒申;;;_   > outline-find-file-hook ()
+
鐃緒申��申鐃緒申(defun outline-find-file-hook ()
+
鐃緒申��申鐃緒申  "Activate outline-mode when `outline-auto-activation' & `outline-layout' are non-nil.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申See `outline-init' for setup instructions."
+
鐃緒申��申鐃緒申  (if (and outline-auto-activation
+
鐃緒申��申鐃緒申	   (not (outline-mode-p))
+
鐃緒申��申鐃緒申	   outline-layout)
+
鐃緒申��申鐃緒申      (outline-mode t)))
+
鐃緒申��申鐃緒申;;;_   > outline-isearch-rectification
+
鐃緒申��申鐃緒申(defun outline-isearch-rectification ()
+
鐃緒申��申鐃緒申  "Rectify outline exposure before, during, or after isearch.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Called as part of outline-post-command-business."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let ((isearching (and (boundp 'isearch-mode) isearch-mode)))
+
鐃緒申��申鐃緒申    (cond ((and isearching (not outline-pre-was-isearching))
+
鐃緒申��申鐃緒申	   (outline-isearch-expose 'start))
+
鐃緒申��申鐃緒申	  ((and isearching outline-pre-was-isearching)
+
鐃緒申��申鐃緒申	   (outline-isearch-expose 'continue))
+
鐃緒申��申鐃緒申	  ((and (not isearching) outline-pre-was-isearching)
+
鐃緒申��申鐃緒申	   (outline-isearch-expose 'final))
+
鐃緒申��申鐃緒申	  ;; Not and wasn't isearching:
+
鐃緒申��申鐃緒申	  (t (setq outline-isearch-prior-pos nil)
+
鐃緒申��申鐃緒申	     (setq outline-isearch-did-quit nil)))))
+
鐃緒申��申鐃緒申;;;_   = outline-isearch-was-font-lock
+
鐃緒申��申鐃緒申(defvar outline-isearch-was-font-lock
+
鐃緒申��申鐃緒申  (and (boundp 'font-lock-mode) font-lock-mode))
+
鐃緒申��申鐃緒申;;;_   > outline-isearch-expose (mode)
+
鐃緒申��申鐃緒申(defun outline-isearch-expose (mode)
+
鐃緒申��申鐃緒申  "Mode is either 'clear, 'start, 'continue, or 'final."
+
鐃緒申��申鐃緒申  ;; outline-isearch-prior-pos encodes exposure status of prior pos:
+
鐃緒申��申鐃緒申  ;; (pos was-vis header-pos end-pos)
+
鐃緒申��申鐃緒申  ;; pos	- point of concern
+
鐃緒申��申鐃緒申  ;; was-vis	- t, else 'topic if entire topic was exposed, 'entry otherwise
+
鐃緒申��申鐃緒申  ;; Do reclosure or prior pos, as necessary:
+
鐃緒申��申鐃緒申  (if (eq mode 'start)
+
鐃緒申��申鐃緒申      (setq outline-isearch-was-font-lock (and (boundp 'font-lock-mode)
+
鐃緒申��申鐃緒申                                               font-lock-mode)
+
鐃緒申��申鐃緒申	    font-lock-mode nil)
+
鐃緒申��申鐃緒申    (if (eq mode 'final)
+
鐃緒申��申鐃緒申	(setq font-lock-mode outline-isearch-was-font-lock))
+
鐃緒申��申鐃緒申    (if (and outline-isearch-prior-pos
+
鐃緒申��申鐃緒申	     (listp outline-isearch-prior-pos))
+
鐃緒申��申鐃緒申	;; Conceal prior peek:
+
鐃緒申��申鐃緒申	(outline-flag-region (car (cdr outline-isearch-prior-pos))
+
鐃緒申��申鐃緒申			     (car (cdr (cdr outline-isearch-prior-pos)))
+
鐃緒申��申鐃緒申			     ?\r)))
+
鐃緒申��申鐃緒申  (if (outline-visible-p)
+
鐃緒申��申鐃緒申      (setq outline-isearch-prior-pos nil)
+
鐃緒申��申鐃緒申    (if (not (eq mode 'final))
+
鐃緒申��申鐃緒申	(setq outline-isearch-prior-pos (cons (point) (outline-show-entry)))
+
鐃緒申��申鐃緒申      (if outline-isearch-did-quit
+
鐃緒申��申鐃緒申	  nil
+
鐃緒申��申鐃緒申	(setq outline-isearch-prior-pos nil)
+
鐃緒申��申鐃緒申	(outline-show-children))))
+
鐃緒申��申鐃緒申  (setq outline-isearch-did-quit nil))
+
鐃緒申��申鐃緒申;;;_   > outline-enwrap-isearch ()
+
鐃緒申��申鐃緒申(defun outline-enwrap-isearch ()
+
鐃緒申��申鐃緒申  "Impose outline-mode isearch-abort wrapper for dynamic exposure in isearch.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The function checks to ensure that the rebinding is done only once."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (add-hook 'isearch-mode-end-hook 'outline-isearch-rectification)
+
鐃緒申��申鐃緒申  (if (fboundp 'outline-real-isearch-abort)
+
鐃緒申��申鐃緒申      ;; 
+
鐃緒申��申鐃緒申      nil
+
鐃緒申��申鐃緒申                                        ; Ensure load of isearch-mode:
+
鐃緒申��申鐃緒申    (if (or (and (fboundp 'isearch-mode)
+
鐃緒申��申鐃緒申                 (fboundp 'isearch-abort))
+
鐃緒申��申鐃緒申            (condition-case error 
+
鐃緒申��申鐃緒申                (load-library "isearch-mode")
+
鐃緒申��申鐃緒申              ('file-error (message
+
鐃緒申��申鐃緒申			    "Skipping isearch-mode provisions - %s '%s'"
+
鐃緒申��申鐃緒申			    (car (cdr error))
+
鐃緒申��申鐃緒申			    (car (cdr (cdr error))))
+
鐃緒申��申鐃緒申			   (sit-for 1)
+
鐃緒申��申鐃緒申			   ;; Inhibit subsequent tries and return nil:
+
鐃緒申��申鐃緒申			   (setq outline-isearch-dynamic-expose nil))))
+
鐃緒申��申鐃緒申        ;; Isearch-mode loaded, encapsulate specific entry points for
+
鐃緒申��申鐃緒申        ;; outline dynamic-exposure business:
+
鐃緒申��申鐃緒申        (progn 
+
鐃緒申��申鐃緒申	  ;; stash crucial isearch-mode funcs under known, private
+
鐃緒申��申鐃緒申	  ;; names, then register wrapper functions under the old
+
鐃緒申��申鐃緒申	  ;; names, in their stead:
+
鐃緒申��申鐃緒申          (fset 'outline-real-isearch-abort (symbol-function 'isearch-abort))
+
鐃緒申��申鐃緒申          (fset 'isearch-abort 'outline-isearch-abort)))))
+
鐃緒申��申鐃緒申;;;_   > outline-isearch-abort ()
+
鐃緒申��申鐃緒申(defun outline-isearch-abort ()
+
鐃緒申��申鐃緒申  "Wrapper for outline-real-isearch-abort \(which see), to register
+
鐃緒申��申鐃緒申actual quits."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (setq outline-isearch-did-quit nil)
+
鐃緒申��申鐃緒申  (condition-case what
+
鐃緒申��申鐃緒申      (outline-real-isearch-abort)
+
鐃緒申��申鐃緒申    ('quit (setq outline-isearch-did-quit t)
+
鐃緒申��申鐃緒申	  (signal 'quit nil))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Prevent unnecessary font-lock while isearching!
+
鐃緒申��申鐃緒申(defvar isearch-was-font-locking nil)
+
鐃緒申��申鐃緒申(defun isearch-inhibit-font-lock ()
+
鐃緒申��申鐃緒申  "Inhibit font-lock while isearching - for use on isearch-mode-hook."
+
鐃緒申��申鐃緒申  (if (and (outline-mode-p) (boundp 'font-lock-mode) font-lock-mode)
+
鐃緒申��申鐃緒申      (setq isearch-was-font-locking t
+
鐃緒申��申鐃緒申	    font-lock-mode nil)))
+
鐃緒申��申鐃緒申(add-hook 'isearch-mode-hook 'isearch-inhibit-font-lock)
+
鐃緒申��申鐃緒申(defun isearch-reenable-font-lock ()
+
鐃緒申��申鐃緒申  "Reenable font-lock after isearching - for use on isearch-mode-end-hook."
+
鐃緒申��申鐃緒申  (if (and (boundp 'font-lock-mode) font-lock-mode)
+
鐃緒申��申鐃緒申      (if (and (outline-mode-p) isearch-was-font-locking)
+
鐃緒申��申鐃緒申	  (setq isearch-was-font-locking nil
+
鐃緒申��申鐃緒申		font-lock-mode t))))
+
鐃緒申��申鐃緒申(add-hook 'isearch-mode-end-hook 'isearch-reenable-font-lock)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Topic Format Assessment
+
鐃緒申��申鐃緒申;;;_   > outline-solicit-alternate-bullet (depth &optional current-bullet)
+
鐃緒申��申鐃緒申(defun outline-solicit-alternate-bullet (depth &optional current-bullet)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Prompt for and return a bullet char as an alternative to the current one.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Offer one suitable for current depth DEPTH as default."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let* ((default-bullet (or (and (stringp current-bullet) current-bullet)
+
鐃緒申��申鐃緒申                             (outline-bullet-for-depth depth)))
+
鐃緒申��申鐃緒申	 (sans-escapes (regexp-sans-escapes outline-bullets-string))
+
鐃緒申��申鐃緒申	 choice)
+
鐃緒申��申鐃緒申    (save-excursion
+
鐃緒申��申鐃緒申      (goto-char (outline-current-bullet-pos))
+
鐃緒申��申鐃緒申      (setq choice (solicit-char-in-string
+
鐃緒申��申鐃緒申                    (format "Select bullet: %s ('%s' default): "
+
鐃緒申��申鐃緒申                            sans-escapes
+
鐃緒申��申鐃緒申                            default-bullet)
+
鐃緒申��申鐃緒申                    sans-escapes
+
鐃緒申��申鐃緒申                    t)))
+
鐃緒申��申鐃緒申    (message "")
+
鐃緒申��申鐃緒申    (if (string= choice "") default-bullet choice))
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_   > outline-distinctive-bullet (bullet)
+
鐃緒申��申鐃緒申(defun outline-distinctive-bullet (bullet)
+
鐃緒申��申鐃緒申  "True if bullet is one of those on outline-distinctive-bullets-string."
+
鐃緒申��申鐃緒申  (string-match (regexp-quote bullet) outline-distinctive-bullets-string))
+
鐃緒申��申鐃緒申;;;_   > outline-numbered-type-prefix (&optional prefix)
+
鐃緒申��申鐃緒申(defun outline-numbered-type-prefix (&optional prefix)
+
鐃緒申��申鐃緒申  "True if current header prefix bullet is numbered bullet."
+
鐃緒申��申鐃緒申  (and outline-numbered-bullet
+
鐃緒申��申鐃緒申        (string= outline-numbered-bullet
+
鐃緒申��申鐃緒申                 (if prefix
+
鐃緒申��申鐃緒申                     (outline-get-prefix-bullet prefix)
+
鐃緒申��申鐃緒申                   (outline-get-bullet)))))
+
鐃緒申��申鐃緒申;;;_   > outline-bullet-for-depth (&optional depth)
+
鐃緒申��申鐃緒申(defun outline-bullet-for-depth (&optional depth)
+
鐃緒申��申鐃緒申  "Return outline topic bullet suited to optional DEPTH, or current depth."
+
鐃緒申��申鐃緒申  ;; Find bullet in plain-bullets-string modulo DEPTH.
+
鐃緒申��申鐃緒申  (if outline-stylish-prefixes
+
鐃緒申��申鐃緒申      (char-to-string (aref outline-plain-bullets-string
+
鐃緒申��申鐃緒申                            (% (max 0 (- depth 2))
+
鐃緒申��申鐃緒申                               outline-plain-bullets-string-len)))
+
鐃緒申��申鐃緒申    outline-primary-bullet)
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Topic Production
+
鐃緒申��申鐃緒申;;;_   > outline-make-topic-prefix (&optional prior-bullet
+
鐃緒申��申鐃緒申(defun outline-make-topic-prefix (&optional prior-bullet
+
鐃緒申��申鐃緒申                                            new
+
鐃緒申��申鐃緒申                                            depth
+
鐃緒申��申鐃緒申                                            solicit
+
鐃緒申��申鐃緒申                                            number-control
+
鐃緒申��申鐃緒申                                            index)
+
鐃緒申��申鐃緒申  ;; Depth null means use current depth, non-null means we're either
+
鐃緒申��申鐃緒申  ;; opening a new topic after current topic, lower or higher, or we're
+
鐃緒申��申鐃緒申  ;; changing level of current topic.
+
鐃緒申��申鐃緒申  ;; Solicit dominates specified bullet-char.
+
鐃緒申��申鐃緒申;;;_    . Doc string:
+
鐃緒申��申鐃緒申  "Generate a topic prefix suitable for optional arg DEPTH, or current depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申All the arguments are optional.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申PRIOR-BULLET indicates the bullet of the prefix being changed, or
+
鐃緒申��申鐃緒申nil if none.  This bullet may be preserved (other options
+
鐃緒申��申鐃緒申notwithstanding) if it is on the outline-distinctive-bullets-string,
+
鐃緒申��申鐃緒申for instance.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Second arg NEW indicates that a new topic is being opened after the
+
鐃緒申��申鐃緒申topic at point, if non-nil.  Default bullet for new topics, eg, may
+
鐃緒申��申鐃緒申be set (contingent to other args) to numbered bullets if previous
+
鐃緒申��申鐃緒申sibling is one.  The implication otherwise is that the current topic
+
鐃緒申��申鐃緒申is being adjusted - shifted or rebulleted - and we don't consider
+
鐃緒申��申鐃緒申bullet or previous sibling.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Third arg DEPTH forces the topic prefix to that depth, regardless of
+
鐃緒申��申鐃緒申the current topics' depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If SOLICIT is non-nil, then the choice of bullet is solicited from
+
鐃緒申��申鐃緒申user.  If it's a character, then that character is offered as the
+
鐃緒申��申鐃緒申default, otherwise the one suited to the context \(according to
+
鐃緒申��申鐃緒申distinction or depth) is offered.  \(This overrides other options,
+
鐃緒申��申鐃緒申including, eg, a distinctive PRIOR-BULLET.)  If non-nil, then the
+
鐃緒申��申鐃緒申context-specific bullet is used.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Fifth arg, NUMBER-CONTROL, matters only if `outline-numbered-bullet'
+
鐃緒申��申鐃緒申is non-nil *and* soliciting was not explicitly invoked.  Then
+
鐃緒申��申鐃緒申NUMBER-CONTROL non-nil forces prefix to either numbered or
+
鐃緒申��申鐃緒申denumbered format, depending on the value of the sixth arg, INDEX.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申\(Note that NUMBER-CONTROL does *not* apply to level 1 topics.  Sorry...)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If NUMBER-CONTROL is non-nil and sixth arg INDEX is non-nil then
+
鐃緒申��申鐃緒申the prefix of the topic is forced to be numbered.  Non-nil
+
鐃緒申��申鐃緒申NUMBER-CONTROL and nil INDEX forces non-numbered format on the
+
鐃緒申��申鐃緒申bullet.  Non-nil NUMBER-CONTROL and non-nil, non-number INDEX means
+
鐃緒申��申鐃緒申that the index for the numbered prefix will be derived, by counting
+
鐃緒申��申鐃緒申siblings back to start of level.  If INDEX is a number, then that
+
鐃緒申��申鐃緒申number is used as the index for the numbered prefix (allowing, eg,
+
鐃緒申��申鐃緒申sequential renumbering to not require this function counting back the
+
鐃緒申��申鐃緒申index for each successive sibling)."
+
鐃緒申��申鐃緒申;;;_    . Code:
+
鐃緒申��申鐃緒申  ;; The options are ordered in likely frequence of use, most common
+
鐃緒申��申鐃緒申  ;; highest, least lowest.  Ie, more likely to be doing prefix
+
鐃緒申��申鐃緒申  ;; adjustments than soliciting, and yet more than numbering.
+
鐃緒申��申鐃緒申  ;; Current prefix is least dominant, but most likely to be commonly
+
鐃緒申��申鐃緒申  ;; specified...
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let* (body
+
鐃緒申��申鐃緒申         numbering
+
鐃緒申��申鐃緒申         denumbering
+
鐃緒申��申鐃緒申         (depth (or depth (outline-depth)))
+
鐃緒申��申鐃緒申         (header-lead outline-header-prefix)
+
鐃緒申��申鐃緒申         (bullet-char
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申          ;; Getting value for bullet char is practically the whole job:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申          (cond
+
鐃緒申��申鐃緒申                                        ; Simplest situation - level 1:
+
鐃緒申��申鐃緒申           ((<= depth 1) (setq header-lead "") outline-primary-bullet)
+
鐃緒申��申鐃緒申                                        ; Simple, too: all asterisks:
+
鐃緒申��申鐃緒申           (outline-old-style-prefixes
+
鐃緒申��申鐃緒申            ;; Cheat - make body the whole thing, null out header-lead and
+
鐃緒申��申鐃緒申            ;; bullet-char:
+
鐃緒申��申鐃緒申            (setq body (make-string depth
+
鐃緒申��申鐃緒申                                    (string-to-char outline-primary-bullet)))
+
鐃緒申��申鐃緒申            (setq header-lead "")
+
鐃緒申��申鐃緒申            "")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申           ;; (Neither level 1 nor old-style, so we're space padding.
+
鐃緒申��申鐃緒申           ;; Sneak it in the condition of the next case, whatever it is.)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申           ;; Solicitation overrides numbering and other cases:
+
鐃緒申��申鐃緒申           ((progn (setq body (make-string (- depth 2) ?\ ))
+
鐃緒申��申鐃緒申                   ;; The actual condition:
+
鐃緒申��申鐃緒申                   solicit)
+
鐃緒申��申鐃緒申            (let* ((got (outline-solicit-alternate-bullet depth solicit)))
+
鐃緒申��申鐃緒申              ;; Gotta check whether we're numbering and got a numbered bullet:
+
鐃緒申��申鐃緒申              (setq numbering (and outline-numbered-bullet
+
鐃緒申��申鐃緒申                                   (not (and number-control (not index)))
+
鐃緒申��申鐃緒申                                   (string= got outline-numbered-bullet)))
+
鐃緒申��申鐃緒申              ;; Now return what we got, regardless:
+
鐃緒申��申鐃緒申              got))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申           ;; Numbering invoked through args:
+
鐃緒申��申鐃緒申           ((and outline-numbered-bullet number-control)
+
鐃緒申��申鐃緒申            (if (setq numbering (not (setq denumbering (not index))))
+
鐃緒申��申鐃緒申                outline-numbered-bullet
+
鐃緒申��申鐃緒申              (if (and prior-bullet
+
鐃緒申��申鐃緒申                       (not (string= outline-numbered-bullet
+
鐃緒申��申鐃緒申                                     prior-bullet)))
+
鐃緒申��申鐃緒申                  prior-bullet
+
鐃緒申��申鐃緒申                (outline-bullet-for-depth depth))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申          ;;; Neither soliciting nor controlled numbering ;;;
+
鐃緒申��申鐃緒申             ;;; (may be controlled denumbering, tho) ;;;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申           ;; Check wrt previous sibling:
+
鐃緒申��申鐃緒申           ((and new				  ; only check for new prefixes
+
鐃緒申��申鐃緒申                 (<= depth (outline-depth))
+
鐃緒申��申鐃緒申                 outline-numbered-bullet	      ; ... & numbering enabled
+
鐃緒申��申鐃緒申                 (not denumbering)
+
鐃緒申��申鐃緒申                 (let ((sibling-bullet
+
鐃緒申��申鐃緒申                        (save-excursion
+
鐃緒申��申鐃緒申                          ;; Locate correct sibling:
+
鐃緒申��申鐃緒申                          (or (>= depth (outline-depth))
+
鐃緒申��申鐃緒申                              (outline-ascend-to-depth depth))
+
鐃緒申��申鐃緒申                          (outline-get-bullet))))
+
鐃緒申��申鐃緒申                   (if (and sibling-bullet
+
鐃緒申��申鐃緒申                            (string= outline-numbered-bullet sibling-bullet))
+
鐃緒申��申鐃緒申                       (setq numbering sibling-bullet)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申           ;; Distinctive prior bullet?
+
鐃緒申��申鐃緒申           ((and prior-bullet
+
鐃緒申��申鐃緒申                 (outline-distinctive-bullet prior-bullet)
+
鐃緒申��申鐃緒申                 ;; Either non-numbered:
+
鐃緒申��申鐃緒申                 (or (not (and outline-numbered-bullet
+
鐃緒申��申鐃緒申                               (string= prior-bullet outline-numbered-bullet)))
+
鐃緒申��申鐃緒申                     ;; or numbered, and not denumbering:
+
鐃緒申��申鐃緒申                     (setq numbering (not denumbering)))
+
鐃緒申��申鐃緒申                 ;; Here 'tis:
+
鐃緒申��申鐃緒申                 prior-bullet))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申           ;; Else, standard bullet per depth:
+
鐃緒申��申鐃緒申           ((outline-bullet-for-depth depth)))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (concat header-lead
+
鐃緒申��申鐃緒申            body
+
鐃緒申��申鐃緒申            bullet-char
+
鐃緒申��申鐃緒申            (if numbering
+
鐃緒申��申鐃緒申                (format "%d" (cond ((and index (numberp index)) index)
+
鐃緒申��申鐃緒申                                   (new (1+ (outline-sibling-index depth)))
+
鐃緒申��申鐃緒申                                   ((outline-sibling-index))))))
+
鐃緒申��申鐃緒申    )
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_   > outline-open-topic (relative-depth &optional before use_sib_bullet)
+
鐃緒申��申鐃緒申(defun outline-open-topic (relative-depth &optional before use_sib_bullet)
+
鐃緒申��申鐃緒申  "Open a new topic at depth DEPTH.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申New topic is situated after current one, unless optional flag BEFORE
+
鐃緒申��申鐃緒申is non-nil, or unless current line is complete empty (not even
+
鐃緒申��申鐃緒申whitespace), in which case open is done on current line.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If USE_SIB_BULLET is true, use the bullet of the prior sibling.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Nuances:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申- Creation of new topics is with respect to the visible topic
+
鐃緒申��申鐃緒申  containing the cursor, regardless of intervening concealed ones.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申- New headers are generally created after/before the body of a
+
鐃緒申��申鐃緒申  topic.  However, they are created right at cursor location if the
+
鐃緒申��申鐃緒申  cursor is on a blank line, even if that breaks the current topic
+
鐃緒申��申鐃緒申  body.  This is intentional, to provide a simple means for
+
鐃緒申��申鐃緒申  deliberately dividing topic bodies.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申- Double spacing of topic lists is preserved.  Also, the first
+
鐃緒申��申鐃緒申  level two topic is created double-spaced (and so would be
+
鐃緒申��申鐃緒申  subsequent siblings, if that's left intact).  Otherwise,
+
鐃緒申��申鐃緒申  single-spacing is used.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申- Creation of sibling or nested topics is with respect to the topic
+
鐃緒申��申鐃緒申  you're starting from, even when creating backwards.  This way you
+
鐃緒申��申鐃緒申  can easily create a sibling in front of the current topic without
+
鐃緒申��申鐃緒申  having to go to its preceding sibling, and then open forward
+
鐃緒申��申鐃緒申  from there."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let* ((depth (+ (outline-current-depth) relative-depth))
+
鐃緒申��申鐃緒申         (opening-on-blank (if (looking-at "^\$")
+
鐃緒申��申鐃緒申                               (not (setq before nil))))
+
鐃緒申��申鐃緒申         opening-numbered	; Will get while computing ref-topic, below
+
鐃緒申��申鐃緒申         ref-depth		; Will get while computing ref-topic, below
+
鐃緒申��申鐃緒申         ref-bullet		; Will get while computing ref-topic, next
+
鐃緒申��申鐃緒申         (ref-topic (save-excursion
+
鐃緒申��申鐃緒申                      (cond ((< relative-depth 0)
+
鐃緒申��申鐃緒申                             (outline-ascend-to-depth depth))
+
鐃緒申��申鐃緒申                            ((>= relative-depth 1) nil)
+
鐃緒申��申鐃緒申                            (t (outline-back-to-current-heading)))
+
鐃緒申��申鐃緒申                      (setq ref-depth (outline-recent-depth))
+
鐃緒申��申鐃緒申                      (setq ref-bullet
+
鐃緒申��申鐃緒申                            (if (> outline-recent-prefix-end 1)
+
鐃緒申��申鐃緒申                                (outline-recent-bullet)
+
鐃緒申��申鐃緒申                              ""))
+
鐃緒申��申鐃緒申                      (setq opening-numbered
+
鐃緒申��申鐃緒申                            (save-excursion
+
鐃緒申��申鐃緒申                              (and outline-numbered-bullet
+
鐃緒申��申鐃緒申                                   (or (<= relative-depth 0)
+
鐃緒申��申鐃緒申                                       (outline-descend-to-depth depth))
+
鐃緒申��申鐃緒申                                   (if (outline-numbered-type-prefix)
+
鐃緒申��申鐃緒申                                       outline-numbered-bullet))))
+
鐃緒申��申鐃緒申                      (point)))
+
鐃緒申��申鐃緒申         dbl-space
+
鐃緒申��申鐃緒申         doing-beginning)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (if (not opening-on-blank)
+
鐃緒申��申鐃緒申                                        ; Positioning and vertical
+
鐃緒申��申鐃緒申                                        ; padding - only if not
+
鐃緒申��申鐃緒申                                        ; opening-on-blank:
+
鐃緒申��申鐃緒申        (progn
+
鐃緒申��申鐃緒申          (goto-char ref-topic)
+
鐃緒申��申鐃緒申          (setq dbl-space               ; Determine double space action:
+
鐃緒申��申鐃緒申                (or (and (<= relative-depth 0)	; not descending;
+
鐃緒申��申鐃緒申                         (save-excursion
+
鐃緒申��申鐃緒申                           ;; at b-o-b or preceded by a blank line?
+
鐃緒申��申鐃緒申                           (or (> 0 (forward-line -1))
+
鐃緒申��申鐃緒申                               (looking-at "^\\s-*$")
+
鐃緒申��申鐃緒申			       (bobp)))
+
鐃緒申��申鐃緒申                         (save-excursion
+
鐃緒申��申鐃緒申                           ;; succeeded by a blank line?
+
鐃緒申��申鐃緒申                           (outline-end-of-current-subtree)
+
鐃緒申��申鐃緒申                           (bolp)))
+
鐃緒申��申鐃緒申                    (and (= ref-depth 1)
+
鐃緒申��申鐃緒申                         (or before
+
鐃緒申��申鐃緒申                             (= depth 1)
+
鐃緒申��申鐃緒申                             (save-excursion
+
鐃緒申��申鐃緒申                               ;; Don't already have following
+
鐃緒申��申鐃緒申                               ;; vertical padding:
+
鐃緒申��申鐃緒申                               (not (outline-pre-next-preface)))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申                                        ; Position to prior heading,
+
鐃緒申��申鐃緒申                                        ; if inserting backwards, and
+
鐃緒申��申鐃緒申					; not going outwards:
+
鐃緒申��申鐃緒申          (if (and before (>= relative-depth 0))
+
鐃緒申��申鐃緒申	      (progn (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申                            (setq doing-beginning (bobp))
+
鐃緒申��申鐃緒申                            (if (not (bobp))
+
鐃緒申��申鐃緒申                                (outline-previous-heading)))
+
鐃緒申��申鐃緒申	    (if (and before (bobp))
+
鐃緒申��申鐃緒申		(outline-unprotected (open-line 1))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申          (if (<= relative-depth 0)
+
鐃緒申��申鐃緒申              ;; Not going inwards, don't snug up:
+
鐃緒申��申鐃緒申              (if doing-beginning
+
鐃緒申��申鐃緒申		  (outline-unprotected (open-line (if dbl-space 2 1)))
+
鐃緒申��申鐃緒申		(if before
+
鐃緒申��申鐃緒申		    (progn (end-of-line)
+
鐃緒申��申鐃緒申			   (outline-pre-next-preface)
+
鐃緒申��申鐃緒申			   (while (= ?\r (following-char))
+
鐃緒申��申鐃緒申                             (forward-char 1))
+
鐃緒申��申鐃緒申			   (if (not (looking-at "^$"))
+
鐃緒申��申鐃緒申			       (outline-unprotected (open-line 1))))
+
鐃緒申��申鐃緒申		  (outline-end-of-current-subtree)))
+
鐃緒申��申鐃緒申            ;; Going inwards - double-space if first offspring is,
+
鐃緒申��申鐃緒申            ;; otherwise snug up.
+
鐃緒申��申鐃緒申            (end-of-line)		; So we skip any concealed progeny.
+
鐃緒申��申鐃緒申            (outline-pre-next-preface)
+
鐃緒申��申鐃緒申            (if (bolp)
+
鐃緒申��申鐃緒申                ;; Blank lines between current header body and next
+
鐃緒申��申鐃緒申                ;; header - get to last substantive (non-white-space)
+
鐃緒申��申鐃緒申                ;; line in body:
+
鐃緒申��申鐃緒申                (re-search-backward "[^ \t\n]" nil t))
+
鐃緒申��申鐃緒申            (if (save-excursion
+
鐃緒申��申鐃緒申                  (outline-next-heading)
+
鐃緒申��申鐃緒申                  (if (> (outline-recent-depth) ref-depth)
+
鐃緒申��申鐃緒申                      ;; This is an offspring.
+
鐃緒申��申鐃緒申                      (progn (forward-line -1)
+
鐃緒申��申鐃緒申                             (looking-at "^\\s-*$"))))
+
鐃緒申��申鐃緒申                (progn (forward-line 1)
+
鐃緒申��申鐃緒申                       (outline-unprotected (open-line 1))))
+
鐃緒申��申鐃緒申            (end-of-line))
+
鐃緒申��申鐃緒申          ;;(if doing-beginning (goto-char doing-beginning))
+
鐃緒申��申鐃緒申          (if (not (bobp))
+
鐃緒申��申鐃緒申              (progn (if (and (not (> depth ref-depth))
+
鐃緒申��申鐃緒申                              (not before))
+
鐃緒申��申鐃緒申                         (outline-unprotected (open-line 1))
+
鐃緒申��申鐃緒申		       (if (> depth ref-depth)
+
鐃緒申��申鐃緒申			   (outline-unprotected (newline 1))
+
鐃緒申��申鐃緒申			 (if dbl-space
+
鐃緒申��申鐃緒申			     (outline-unprotected (open-line 1))
+
鐃緒申��申鐃緒申			   (if (not before)
+
鐃緒申��申鐃緒申			       (outline-unprotected (newline 1))))))
+
鐃緒申��申鐃緒申                     (if dbl-space
+
鐃緒申��申鐃緒申			 (outline-unprotected (newline  1)))
+
鐃緒申��申鐃緒申                     (if (and (not (eobp))
+
鐃緒申��申鐃緒申                              (not (bolp)))
+
鐃緒申��申鐃緒申                         (forward-char 1))))
+
鐃緒申��申鐃緒申          ))
+
鐃緒申��申鐃緒申    (insert-string (concat (outline-make-topic-prefix opening-numbered
+
鐃緒申��申鐃緒申                                                      t
+
鐃緒申��申鐃緒申                                                      depth)
+
鐃緒申��申鐃緒申                           " "))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    ;;(if doing-beginning (save-excursion (newline (if dbl-space 2 1))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (outline-rebullet-heading (and use_sib_bullet ref-bullet);;; solicit
+
鐃緒申��申鐃緒申                              depth			     ;;; depth
+
鐃緒申��申鐃緒申                              nil 			     ;;; number-control
+
鐃緒申��申鐃緒申                              nil			     ;;; index
+
鐃緒申��申鐃緒申                              t)     (end-of-line)
+
鐃緒申��申鐃緒申    )
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_    . open-topic contingencies
+
鐃緒申��申鐃緒申;;;_     ; base topic - one from which open was issued
+
鐃緒申��申鐃緒申;;;_      , beginning char
+
鐃緒申��申鐃緒申;;;_      , amount of space before will be used, unless opening in place
+
鐃緒申��申鐃緒申;;;_      , end char will be used, unless opening before (and it still may)
+
鐃緒申��申鐃緒申;;;_     ; absolute depth of new topic
+
鐃緒申��申鐃緒申;;;_     ! insert in place - overrides most stuff
+
鐃緒申��申鐃緒申;;;_     ; relative depth of new re base
+
鐃緒申��申鐃緒申;;;_     ; before or after base topic
+
鐃緒申��申鐃緒申;;;_     ; spacing around topic, if any, prior to new topic and at same depth
+
鐃緒申��申鐃緒申;;;_     ; buffer boundaries - special provisions for beginning and end ob
+
鐃緒申��申鐃緒申;;;_     ; level 1 topics have special provisions also - double space.
+
鐃緒申��申鐃緒申;;;_     ; location of new topic
+
鐃緒申��申鐃緒申;;;_   > outline-open-subtopic (arg)
+
鐃緒申��申鐃緒申(defun outline-open-subtopic (arg)
+
鐃緒申��申鐃緒申  "Open new topic header at deeper level than the current one.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Negative universal arg means to open deeper, but place the new topic
+
鐃緒申��申鐃緒申prior to the current one."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (outline-open-topic 1 (> 0 arg)))
+
鐃緒申��申鐃緒申;;;_   > outline-open-sibtopic (arg)
+
鐃緒申��申鐃緒申(defun outline-open-sibtopic (arg)
+
鐃緒申��申鐃緒申  "Open new topic header at same level as the current one.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Positive universal arg means to use the bullet of the prior sibling.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Negative universal arg means to place the new topic prior to the current
+
鐃緒申��申鐃緒申one."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (outline-open-topic 0 (> 0 arg) (< 1 arg)))
+
鐃緒申��申鐃緒申;;;_   > outline-open-supertopic (arg)
+
鐃緒申��申鐃緒申(defun outline-open-supertopic (arg)
+
鐃緒申��申鐃緒申  "Open new topic header at shallower level than the current one.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Negative universal arg means to open shallower, but place the new
+
鐃緒申��申鐃緒申topic prior to the current one."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (outline-open-topic -1 (> 0 arg)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Outline Alteration
+
鐃緒申��申鐃緒申;;;_   : Topic Modification
+
鐃緒申��申鐃緒申;;;_    = outline-former-auto-filler
+
鐃緒申��申鐃緒申(defvar outline-former-auto-filler nil
+
鐃緒申��申鐃緒申  "Name of modal fill function being wrapped by outline-auto-fill.")
+
鐃緒申��申鐃緒申;;;_    > outline-auto-fill ()
+
鐃緒申��申鐃緒申(defun outline-auto-fill ()
+
鐃緒申��申鐃緒申  "Outline-mode autofill function.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Maintains outline hanging topic indentation if
+
鐃緒申��申鐃緒申`outline-use-hanging-indents' is set."
+
鐃緒申��申鐃緒申  (let ((fill-prefix (if outline-use-hanging-indents
+
鐃緒申��申鐃緒申                         ;; Check for topic header indentation:
+
鐃緒申��申鐃緒申                         (save-excursion
+
鐃緒申��申鐃緒申                           (beginning-of-line)
+
鐃緒申��申鐃緒申                           (if (looking-at outline-regexp)
+
鐃緒申��申鐃緒申                               ;; ... construct indentation to account for
+
鐃緒申��申鐃緒申                               ;; length of topic prefix:
+
鐃緒申��申鐃緒申                               (make-string (progn (outline-end-of-prefix)
+
鐃緒申��申鐃緒申                                                   (current-column))
+
鐃緒申��申鐃緒申                                            ?\ ))))))
+
鐃緒申��申鐃緒申    (if (or outline-former-auto-filler outline-use-hanging-indents)
+
鐃緒申��申鐃緒申        (do-auto-fill))))
+
鐃緒申��申鐃緒申;;;_    > outline-reindent-body (old-depth new-depth &optional number)
+
鐃緒申��申鐃緒申(defun outline-reindent-body (old-depth new-depth &optional number)
+
鐃緒申��申鐃緒申  "Reindent body lines which were indented at old-depth to new-depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional arg NUMBER indicates numbering is being added, and it must
+
鐃緒申��申鐃緒申be accommodated.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Note that refill of indented paragraphs is not done."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (outline-end-of-prefix)
+
鐃緒申��申鐃緒申    (let* ((new-margin (current-column))
+
鐃緒申��申鐃緒申	   excess old-indent-begin old-indent-end
+
鐃緒申��申鐃緒申	   curr-ind
+
鐃緒申��申鐃緒申	   ;; We want the column where the header-prefix text started
+
鐃緒申��申鐃緒申	   ;; *before* the prefix was changed, so we infer it relative
+
鐃緒申��申鐃緒申	   ;; to the new margin and the shift in depth:
+
鐃緒申��申鐃緒申	   (old-margin (+ old-depth (- new-margin new-depth))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      ;; Process lines up to (but excluding) next topic header:
+
鐃緒申��申鐃緒申      (outline-unprotected
+
鐃緒申��申鐃緒申       (save-match-data
+
鐃緒申��申鐃緒申         (while
+
鐃緒申��申鐃緒申	     (and (re-search-forward "[\n\r]\\(\\s-*\\)"
+
鐃緒申��申鐃緒申				     nil
+
鐃緒申��申鐃緒申				     t)
+
鐃緒申��申鐃緒申		  ;; Register the indent data, before we reset the
+
鐃緒申��申鐃緒申		  ;; match data with a subsequent `looking-at':
+
鐃緒申��申鐃緒申		  (setq old-indent-begin (match-beginning 1)
+
鐃緒申��申鐃緒申			old-indent-end (match-end 1))
+
鐃緒申��申鐃緒申		  (not (looking-at outline-regexp)))
+
鐃緒申��申鐃緒申	   (if (> 0 (setq excess (- (current-column)
+
鐃緒申��申鐃緒申				     old-margin)))
+
鐃緒申��申鐃緒申	       ;; Text starts left of old margin - don't adjust:
+
鐃緒申��申鐃緒申	       nil
+
鐃緒申��申鐃緒申	     ;; Text was hanging at or right of old left margin -
+
鐃緒申��申鐃緒申	     ;; reindent it, preserving its existing indentation
+
鐃緒申��申鐃緒申	     ;; beyond the old margin:
+
鐃緒申��申鐃緒申	     (delete-region old-indent-begin old-indent-end)
+
鐃緒申��申鐃緒申	     (indent-to (+ new-margin excess)))))))))
+
鐃緒申��申鐃緒申;;;_    > outline-rebullet-current-heading (arg)
+
鐃緒申��申鐃緒申(defun outline-rebullet-current-heading (arg)
+
鐃緒申��申鐃緒申  "Solicit new bullet for current visible heading."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (let ((initial-col (current-column))
+
鐃緒申��申鐃緒申	(on-bullet (eq (point)(outline-current-bullet-pos)))
+
鐃緒申��申鐃緒申	(backwards (if (< arg 0)
+
鐃緒申��申鐃緒申		       (setq arg (* arg -1)))))
+
鐃緒申��申鐃緒申    (while (> arg 0)
+
鐃緒申��申鐃緒申      (save-excursion (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申		      (outline-end-of-prefix)
+
鐃緒申��申鐃緒申		      (outline-rebullet-heading t	;;; solicit
+
鐃緒申��申鐃緒申						nil	;;; depth
+
鐃緒申��申鐃緒申						nil	;;; number-control
+
鐃緒申��申鐃緒申						nil	;;; index
+
鐃緒申��申鐃緒申						t))	;;; do-successors
+
鐃緒申��申鐃緒申      (setq arg (1- arg))
+
鐃緒申��申鐃緒申      (if (<= arg 0)
+
鐃緒申��申鐃緒申	  nil
+
鐃緒申��申鐃緒申	(setq initial-col nil)		; Override positioning back to init col
+
鐃緒申��申鐃緒申	(if (not backwards)
+
鐃緒申��申鐃緒申	    (outline-next-visible-heading 1)
+
鐃緒申��申鐃緒申	  (outline-goto-prefix)
+
鐃緒申��申鐃緒申	  (outline-next-visible-heading -1))))
+
鐃緒申��申鐃緒申    (message "Done.")
+
鐃緒申��申鐃緒申    (cond (on-bullet (goto-char (outline-current-bullet-pos)))
+
鐃緒申��申鐃緒申	  (initial-col (move-to-column initial-col)))))
+
鐃緒申��申鐃緒申;;;_    > outline-rebullet-heading (&optional solicit ...)
+
鐃緒申��申鐃緒申(defun outline-rebullet-heading (&optional solicit
+
鐃緒申��申鐃緒申                                           new-depth
+
鐃緒申��申鐃緒申                                           number-control
+
鐃緒申��申鐃緒申                                           index
+
鐃緒申��申鐃緒申                                           do-successors)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Adjust bullet of current topic prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申All args are optional.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If SOLICIT is non-nil, then the choice of bullet is solicited from
+
鐃緒申��申鐃緒申user.  If it's a character, then that character is offered as the
+
鐃緒申��申鐃緒申default, otherwise the one suited to the context \(according to
+
鐃緒申��申鐃緒申distinction or depth) is offered.  If non-nil, then the
+
鐃緒申��申鐃緒申context-specific bullet is just used.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Second arg DEPTH forces the topic prefix to that depth, regardless
+
鐃緒申��申鐃緒申of the topic's current depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Third arg NUMBER-CONTROL can force the prefix to or away from
+
鐃緒申��申鐃緒申numbered form.  It has effect only if `outline-numbered-bullet' is
+
鐃緒申��申鐃緒申non-nil and soliciting was not explicitly invoked (via first arg).
+
鐃緒申��申鐃緒申Its effect, numbering or denumbering, then depends on the setting
+
鐃緒申��申鐃緒申of the forth arg, INDEX.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If NUMBER-CONTROL is non-nil and forth arg INDEX is nil, then the
+
鐃緒申��申鐃緒申prefix of the topic is forced to be non-numbered.  Null index and
+
鐃緒申��申鐃緒申non-nil NUMBER-CONTROL forces denumbering.  Non-nil INDEX (and
+
鐃緒申��申鐃緒申non-nil NUMBER-CONTROL) forces a numbered-prefix form.  If non-nil
+
鐃緒申��申鐃緒申INDEX is a number, then that number is used for the numbered
+
鐃緒申��申鐃緒申prefix.  Non-nil and non-number means that the index for the
+
鐃緒申��申鐃緒申numbered prefix will be derived by outline-make-topic-prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Fifth arg DO-SUCCESSORS t means re-resolve count on succeeding
+
鐃緒申��申鐃緒申siblings.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Cf vars `outline-stylish-prefixes', `outline-old-style-prefixes',
+
鐃緒申��申鐃緒申and `outline-numbered-bullet', which all affect the behavior of
+
鐃緒申��申鐃緒申this function."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let* ((current-depth (outline-depth))
+
鐃緒申��申鐃緒申         (new-depth (or new-depth current-depth))
+
鐃緒申��申鐃緒申         (mb outline-recent-prefix-beginning)
+
鐃緒申��申鐃緒申         (me outline-recent-prefix-end)
+
鐃緒申��申鐃緒申         (current-bullet (buffer-substring (- me 1) me))
+
鐃緒申��申鐃緒申         (new-prefix (outline-make-topic-prefix current-bullet
+
鐃緒申��申鐃緒申                                                nil
+
鐃緒申��申鐃緒申                                                new-depth
+
鐃緒申��申鐃緒申                                                solicit
+
鐃緒申��申鐃緒申                                                number-control
+
鐃緒申��申鐃緒申                                                index)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    ;; Is new one is identical to old?
+
鐃緒申��申鐃緒申    (if (and (= current-depth new-depth)
+
鐃緒申��申鐃緒申             (string= current-bullet
+
鐃緒申��申鐃緒申                      (substring new-prefix (1- (length new-prefix)))))
+
鐃緒申��申鐃緒申	;; Nothing to do:
+
鐃緒申��申鐃緒申        t
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      ;; New prefix probably different from old:
+
鐃緒申��申鐃緒申					; get rid of old one:
+
鐃緒申��申鐃緒申      (outline-unprotected (delete-region mb me))
+
鐃緒申��申鐃緒申      (goto-char mb)
+
鐃緒申��申鐃緒申					; Dispense with number if
+
鐃緒申��申鐃緒申					; numbered-bullet prefix:
+
鐃緒申��申鐃緒申      (if (and outline-numbered-bullet
+
鐃緒申��申鐃緒申               (string= outline-numbered-bullet current-bullet)
+
鐃緒申��申鐃緒申               (looking-at "[0-9]+"))
+
鐃緒申��申鐃緒申	  (outline-unprotected
+
鐃緒申��申鐃緒申	   (delete-region (match-beginning 0)(match-end 0))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申					; Put in new prefix:
+
鐃緒申��申鐃緒申      (outline-unprotected (insert-string new-prefix))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      ;; Reindent the body if elected and margin changed:
+
鐃緒申��申鐃緒申      (if (and outline-reindent-bodies
+
鐃緒申��申鐃緒申	       (not (= new-depth current-depth)))
+
鐃緒申��申鐃緒申	  (outline-reindent-body current-depth new-depth))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      ;; Recursively rectify successive siblings of orig topic if
+
鐃緒申��申鐃緒申      ;; caller elected for it:
+
鐃緒申��申鐃緒申      (if do-successors
+
鐃緒申��申鐃緒申	  (save-excursion
+
鐃緒申��申鐃緒申	    (while (outline-next-sibling new-depth nil)
+
鐃緒申��申鐃緒申	      (setq index
+
鐃緒申��申鐃緒申		    (cond ((numberp index) (1+ index))
+
鐃緒申��申鐃緒申			  ((not number-control)  (outline-sibling-index))))
+
鐃緒申��申鐃緒申	      (if (outline-numbered-type-prefix)
+
鐃緒申��申鐃緒申		  (outline-rebullet-heading nil		;;; solicit
+
鐃緒申��申鐃緒申					    new-depth	;;; new-depth
+
鐃緒申��申鐃緒申					    number-control;;; number-control
+
鐃緒申��申鐃緒申					    index	;;; index
+
鐃緒申��申鐃緒申					    nil)))))	;;;(dont!)do-successors
+
鐃緒申��申鐃緒申      )	; (if (and (= current-depth new-depth)...))
+
鐃緒申��申鐃緒申    ) ; let* ((current-depth (outline-depth))...)
+
鐃緒申��申鐃緒申  ) ; defun
+
鐃緒申��申鐃緒申;;;_    > outline-rebullet-topic (arg)
+
鐃緒申��申鐃緒申(defun outline-rebullet-topic (arg)
+
鐃緒申��申鐃緒申  "Like outline-rebullet-topic-grunt, but start from topic visible at point.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Descends into invisible as well as visible topics, however.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With repeat count, shift topic depth by that amount."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (let ((start-col (current-column))
+
鐃緒申��申鐃緒申        (was-eol (eolp)))
+
鐃緒申��申鐃緒申    (save-excursion
+
鐃緒申��申鐃緒申      ;; Normalize arg:
+
鐃緒申��申鐃緒申      (cond ((null arg) (setq arg 0))
+
鐃緒申��申鐃緒申            ((listp arg) (setq arg (car arg))))
+
鐃緒申��申鐃緒申      ;; Fill the user in, in case we're shifting a big topic:
+
鐃緒申��申鐃緒申      (if (not (zerop arg)) (message "Shifting..."))
+
鐃緒申��申鐃緒申      (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申      (if (<= (+ (outline-recent-depth) arg) 0)
+
鐃緒申��申鐃緒申          (error "Attempt to shift topic below level 1"))
+
鐃緒申��申鐃緒申      (outline-rebullet-topic-grunt arg)
+
鐃緒申��申鐃緒申      (if (not (zerop arg)) (message "Shifting... done.")))
+
鐃緒申��申鐃緒申    (move-to-column (max 0 (+ start-col arg)))))
+
鐃緒申��申鐃緒申;;;_     > outline-rebullet-topic-grunt (&optional relative-depth ...)
+
鐃緒申��申鐃緒申(defun outline-rebullet-topic-grunt (&optional relative-depth
+
鐃緒申��申鐃緒申                                               starting-depth
+
鐃緒申��申鐃緒申                                               starting-point
+
鐃緒申��申鐃緒申                                               index
+
鐃緒申��申鐃緒申                                               do-successors)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Rebullet the topic at point, visible or invisible, and all
+
鐃緒申��申鐃緒申contained subtopics.  See outline-rebullet-heading for rebulleting
+
鐃緒申��申鐃緒申behavior.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申All arguments are optional.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申First arg RELATIVE-DEPTH means to shift the depth of the entire
+
鐃緒申��申鐃緒申topic that amount.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The rest of the args are for internal recursive use by the function
+
鐃緒申��申鐃緒申itself.  The are STARTING-DEPTH, STARTING-POINT, and INDEX."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let* ((relative-depth (or relative-depth 0))
+
鐃緒申��申鐃緒申         (new-depth (outline-depth))
+
鐃緒申��申鐃緒申         (starting-depth (or starting-depth new-depth))
+
鐃緒申��申鐃緒申         (on-starting-call  (null starting-point))
+
鐃緒申��申鐃緒申         (index (or index
+
鐃緒申��申鐃緒申                    ;; Leave index null on starting call, so rebullet-heading
+
鐃緒申��申鐃緒申                    ;; calculates it at what might be new depth:
+
鐃緒申��申鐃緒申                    (and (or (zerop relative-depth)
+
鐃緒申��申鐃緒申                             (not on-starting-call))
+
鐃緒申��申鐃緒申                         (outline-sibling-index))))
+
鐃緒申��申鐃緒申         (moving-outwards (< 0 relative-depth))
+
鐃緒申��申鐃緒申         (starting-point (or starting-point (point))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    ;; Sanity check for excessive promotion done only on starting call:
+
鐃緒申��申鐃緒申    (and on-starting-call
+
鐃緒申��申鐃緒申         moving-outwards
+
鐃緒申��申鐃緒申         (> 0 (+ starting-depth relative-depth))
+
鐃緒申��申鐃緒申         (error "Attempt to shift topic out beyond level 1."))	;;; ====>
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (cond ((= starting-depth new-depth)
+
鐃緒申��申鐃緒申           ;; We're at depth to work on this one:
+
鐃緒申��申鐃緒申           (outline-rebullet-heading nil		;;; solicit
+
鐃緒申��申鐃緒申                                     (+ starting-depth	;;; starting-depth
+
鐃緒申��申鐃緒申                                        relative-depth)
+
鐃緒申��申鐃緒申                                     nil		;;; number
+
鐃緒申��申鐃緒申                                     index		;;; index
+
鐃緒申��申鐃緒申                                     ;; Every contained topic will get hit,
+
鐃緒申��申鐃緒申                                     ;; and we have to get to outside ones
+
鐃緒申��申鐃緒申                                     ;; deliberately:
+
鐃緒申��申鐃緒申                                     nil)		;;; do-successors
+
鐃緒申��申鐃緒申           ;; ... and work on subsequent ones which are at greater depth:
+
鐃緒申��申鐃緒申           (setq index 0)
+
鐃緒申��申鐃緒申           (outline-next-heading)
+
鐃緒申��申鐃緒申           (while (and (not (eobp))
+
鐃緒申��申鐃緒申                       (< starting-depth (outline-recent-depth)))
+
鐃緒申��申鐃緒申             (setq index (1+ index))
+
鐃緒申��申鐃緒申             (outline-rebullet-topic-grunt relative-depth   ;;; relative-depth
+
鐃緒申��申鐃緒申                                           (1+ starting-depth);;;starting-depth
+
鐃緒申��申鐃緒申                                           starting-point   ;;; starting-point
+
鐃緒申��申鐃緒申                                           index)))	    ;;; index
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申          ((< starting-depth new-depth)
+
鐃緒申��申鐃緒申           ;; Rare case - subtopic more than one level deeper than parent.
+
鐃緒申��申鐃緒申           ;; Treat this one at an even deeper level:
+
鐃緒申��申鐃緒申           (outline-rebullet-topic-grunt relative-depth   ;;; relative-depth
+
鐃緒申��申鐃緒申                                         new-depth	  ;;; starting-depth
+
鐃緒申��申鐃緒申                                         starting-point	  ;;; starting-point
+
鐃緒申��申鐃緒申                                         index)))	  ;;; index
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (if on-starting-call
+
鐃緒申��申鐃緒申        (progn
+
鐃緒申��申鐃緒申          ;; Rectify numbering of former siblings of the adjusted topic,
+
鐃緒申��申鐃緒申          ;; if topic has changed depth
+
鐃緒申��申鐃緒申          (if (or do-successors
+
鐃緒申��申鐃緒申                  (and (not (zerop relative-depth))
+
鐃緒申��申鐃緒申                       (or (= (outline-recent-depth) starting-depth)
+
鐃緒申��申鐃緒申                           (= (outline-recent-depth) (+ starting-depth
+
鐃緒申��申鐃緒申                                                        relative-depth)))))
+
鐃緒申��申鐃緒申              (outline-rebullet-heading nil nil nil nil t))
+
鐃緒申��申鐃緒申          ;; Now rectify numbering of new siblings of the adjusted topic,
+
鐃緒申��申鐃緒申          ;; if depth has been changed:
+
鐃緒申��申鐃緒申          (progn (goto-char starting-point)
+
鐃緒申��申鐃緒申                 (if (not (zerop relative-depth))
+
鐃緒申��申鐃緒申                     (outline-rebullet-heading nil nil nil nil t)))))
+
鐃緒申��申鐃緒申    )
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_    > outline-renumber-to-depth (&optional depth)
+
鐃緒申��申鐃緒申(defun outline-renumber-to-depth (&optional depth)
+
鐃緒申��申鐃緒申  "Renumber siblings at current depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Affects superior topics if optional arg DEPTH is less than current depth.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Returns final depth."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  ;; Proceed by level, processing subsequent siblings on each,
+
鐃緒申��申鐃緒申  ;; ascending until we get shallower than the start depth:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let ((ascender (outline-depth))
+
鐃緒申��申鐃緒申	was-eobp)
+
鐃緒申��申鐃緒申    (while (and (not (eobp))
+
鐃緒申��申鐃緒申		(outline-depth)
+
鐃緒申��申鐃緒申                (>= (outline-recent-depth) depth)
+
鐃緒申��申鐃緒申                (>= ascender depth))
+
鐃緒申��申鐃緒申                                        ; Skip over all topics at
+
鐃緒申��申鐃緒申                                        ; lesser depths, which can not
+
鐃緒申��申鐃緒申                                        ; have been disturbed:
+
鐃緒申��申鐃緒申      (while (and (not (setq was-eobp (eobp)))
+
鐃緒申��申鐃緒申		  (> (outline-recent-depth) ascender))
+
鐃緒申��申鐃緒申        (outline-next-heading))
+
鐃緒申��申鐃緒申                                        ; Prime ascender for ascension:
+
鐃緒申��申鐃緒申      (setq ascender (1- (outline-recent-depth)))
+
鐃緒申��申鐃緒申      (if (>= (outline-recent-depth) depth)
+
鐃緒申��申鐃緒申          (outline-rebullet-heading nil	;;; solicit
+
鐃緒申��申鐃緒申                                    nil	;;; depth
+
鐃緒申��申鐃緒申                                    nil	;;; number-control
+
鐃緒申��申鐃緒申                                    nil	;;; index
+
鐃緒申��申鐃緒申                                    t)) ;;; do-successors
+
鐃緒申��申鐃緒申      (if was-eobp (goto-char (point-max)))))
+
鐃緒申��申鐃緒申  (outline-recent-depth))
+
鐃緒申��申鐃緒申;;;_    > outline-number-siblings (&optional denumber)
+
鐃緒申��申鐃緒申(defun outline-number-siblings (&optional denumber)
+
鐃緒申��申鐃緒申  "Assign numbered topic prefix to this topic and its siblings.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With universal argument, denumber - assign default bullet to this
+
鐃緒申��申鐃緒申topic and its siblings.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With repeated universal argument (`^U^U'), solicit bullet for each
+
鐃緒申��申鐃緒申rebulleting each topic at this level."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申    (outline-beginning-of-level)
+
鐃緒申��申鐃緒申    (let ((depth (outline-recent-depth))
+
鐃緒申��申鐃緒申	  (index (if (not denumber) 1))
+
鐃緒申��申鐃緒申          (use-bullet (equal '(16) denumber))
+
鐃緒申��申鐃緒申          (more t))
+
鐃緒申��申鐃緒申      (while more
+
鐃緒申��申鐃緒申        (outline-rebullet-heading use-bullet		;;; solicit
+
鐃緒申��申鐃緒申                                  depth			;;; depth
+
鐃緒申��申鐃緒申                                  t			;;; number-control
+
鐃緒申��申鐃緒申                                  index			;;; index
+
鐃緒申��申鐃緒申                                  nil)			;;; do-successors
+
鐃緒申��申鐃緒申        (if index (setq index (1+ index)))
+
鐃緒申��申鐃緒申        (setq more (outline-next-sibling depth nil))))))
+
鐃緒申��申鐃緒申;;;_    > outline-shift-in (arg)
+
鐃緒申��申鐃緒申(defun outline-shift-in (arg)
+
鐃緒申��申鐃緒申  "Increase depth of current heading and any topics collapsed within it."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (outline-rebullet-topic arg))
+
鐃緒申��申鐃緒申;;;_    > outline-shift-out (arg)
+
鐃緒申��申鐃緒申(defun outline-shift-out (arg)
+
鐃緒申��申鐃緒申  "Decrease depth of current heading and any topics collapsed within it."
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (outline-rebullet-topic (* arg -1)))
+
鐃緒申��申鐃緒申;;;_   : Surgery (kill-ring) functions with special provisions for outlines:
+
鐃緒申��申鐃緒申;;;_    > outline-kill-line (&optional arg)
+
鐃緒申��申鐃緒申(defun outline-kill-line (&optional arg)
+
鐃緒申��申鐃緒申  "Kill line, adjusting subsequent lines suitably for outline mode."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "*P")
+
鐃緒申��申鐃緒申  (if (not (and (outline-mode-p)		; active outline mode,
+
鐃緒申��申鐃緒申		outline-numbered-bullet		; numbers may need adjustment,
+
鐃緒申��申鐃緒申		(bolp)				; may be clipping topic head,
+
鐃緒申��申鐃緒申		(looking-at outline-regexp)))	; are clipping topic head.
+
鐃緒申��申鐃緒申      ;; Above conditions do not obtain - just do a regular kill:
+
鐃緒申��申鐃緒申      (kill-line arg)
+
鐃緒申��申鐃緒申    ;; Ah, have to watch out for adjustments:
+
鐃緒申��申鐃緒申    (let* ((depth (outline-depth)))
+
鐃緒申��申鐃緒申                                        ; Do the kill:
+
鐃緒申��申鐃緒申      (kill-line arg)
+
鐃緒申��申鐃緒申                                        ; Provide some feedback:
+
鐃緒申��申鐃緒申      (sit-for 0)
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申                                        ; Start with the topic
+
鐃緒申��申鐃緒申                                        ; following killed line:
+
鐃緒申��申鐃緒申        (if (not (looking-at outline-regexp))
+
鐃緒申��申鐃緒申            (outline-next-heading))
+
鐃緒申��申鐃緒申        (outline-renumber-to-depth depth)))))
+
鐃緒申��申鐃緒申;;;_    > outline-kill-topic ()
+
鐃緒申��申鐃緒申(defun outline-kill-topic ()
+
鐃緒申��申鐃緒申  "Kill topic together with subtopics.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Leaves primary topic's trailing vertical whitespace, if any."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  ;; Some finagling is done to make complex topic kills appear faster
+
鐃緒申��申鐃緒申  ;; than they actually are.  A redisplay is performed immediately
+
鐃緒申��申鐃緒申  ;; after the region is disposed of, though the renumbering process
+
鐃緒申��申鐃緒申  ;; has yet to be performed.  This means that there may appear to be
+
鐃緒申��申鐃緒申  ;; a lag *after* the kill has been performed.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (let* ((beg (prog1 (outline-back-to-current-heading)(beginning-of-line)))
+
鐃緒申��申鐃緒申         (depth (outline-recent-depth)))
+
鐃緒申��申鐃緒申    (outline-end-of-current-subtree)
+
鐃緒申��申鐃緒申    (if (not (eobp))
+
鐃緒申��申鐃緒申	(if (or (not (looking-at "^$"))
+
鐃緒申��申鐃緒申		;; A blank line - cut it with this topic *unless* this
+
鐃緒申��申鐃緒申		;; is the last topic at this level, in which case
+
鐃緒申��申鐃緒申		;; we'll leave the blank line as part of the
+
鐃緒申��申鐃緒申		;; containing topic:
+
鐃緒申��申鐃緒申		(save-excursion
+
鐃緒申��申鐃緒申		  (and (outline-next-heading)
+
鐃緒申��申鐃緒申		       (>= (outline-recent-depth) depth))))
+
鐃緒申��申鐃緒申	    (forward-char 1)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (kill-region beg (point))
+
鐃緒申��申鐃緒申    (sit-for 0)
+
鐃緒申��申鐃緒申    (save-excursion
+
鐃緒申��申鐃緒申      (outline-renumber-to-depth depth))))
+
鐃緒申��申鐃緒申;;;_    > outline-yank-processing ()
+
鐃緒申��申鐃緒申(defun outline-yank-processing (&optional arg)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Incidental outline-specific business to be done just after text yanks.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Does depth adjustment of yanked topics, when:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申1 the stuff being yanked starts with a valid outline header prefix, and
+
鐃緒申��申鐃緒申2 it is being yanked at the end of a line which consists of only a valid
+
鐃緒申��申鐃緒申     topic prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Also, adjusts numbering of subsequent siblings when appropriate.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Depth adjustment alters the depth of all the topics being yanked
+
鐃緒申��申鐃緒申the amount it takes to make the first topic have the depth of the
+
鐃緒申��申鐃緒申header into which it's being yanked.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The point is left in front of yanked, adjusted topics, rather than
+
鐃緒申��申鐃緒申at the end (and vice-versa with the mark).  Non-adjusted yanks,
+
鐃緒申��申鐃緒申however, are left exactly like normal, non-outline-specific yanks."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "*P")
+
鐃緒申��申鐃緒申					; Get to beginning, leaving
+
鐃緒申��申鐃緒申					; region around subject:
+
鐃緒申��申鐃緒申  (if (< (my-mark-marker t) (point))
+
鐃緒申��申鐃緒申      (exchange-point-and-mark))
+
鐃緒申��申鐃緒申  (let* ((subj-beg (point))
+
鐃緒申��申鐃緒申	 (subj-end (my-mark-marker t))
+
鐃緒申��申鐃緒申	 ;; 'resituate' if yanking an entire topic into topic header:
+
鐃緒申��申鐃緒申	 (resituate (and (outline-e-o-prefix-p)
+
鐃緒申��申鐃緒申			 (looking-at (concat "\\(" outline-regexp "\\)"))
+
鐃緒申��申鐃緒申			 (outline-prefix-data (match-beginning 1)
+
鐃緒申��申鐃緒申					      (match-end 1))))
+
鐃緒申��申鐃緒申	 ;; `rectify-numbering' if resituating (where several topics may
+
鐃緒申��申鐃緒申	 ;; be resituating) or yanking a topic into a topic slot (bol):
+
鐃緒申��申鐃緒申	 (rectify-numbering (or resituate
+
鐃緒申��申鐃緒申				(and (bolp) (looking-at outline-regexp)))))
+
鐃緒申��申鐃緒申    (if resituate
+
鐃緒申��申鐃緒申                                        ; The yanked stuff is a topic:
+
鐃緒申��申鐃緒申	(let* ((prefix-len (- (match-end 1) subj-beg))
+
鐃緒申��申鐃緒申	       (subj-depth (outline-recent-depth))
+
鐃緒申��申鐃緒申	       (prefix-bullet (outline-recent-bullet))
+
鐃緒申��申鐃緒申	       (adjust-to-depth
+
鐃緒申��申鐃緒申		;; Nil if adjustment unnecessary, otherwise depth to which
+
鐃緒申��申鐃緒申		;; adjustment should be made:
+
鐃緒申��申鐃緒申		(save-excursion
+
鐃緒申��申鐃緒申		  (and (goto-char subj-end)
+
鐃緒申��申鐃緒申		       (eolp)
+
鐃緒申��申鐃緒申		       (goto-char subj-beg)
+
鐃緒申��申鐃緒申		       (and (looking-at outline-regexp)
+
鐃緒申��申鐃緒申			    (progn
+
鐃緒申��申鐃緒申			      (beginning-of-line)
+
鐃緒申��申鐃緒申			      (not (= (point) subj-beg)))
+
鐃緒申��申鐃緒申			    (looking-at outline-regexp)
+
鐃緒申��申鐃緒申			    (outline-prefix-data (match-beginning 0)
+
鐃緒申��申鐃緒申						 (match-end 0)))
+
鐃緒申��申鐃緒申		       (outline-recent-depth))))
+
鐃緒申��申鐃緒申	       done
+
鐃緒申��申鐃緒申	       (more t))
+
鐃緒申��申鐃緒申	  (setq rectify-numbering outline-numbered-bullet)
+
鐃緒申��申鐃緒申	  (if adjust-to-depth
+
鐃緒申��申鐃緒申                                        ; Do the adjustment:
+
鐃緒申��申鐃緒申	      (progn
+
鐃緒申��申鐃緒申		(message "... yanking") (sit-for 0)
+
鐃緒申��申鐃緒申		(save-restriction
+
鐃緒申��申鐃緒申		  (narrow-to-region subj-beg subj-end)
+
鐃緒申��申鐃緒申                                        ; Trim off excessive blank
+
鐃緒申��申鐃緒申                                        ; line at end, if any:
+
鐃緒申��申鐃緒申		  (goto-char (point-max))
+
鐃緒申��申鐃緒申		  (if (looking-at "^$")
+
鐃緒申��申鐃緒申		      (outline-unprotected (delete-char -1)))
+
鐃緒申��申鐃緒申                                        ; Work backwards, with each
+
鐃緒申��申鐃緒申                                        ; shallowest level,
+
鐃緒申��申鐃緒申                                        ; successively excluding the
+
鐃緒申��申鐃緒申                                        ; last processed topic from
+
鐃緒申��申鐃緒申                                        ; the narrow region:
+
鐃緒申��申鐃緒申		  (while more
+
鐃緒申��申鐃緒申		    (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申                                        ; go as high as we can in each bunch:
+
鐃緒申��申鐃緒申		    (while (outline-ascend-to-depth (1- (outline-depth))))
+
鐃緒申��申鐃緒申		    (save-excursion
+
鐃緒申��申鐃緒申		      (outline-rebullet-topic-grunt (- adjust-to-depth
+
鐃緒申��申鐃緒申						       subj-depth))
+
鐃緒申��申鐃緒申		      (outline-depth))
+
鐃緒申��申鐃緒申		    (if (setq more (not (bobp)))
+
鐃緒申��申鐃緒申			(progn (widen)
+
鐃緒申��申鐃緒申			       (forward-char -1)
+
鐃緒申��申鐃緒申			       (narrow-to-region subj-beg (point))))))
+
鐃緒申��申鐃緒申		(message "")
+
鐃緒申��申鐃緒申		;; Preserve new bullet if it's a distinctive one, otherwise
+
鐃緒申��申鐃緒申		;; use old one:
+
鐃緒申��申鐃緒申		(if (string-match (regexp-quote prefix-bullet)
+
鐃緒申��申鐃緒申				  outline-distinctive-bullets-string)
+
鐃緒申��申鐃緒申                                        ; Delete from bullet of old to
+
鐃緒申��申鐃緒申                                        ; before bullet of new:
+
鐃緒申��申鐃緒申		    (progn
+
鐃緒申��申鐃緒申		      (beginning-of-line)
+
鐃緒申��申鐃緒申		      (delete-region (point) subj-beg)
+
鐃緒申��申鐃緒申		      (set-marker (my-mark-marker t) subj-end)
+
鐃緒申��申鐃緒申		      (goto-char subj-beg)
+
鐃緒申��申鐃緒申		      (outline-end-of-prefix))
+
鐃緒申��申鐃緒申                                        ; Delete base subj prefix,
+
鐃緒申��申鐃緒申                                        ; leaving old one:
+
鐃緒申��申鐃緒申		  (delete-region (point) (+ (point)
+
鐃緒申��申鐃緒申					    prefix-len
+
鐃緒申��申鐃緒申					    (- adjust-to-depth subj-depth)))
+
鐃緒申��申鐃緒申                                        ; and delete residual subj
+
鐃緒申��申鐃緒申                                        ; prefix digits and space:
+
鐃緒申��申鐃緒申		  (while (looking-at "[0-9]") (delete-char 1))
+
鐃緒申��申鐃緒申		  (if (looking-at " ") (delete-char 1))))
+
鐃緒申��申鐃緒申	    (exchange-point-and-mark))))
+
鐃緒申��申鐃緒申    (if rectify-numbering
+
鐃緒申��申鐃緒申	(progn
+
鐃緒申��申鐃緒申	  (save-excursion
+
鐃緒申��申鐃緒申                                        ; Give some preliminary feedback:
+
鐃緒申��申鐃緒申	    (message "... reconciling numbers") (sit-for 0)
+
鐃緒申��申鐃緒申                                        ; ... and renumber, in case necessary:
+
鐃緒申��申鐃緒申	    (goto-char subj-beg)
+
鐃緒申��申鐃緒申	    (if (outline-goto-prefix)
+
鐃緒申��申鐃緒申		(outline-rebullet-heading nil	;;; solicit
+
鐃緒申��申鐃緒申					  (outline-depth) ;;; depth
+
鐃緒申��申鐃緒申					  nil	;;; number-control
+
鐃緒申��申鐃緒申					  nil	;;; index
+
鐃緒申��申鐃緒申					  t))
+
鐃緒申��申鐃緒申	    (message ""))))
+
鐃緒申��申鐃緒申    (if (not resituate)
+
鐃緒申��申鐃緒申      (exchange-point-and-mark))))
+
鐃緒申��申鐃緒申;;;_    > outline-yank (&optional arg)
+
鐃緒申��申鐃緒申(defun outline-yank (&optional arg)
+
鐃緒申��申鐃緒申  "Outline-mode yank, with depth and numbering adjustment of yanked topics.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Non-topic yanks work no differently than normal yanks.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If a topic is being yanked into a bare topic prefix, the depth of the
+
鐃緒申��申鐃緒申yanked topic is adjusted to the depth of the topic prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  1 we're yanking in an outline-mode buffer
+
鐃緒申��申鐃緒申  2 the stuff being yanked starts with a valid outline header prefix, and
+
鐃緒申��申鐃緒申  3 it is being yanked at the end of a line which consists of only a valid
+
鐃緒申��申鐃緒申    topic prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If these conditions hold then the depth of the yanked topics are all
+
鐃緒申��申鐃緒申adjusted the amount it takes to make the first one at the depth of the
+
鐃緒申��申鐃緒申header into which it's being yanked.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The point is left in front of yanked, adjusted topics, rather than
+
鐃緒申��申鐃緒申at the end (and vice-versa with the mark).  Non-adjusted yanks,
+
鐃緒申��申鐃緒申however, (ones that don't qualify for adjustment) are handled
+
鐃緒申��申鐃緒申exactly like normal yanks.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Numbering of yanked topics, and the successive siblings at the depth
+
鐃緒申��申鐃緒申into which they're being yanked, is adjusted.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Outline-yank-pop works with outline-yank just like normal yank-pop
+
鐃緒申��申鐃緒申works with normal yank in non-outline buffers."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "*P")
+
鐃緒申��申鐃緒申  (setq this-command 'yank)
+
鐃緒申��申鐃緒申  (yank arg)
+
鐃緒申��申鐃緒申  (if (outline-mode-p)
+
鐃緒申��申鐃緒申      (outline-yank-processing)))
+
鐃緒申��申鐃緒申;;;_    > outline-yank-pop (&optional arg)
+
鐃緒申��申鐃緒申(defun outline-yank-pop (&optional arg)
+
鐃緒申��申鐃緒申  "Yank-pop like outline-yank when popping to bare outline prefixes.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Adapts level of popped topics to level of fresh prefix.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Note - prefix changes to distinctive bullets will stick, if followed
+
鐃緒申��申鐃緒申by pops to non-distinctive yanks.  Bug..."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "*p")
+
鐃緒申��申鐃緒申  (setq this-command 'yank)
+
鐃緒申��申鐃緒申  (yank-pop arg)
+
鐃緒申��申鐃緒申  (if (outline-mode-p)
+
鐃緒申��申鐃緒申      (outline-yank-processing)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Specialty bullet functions
+
鐃緒申��申鐃緒申;;;_   : File Cross references
+
鐃緒申��申鐃緒申;;;_    > outline-resolve-xref ()
+
鐃緒申��申鐃緒申(defun outline-resolve-xref ()
+
鐃緒申��申鐃緒申  "Pop to file associated with current heading, if it has an xref bullet.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申\(Works according to setting of `outline-file-xref-bullet')."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (if (not outline-file-xref-bullet)
+
鐃緒申��申鐃緒申      (error
+
鐃緒申��申鐃緒申       "outline cross references disabled - no `outline-file-xref-bullet'")
+
鐃緒申��申鐃緒申    (if (not (string= (outline-current-bullet) outline-file-xref-bullet))
+
鐃緒申��申鐃緒申        (error "current heading lacks cross-reference bullet `%s'"
+
鐃緒申��申鐃緒申               outline-file-xref-bullet)
+
鐃緒申��申鐃緒申      (let (file-name)
+
鐃緒申��申鐃緒申        (save-excursion
+
鐃緒申��申鐃緒申          (let* ((text-start outline-recent-prefix-end)
+
鐃緒申��申鐃緒申                 (heading-end (progn (end-of-line) (point))))
+
鐃緒申��申鐃緒申            (goto-char text-start)
+
鐃緒申��申鐃緒申            (setq file-name
+
鐃緒申��申鐃緒申                  (if (re-search-forward "\\s-\\(\\S-*\\)" heading-end t)
+
鐃緒申��申鐃緒申                      (buffer-substring (match-beginning 1) (match-end 1))))))
+
鐃緒申��申鐃緒申        (setq file-name
+
鐃緒申��申鐃緒申              (if (not (= (aref file-name 0) ?:))
+
鐃緒申��申鐃緒申                  (expand-file-name file-name)
+
鐃緒申��申鐃緒申                                        ; A registry-files ref, strip the `:'
+
鐃緒申��申鐃緒申                                        ; and try to follow it:
+
鐃緒申��申鐃緒申                (let ((reg-ref (reference-registered-file
+
鐃緒申��申鐃緒申                                (substring file-name 1) nil t)))
+
鐃緒申��申鐃緒申                  (if reg-ref (car (cdr reg-ref))))))
+
鐃緒申��申鐃緒申        (if (or (file-exists-p file-name)
+
鐃緒申��申鐃緒申                (if (file-writable-p file-name)
+
鐃緒申��申鐃緒申                    (y-or-n-p (format "%s not there, create one? "
+
鐃緒申��申鐃緒申                                      file-name))
+
鐃緒申��申鐃緒申                  (error "%s not found and can't be created" file-name)))
+
鐃緒申��申鐃緒申            (condition-case failure
+
鐃緒申��申鐃緒申                (find-file-other-window file-name)
+
鐃緒申��申鐃緒申              ('error failure))
+
鐃緒申��申鐃緒申          (error "%s not found" file-name))
+
鐃緒申��申鐃緒申        )
+
鐃緒申��申鐃緒申      )
+
鐃緒申��申鐃緒申    )
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #6 Exposure Control
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Fundamental
+
鐃緒申��申鐃緒申;;;_   > outline-flag-region (from to flag)
+
鐃緒申��申鐃緒申(defmacro outline-flag-region (from to flag)
+
鐃緒申��申鐃緒申  "Hide or show lines from FROM to TO, via emacs selective-display FLAG char.
+
鐃緒申��申鐃緒申Ie, text following flag C-m \(carriage-return) is hidden until the
+
鐃緒申��申鐃緒申next C-j (newline) char.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Returns the endpoint of the region."
+
鐃緒申��申鐃緒申  `(let ((buffer-read-only nil)
+
鐃緒申��申鐃緒申	   (outline-override-protect t))
+
鐃緒申��申鐃緒申       (subst-char-in-region ,from ,to
+
鐃緒申��申鐃緒申			     (if (= ,flag ?\n) ?\r ?\n)
+
鐃緒申��申鐃緒申			     ,flag t)))
+
鐃緒申��申鐃緒申;;;_   > outline-flag-current-subtree (flag)
+
鐃緒申��申鐃緒申(defun outline-flag-current-subtree (flag)
+
鐃緒申��申鐃緒申  "Hide or show subtree of currently-visible topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申See `outline-flag-region' for more details."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申    (outline-flag-region (point)
+
鐃緒申��申鐃緒申			 (progn (outline-end-of-current-subtree) (1- (point)))
+
鐃緒申��申鐃緒申			 flag)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Topic-specific
+
鐃緒申��申鐃緒申;;;_   > outline-show-entry ()
+
鐃緒申��申鐃緒申(defun outline-show-entry ()
+
鐃緒申��申鐃緒申  "Like `outline-show-current-entry', reveals entries nested in hidden topics.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This is a way to give restricted peek at a concealed locality without the
+
鐃緒申��申鐃緒申expense of exposing its context, but can leave the outline with aberrant
+
鐃緒申��申鐃緒申exposure.  outline-hide-current-entry-completely or outline-show-offshoot
+
鐃緒申��申鐃緒申should be used after the peek to rectify the exposure."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (let ((at (point))
+
鐃緒申��申鐃緒申	  beg end)
+
鐃緒申��申鐃緒申      (outline-goto-prefix)
+
鐃緒申��申鐃緒申      (setq beg (if (= (preceding-char) ?\r) (1- (point)) (point)))
+
鐃緒申��申鐃緒申      (re-search-forward "[\n\r]" nil t)
+
鐃緒申��申鐃緒申      (setq end (1- (if (< at (point))
+
鐃緒申��申鐃緒申			;; We're on topic head line - show only it:
+
鐃緒申��申鐃緒申			(point)
+
鐃緒申��申鐃緒申		      ;; or we're in body - include it:
+
鐃緒申��申鐃緒申		      (max beg (or (outline-pre-next-preface) (point))))))
+
鐃緒申��申鐃緒申      (outline-flag-region beg end ?\n)
+
鐃緒申��申鐃緒申      (list beg end))))
+
鐃緒申��申鐃緒申;;;_   > outline-show-children (&optional level strict)
+
鐃緒申��申鐃緒申(defun outline-show-children (&optional level strict)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "If point is visible, show all direct subheadings of this heading.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Otherwise, do outline-show-to-offshoot, and then show subheadings.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional LEVEL specifies how many levels below the current level
+
鐃緒申��申鐃緒申should be shown, or all levels if t.  Default is 1.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional STRICT means don't resort to -show-to-offshoot, no matter
+
鐃緒申��申鐃緒申what.  This is basically so -show-to-offshoot, which is called by
+
鐃緒申��申鐃緒申this function, can employ the pure offspring-revealing capabilities of
+
鐃緒申��申鐃緒申it.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Returns point at end of subtree that was opened, if any.  (May get a
+
鐃緒申��申鐃緒申point of non-opened subtree?)"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "p")
+
鐃緒申��申鐃緒申  (let (max-pos)
+
鐃緒申��申鐃緒申    (if (and (not strict)
+
鐃緒申��申鐃緒申	     (outline-hidden-p))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	(progn (outline-show-to-offshoot) ; Point's concealed, open to
+
鐃緒申��申鐃緒申					  ; expose it.
+
鐃緒申��申鐃緒申	       ;; Then recurse, but with "strict" set so we don't
+
鐃緒申��申鐃緒申	       ;; infinite regress:
+
鐃緒申��申鐃緒申	       (setq max-pos (outline-show-children level t)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (save-excursion
+
鐃緒申��申鐃緒申	(save-restriction
+
鐃緒申��申鐃緒申	  (let* ((start-pt (point))
+
鐃緒申��申鐃緒申		 (chart (outline-chart-subtree (or level 1)))
+
鐃緒申��申鐃緒申		 (to-reveal (outline-chart-to-reveal chart (or level 1))))
+
鐃緒申��申鐃緒申	    (goto-char start-pt)
+
鐃緒申��申鐃緒申	    (if (and strict (= (preceding-char) ?\r))
+
鐃緒申��申鐃緒申		;; Concealed root would already have been taken care of,
+
鐃緒申��申鐃緒申		;; unless strict was set.
+
鐃緒申��申鐃緒申		(progn
+
鐃緒申��申鐃緒申		  (outline-flag-region (point) (outline-snug-back) ?\n)
+
鐃緒申��申鐃緒申		  (if outline-show-bodies
+
鐃緒申��申鐃緒申		      (progn (goto-char (car to-reveal))
+
鐃緒申��申鐃緒申			     (outline-show-current-entry)))))
+
鐃緒申��申鐃緒申	    (while to-reveal
+
鐃緒申��申鐃緒申	      (goto-char (car to-reveal))
+
鐃緒申��申鐃緒申	      (outline-flag-region (point) (outline-snug-back) ?\n)
+
鐃緒申��申鐃緒申	      (if outline-show-bodies
+
鐃緒申��申鐃緒申		  (progn (goto-char (car to-reveal))
+
鐃緒申��申鐃緒申			 (outline-show-current-entry)))
+
鐃緒申��申鐃緒申	      (setq to-reveal (cdr to-reveal)))))))))
+
鐃緒申��申鐃緒申;;;_   > outline-hide-point-reconcile ()
+
鐃緒申��申鐃緒申(defun outline-hide-reconcile ()
+
鐃緒申��申鐃緒申  "Like `outline-hide-current-entry'; hides completely if within hidden region.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Specifically intended for aberrant exposure states, like entries that were
+
鐃緒申��申鐃緒申exposed by outline-show-entry but are within otherwise concealed regions."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (outline-goto-prefix)
+
鐃緒申��申鐃緒申    (outline-flag-region (if (not (bobp)) (1- (point)) (point))
+
鐃緒申��申鐃緒申                         (progn (outline-pre-next-preface)
+
鐃緒申��申鐃緒申                                (if (= ?\r (following-char))
+
鐃緒申��申鐃緒申                                    (point)
+
鐃緒申��申鐃緒申                                  (1- (point))))
+
鐃緒申��申鐃緒申                         ?\r)))
+
鐃緒申��申鐃緒申;;;_   > outline-show-to-offshoot ()
+
鐃緒申��申鐃緒申(defun outline-show-to-offshoot ()
+
鐃緒申��申鐃緒申  "Like outline-show-entry, but reveals all concealed ancestors, as well.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申As with outline-hide-current-entry-completely, useful for rectifying
+
鐃緒申��申鐃緒申aberrant exposure states produced by outline-show-entry."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (let ((orig-pt (point))
+
鐃緒申��申鐃緒申	  (orig-pref (outline-goto-prefix))
+
鐃緒申��申鐃緒申	  (last-at (point))
+
鐃緒申��申鐃緒申	  bag-it)
+
鐃緒申��申鐃緒申      (while (or bag-it (= (preceding-char) ?\r))
+
鐃緒申��申鐃緒申	(beginning-of-line)
+
鐃緒申��申鐃緒申	(if (= last-at (setq last-at (point)))
+
鐃緒申��申鐃緒申	    ;; Oops, we're not making any progress!  Show the current
+
鐃緒申��申鐃緒申	    ;; topic completely, and bag this try.
+
鐃緒申��申鐃緒申	    (progn (beginning-of-line)
+
鐃緒申��申鐃緒申		   (outline-show-current-subtree)
+
鐃緒申��申鐃緒申		   (goto-char orig-pt)
+
鐃緒申��申鐃緒申		   (setq bag-it t)
+
鐃緒申��申鐃緒申		   (beep)
+
鐃緒申��申鐃緒申		   (message "%s: %s"
+
鐃緒申��申鐃緒申			    "outline-show-to-offshoot: "
+
鐃緒申��申鐃緒申			    "Aberrant nesting encountered.")))
+
鐃緒申��申鐃緒申	(outline-show-children)
+
鐃緒申��申鐃緒申	(goto-char orig-pref))
+
鐃緒申��申鐃緒申      (goto-char orig-pt)))
+
鐃緒申��申鐃緒申  (if (outline-hidden-p)
+
鐃緒申��申鐃緒申      (outline-show-entry)))
+
鐃緒申��申鐃緒申;;;_   > outline-hide-current-entry ()
+
鐃緒申��申鐃緒申(defun outline-hide-current-entry ()
+
鐃緒申��申鐃緒申  "Hide the body directly following this heading."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申   (outline-flag-region (point)
+
鐃緒申��申鐃緒申                        (progn (outline-end-of-current-entry) (point))
+
鐃緒申��申鐃緒申                        ?\r)))
+
鐃緒申��申鐃緒申;;;_   > outline-show-current-entry (&optional arg)
+
鐃緒申��申鐃緒申(defun outline-show-current-entry (&optional arg)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Show body following current heading, or hide the entry if repeat count."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (if arg
+
鐃緒申��申鐃緒申      (outline-hide-current-entry)
+
鐃緒申��申鐃緒申    (save-excursion
+
鐃緒申��申鐃緒申      (outline-flag-region (point)
+
鐃緒申��申鐃緒申			   (progn (outline-end-of-current-entry) (point))
+
鐃緒申��申鐃緒申			   ?\n))))
+
鐃緒申��申鐃緒申;;;_   > outline-hide-current-entry-completely ()
+
鐃緒申��申鐃緒申; ... outline-hide-current-entry-completely also for isearch dynamic exposure:
+
鐃緒申��申鐃緒申(defun outline-hide-current-entry-completely ()
+
鐃緒申��申鐃緒申  "Like outline-hide-current-entry, but conceal topic completely.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Specifically intended for aberrant exposure states, like entries that were
+
鐃緒申��申鐃緒申exposed by outline-show-entry but are within otherwise concealed regions."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (outline-goto-prefix)
+
鐃緒申��申鐃緒申    (outline-flag-region (if (not (bobp)) (1- (point)) (point))
+
鐃緒申��申鐃緒申                         (progn (outline-pre-next-preface)
+
鐃緒申��申鐃緒申                                (if (= ?\r (following-char))
+
鐃緒申��申鐃緒申                                    (point)
+
鐃緒申��申鐃緒申                                  (1- (point))))
+
鐃緒申��申鐃緒申                         ?\r)))
+
鐃緒申��申鐃緒申;;;_   > outline-show-current-subtree (&optional arg)
+
鐃緒申��申鐃緒申(defun outline-show-current-subtree (&optional arg)
+
鐃緒申��申鐃緒申  "Show everything within the current topic.  With a repeat-count,
+
鐃緒申��申鐃緒申expose this topic and its siblings."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (if (<= (outline-current-depth) 0)
+
鐃緒申��申鐃緒申	;; Outside any topics - try to get to the first:
+
鐃緒申��申鐃緒申	(if (not (outline-next-heading))
+
鐃緒申��申鐃緒申	    (error "No topics.")
+
鐃緒申��申鐃緒申	  ;; got to first, outermost topic - set to expose it and siblings:
+
鐃緒申��申鐃緒申	  (message "Above outermost topic - exposing all.")
+
鐃緒申��申鐃緒申	  (outline-flag-region (point-min)(point-max) ?\n))
+
鐃緒申��申鐃緒申      (if (not arg)
+
鐃緒申��申鐃緒申	  (outline-flag-current-subtree ?\n)
+
鐃緒申��申鐃緒申	(outline-beginning-of-level)
+
鐃緒申��申鐃緒申	(outline-expose-topic '(* :))))))
+
鐃緒申��申鐃緒申;;;_   > outline-hide-current-subtree (&optional just-close)
+
鐃緒申��申鐃緒申(defun outline-hide-current-subtree (&optional just-close)
+
鐃緒申��申鐃緒申  "Close the current topic, or containing topic if this one is already closed.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If this topic is closed and it's a top level topic, close this topic
+
鐃緒申��申鐃緒申and its siblings.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If optional arg JUST-CLOSE is non-nil, do not treat the parent or
+
鐃緒申��申鐃緒申siblings, even if the target topic is already closed."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (let ((from (point))
+
鐃緒申��申鐃緒申	(orig-eol (progn (end-of-line)
+
鐃緒申��申鐃緒申			 (if (not (outline-goto-prefix))
+
鐃緒申��申鐃緒申			     (error "No topics found.")
+
鐃緒申��申鐃緒申			   (end-of-line)(point)))))
+
鐃緒申��申鐃緒申    (outline-flag-current-subtree ?\r)
+
鐃緒申��申鐃緒申    (goto-char from)
+
鐃緒申��申鐃緒申    (if (and (= orig-eol (progn (goto-char orig-eol)
+
鐃緒申��申鐃緒申				(end-of-line)
+
鐃緒申��申鐃緒申				(point)))
+
鐃緒申��申鐃緒申	     (not just-close)
+
鐃緒申��申鐃緒申             ;; Structure didn't change - try hiding current level:
+
鐃緒申��申鐃緒申	     (goto-char from)
+
鐃緒申��申鐃緒申	     (if (outline-up-current-level 1 t)
+
鐃緒申��申鐃緒申		 t
+
鐃緒申��申鐃緒申	       (goto-char 0)
+
鐃緒申��申鐃緒申	       (let ((msg
+
鐃緒申��申鐃緒申		      "Top-level topic already closed - closing siblings..."))
+
鐃緒申��申鐃緒申		 (message msg)
+
鐃緒申��申鐃緒申		 (outline-expose-topic '(0 :))
+
鐃緒申��申鐃緒申		 (message (concat msg "  Done.")))
+
鐃緒申��申鐃緒申	       nil)
+
鐃緒申��申鐃緒申	     (/= (outline-recent-depth) 0))
+
鐃緒申��申鐃緒申	(outline-hide-current-subtree))
+
鐃緒申��申鐃緒申      (goto-char from)))
+
鐃緒申��申鐃緒申;;;_   > outline-show-current-branches ()
+
鐃緒申��申鐃緒申(defun outline-show-current-branches ()
+
鐃緒申��申鐃緒申  "Show all subheadings of this heading, but not their bodies."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (beginning-of-line)
+
鐃緒申��申鐃緒申  (outline-show-children t))
+
鐃緒申��申鐃緒申;;;_   > outline-hide-current-leaves ()
+
鐃緒申��申鐃緒申(defun outline-hide-current-leaves ()
+
鐃緒申��申鐃緒申  "Hide the bodies of the current topic and all its offspring."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (outline-back-to-current-heading)
+
鐃緒申��申鐃緒申  (outline-hide-region-body (point) (progn (outline-end-of-current-subtree)
+
鐃緒申��申鐃緒申                                           (point))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Region and beyond
+
鐃緒申��申鐃緒申;;;_   > outline-show-all ()
+
鐃緒申��申鐃緒申(defun outline-show-all ()
+
鐃緒申��申鐃緒申  "Show all of the text in the buffer."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (message "Exposing entire buffer...")
+
鐃緒申��申鐃緒申  (outline-flag-region (point-min) (point-max) ?\n)
+
鐃緒申��申鐃緒申  (message "Exposing entire buffer...  Done."))
+
鐃緒申��申鐃緒申;;;_   > outline-hide-bodies ()
+
鐃緒申��申鐃緒申(defun outline-hide-bodies ()
+
鐃緒申��申鐃緒申  "Hide all of buffer except headings."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (outline-hide-region-body (point-min) (point-max)))
+
鐃緒申��申鐃緒申;;;_   > outline-hide-region-body (start end)
+
鐃緒申��申鐃緒申(defun outline-hide-region-body (start end)
+
鐃緒申��申鐃緒申  "Hide all body lines in the region, but not headings."
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (save-restriction
+
鐃緒申��申鐃緒申      (narrow-to-region start end)
+
鐃緒申��申鐃緒申      (goto-char (point-min))
+
鐃緒申��申鐃緒申      (while (not (eobp))
+
鐃緒申��申鐃緒申	(outline-flag-region (point)
+
鐃緒申��申鐃緒申                             (progn (outline-pre-next-preface) (point)) ?\r)
+
鐃緒申��申鐃緒申	(if (not (eobp))
+
鐃緒申��申鐃緒申	    (forward-char
+
鐃緒申��申鐃緒申	     (if (looking-at "[\n\r][\n\r]")
+
鐃緒申��申鐃緒申		 2 1)))))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_   > outline-expose-topic (spec)
+
鐃緒申��申鐃緒申(defun outline-expose-topic (spec)
+
鐃緒申��申鐃緒申  "Apply exposure specs to successive outline topic items.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Use the more convenient frontend, `outline-new-exposure', if you don't
+
鐃緒申��申鐃緒申need evaluation of the arguments, or even better, the `outline-layout'
+
鐃緒申��申鐃緒申variable-keyed mode-activation/auto-exposure feature of allout outline
+
鐃緒申��申鐃緒申mode.  See the respective documentation strings for more details.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Cursor is left at start position.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申SPEC is either a number or a list.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Successive specs on a list are applied to successive sibling topics.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申A simple spec \(either a number, one of a few symbols, or the null
+
鐃緒申��申鐃緒申list) dictates the exposure for the corresponding topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Non-null lists recursively designate exposure specs for respective
+
鐃緒申��申鐃緒申subtopics of the current topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The `:' repeat spec is used to specify exposure for any number of
+
鐃緒申��申鐃緒申successive siblings, up to the trailing ones for which there are
+
鐃緒申��申鐃緒申explicit specs following the `:'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Simple (numeric and null-list) specs are interpreted as follows:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 Numbers indicate the relative depth to open the corresponding topic.
+
鐃緒申��申鐃緒申     - negative numbers force the topic to be closed before opening to the
+
鐃緒申��申鐃緒申       absolute value of the number, so all siblings are open only to
+
鐃緒申��申鐃緒申       that level.
+
鐃緒申��申鐃緒申     - positive numbers open to the relative depth indicated by the
+
鐃緒申��申鐃緒申       number, but do not force already opened subtopics to be closed.
+
鐃緒申��申鐃緒申     - 0 means to close topic - hide all offspring.
+
鐃緒申��申鐃緒申  :  - `repeat'
+
鐃緒申��申鐃緒申       apply prior element to all siblings at current level, *up to*
+
鐃緒申��申鐃緒申       those siblings that would be covered by specs following the `:'
+
鐃緒申��申鐃緒申       on the list.  Ie, apply to all topics at level but the last
+
鐃緒申��申鐃緒申       ones.  \(Only first of multiple colons at same level is
+
鐃緒申��申鐃緒申       respected - subsequent ones are discarded.)
+
鐃緒申��申鐃緒申  *  - completely opens the topic, including bodies.
+
鐃緒申��申鐃緒申  +  - shows all the sub headers, but not the bodies
+
鐃緒申��申鐃緒申  -  - exposes the body of the corresponding topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Examples:
+
鐃緒申��申鐃緒申\(outline-expose-topic '(-1 : 0))
+
鐃緒申��申鐃緒申	Close this and all following topics at current level, exposing
+
鐃緒申��申鐃緒申	only their immediate children, but close down the last topic
+
鐃緒申��申鐃緒申	at this current level completely.
+
鐃緒申��申鐃緒申\(outline-expose-topic '(-1 () : 1 0))
+
鐃緒申��申鐃緒申	Close current topic so only the immediate subtopics are shown;
+
鐃緒申��申鐃緒申	show the children in the second to last topic, and completely
+
鐃緒申��申鐃緒申	close the last one.
+
鐃緒申��申鐃緒申\(outline-expose-topic '(-2 : -1 *))
+
鐃緒申��申鐃緒申        Expose children and grandchildren of all topics at current
+
鐃緒申��申鐃緒申	level except the last two; expose children of the second to
+
鐃緒申��申鐃緒申	last and completely open the last one."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "xExposure spec: ")
+
鐃緒申��申鐃緒申  (if (not (listp spec))
+
鐃緒申��申鐃緒申      nil
+
鐃緒申��申鐃緒申    (let ((depth (outline-depth))
+
鐃緒申��申鐃緒申	  (max-pos 0)
+
鐃緒申��申鐃緒申	  prev-elem curr-elem
+
鐃緒申��申鐃緒申	  stay done
+
鐃緒申��申鐃緒申	  snug-back
+
鐃緒申��申鐃緒申	  )
+
鐃緒申��申鐃緒申      (while spec
+
鐃緒申��申鐃緒申	(setq prev-elem curr-elem
+
鐃緒申��申鐃緒申	      curr-elem (car spec)
+
鐃緒申��申鐃緒申	      spec (cdr spec))
+
鐃緒申��申鐃緒申	(cond				; Do current element:
+
鐃緒申��申鐃緒申	 ((null curr-elem) nil)
+
鐃緒申��申鐃緒申	 ((symbolp curr-elem)
+
鐃緒申��申鐃緒申	  (cond ((eq curr-elem '*) (outline-show-current-subtree)
+
鐃緒申��申鐃緒申		 (if (> outline-recent-end-of-subtree max-pos)
+
鐃緒申��申鐃緒申		     (setq max-pos outline-recent-end-of-subtree)))
+
鐃緒申��申鐃緒申		((eq curr-elem '+) (outline-show-current-branches)
+
鐃緒申��申鐃緒申		 (if (> outline-recent-end-of-subtree max-pos)
+
鐃緒申��申鐃緒申		     (setq max-pos outline-recent-end-of-subtree)))
+
鐃緒申��申鐃緒申		((eq curr-elem '-) (outline-show-current-entry))
+
鐃緒申��申鐃緒申		((eq curr-elem ':)
+
鐃緒申��申鐃緒申		 (setq stay t)
+
鐃緒申��申鐃緒申		 ;; Expand the `repeat' spec to an explicit version,
+
鐃緒申��申鐃緒申		 ;; w.r.t. remaining siblings:
+
鐃緒申��申鐃緒申		 (let ((residue	   ; = # of sibs not covered by remaining spec
+
鐃緒申��申鐃緒申			;; Dang - could be nice to make use of the chart, sigh:
+
鐃緒申��申鐃緒申			(- (length (outline-chart-siblings))
+
鐃緒申��申鐃緒申			   (length spec))))
+
鐃緒申��申鐃緒申		   (if (< 0 residue)
+
鐃緒申��申鐃緒申		       ;; Some residue - cover it with prev-elem:
+
鐃緒申��申鐃緒申		       (setq spec (append (make-list residue prev-elem)
+
鐃緒申��申鐃緒申					  spec)))))))
+
鐃緒申��申鐃緒申	 ((numberp curr-elem)
+
鐃緒申��申鐃緒申	  (if (and (>= 0 curr-elem) (outline-visible-p))
+
鐃緒申��申鐃緒申	      (save-excursion (outline-hide-current-subtree t)
+
鐃緒申��申鐃緒申			      (if (> 0 curr-elem)
+
鐃緒申��申鐃緒申				  nil
+
鐃緒申��申鐃緒申				(if (> outline-recent-end-of-subtree max-pos)
+
鐃緒申��申鐃緒申				    (setq max-pos
+
鐃緒申��申鐃緒申					  outline-recent-end-of-subtree)))))
+
鐃緒申��申鐃緒申	  (if (> (abs curr-elem) 0)
+
鐃緒申��申鐃緒申	      (progn (outline-show-children (abs curr-elem))
+
鐃緒申��申鐃緒申		     (if (> outline-recent-end-of-subtree max-pos)
+
鐃緒申��申鐃緒申			 (setq max-pos outline-recent-end-of-subtree)))))
+
鐃緒申��申鐃緒申	  ((listp curr-elem)
+
鐃緒申��申鐃緒申	   (if (outline-descend-to-depth (1+ depth))
+
鐃緒申��申鐃緒申	       (let ((got (outline-expose-topic curr-elem)))
+
鐃緒申��申鐃緒申		 (if (and got (> got max-pos)) (setq max-pos got))))))
+
鐃緒申��申鐃緒申	(cond (stay (setq stay nil))
+
鐃緒申��申鐃緒申	      ((listp (car spec)) nil)
+
鐃緒申��申鐃緒申	      ((> max-pos (point))
+
鐃緒申��申鐃緒申	       ;; Capitalize on max-pos state to get us nearer next sibling:
+
鐃緒申��申鐃緒申	       (progn (goto-char (min (point-max) max-pos))
+
鐃緒申��申鐃緒申		      (outline-next-heading)))
+
鐃緒申��申鐃緒申	      ((outline-next-sibling depth))))
+
鐃緒申��申鐃緒申      max-pos)))
+
鐃緒申��申鐃緒申;;;_   > outline-old-expose-topic (spec &rest followers)
+
鐃緒申��申鐃緒申(defun outline-old-expose-topic (spec &rest followers)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Deprecated.  Use outline-expose-topic \(with different schema
+
鐃緒申��申鐃緒申format) instead.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Dictate wholesale exposure scheme for current topic, according to SPEC.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申SPEC is either a number or a list.  Optional successive args
+
鐃緒申��申鐃緒申dictate exposure for subsequent siblings of current topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申A simple spec (either a number, a special symbol, or the null list)
+
鐃緒申��申鐃緒申dictates the overall exposure for a topic.  Non null lists are
+
鐃緒申��申鐃緒申composite specs whose first element dictates the overall exposure for
+
鐃緒申��申鐃緒申a topic, with the subsequent elements in the list interpreted as specs
+
鐃緒申��申鐃緒申that dictate the exposure for the successive offspring of the topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Simple (numeric and null-list) specs are interpreted as follows:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 - Numbers indicate the relative depth to open the corresponding topic:
+
鐃緒申��申鐃緒申  - negative numbers force the topic to be close before opening to the
+
鐃緒申��申鐃緒申    absolute value of the number.
+
鐃緒申��申鐃緒申  - positive numbers just open to the relative depth indicated by the number.
+
鐃緒申��申鐃緒申  - 0 just closes
+
鐃緒申��申鐃緒申 - `*' completely opens the topic, including bodies.
+
鐃緒申��申鐃緒申 - `+' shows all the sub headers, but not the bodies
+
鐃緒申��申鐃緒申 - `-' exposes the body and immediate offspring of the corresponding topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If the spec is a list, the first element must be a number, which
+
鐃緒申��申鐃緒申dictates the exposure depth of the topic as a whole.  Subsequent
+
鐃緒申��申鐃緒申elements of the list are nested SPECs, dictating the specific exposure
+
鐃緒申��申鐃緒申for the corresponding offspring of the topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional FOLLOWER arguments dictate exposure for succeeding siblings."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "xExposure spec: ")
+
鐃緒申��申鐃緒申  (let ((depth (outline-current-depth))
+
鐃緒申��申鐃緒申	done
+
鐃緒申��申鐃緒申	max-pos)
+
鐃緒申��申鐃緒申    (cond ((null spec) nil)
+
鐃緒申��申鐃緒申	  ((symbolp spec)
+
鐃緒申��申鐃緒申	   (if (eq spec '*) (outline-show-current-subtree))
+
鐃緒申��申鐃緒申	   (if (eq spec '+) (outline-show-current-branches))
+
鐃緒申��申鐃緒申	   (if (eq spec '-) (outline-show-current-entry)))
+
鐃緒申��申鐃緒申	  ((numberp spec)
+
鐃緒申��申鐃緒申	   (if (>= 0 spec)
+
鐃緒申��申鐃緒申	       (save-excursion (outline-hide-current-subtree t)
+
鐃緒申��申鐃緒申			       (end-of-line)
+
鐃緒申��申鐃緒申			       (if (or (not max-pos)
+
鐃緒申��申鐃緒申				       (> (point) max-pos))
+
鐃緒申��申鐃緒申				   (setq max-pos (point)))
+
鐃緒申��申鐃緒申			       (if (> 0 spec)
+
鐃緒申��申鐃緒申				   (setq spec (* -1 spec)))))
+
鐃緒申��申鐃緒申	   (if (> spec 0)
+
鐃緒申��申鐃緒申	     (outline-show-children spec)))
+
鐃緒申��申鐃緒申	  ((listp spec)
+
鐃緒申��申鐃緒申	   ;(let ((got (outline-old-expose-topic (car spec))))
+
鐃緒申��申鐃緒申	   ;  (if (and got (or (not max-pos) (> got max-pos)))
+
鐃緒申��申鐃緒申	   ;	 (setq max-pos got)))
+
鐃緒申��申鐃緒申	   (let ((new-depth  (+ (outline-current-depth) 1))
+
鐃緒申��申鐃緒申		 got)
+
鐃緒申��申鐃緒申	     (setq max-pos (outline-old-expose-topic (car spec)))
+
鐃緒申��申鐃緒申	     (setq spec (cdr spec))
+
鐃緒申��申鐃緒申	     (if (and spec
+
鐃緒申��申鐃緒申		      (outline-descend-to-depth new-depth)
+
鐃緒申��申鐃緒申		      (not (outline-hidden-p)))
+
鐃緒申��申鐃緒申		 (progn (setq got (apply 'outline-old-expose-topic spec))
+
鐃緒申��申鐃緒申			(if (and got (or (not max-pos) (> got max-pos)))
+
鐃緒申��申鐃緒申			    (setq max-pos got)))))))
+
鐃緒申��申鐃緒申    (while (and followers
+
鐃緒申��申鐃緒申		(progn (if (and max-pos (< (point) max-pos))
+
鐃緒申��申鐃緒申			   (progn (goto-char max-pos)
+
鐃緒申��申鐃緒申				  (setq max-pos nil)))
+
鐃緒申��申鐃緒申		       (end-of-line)
+
鐃緒申��申鐃緒申		       (outline-next-sibling depth)))
+
鐃緒申��申鐃緒申      (outline-old-expose-topic (car followers))
+
鐃緒申��申鐃緒申      (setq followers (cdr followers)))
+
鐃緒申��申鐃緒申    max-pos))
+
鐃緒申��申鐃緒申;;;_   > outline-new-exposure '()
+
鐃緒申��申鐃緒申(defmacro outline-new-exposure (&rest spec)
+
鐃緒申��申鐃緒申  "Literal frontend for `outline-expose-topic', doesn't evaluate arguments.
+
鐃緒申��申鐃緒申Some arguments that would need to be quoted in outline-expose-topic
+
鐃緒申��申鐃緒申need not be quoted in outline-new-exposure.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Cursor is left at start position.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Use this instead of obsolete `outline-exposure'.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Examples:
+
鐃緒申��申鐃緒申\(outline-exposure (-1 () () () 1) 0)
+
鐃緒申��申鐃緒申	Close current topic at current level so only the immediate
+
鐃緒申��申鐃緒申	subtopics are shown, except also show the children of the
+
鐃緒申��申鐃緒申	third subtopic; and close the next topic at the current level.
+
鐃緒申��申鐃緒申\(outline-exposure : -1 0)
+
鐃緒申��申鐃緒申	Close all topics at current level to expose only their
+
鐃緒申��申鐃緒申	immediate children, except for the last topic at the current
+
鐃緒申��申鐃緒申	level, in which even its immediate children are hidden.
+
鐃緒申��申鐃緒申\(outline-exposure -2 : -1 *)
+
鐃緒申��申鐃緒申        Expose children and grandchildren of first topic at current
+
鐃緒申��申鐃緒申	level, and expose children of subsequent topics at current
+
鐃緒申��申鐃緒申	level *except* for the last, which should be opened completely."
+
鐃緒申��申鐃緒申  (list 'save-excursion
+
鐃緒申��申鐃緒申	'(if (not (or (outline-goto-prefix)
+
鐃緒申��申鐃緒申		      (outline-next-heading)))
+
鐃緒申��申鐃緒申	     (error "outline-new-exposure: Can't find any outline topics."))
+
鐃緒申��申鐃緒申	(list 'outline-expose-topic (list 'quote spec))))
+
鐃緒申��申鐃緒申;;;_   > outline-exposure '()
+
鐃緒申��申鐃緒申(defmacro outline-exposure (&rest spec)
+
鐃緒申��申鐃緒申  "Being deprecated - use more recent `outline-new-exposure' instead.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Literal frontend for `outline-old-expose-topic', doesn't evaluate arguments
+
鐃緒申��申鐃緒申and retains start position."
+
鐃緒申��申鐃緒申  (list 'save-excursion
+
鐃緒申��申鐃緒申	'(if (not (or (outline-goto-prefix)
+
鐃緒申��申鐃緒申		      (outline-next-heading)))
+
鐃緒申��申鐃緒申	     (error "Can't find any outline topics."))
+
鐃緒申��申鐃緒申	(cons 'outline-old-expose-topic
+
鐃緒申��申鐃緒申	      (mapcar (function (lambda (x) (list 'quote x))) spec))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #7 Systematic outline presentation - copying, printing, flattening
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Mapping and processing of topics
+
鐃緒申��申鐃緒申;;;_   ( See also Subtree Charting, in Navigation code.)
+
鐃緒申��申鐃緒申;;;_   > outline-stringify-flat-index (flat-index)
+
鐃緒申��申鐃緒申(defun outline-stringify-flat-index (flat-index &optional context)
+
鐃緒申��申鐃緒申  "Convert list representing section/subsection/... to document string.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional arg CONTEXT indicates interior levels to include."
+
鐃緒申��申鐃緒申  (let ((delim ".")
+
鐃緒申��申鐃緒申	result 
+
鐃緒申��申鐃緒申	numstr
+
鐃緒申��申鐃緒申	(context-depth (or (and context 2) 1)))
+
鐃緒申��申鐃緒申    ;; Take care of the explicit context:
+
鐃緒申��申鐃緒申    (while (> context-depth 0)
+
鐃緒申��申鐃緒申      (setq numstr (int-to-string (car flat-index))
+
鐃緒申��申鐃緒申	    flat-index (cdr flat-index)
+
鐃緒申��申鐃緒申	    result (if flat-index
+
鐃緒申��申鐃緒申		       (cons delim (cons numstr result))
+
鐃緒申��申鐃緒申		       (cons numstr result))
+
鐃緒申��申鐃緒申	    context-depth (if flat-index (1- context-depth) 0)))
+
鐃緒申��申鐃緒申    (setq delim " ")
+
鐃緒申��申鐃緒申    ;; Take care of the indentation:
+
鐃緒申��申鐃緒申    (if flat-index
+
鐃緒申��申鐃緒申	(progn
+
鐃緒申��申鐃緒申	  (while flat-index
+
鐃緒申��申鐃緒申	    (setq result
+
鐃緒申��申鐃緒申		  (cons delim
+
鐃緒申��申鐃緒申			(cons (make-string
+
鐃緒申��申鐃緒申			       (1+ (truncate (if (zerop (car flat-index))
+
鐃緒申��申鐃緒申						 1
+
鐃緒申��申鐃緒申					       (log10 (car flat-index)))))
+
鐃緒申��申鐃緒申			       ? )
+
鐃緒申��申鐃緒申			      result)))
+
鐃緒申��申鐃緒申	    (setq flat-index (cdr flat-index)))
+
鐃緒申��申鐃緒申	  ;; Dispose of single extra delim:
+
鐃緒申��申鐃緒申	  (setq result (cdr result))))
+
鐃緒申��申鐃緒申    (apply 'concat result)))
+
鐃緒申��申鐃緒申;;;_   > outline-stringify-flat-index-plain (flat-index)
+
鐃緒申��申鐃緒申(defun outline-stringify-flat-index-plain (flat-index)
+
鐃緒申��申鐃緒申  "Convert list representing section/subsection/... to document string."
+
鐃緒申��申鐃緒申  (let ((delim ".")
+
鐃緒申��申鐃緒申	result)
+
鐃緒申��申鐃緒申	(while flat-index
+
鐃緒申��申鐃緒申	  (setq result (cons (int-to-string (car flat-index))
+
鐃緒申��申鐃緒申			     (if result
+
鐃緒申��申鐃緒申				 (cons delim result))))
+
鐃緒申��申鐃緒申	  (setq flat-index (cdr flat-index)))
+
鐃緒申��申鐃緒申    (apply 'concat result)))
+
鐃緒申��申鐃緒申;;;_   > outline-stringify-flat-index-indented (flat-index)
+
鐃緒申��申鐃緒申(defun outline-stringify-flat-index-indented (flat-index)
+
鐃緒申��申鐃緒申  "Convert list representing section/subsection/... to document string."
+
鐃緒申��申鐃緒申  (let ((delim ".")
+
鐃緒申��申鐃緒申	result 
+
鐃緒申��申鐃緒申	numstr)
+
鐃緒申��申鐃緒申    ;; Take care of the explicit context:
+
鐃緒申��申鐃緒申    (setq numstr (int-to-string (car flat-index))
+
鐃緒申��申鐃緒申	  flat-index (cdr flat-index)
+
鐃緒申��申鐃緒申	  result (if flat-index
+
鐃緒申��申鐃緒申		     (cons delim (cons numstr result))
+
鐃緒申��申鐃緒申		   (cons numstr result)))
+
鐃緒申��申鐃緒申    (setq delim " ")
+
鐃緒申��申鐃緒申    ;; Take care of the indentation:
+
鐃緒申��申鐃緒申    (if flat-index
+
鐃緒申��申鐃緒申	(progn
+
鐃緒申��申鐃緒申	  (while flat-index
+
鐃緒申��申鐃緒申	    (setq result
+
鐃緒申��申鐃緒申		  (cons delim
+
鐃緒申��申鐃緒申			(cons (make-string
+
鐃緒申��申鐃緒申			       (1+ (truncate (if (zerop (car flat-index))
+
鐃緒申��申鐃緒申						 1
+
鐃緒申��申鐃緒申					       (log10 (car flat-index)))))
+
鐃緒申��申鐃緒申			       ? )
+
鐃緒申��申鐃緒申			      result)))
+
鐃緒申��申鐃緒申	    (setq flat-index (cdr flat-index)))
+
鐃緒申��申鐃緒申	  ;; Dispose of single extra delim:
+
鐃緒申��申鐃緒申	  (setq result (cdr result))))
+
鐃緒申��申鐃緒申    (apply 'concat result)))
+
鐃緒申��申鐃緒申;;;_   > outline-listify-exposed (&optional start end format)
+
鐃緒申��申鐃緒申(defun outline-listify-exposed (&optional start end format)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  "Produce a list representing exposed topics in current region.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申This list can then be used by `outline-process-exposed' to manipulate
+
鐃緒申��申鐃緒申the subject region.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional START and END indicate bounds of region.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申optional arg, FORMAT, designates an alternate presentation form for
+
鐃緒申��申鐃緒申the prefix:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 list - Present prefix as numeric section.subsection..., starting with
+
鐃緒申��申鐃緒申	section indicated by the list, innermost nesting first.
+
鐃緒申��申鐃緒申 `indent' \(symbol) -  Convert header prefixes to all white space,
+
鐃緒申��申鐃緒申		       except for distinctive bullets.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The elements of the list produced are lists that represents a topic
+
鐃緒申��申鐃緒申header and body.  The elements of that list are:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 - a number representing the depth of the topic,
+
鐃緒申��申鐃緒申 - a string representing the header-prefix, including trailing whitespace and
+
鐃緒申��申鐃緒申   bullet.
+
鐃緒申��申鐃緒申 - a string representing the bullet character,
+
鐃緒申��申鐃緒申 - and a series of strings, each containing one line of the exposed
+
鐃緒申��申鐃緒申   portion of the topic entry."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "r")
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (let*
+
鐃緒申��申鐃緒申	;; state vars:
+
鐃緒申��申鐃緒申	(strings prefix pad result depth new-depth out gone-out bullet beg
+
鐃緒申��申鐃緒申		 next done)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (goto-char start)
+
鐃緒申��申鐃緒申      (beginning-of-line)
+
鐃緒申��申鐃緒申      ;; Goto initial topic, and register preceeding stuff, if any:
+
鐃緒申��申鐃緒申      (if (> (outline-goto-prefix) start)
+
鐃緒申��申鐃緒申	  ;; First topic follows beginning point - register preliminary stuff:
+
鐃緒申��申鐃緒申	  (setq result (list (list 0 "" nil
+
鐃緒申��申鐃緒申				   (buffer-substring start (1- (point)))))))
+
鐃緒申��申鐃緒申      (while (and (not done)
+
鐃緒申��申鐃緒申		  (not (eobp))		; Loop until we've covered the region.
+
鐃緒申��申鐃緒申		  (not (> (point) end)))
+
鐃緒申��申鐃緒申	(setq depth (outline-recent-depth) 	; Current topics depth,
+
鐃緒申��申鐃緒申	      bullet (outline-recent-bullet)	; ... bullet,
+
鐃緒申��申鐃緒申	      prefix (outline-recent-prefix)
+
鐃緒申��申鐃緒申	      beg (progn (outline-end-of-prefix t) (point))) ; and beginning.
+
鐃緒申��申鐃緒申	(setq done			; The boundary for the current topic:
+
鐃緒申��申鐃緒申	      (not (outline-next-visible-heading 1)))
+
鐃緒申��申鐃緒申	(setq new-depth (outline-recent-depth))
+
鐃緒申��申鐃緒申	(setq gone-out out
+
鐃緒申��申鐃緒申	      out (< new-depth depth))
+
鐃緒申��申鐃緒申	(beginning-of-line)
+
鐃緒申��申鐃緒申	(setq next (point))
+
鐃緒申��申鐃緒申	(goto-char beg)
+
鐃緒申��申鐃緒申	(setq strings nil)
+
鐃緒申��申鐃緒申	(while (> next (point))		; Get all the exposed text in
+
鐃緒申��申鐃緒申	  (setq strings
+
鐃緒申��申鐃緒申		(cons (buffer-substring
+
鐃緒申��申鐃緒申		       beg
+
鐃緒申��申鐃緒申					;To hidden text or end of line:
+
鐃緒申��申鐃緒申		       (progn
+
鐃緒申��申鐃緒申			 (search-forward "\r"
+
鐃緒申��申鐃緒申					 (save-excursion (end-of-line)
+
鐃緒申��申鐃緒申							 (point))
+
鐃緒申��申鐃緒申					 1)
+
鐃緒申��申鐃緒申			 (if (= (preceding-char) ?\r)
+
鐃緒申��申鐃緒申			     (1- (point))
+
鐃緒申��申鐃緒申			   (point))))
+
鐃緒申��申鐃緒申		      strings))
+
鐃緒申��申鐃緒申	  (if (< (point) next)		; Resume from after hid text, if any.
+
鐃緒申��申鐃緒申	      (forward-line 1))
+
鐃緒申��申鐃緒申	  (setq beg (point)))
+
鐃緒申��申鐃緒申	;; Accumulate list for this topic:
+
鐃緒申��申鐃緒申	(setq strings (nreverse strings))
+
鐃緒申��申鐃緒申	(setq result
+
鐃緒申��申鐃緒申	      (cons
+
鐃緒申��申鐃緒申	       (if format
+
鐃緒申��申鐃緒申		   (let ((special (if (string-match
+
鐃緒申��申鐃緒申				       (regexp-quote bullet)
+
鐃緒申��申鐃緒申				       outline-distinctive-bullets-string)
+
鐃緒申��申鐃緒申				      bullet)))
+
鐃緒申��申鐃緒申		     (cond ((listp format)
+
鐃緒申��申鐃緒申			    (list depth
+
鐃緒申��申鐃緒申				  (if outline-abbreviate-flattened-numbering
+
鐃緒申��申鐃緒申				      (outline-stringify-flat-index format
+
鐃緒申��申鐃緒申								    gone-out)
+
鐃緒申��申鐃緒申				      (outline-stringify-flat-index-plain
+
鐃緒申��申鐃緒申				       format))
+
鐃緒申��申鐃緒申				  strings
+
鐃緒申��申鐃緒申				  special))
+
鐃緒申��申鐃緒申			   ((eq format 'indent)
+
鐃緒申��申鐃緒申			    (if special
+
鐃緒申��申鐃緒申				(list depth
+
鐃緒申��申鐃緒申				      (concat (make-string (1+ depth) ? )
+
鐃緒申��申鐃緒申					      (substring prefix -1))
+
鐃緒申��申鐃緒申				      strings)
+
鐃緒申��申鐃緒申			      (list depth
+
鐃緒申��申鐃緒申				    (make-string depth ? )
+
鐃緒申��申鐃緒申				    strings)))
+
鐃緒申��申鐃緒申			   (t (error "outline-listify-exposed: %s %s"
+
鐃緒申��申鐃緒申				     "invalid format" format))))
+
鐃緒申��申鐃緒申		 (list depth prefix strings))
+
鐃緒申��申鐃緒申		    result))
+
鐃緒申��申鐃緒申	;; Reasses format, if any:
+
鐃緒申��申鐃緒申	(if (and format (listp format))
+
鐃緒申��申鐃緒申	    (cond ((= new-depth depth)
+
鐃緒申��申鐃緒申		   (setq format (cons (1+ (car format))
+
鐃緒申��申鐃緒申					  (cdr format))))
+
鐃緒申��申鐃緒申		  ((> new-depth depth)	; descending - assume by 1:
+
鐃緒申��申鐃緒申		   (setq format (cons 1 format)))
+
鐃緒申��申鐃緒申		  (t
+
鐃緒申��申鐃緒申					; Pop the residue:
+
鐃緒申��申鐃緒申		   (while (< new-depth depth)
+
鐃緒申��申鐃緒申		       (setq format (cdr format))
+
鐃緒申��申鐃緒申		       (setq depth (1- depth)))
+
鐃緒申��申鐃緒申					; And increment the current one:
+
鐃緒申��申鐃緒申		     (setq format
+
鐃緒申��申鐃緒申			   (cons (1+ (or (car format)
+
鐃緒申��申鐃緒申					 -1))
+
鐃緒申��申鐃緒申				 (cdr format)))))))
+
鐃緒申��申鐃緒申      ;; Put the list with first at front, to last at back:
+
鐃緒申��申鐃緒申      (nreverse result))))
+
鐃緒申��申鐃緒申;;;_   > outline-process-exposed (&optional func from to frombuf
+
鐃緒申��申鐃緒申;;;					    tobuf format)
+
鐃緒申��申鐃緒申(defun outline-process-exposed (&optional func from to frombuf tobuf
+
鐃緒申��申鐃緒申					  format &optional start-num)
+
鐃緒申��申鐃緒申  "Map function on exposed parts of current topic; results to another buffer.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申All args are options; default values itemized below.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Apply FUNCTION to exposed portions FROM position TO position in buffer
+
鐃緒申��申鐃緒申FROMBUF to buffer TOBUF.  Sixth optional arg, FORMAT, designates an
+
鐃緒申��申鐃緒申alternate presentation form:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 `flat' - Present prefix as numeric section.subsection..., starting with
+
鐃緒申��申鐃緒申	 section indicated by the start-num, innermost nesting first.
+
鐃緒申��申鐃緒申 X`flat-indented' - Prefix is like `flat' for first topic at each
+
鐃緒申��申鐃緒申 X		   level, but subsequent topics have only leaf topic
+
鐃緒申��申鐃緒申 X		   number, padded with blanks to line up with first.
+
鐃緒申��申鐃緒申 `indent' \(symbol) -  Convert header prefixes to all white space,
+
鐃緒申��申鐃緒申		       except for distinctive bullets.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Defaults:
+
鐃緒申��申鐃緒申  FUNCTION:	`outline-insert-listified'
+
鐃緒申��申鐃緒申  FROM:		region start, if region active, else start of buffer
+
鐃緒申��申鐃緒申  TO:		region end, if region active, else end of buffer
+
鐃緒申��申鐃緒申  FROMBUF:	current buffer
+
鐃緒申��申鐃緒申  TOBUF:	buffer name derived: \"*current-buffer-name exposed*\"
+
鐃緒申��申鐃緒申  FORMAT:	nil"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申					; Resolve arguments,
+
鐃緒申��申鐃緒申					; defaulting if necessary:
+
鐃緒申��申鐃緒申  (if (not func) (setq func 'outline-insert-listified))
+
鐃緒申��申鐃緒申  (if (not (and from to))
+
鐃緒申��申鐃緒申      (if (my-region-active-p)
+
鐃緒申��申鐃緒申	  (setq from (region-beginning) to (region-end))
+
鐃緒申��申鐃緒申	(setq from (point-min) to (point-max))))
+
鐃緒申��申鐃緒申  (if frombuf
+
鐃緒申��申鐃緒申      (if (not (bufferp frombuf))
+
鐃緒申��申鐃緒申	  ;; Specified but not a buffer - get it:
+
鐃緒申��申鐃緒申	  (let ((got (get-buffer frombuf)))
+
鐃緒申��申鐃緒申	    (if (not got)
+
鐃緒申��申鐃緒申		(error (concat "outline-process-exposed: source buffer "
+
鐃緒申��申鐃緒申			       frombuf
+
鐃緒申��申鐃緒申			       " not found."))
+
鐃緒申��申鐃緒申	      (setq frombuf got))))
+
鐃緒申��申鐃緒申    ;; not specified - default it:
+
鐃緒申��申鐃緒申    (setq frombuf (current-buffer)))
+
鐃緒申��申鐃緒申  (if tobuf
+
鐃緒申��申鐃緒申      (if (not (bufferp tobuf))
+
鐃緒申��申鐃緒申	  (setq tobuf (get-buffer-create tobuf)))
+
鐃緒申��申鐃緒申    ;; not specified - default it:
+
鐃緒申��申鐃緒申    (setq tobuf (concat "*" (buffer-name frombuf) " exposed*")))
+
鐃緒申��申鐃緒申  (if (listp format)
+
鐃緒申��申鐃緒申      (nreverse format))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let* ((listified
+
鐃緒申��申鐃緒申	  (progn (set-buffer frombuf)
+
鐃緒申��申鐃緒申		 (outline-listify-exposed from to format))))
+
鐃緒申��申鐃緒申    (set-buffer tobuf)
+
鐃緒申��申鐃緒申    (mapcar func listified)
+
鐃緒申��申鐃緒申    (pop-to-buffer tobuf)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - Copy exposed
+
鐃緒申��申鐃緒申;;;_   > outline-insert-listified (listified)
+
鐃緒申��申鐃緒申(defun outline-insert-listified (listified)
+
鐃緒申��申鐃緒申  "Insert contents of listified outline portion in current buffer.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Listified is a list representing each topic header and body:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 \`(depth prefix text)'
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申or \`(depth prefix text bullet-plus)'
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申If `bullet-plus' is specified, it is inserted just after the entire prefix."
+
鐃緒申��申鐃緒申  (setq listified (cdr listified))
+
鐃緒申��申鐃緒申  (let ((prefix (prog1
+
鐃緒申��申鐃緒申		    (car listified)
+
鐃緒申��申鐃緒申		  (setq listified (cdr listified))))
+
鐃緒申��申鐃緒申	(text (prog1
+
鐃緒申��申鐃緒申		  (car listified)
+
鐃緒申��申鐃緒申		(setq listified (cdr listified))))
+
鐃緒申��申鐃緒申	(bullet-plus (car listified)))
+
鐃緒申��申鐃緒申    (insert-string prefix)
+
鐃緒申��申鐃緒申    (if bullet-plus (insert-string (concat " " bullet-plus)))
+
鐃緒申��申鐃緒申    (while text
+
鐃緒申��申鐃緒申      (insert-string (car text))
+
鐃緒申��申鐃緒申      (if (setq text (cdr text))
+
鐃緒申��申鐃緒申	  (insert-string "\n")))
+
鐃緒申��申鐃緒申    (insert-string "\n")))
+
鐃緒申��申鐃緒申;;;_   > outline-copy-exposed-to-buffer (&optional arg tobuf format)
+
鐃緒申��申鐃緒申(defun outline-copy-exposed-to-buffer (&optional arg tobuf format)
+
鐃緒申��申鐃緒申  "Duplicate exposed portions of current outline to another buffer.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Other buffer has current buffers name with \" exposed\" appended to it.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With repeat count, copy the exposed parts of only the current topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional second arg TOBUF is target buffer name.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional third arg FORMAT, if non-nil, symbolically designates an
+
鐃緒申��申鐃緒申alternate presentation format for the outline:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申 `flat'   - Convert topic header prefixes to numeric
+
鐃緒申��申鐃緒申	    section.subsection... identifiers.
+
鐃緒申��申鐃緒申 `indent' - Convert header prefixes to all white space, except for
+
鐃緒申��申鐃緒申	    distinctive bullets.
+
鐃緒申��申鐃緒申 `indent-flat' - The best of both - only the first of each level has
+
鐃緒申��申鐃緒申		 the full path, the rest have only the section number
+
鐃緒申��申鐃緒申		 of the leaf, preceded by the right amount of indentation."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (if (not tobuf)
+
鐃緒申��申鐃緒申      (setq tobuf (get-buffer-create (concat "*" (buffer-name) " exposed*"))))
+
鐃緒申��申鐃緒申  (let* ((start-pt (point))
+
鐃緒申��申鐃緒申	 (beg (if arg (outline-back-to-current-heading) (point-min)))
+
鐃緒申��申鐃緒申	 (end (if arg (outline-end-of-current-subtree) (point-max)))
+
鐃緒申��申鐃緒申	 (buf (current-buffer))
+
鐃緒申��申鐃緒申	 (start-list ()))
+
鐃緒申��申鐃緒申    (if (eq format 'flat)
+
鐃緒申��申鐃緒申	(setq format (if arg (save-excursion
+
鐃緒申��申鐃緒申				   (goto-char beg)
+
鐃緒申��申鐃緒申				   (outline-topic-flat-index))
+
鐃緒申��申鐃緒申			   '(1))))
+
鐃緒申��申鐃緒申    (save-excursion (set-buffer tobuf)(erase-buffer))
+
鐃緒申��申鐃緒申    (outline-process-exposed 'outline-insert-listified
+
鐃緒申��申鐃緒申			     beg
+
鐃緒申��申鐃緒申			     end
+
鐃緒申��申鐃緒申			     (current-buffer)
+
鐃緒申��申鐃緒申			     tobuf
+
鐃緒申��申鐃緒申			     format start-list)
+
鐃緒申��申鐃緒申    (goto-char (point-min))
+
鐃緒申��申鐃緒申    (pop-to-buffer buf)
+
鐃緒申��申鐃緒申    (goto-char start-pt)))
+
鐃緒申��申鐃緒申;;;_   > outline-flatten-exposed-to-buffer (&optional arg tobuf)
+
鐃緒申��申鐃緒申(defun outline-flatten-exposed-to-buffer (&optional arg tobuf)
+
鐃緒申��申鐃緒申  "Present numeric outline of outline's exposed portions in another buffer.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The resulting outline is not compatable with outline mode - use
+
鐃緒申��申鐃緒申`outline-copy-exposed-to-buffer' if you want that.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Use `outline-indented-exposed-to-buffer' for indented presentation.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With repeat count, copy the exposed portions of only current topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Other buffer has current buffers name with \" exposed\" appended to
+
鐃緒申��申鐃緒申it, unless optional second arg TOBUF is specified, in which case it is
+
鐃緒申��申鐃緒申used verbatim."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (outline-copy-exposed-to-buffer arg tobuf 'flat))
+
鐃緒申��申鐃緒申;;;_   > outline-indented-exposed-to-buffer (&optional arg tobuf)
+
鐃緒申��申鐃緒申(defun outline-indented-exposed-to-buffer (&optional arg tobuf)
+
鐃緒申��申鐃緒申  "Present indented outline of outline's exposed portions in another buffer.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申The resulting outline is not compatable with outline mode - use
+
鐃緒申��申鐃緒申`outline-copy-exposed-to-buffer' if you want that.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Use `outline-flatten-exposed-to-buffer' for numeric sectional presentation.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With repeat count, copy the exposed portions of only current topic.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Other buffer has current buffers name with \" exposed\" appended to
+
鐃緒申��申鐃緒申it, unless optional second arg TOBUF is specified, in which case it is
+
鐃緒申��申鐃緒申used verbatim."
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (outline-copy-exposed-to-buffer arg tobuf 'indent))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_  - LaTeX formatting
+
鐃緒申��申鐃緒申;;;_   > outline-latex-verb-quote (str &optional flow)
+
鐃緒申��申鐃緒申(defun outline-latex-verb-quote (str &optional flow)
+
鐃緒申��申鐃緒申  "Return copy of STRING for literal reproduction across latex processing.
+
鐃緒申��申鐃緒申Expresses the original characters \(including carriage returns) of the
+
鐃緒申��申鐃緒申string across latex processing."
+
鐃緒申��申鐃緒申  (mapconcat (function
+
鐃緒申��申鐃緒申	      (lambda (char)
+
鐃緒申��申鐃緒申		(cond ((memq char '(?\\ ?$ ?% ?# ?& ?{ ?} ?_ ?^ ?- ?*))
+
鐃緒申��申鐃緒申		       (concat "\\char" (number-to-string char) "{}"))
+
鐃緒申��申鐃緒申		      ((= char ?\n) "\\\\")
+
鐃緒申��申鐃緒申		      (t (char-to-string char)))))
+
鐃緒申��申鐃緒申	     str
+
鐃緒申��申鐃緒申	     ""))
+
鐃緒申��申鐃緒申;;;_   > outline-latex-verbatim-quote-curr-line ()
+
鐃緒申��申鐃緒申(defun outline-latex-verbatim-quote-curr-line ()
+
鐃緒申��申鐃緒申  "Express line for exact \(literal) representation across latex processing.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Adjust line contents so it is unaltered \(from the original line)
+
鐃緒申��申鐃緒申across latex processing, within the context of a `verbatim'
+
鐃緒申��申鐃緒申environment.  Leaves point at the end of the line."
+
鐃緒申��申鐃緒申  (beginning-of-line)
+
鐃緒申��申鐃緒申  (let ((beg (point))
+
鐃緒申��申鐃緒申	(end (progn (end-of-line)(point))))
+
鐃緒申��申鐃緒申    (goto-char beg)
+
鐃緒申��申鐃緒申    (while (re-search-forward "\\\\"
+
鐃緒申��申鐃緒申	    ;;"\\\\\\|\\{\\|\\}\\|\\_\\|\\$\\|\\\"\\|\\&\\|\\^\\|\\-\\|\\*\\|#"
+
鐃緒申��申鐃緒申			      end	; bounded by end-of-line
+
鐃緒申��申鐃緒申			      1)	; no matches, move to end & return nil
+
鐃緒申��申鐃緒申      (goto-char (match-beginning 0))
+
鐃緒申��申鐃緒申      (insert-string "\\")
+
鐃緒申��申鐃緒申      (setq end (1+ end))
+
鐃緒申��申鐃緒申      (goto-char (1+ (match-end 0))))))
+
鐃緒申��申鐃緒申;;;_   > outline-insert-latex-header (buf)
+
鐃緒申��申鐃緒申(defun outline-insert-latex-header (buf)
+
鐃緒申��申鐃緒申  "Insert initial latex commands at point in BUFFER."
+
鐃緒申��申鐃緒申  ;; Much of this is being derived from the stuff in appendix of E in
+
鐃緒申��申鐃緒申  ;; the TeXBook, pg 421.
+
鐃緒申��申鐃緒申  (set-buffer buf)
+
鐃緒申��申鐃緒申  (let ((doc-style (format "\n\\documentstyle{%s}\n"
+
鐃緒申��申鐃緒申			   "report"))
+
鐃緒申��申鐃緒申	(page-numbering (if outline-number-pages
+
鐃緒申��申鐃緒申			    "\\pagestyle{empty}\n"
+
鐃緒申��申鐃緒申			  ""))
+
鐃緒申��申鐃緒申	(linesdef (concat "\\def\\beginlines{"
+
鐃緒申��申鐃緒申			  "\\par\\begingroup\\nobreak\\medskip"
+
鐃緒申��申鐃緒申			  "\\parindent=0pt\n"
+
鐃緒申��申鐃緒申			  " \\kern1pt\\nobreak \\obeylines \\obeyspaces "
+
鐃緒申��申鐃緒申			  "\\everypar{\\strut}}\n"
+
鐃緒申��申鐃緒申			  "\\def\\endlines{"
+
鐃緒申��申鐃緒申			  "\\kern1pt\\endgroup\\medbreak\\noindent}\n"))
+
鐃緒申��申鐃緒申	(titlecmd (format "\\newcommand{\\titlecmd}[1]{{%s #1}}\n"
+
鐃緒申��申鐃緒申			  outline-title-style))
+
鐃緒申��申鐃緒申	(labelcmd (format "\\newcommand{\\labelcmd}[1]{{%s #1}}\n"
+
鐃緒申��申鐃緒申			  outline-label-style))
+
鐃緒申��申鐃緒申	(headlinecmd (format "\\newcommand{\\headlinecmd}[1]{{%s #1}}\n"
+
鐃緒申��申鐃緒申			     outline-head-line-style))
+
鐃緒申��申鐃緒申	(bodylinecmd (format "\\newcommand{\\bodylinecmd}[1]{{%s #1}}\n"
+
鐃緒申��申鐃緒申			     outline-body-line-style))
+
鐃緒申��申鐃緒申	(setlength (format "%s%s%s%s"
+
鐃緒申��申鐃緒申			   "\\newlength{\\stepsize}\n"
+
鐃緒申��申鐃緒申			   "\\setlength{\\stepsize}{"
+
鐃緒申��申鐃緒申			   outline-indent
+
鐃緒申��申鐃緒申			   "}\n"))
+
鐃緒申��申鐃緒申	(oneheadline (format "%s%s%s%s%s%s%s"
+
鐃緒申��申鐃緒申			     "\\newcommand{\\OneHeadLine}[3]{%\n"
+
鐃緒申��申鐃緒申			     "\\noindent%\n"
+
鐃緒申��申鐃緒申			     "\\hspace*{#2\\stepsize}%\n"
+
鐃緒申��申鐃緒申			     "\\labelcmd{#1}\\hspace*{.2cm}"
+
鐃緒申��申鐃緒申			     "\\headlinecmd{#3}\\\\["
+
鐃緒申��申鐃緒申			     outline-line-skip
+
鐃緒申��申鐃緒申			     "]\n}\n"))
+
鐃緒申��申鐃緒申	(onebodyline (format "%s%s%s%s%s%s"
+
鐃緒申��申鐃緒申			       "\\newcommand{\\OneBodyLine}[2]{%\n"
+
鐃緒申��申鐃緒申			       "\\noindent%\n"
+
鐃緒申��申鐃緒申			       "\\hspace*{#1\\stepsize}%\n"
+
鐃緒申��申鐃緒申			       "\\bodylinecmd{#2}\\\\["
+
鐃緒申��申鐃緒申			       outline-line-skip
+
鐃緒申��申鐃緒申			       "]\n}\n"))
+
鐃緒申��申鐃緒申	(begindoc "\\begin{document}\n\\begin{center}\n")
+
鐃緒申��申鐃緒申	(title (format "%s%s%s%s"
+
鐃緒申��申鐃緒申		       "\\titlecmd{"
+
鐃緒申��申鐃緒申		       (outline-latex-verb-quote (if outline-title
+
鐃緒申��申鐃緒申						(condition-case err
+
鐃緒申��申鐃緒申						    (eval outline-title)
+
鐃緒申��申鐃緒申						  ('error "<unnamed buffer>"))
+
鐃緒申��申鐃緒申					      "Unnamed Outline"))
+
鐃緒申��申鐃緒申		       "}\n"
+
鐃緒申��申鐃緒申		       "\\end{center}\n\n"))
+
鐃緒申��申鐃緒申	(hsize "\\hsize = 7.5 true in\n")
+
鐃緒申��申鐃緒申	(hoffset "\\hoffset = -1.5 true in\n")
+
鐃緒申��申鐃緒申	(vspace "\\vspace{.1cm}\n\n"))
+
鐃緒申��申鐃緒申    (insert (concat doc-style
+
鐃緒申��申鐃緒申		    page-numbering
+
鐃緒申��申鐃緒申		    titlecmd
+
鐃緒申��申鐃緒申		    labelcmd
+
鐃緒申��申鐃緒申		    headlinecmd
+
鐃緒申��申鐃緒申		    bodylinecmd
+
鐃緒申��申鐃緒申		    setlength
+
鐃緒申��申鐃緒申		    oneheadline
+
鐃緒申��申鐃緒申		    onebodyline
+
鐃緒申��申鐃緒申		    begindoc
+
鐃緒申��申鐃緒申		    title
+
鐃緒申��申鐃緒申		    hsize
+
鐃緒申��申鐃緒申		    hoffset
+
鐃緒申��申鐃緒申		    vspace)
+
鐃緒申��申鐃緒申	    )))
+
鐃緒申��申鐃緒申;;;_   > outline-insert-latex-trailer (buf)
+
鐃緒申��申鐃緒申(defun outline-insert-latex-trailer (buf)
+
鐃緒申��申鐃緒申  "Insert concluding latex commands at point in BUFFER."
+
鐃緒申��申鐃緒申  (set-buffer buf)
+
鐃緒申��申鐃緒申  (insert "\n\\end{document}\n"))
+
鐃緒申��申鐃緒申;;;_   > outline-latexify-one-item (depth prefix bullet text)
+
鐃緒申��申鐃緒申(defun outline-latexify-one-item (depth prefix bullet text)
+
鐃緒申��申鐃緒申  "Insert LaTeX commands for formatting one outline item.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Args are the topics numeric DEPTH, the header PREFIX lead string, the
+
鐃緒申��申鐃緒申BULLET string, and a list of TEXT strings for the body."
+
鐃緒申��申鐃緒申  (let* ((head-line (if text (car text)))
+
鐃緒申��申鐃緒申	 (body-lines (cdr text))
+
鐃緒申��申鐃緒申	 (curr-line)
+
鐃緒申��申鐃緒申	 body-content bop)
+
鐃緒申��申鐃緒申					; Do the head line:
+
鐃緒申��申鐃緒申    (insert-string (concat "\\OneHeadLine{\\verb\1 " 
+
鐃緒申��申鐃緒申			   (outline-latex-verb-quote bullet)
+
鐃緒申��申鐃緒申			   "\1}{"
+
鐃緒申��申鐃緒申			   depth
+
鐃緒申��申鐃緒申			   "}{\\verb\1 "
+
鐃緒申��申鐃緒申			   (if head-line
+
鐃緒申��申鐃緒申			       (outline-latex-verb-quote head-line)
+
鐃緒申��申鐃緒申			     "")
+
鐃緒申��申鐃緒申			   "\1}\n"))
+
鐃緒申��申鐃緒申    (if (not body-lines)
+
鐃緒申��申鐃緒申	nil
+
鐃緒申��申鐃緒申      ;;(insert-string "\\beginlines\n")
+
鐃緒申��申鐃緒申      (insert-string "\\begin{verbatim}\n")
+
鐃緒申��申鐃緒申      (while body-lines
+
鐃緒申��申鐃緒申	(setq curr-line (car body-lines))
+
鐃緒申��申鐃緒申	(if (and (not body-content)
+
鐃緒申��申鐃緒申		 (not (string-match "^\\s-*$" curr-line)))
+
鐃緒申��申鐃緒申	    (setq body-content t))
+
鐃緒申��申鐃緒申					; Mangle any occurrences of
+
鐃緒申��申鐃緒申					; "\end{verbatim}" in text,
+
鐃緒申��申鐃緒申					; it's special:
+
鐃緒申��申鐃緒申	(if (and body-content
+
鐃緒申��申鐃緒申		 (setq bop (string-match "\\end{verbatim}" curr-line)))
+
鐃緒申��申鐃緒申	    (setq curr-line (concat (substring curr-line 0 bop)
+
鐃緒申��申鐃緒申				    ">"
+
鐃緒申��申鐃緒申				    (substring curr-line bop))))
+
鐃緒申��申鐃緒申	;;(insert-string "|" (car body-lines) "|")
+
鐃緒申��申鐃緒申	(insert-string curr-line)
+
鐃緒申��申鐃緒申	(outline-latex-verbatim-quote-curr-line)
+
鐃緒申��申鐃緒申	(insert-string "\n")
+
鐃緒申��申鐃緒申	(setq body-lines (cdr body-lines)))
+
鐃緒申��申鐃緒申      (if body-content
+
鐃緒申��申鐃緒申	  (setq body-content nil)
+
鐃緒申��申鐃緒申	(forward-char -1)
+
鐃緒申��申鐃緒申	(insert-string "\\ ")
+
鐃緒申��申鐃緒申	(forward-char 1))
+
鐃緒申��申鐃緒申      ;;(insert-string "\\endlines\n")
+
鐃緒申��申鐃緒申      (insert-string "\\end{verbatim}\n")
+
鐃緒申��申鐃緒申      )))
+
鐃緒申��申鐃緒申;;;_   > outline-latexify-exposed (arg &optional tobuf)
+
鐃緒申��申鐃緒申(defun outline-latexify-exposed (arg &optional tobuf)
+
鐃緒申��申鐃緒申  "Format current topics exposed portions to TOBUF for latex processing.
+
鐃緒申��申鐃緒申TOBUF defaults to a buffer named the same as the current buffer, but
+
鐃緒申��申鐃緒申with \"*\" prepended and \" latex-formed*\" appended.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申With repeat count, copy the exposed portions of entire buffer."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申  (if (not tobuf)
+
鐃緒申��申鐃緒申      (setq tobuf
+
鐃緒申��申鐃緒申	    (get-buffer-create (concat "*" (buffer-name) " latexified*"))))
+
鐃緒申��申鐃緒申  (let* ((start-pt (point))
+
鐃緒申��申鐃緒申	 (beg (if arg (point-min) (outline-back-to-current-heading)))
+
鐃緒申��申鐃緒申	 (end (if arg (point-max) (outline-end-of-current-subtree)))
+
鐃緒申��申鐃緒申	 (buf (current-buffer)))
+
鐃緒申��申鐃緒申    (set-buffer tobuf)
+
鐃緒申��申鐃緒申    (erase-buffer)
+
鐃緒申��申鐃緒申    (outline-insert-latex-header tobuf)
+
鐃緒申��申鐃緒申    (goto-char (point-max))
+
鐃緒申��申鐃緒申    (outline-process-exposed 'outline-latexify-one-item
+
鐃緒申��申鐃緒申			     beg
+
鐃緒申��申鐃緒申			     end
+
鐃緒申��申鐃緒申			     buf
+
鐃緒申��申鐃緒申			     tobuf)
+
鐃緒申��申鐃緒申    (goto-char (point-max))
+
鐃緒申��申鐃緒申    (outline-insert-latex-trailer tobuf)
+
鐃緒申��申鐃緒申    (goto-char (point-min))
+
鐃緒申��申鐃緒申    (pop-to-buffer buf)
+
鐃緒申��申鐃緒申    (goto-char start-pt)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #8 miscellaneous
+
鐃緒申��申鐃緒申;;;_  > outline-mark-topic ()
+
鐃緒申��申鐃緒申(defun outline-mark-topic ()
+
鐃緒申��申鐃緒申  "Put the region around topic currently containing point."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (beginning-of-line)
+
鐃緒申��申鐃緒申  (outline-goto-prefix)
+
鐃緒申��申鐃緒申  (push-mark (point))
+
鐃緒申��申鐃緒申  (outline-end-of-current-subtree)
+
鐃緒申��申鐃緒申  (exchange-point-and-mark))
+
鐃緒申��申鐃緒申;;;_  > outlineify-sticky ()
+
鐃緒申��申鐃緒申;; outlinify-sticky is correct spelling; provide this alias for sticklers:
+
鐃緒申��申鐃緒申(defalias 'outlinify-sticky 'outlineify-sticky)
+
鐃緒申��申鐃緒申(defun outlineify-sticky (&optional arg)
+
鐃緒申��申鐃緒申  "Activate outline mode and establish file var so it is started subsequently.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申See doc-string for `outline-layout' and `outline-init' for details on
+
鐃緒申��申鐃緒申setup for auto-startup."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (interactive "P")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (outline-mode t)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (save-excursion
+
鐃緒申��申鐃緒申    (goto-char (point-min))
+
鐃緒申��申鐃緒申    (if (looking-at outline-regexp)
+
鐃緒申��申鐃緒申	t
+
鐃緒申��申鐃緒申      (outline-open-topic 2)
+
鐃緒申��申鐃緒申      (insert-string (concat "Dummy outline topic header - see"
+
鐃緒申��申鐃緒申			     "`outline-mode' docstring: `^Hm'."))
+
鐃緒申��申鐃緒申      (forward-line 1)
+
鐃緒申��申鐃緒申      (goto-char (point-max))
+
鐃緒申��申鐃緒申      (open-line 1)
+
鐃緒申��申鐃緒申      (outline-open-topic 0)
+
鐃緒申��申鐃緒申      (insert-string "Local emacs vars.\n")
+
鐃緒申��申鐃緒申      (outline-open-topic 1)
+
鐃緒申��申鐃緒申      (insert-string "(`outline-layout' is for allout.el outline-mode)\n")
+
鐃緒申��申鐃緒申      (outline-open-topic 0)
+
鐃緒申��申鐃緒申      (insert-string "Local variables:\n")
+
鐃緒申��申鐃緒申      (outline-open-topic 0)
+
鐃緒申��申鐃緒申      (insert-string (format "outline-layout: %s\n"
+
鐃緒申��申鐃緒申			     (or outline-layout
+
鐃緒申��申鐃緒申				 '(-1 : 0))))
+
鐃緒申��申鐃緒申      (outline-open-topic 0)
+
鐃緒申��申鐃緒申      (insert-string "End:\n"))))
+
鐃緒申��申鐃緒申;;;_  > solicit-char-in-string (prompt string &optional do-defaulting)
+
鐃緒申��申鐃緒申(defun solicit-char-in-string (prompt string &optional do-defaulting)
+
鐃緒申��申鐃緒申  "Solicit (with first arg PROMPT) choice of a character from string STRING.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional arg DO-DEFAULTING indicates to accept empty input (CR)."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let ((new-prompt prompt)
+
鐃緒申��申鐃緒申        got)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    (while (not got)
+
鐃緒申��申鐃緒申      (message "%s" new-prompt)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      ;; We do our own reading here, so we can circumvent, eg, special
+
鐃緒申��申鐃緒申      ;; treatment for `?' character.  (Oughta use minibuffer keymap instead.)
+
鐃緒申��申鐃緒申      (setq got
+
鐃緒申��申鐃緒申            (char-to-string (let ((cursor-in-echo-area nil)) (read-char))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申      (setq got
+
鐃緒申��申鐃緒申	    (cond ((string-match (regexp-quote got) string) got)
+
鐃緒申��申鐃緒申		  ((and do-defaulting (string= got "\r"))
+
鐃緒申��申鐃緒申		   ;; Return empty string to default:
+
鐃緒申��申鐃緒申		   "")
+
鐃緒申��申鐃緒申		  ((string= got "\C-g") (signal 'quit nil))
+
鐃緒申��申鐃緒申		  (t
+
鐃緒申��申鐃緒申		   (setq new-prompt (concat prompt
+
鐃緒申��申鐃緒申					    got
+
鐃緒申��申鐃緒申					    " ...pick from: "
+
鐃緒申��申鐃緒申					    string
+
鐃緒申��申鐃緒申					    ""))
+
鐃緒申��申鐃緒申		   nil))))
+
鐃緒申��申鐃緒申      ;; got something out of loop - return it:
+
鐃緒申��申鐃緒申      got)
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申;;;_  > regexp-sans-escapes (string)
+
鐃緒申��申鐃緒申(defun regexp-sans-escapes (regexp &optional successive-backslashes)
+
鐃緒申��申鐃緒申  "Return a copy of REGEXP with all character escapes stripped out.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Representations of actual backslashes - '\\\\\\\\' - are left as a
+
鐃緒申��申鐃緒申single backslash.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Optional arg SUCCESSIVE-BACKSLASHES is used internally for recursion."
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (if (string= regexp "")
+
鐃緒申��申鐃緒申      ""
+
鐃緒申��申鐃緒申    ;; Set successive-backslashes to number if current char is
+
鐃緒申��申鐃緒申    ;; backslash, or else to nil:
+
鐃緒申��申鐃緒申    (setq successive-backslashes
+
鐃緒申��申鐃緒申	  (if (= (aref regexp 0) ?\\)
+
鐃緒申��申鐃緒申	      (if successive-backslashes (1+ successive-backslashes) 1)
+
鐃緒申��申鐃緒申	    nil))
+
鐃緒申��申鐃緒申    (if (or (not successive-backslashes) (= 2 successive-backslashes))
+
鐃緒申��申鐃緒申	;; Include first char:
+
鐃緒申��申鐃緒申	(concat (substring regexp 0 1)
+
鐃緒申��申鐃緒申		(regexp-sans-escapes (substring regexp 1)))
+
鐃緒申��申鐃緒申      ;; Exclude first char, but maintain count:
+
鐃緒申��申鐃緒申      (regexp-sans-escapes (substring regexp 1) successive-backslashes))))
+
鐃緒申��申鐃緒申;;;_  > my-region-active-p ()
+
鐃緒申��申鐃緒申(defmacro my-region-active-p ()
+
鐃緒申��申鐃緒申  (if (fboundp 'region-active-p)
+
鐃緒申��申鐃緒申      '(region-active-p)
+
鐃緒申��申鐃緒申    'mark-active))
+
鐃緒申��申鐃緒申;;;_  - add-hook definition for divergent emacsen
+
鐃緒申��申鐃緒申;;;_   > add-hook (hook function &optional append)
+
鐃緒申��申鐃緒申(if (not (fboundp 'add-hook))
+
鐃緒申��申鐃緒申    (defun add-hook (hook function &optional append)
+
鐃緒申��申鐃緒申      "Add to the value of HOOK the function FUNCTION unless already present.
+
鐃緒申��申鐃緒申\(It becomes the first hook on the list unless optional APPEND is non-nil, in
+
鐃緒申��申鐃緒申which case it becomes the last).  HOOK should be a symbol, and FUNCTION may be
+
鐃緒申��申鐃緒申any valid function.  HOOK's value should be a list of functions, not a single
+
鐃緒申��申鐃緒申function.  If HOOK is void, it is first set to nil."
+
鐃緒申��申鐃緒申      (or (boundp hook) (set hook nil))
+
鐃緒申��申鐃緒申      (or (if (consp function)
+
鐃緒申��申鐃緒申	      ;; Clever way to tell whether a given lambda-expression
+
鐃緒申��申鐃緒申	      ;; is equal to anything in the hook.
+
鐃緒申��申鐃緒申	      (let ((tail (assoc (cdr function) (symbol-value hook))))
+
鐃緒申��申鐃緒申		(equal function tail))
+
鐃緒申��申鐃緒申	    (memq function (symbol-value hook)))
+
鐃緒申��申鐃緒申	  (set hook
+
鐃緒申��申鐃緒申	       (if append
+
鐃緒申��申鐃緒申		   (nconc (symbol-value hook) (list function))
+
鐃緒申��申鐃緒申		 (cons function (symbol-value hook)))))))
+
鐃緒申��申鐃緒申;;;_  : my-mark-marker to accomodate divergent emacsen:
+
鐃緒申��申鐃緒申(defun my-mark-marker (&optional force buffer)
+
鐃緒申��申鐃緒申  "Accomodate the different signature for mark-marker across emacsen.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申GNU XEmacs takes two optional args, while mainline GNU Emacs does not,
+
鐃緒申��申鐃緒申so pass them along when appropriate."
+
鐃緒申��申鐃緒申  (if (string-match " XEmacs " emacs-version)
+
鐃緒申��申鐃緒申      (mark-marker force buffer)
+
鐃緒申��申鐃緒申    (mark-marker)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_ #9 Under development
+
鐃緒申��申鐃緒申;;;_  > outline-bullet-isearch (&optional bullet)
+
鐃緒申��申鐃緒申(defun outline-bullet-isearch (&optional bullet)
+
鐃緒申��申鐃緒申  "Isearch \(regexp) for topic with bullet BULLET."
+
鐃緒申��申鐃緒申  (interactive)
+
鐃緒申��申鐃緒申  (if (not bullet)
+
鐃緒申��申鐃緒申      (setq bullet (solicit-char-in-string
+
鐃緒申��申鐃緒申		    "ISearch for topic with bullet: "
+
鐃緒申��申鐃緒申		    (regexp-sans-escapes outline-bullets-string))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (let ((isearch-regexp t)
+
鐃緒申��申鐃緒申	(isearch-string (concat "^"
+
鐃緒申��申鐃緒申				outline-header-prefix
+
鐃緒申��申鐃緒申				"[ \t]*"
+
鐃緒申��申鐃緒申				bullet)))
+
鐃緒申��申鐃緒申    (isearch-repeat 'forward)
+
鐃緒申��申鐃緒申    (isearch-mode t)))
+
鐃緒申��申鐃緒申;;;_  ? Re hooking up with isearch - use isearch-op-fun rather than
+
鐃緒申��申鐃緒申;;;	wrapping the isearch functions.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;;_* Local emacs vars.
+
鐃緒申��申鐃緒申;;; The following `outline-layout' local variable setting:
+
鐃緒申��申鐃緒申;;;  - closes all topics from the first topic to just before the third-to-last,
+
鐃緒申��申鐃緒申;;;  - shows the children of the third to last (config vars)
+
鐃緒申��申鐃緒申;;;  - and the second to last (code section),
+
鐃緒申��申鐃緒申;;;  - and closes the last topic (this local-variables section).
+
鐃緒申��申鐃緒申;;;Local variables:
+
鐃緒申��申鐃緒申;;;outline-layout: (0 : -1 -1 0)
+
鐃緒申��申鐃緒申;;;End:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; allout.el ends here