;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\306\301%\207" [custom-declare-group allout nil "Extensive outline minor-mode, for use stand-alone and with other modes.\n\nSee Allout Auto Activation for automatic activation." :prefix "allout-" :group outlines allout-keybindings "Allout outline mode keyboard bindings configuration."] 8)#@212 Keybindings place-holder for (allout) outline minor mode. Do NOT set the value of this variable. Instead, customize `allout-command-prefix', `allout-prefixed-keybindings', and `allout-unprefixed-keybindings'. (defvar allout-mode-map 'allout-mode-map (#$ . 440))#@192 Keymap for allout outline minor mode. Do NOT set the value of this variable. Instead, customize `allout-command-prefix', `allout-prefixed-keybindings', and `allout-unprefixed-keybindings'. (defvar allout-mode-map-value nil (#$ . 710)) (defalias 'allout-mode-map allout-mode-map-value)#@296 Create the allout keymap according to the keybinding specs, and set it. Useful standalone or to effect customizations of the respective `allout-mode' keybinding variables, `allout-command-prefix', `allout-prefixed-keybindings', and `allout-unprefixed-keybindings' (fn &optional VARNAME VALUE) (defalias 'allout-compose-and-institute-keymap #[512 "\203 \303\"\210\304 \305\300!\203/\211\203.\211@\306\307 \310@!@\"A@#\210A\266\202\202\210\305\302!\203P\n\211\203O\211@\306\310@!@A@#\210A\266\202\2026\210\306\311\312#\210\306\313\312#\210\306\314\315#\210\306\316\315#\210\317!\207" [allout-prefixed-keybindings allout-command-prefix allout-unprefixed-keybindings set-default make-sparse-keymap boundp define-key vconcat read-from-string [remap beginning-of-line] allout-beginning-of-line [remap move-beginning-of-line] [remap end-of-line] allout-end-of-line [remap move-end-of-line] allout-institute-keymap] 11 (#$ . 1003)])#@73 Associate `allout-mode' bindings with allout as a minor mode. (fn MAP) (defalias 'allout-institute-keymap #[257 "\211 M\207" [allout-mode-map-value allout-mode-map] 3 (#$ . 1960)]) (byte-code "\300 \210\301\302\303\304\305DD\306\307\310\311\312\313\300& \210\314\315\316\317\307\320%\210\301\321\303\304\322DD\323\324\325\307\315\311\312\313\300& \210\301\326\303\304\327DD\330\324\325\307\315\311\312\313\300& \207" [allout-compose-and-institute-keymap custom-declare-variable allout-command-prefix funcall function #[0 "\300\207" [" "] 1 #1=""] "Key sequence to be used as prefix for outline mode command key bindings.\n\nDefault is `'; just `' is more short-and-sweet, if you're\nwilling to let allout use a bunch of  keybindings." :type string :group allout-keybindings :set define-widget allout-keybindings-binding lazy "Structure of allout keybindings customization items." (repeat (list (string :tag "Key" :value "[(meta control shift ?f)]") (function :tag "Function name" :value allout-forward-current-level))) allout-prefixed-keybindings #[0 "\300\207" [(("[(control ?n)]" allout-next-visible-heading) ("[(control ?p)]" allout-previous-visible-heading) ("[(control ?u)]" allout-up-current-level) ("[(control ?f)]" allout-forward-current-level) ("[(control ?b)]" allout-backward-current-level) ("[(control ?a)]" allout-beginning-of-current-entry) ("[(control ?e)]" allout-end-of-entry) ("[(control ?i)]" allout-show-children) ("[(control ?s)]" allout-show-current-subtree) ("[(control ?t)]" allout-toggle-current-subtree-exposure) ("[?h]" allout-hide-current-subtree) ("[(control ?o)]" allout-show-current-entry) ("[?!]" allout-show-all) ("[?x]" allout-toggle-current-subtree-encryption) ("[? ]" allout-open-sibtopic) ("[?.]" allout-open-subtopic) ("[?,]" allout-open-supertopic) ("[?']" allout-shift-in) ("[?>]" allout-shift-in) ("[?<]" allout-shift-out) ("[(control ?m)]" allout-rebullet-topic) ("[?*]" allout-rebullet-current-heading) ("[?#]" allout-number-siblings) ("[(control ?k)]" allout-kill-topic) ("[(meta ?k)]" allout-copy-topic-as-kill) ("[?@]" allout-resolve-xref) ("[?=?c]" allout-copy-exposed-to-buffer) ("[?=?i]" allout-indented-exposed-to-buffer) ("[?=?t]" allout-latexify-exposed) ("[?=?p]" allout-flatten-exposed-to-buffer))] 1 #1#] "Allout-mode key bindings that are prefixed with `allout-command-prefix'.\n\nSee `allout-unprefixed-keybindings' for the list of keybindings\nthat are not prefixed.\n\nUse vector format for the keys:\n - put literal keys after a `?' question mark, eg: `?a', `?.'\n - enclose control, shift, or meta-modified keys as sequences within\n parentheses, with the literal key, as above, preceded by the name(s)\n of the modifiers, eg: [(control ?a)]\nSee the existing keys for examples.\n\nFunctions can be bound to multiple keys, but binding keys to\nmultiple functions will not work - the last binding for a key\nprevails." :version "24.1" allout-unprefixed-keybindings #[0 "\300\207" [(("[(control ?k)]" allout-kill-line) ("[(meta ?k)]" allout-copy-line-as-kill) ("[(control ?y)]" allout-yank) ("[(meta ?y)]" allout-yank-pop))] 1 #1#] "Allout-mode functions bound to keys without any added prefix.\n\nThis is in contrast to the majority of `allout-mode' bindings on\n`allout-prefixed-keybindings', whose bindings are created with a\npreceding command key.\n\nUse vector format for the keys:\n - put literal keys after a `?' question mark, eg: `?a', `?.'\n - enclose control, shift, or meta-modified keys as sequences within\n parentheses, with the literal key, as above, preceded by the name(s)\n of the modifiers, eg: [(control ?a)]\nSee the existing keys for examples."] 12)#@121 Institute `allout-auto-activation'. Intended to be used as the `allout-auto-activation' :set function. (fn VAR VALUE) (defalias 'allout-auto-activation-helper #[514 "\300\"\210\301 \207" [set-default allout-setup] 5 (#$ . 5629)])#@273 Do fundamental Emacs session for allout auto-activation. Establishes allout processing as part of visiting a file if `allout-auto-activation' is non-nil, or removes it otherwise. The proper way to use this is through customizing the setting of `allout-auto-activation'. (defalias 'allout-setup #[0 "\204 \301\302\303\"\207\304\302\303\"\207" [allout-auto-activation remove-hook find-file-hook allout-find-file-hook add-hook] 3 (#$ . 5869)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\314 \210\300\315\302\303\316DD\317\310\320\312\313&\210\321\320\322\323\310\324%\210\300\325\302\303\326DD\327\310\330\312\313&\210\331\325!\210\300\332\302\303\333DD\334\335\336\310\330\312\313& \210\331\332!\210\300\337\302\303\340DD\341\310\330\312\313&\210\331\337!\210\342\337\343\344#\210\300\345\302\303\346DD\347\310\350\312\313&\210\331\345!\210\342\345\343\351#\210\300\352\302\303\353DD\354\310\330\312\313&\210\331\352!\210\342\352\343\344#\210\300\355\302\303\356DD\357\310\330\312\313&\210\300\360\302\303\361DD\362\310\330\312\313&\210\300\363\302\303\364DD\365\310\366\312\313&\210\331\363!\210\342\363\343\367#\210\300\370\302\303\371DD\372\310\366\312\313&\210\331\370!\210\342\370\343\367#\210\300\373\302\303\374DD\375\310\366\312\313&\210\331\373!\210\342\373\343\367#\210\300\376\302\303\377DD\201@\310\366\312\313&\210\331\376!\210\342\376\343\367#\210\300\201A\302\303\201BDD\201C\310\201D\312\313&\210\342\201A\343\201E#\207" [custom-declare-variable allout-auto-activation funcall function #[0 "\300\207" [nil] 1 #1=""] "Configure allout outline mode auto-activation.\n\nControl whether and how allout outline mode is automatically\nactivated when files are visited with non-nil buffer-specific\nfile variable `allout-layout'.\n\nWhen `allout-auto-activation' is \"On\" (t), allout mode is\nactivated in buffers with non-nil `allout-layout', and the\nspecified layout is applied.\n\nWith value \"ask\", auto-mode-activation is enabled, and endorsement for\nperforming auto-layout is asked of the user each time.\n\nWith value \"activate\", only auto-mode-activation is enabled.\nAuto-layout is not.\n\nWith value nil, inhibit any automatic allout-mode activation." :set allout-auto-activation-helper :type (choice (const :tag "On" t) (const :tag "Ask about layout" "ask") (const :tag "Mode only" "activate") (const :tag "Off" nil)) :group allout allout-setup allout-default-layout #[0 "\300\207" [(-2 : 0)] 1 #1#] "Default allout outline layout specification.\n\nThis setting specifies the outline exposure to use when\n`allout-layout' has the local value t. This docstring describes the\nlayout specifications.\n\nA list value specifies a default layout for the current buffer,\nto be applied upon activation of `allout-mode'. Any non-nil\nvalue will automatically trigger `allout-mode', provided\n`allout-auto-activation' has been customized to enable it.\n\nThe types of elements in the layout specification are:\n\n INTEGER -- dictate the relative depth to open the corresponding topic(s),\n where:\n -- negative numbers force the topic to be closed before opening\n to the absolute value of the number, so all siblings are open\n only to that level.\n -- positive numbers open to the relative depth indicated by the\n number, but do not force already opened subtopics to be closed.\n -- 0 means to close topic -- hide all subitems.\n : -- repeat spec -- apply the preceding element to all siblings at\n current level, *up to* those siblings that would be covered by specs\n following the `:' on the list. Ie, apply to all topics at level but\n trailing ones accounted for by trailing specs. (Only the first of\n multiple colons at the same level is honored -- later ones are ignored.)\n * -- completely exposes the topic, including bodies\n + -- exposes all subtopics, but not the bodies\n - -- exposes the body of the corresponding topic, but not subtopics\n LIST -- a nested layout spec, to be applied intricately to its\n corresponding item(s)\n\nExamples:\n (-2 : 0)\n Collapse the top-level topics to show their children and\n grandchildren, but completely collapse the final top-level topic.\n (-1 () : 1 0)\n Close the first topic so only the immediate subtopics are shown,\n leave the subsequent topics exposed as they are until the\n second to last topic, which is exposed at least one level, and\n completely close the last topic.\n (-2 : -1 *)\n Expose children and grandchildren of all topics at current\n level except the last two; expose children of the second to\n last and completely expose the last one, including its subtopics.\n\nSee `allout-expose-topic' for more about the exposure process.\n\nAlso, allout's mode-specific provisions will make topic prefixes default\nto the `comment-start' string, if any, of the language of the file. This\nis modulo the setting of `allout-use-mode-specific-leader', which see." allout-layout-type define-widget lazy "Allout layout format customization basic building blocks." (repeat (choice (integer :tag "integer (<= zero is strict)") (const :tag ": (repeat prior)" :) (const :tag "* (completely expose)" *) (const :tag "+ (expose all offspring, headlines only)" +) (const :tag "- (expose topic body but not offspring)" -) (allout-layout-type :tag ""))) allout-inhibit-auto-fill #[0 "\300\207" [nil] 1 #1#] "If non-nil, auto-fill will be inhibited in the allout buffers.\n\nYou can customize this setting to set it for all allout buffers, or set it\nin individual buffers if you want to inhibit auto-fill only in particular\nbuffers. (You could use a function on `allout-mode-hook' to inhibit\nauto-fill according, eg, to the major mode.)\n\nIf you don't set this and `auto-fill-mode' is enabled, allout will use the\nvalue that `normal-auto-fill-function', if any, when allout mode starts, or\nelse allout's special hanging-indent maintaining auto-fill function,\n`allout-auto-fill'." boolean make-variable-buffer-local allout-inhibit-auto-fill-on-headline #[0 "\300\207" [nil] 1 #1#] "If non-nil, auto-fill will be inhibited while on topic's header line." :version "24.1" allout-use-hanging-indents #[0 "\300\207" [t] 1 #1#] "If non-nil, topic body text auto-indent defaults to indent of the header.\nI.e., it is indented to be just past the header prefix. This is\nrelevant mostly for situations where auto-fill occurs." put safe-local-variable booleanp allout-reindent-bodies #[0 "\205\301\207" [allout-use-hanging-indents text] 1 #1#] "Non-nil enables auto-adjust of topic body hanging indent with depth shifts.\n\nWhen active, topic body lines that are indented even with or beyond\ntheir topic header are reindented to correspond with depth shifts of\nthe header.\n\nA value of t enables reindent in non-programming-code buffers, ie\nthose that do not have the variable `comment-start' set. A value of\n`force' enables reindent whether or not `comment-start' is set." (choice (const nil) (const t) (const text) (const force)) #[257 "\211\300>\207" [(nil t text force)] 3 "\n\n(fn X)"] allout-show-bodies #[0 "\300\207" [nil] 1 #1#] "If non-nil, show entire body when exposing a topic, rather than just the header." allout-beginning-of-line-cycles #[0 "\300\207" [t] 1 #1#] "If non-nil, \\[allout-beginning-of-line] will cycle through smart-placement options.\n\nCycling only happens on when the command is repeated, not when it\nfollows a different command.\n\nSmart-placement means that repeated calls to this function will\nadvance as follows:\n\n - if the cursor is on a non-headline body line and not on the first column:\n then it goes to the first column\n - if the cursor is on the first column of a non-headline body line:\n then it goes to the start of the headline within the item body\n - if the cursor is on the headline and not the start of the headline:\n then it goes to the start of the headline\n - if the cursor is on the start of the headline:\n then it goes to the bullet character (for hotspot navigation)\n - if the cursor is on the bullet character:\n then it goes to the first column of that line (the headline)\n - if the cursor is on the first column of the headline:\n then it goes to the start of the headline within the item body.\n\nIn this fashion, you can use the `beginning-of-line' command to do\nits normal job and then, when repeated, advance through the\nentry, cycling back to start.\n\nIf this configuration variable is nil, then the cursor is just\nadvanced to the beginning of the line and remains there on\nrepeated calls." allout-end-of-line-cycles #[0 "\300\207" [t] 1 #1#] "If non-nil, \\[allout-end-of-line] will cycle through smart-placement options.\n\nCycling only happens on when the command is repeated, not when it\nfollows a different command.\n\nSmart placement means that repeated calls to this function will\nadvance as follows:\n\n - if the cursor is not on the end-of-line,\n then it goes to the end-of-line\n - if the cursor is on the end-of-line but not the end-of-entry,\n then it goes to the end-of-entry, exposing it if necessary\n - if the cursor is on the end-of-entry,\n then it goes to the end of the head line\n\nIn this fashion, you can use the end-of-line command to do its\nnormal job and then, when repeated, advance through the entry,\ncycling back to start.\n\nIf this configuration variable is nil, then the cursor is just\nadvanced to the end of the line and remains there on repeated\ncalls." allout-header-prefix #[0 "\300\207" ["."] 1 #1#] "Leading string which helps distinguish topic headers.\n\nOutline topic header lines are identified by a leading topic\nheader prefix, which mostly have the value of this var at their front.\nLevel 1 topics are exceptions. They consist of only a single\ncharacter, which is typically set to the `allout-primary-bullet'." string stringp allout-primary-bullet #[0 "\300\207" ["*"] 1 #1#] "Bullet used for top-level outline topics.\n\nOutline topic header lines are identified by a leading topic header\nprefix, which is concluded by bullets that includes the value of this\nvar and the respective allout-*-bullets-string vars.\n\nThe value of an asterisk (`*') provides for backwards compatibility\nwith the original Emacs outline mode. See `allout-plain-bullets-string'\nand `allout-distinctive-bullets-string' for the range of available\nbullets." allout-plain-bullets-string #[0 "\300\207" [".,"] 1 #1#] "The bullets normally used in outline topic prefixes.\n\nSee `allout-distinctive-bullets-string' for the other kind of\nbullets.\n\nDO NOT include the close-square-bracket, `]', as a bullet.\n\nOutline mode has to be reactivated in order for changes to the value\nof this var to take effect." allout-distinctive-bullets-string #[0 "\300\207" ["*+-=>()[{}&!?#%\"X@$~_\\:;^"] 1 #1#] "Persistent outline header bullets used to distinguish special topics.\n\nThese bullets are distinguish topics with particular character.\nThey are not used by default in the topic creation routines, but\nare offered as options when you modify topic creation with a\nuniversal argument (\\[universal-argument]), or during rebulleting (\\[allout-rebullet-current-heading]).\n\nDistinctive bullets are not cycled when topics are shifted or\notherwise automatically rebulleted, so their marking is\npersistent until deliberately changed. Their significance is\npurely by convention, however. Some conventions suggest\nthemselves:\n\n `(' - open paren -- an aside or incidental point\n `?' - question mark -- uncertain or outright question\n `!' - exclamation point/bang -- emphatic\n `[' - open square bracket -- meta-note, about item instead of item's subject\n `\"' - double quote -- a quotation or other citation\n `=' - equal sign -- an assignment, some kind of definition\n `^' - carat -- relates to something above\n\nSome are more elusive, but their rationale may be recognizable:\n\n `+' - plus -- pending consideration, completion\n `_' - underscore -- done, completed\n `&' - ampersand -- addendum, furthermore\n\n(Some other non-plain bullets have special meaning to the\nsoftware. By default:\n\n `~' marks encryptable topics -- see `allout-topic-encryption-bullet'\n `#' marks auto-numbered bullets -- see `allout-numbered-bullet'.)\n\nSee `allout-plain-bullets-string' for the standard, alternating\nbullets.\n\nYou must run `allout-set-regexp' in order for outline mode to\nadopt changes of this value.\n\nDO NOT include the close-square-bracket, `]', on either of the bullet\nstrings." allout-use-mode-specific-leader #[0 "\300\207" [t] 1 #1#] "When non-nil, use mode-specific topic-header prefixes.\n\nAllout outline mode will use the mode-specific `allout-mode-leaders' or\n`comment-start' string, if any, to lead the topic prefix string, so topic\nheaders look like comments in the programming language. It will also use\nthe `comment-start' string, with an `_' appended, for `allout-primary-bullet'.\n\nString values are used as literals, not regular expressions, so\ndo not escape any regular-expression characters.\n\nValue t means to first check for assoc value in `allout-mode-leaders'\nalist, then use `comment-start' string, if any, then use default (`.').\n(See note about use of `comment-start' strings, below.)\n\nSet to the symbol for either of `allout-mode-leaders' or\n`comment-start' to use only one of them, respectively.\n\nValue nil means to always use the default (`.') and leave\n`allout-primary-bullet' unaltered.\n\n`comment-start' strings that do not end in spaces are tripled in\nthe header-prefix, and an `_' underscore is tacked on the end, to\ndistinguish them from regular comment strings. `comment-start'\nstrings that do end in spaces are not tripled, but an underscore\nis substituted for the space. [This presumes that the space is\nfor appearance, not comment syntax. You can use\n`allout-mode-leaders' to override this behavior, when\nundesired.]" (choice (const t) (const nil) string (const allout-mode-leaders) (const comment-start)) #[257 "\211\300>\206\211;\207" [(t nil allout-mode-leaders comment-start)] 3 "\n\n(fn X)"]] 10)#@486 Specific allout-prefix leading strings per major modes. Use this if the mode's `comment-start' string isn't what you prefer, or if the mode lacks a `comment-start' string. See `allout-use-mode-specific-leader' for more details. 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 the beginning-of-line. (defvar allout-mode-leaders nil (#$ . 20085)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\312\301!\210\313\301\314\315#\210\300\316\302\303\317DD\320\306\307\310\311&\210\312\316!\210\313\316\314\315#\210\300\321\302\303\322DD\323\306\324\310\311&\210\312\321!\210\313\321\314\325#\210\300\326\302\303\327DD\330\306\331\310\311&\210\313\326\314\325#\210\300\332\302\303\333DD\334\306\335\310\311&\210\312\332!\210\313\332\314\336#\210\300\337\302\303\340DD\341\342\343\306\307\310\311& \210\300\344\302\303\345DD\346\306\307\310\311&\210\300\347\302\303\350DD\351\306\352\310\311&\210\300\353\302\303\354DD\355\306\352\310\311&\210\300\356\302\303\357DD\355\306\352\310\311&\210\300\360\302\303\361DD\362\306\352\310\311&\210\300\363\302\303\364DD\365\306\366\367\370\310\311& \210\300\371\302\303\372DD\373\306\352\310\311&\210\300\374\302\303\375DD\376\306\352\310\311&\210\377\201@\201A\201B\310\311%\210\300\201C\302\303\201DDD\201E\306\201F\342\201G\310\201@& \210\300\201H\302\303\201IDD\201J\306\307\342\201K\310\201@& \210\312\201H!\207" [custom-declare-variable allout-old-style-prefixes funcall function #[0 "\300\207" [nil] 1 #1=""] "When non-nil, use only old-and-crusty `outline-mode' `*' topic prefixes.\n\nNon-nil restricts the topic creation and modification\nfunctions to asterix-padded prefixes, so they look exactly\nlike the original Emacs-outline style prefixes.\n\nWhatever the setting of this variable, both old and new style prefixes\nare always respected by the topic maneuvering functions." :type boolean :group allout make-variable-buffer-local put safe-local-variable booleanp allout-stylish-prefixes #[0 "\300\207" [t] 1 #1#] "Do fancy stuff with topic prefix bullets according to level, etc.\n\nNon-nil enables topic creation, modification, and repositioning\nfunctions to vary the topic bullet char (the char that marks the topic\ndepth) just preceding the start of the topic text) according to level.\nOtherwise, only asterisks (`*') and distinctive bullets are used.\n\nThis is how an outline can look (but sans indentation) with stylish\nprefixes:\n\n * Top level\n .* A topic\n . + One level 3 subtopic\n . . One level 4 subtopic\n . . A second 4 subtopic\n . + Another level 3 subtopic\n . #1 A numbered level 4 subtopic\n . #2 Another\n . ! Another level 4 subtopic with a different distinctive bullet\n . #4 And another numbered level 4 subtopic\n\nThis would be an outline with stylish prefixes inhibited (but the\nnumbered and other distinctive bullets retained):\n\n * Top level\n .* A topic\n . * One level 3 subtopic\n . * One level 4 subtopic\n . * A second 4 subtopic\n . * Another level 3 subtopic\n . #1 A numbered level 4 subtopic\n . #2 Another\n . ! Another level 4 subtopic with a different distinctive bullet\n . #4 And another numbered level 4 subtopic\n\nStylish and constant prefixes (as well as old-style prefixes) are\nalways respected by the topic maneuvering functions, regardless of\nthis variable setting.\n\nThe setting of this var is not relevant when `allout-old-style-prefixes'\nis non-nil." allout-numbered-bullet #[0 "\300\207" ["#"] 1 #1#] "String designating bullet of topics that have auto-numbering; nil for none.\n\nTopics having this bullet have automatic maintenance of a sibling\nsequence-number tacked on, just after the bullet. Conventionally set\nto \"#\", you can set it to a bullet of your choice. A nil value\ndisables numbering maintenance." (choice (const nil) string) string-or-null-p allout-file-xref-bullet #[0 "\300\207" ["@"] 1 #1#] "Bullet signifying file cross-references, for `allout-resolve-xref'.\n\nSet this var to the bullet you want to use for file cross-references." (choice (const nil) string) allout-presentation-padding #[0 "\300\207" [2] 1 #1#] "Presentation-format white-space padding factor, for greater indent." integer integerp allout-flattened-numbering-abbreviation #[0 "\300\207" [nil] 1 #1#] "If non-nil, `allout-flatten-exposed-to-buffer' abbreviates topic\nnumbers to minimal amount with some context. Otherwise, entire\nnumbers are always used." :version "24.1" allout-number-pages #[0 "\300\207" [nil] 1 #1#] "Non-nil turns on page numbering for LaTeX formatting of an outline." allout-label-style #[0 "\300\207" ["\\large\\bf"] 1 #1#] "Font and size of labels for LaTeX formatting of an outline." string allout-head-line-style #[0 "\300\207" ["\\large\\sl "] 1 #1#] "Font and size of entries for LaTeX formatting of an outline." allout-body-line-style #[0 "\300\207" [" "] 1 #1#] allout-title-style #[0 "\300\207" ["\\Large\\bf"] 1 #1#] "Font and size of titles for LaTeX formatting of an outline." allout-title #[0 "\300\207" [(or buffer-file-name (buffer-name))] 1 #1#] "Expression to evaluate to determine the title for LaTeX formatted copy." sexp :risky t allout-line-skip #[0 "\300\207" [".05cm"] 1 #1#] "Space between lines for LaTeX formatting of an outline." allout-indent #[0 "\300\207" [".3cm"] 1 #1#] "LaTeX formatted depth-indent spacing." custom-declare-group allout-encryption nil "Settings for topic encryption features of allout outliner." allout-topic-encryption-bullet #[0 "\300\207" ["~"] 1 #1#] "Bullet signifying encryption of the entry's body." (choice (const nil) string) "22.1" allout-encrypt-unencrypted-on-saves #[0 "\300\207" [t] 1 #1#] "If non-nil, topics pending encryption are encrypted during buffer saves.\n\nThis prevents file-system exposure of un-encrypted contents of\nitems marked for encryption.\n\nWhen non-nil, if the topic currently being edited is decrypted,\nit will be encrypted for saving but automatically decrypted\nbefore any subsequent user interaction, so it is once again clear\ntext for editing though the file system copy is encrypted.\n\n(Auto-saves are handled differently. Buffers with plain-text\nexposed encrypted topics are exempted from auto saves until all\nsuch topics are encrypted.)" "23.1"] 10)#@192 Non-nil while topic encryption is pending and auto-saving was active. The value of `buffer-saved-size' at the time of decryption is used, for restoring when all encryptions are established. (defvar allout-auto-save-temporarily-disabled nil (#$ . 26569))#@71 Non-nil just after undo commands, until allout-post-command-business. (defvar allout-just-did-undo nil (#$ . 26829)) (byte-code "\300\301!\210\302\303\304\305\306\307%\210\310\311\312\313\314DD\315\316\317\306\307&\210\300\311!\207" [make-variable-buffer-local allout-just-did-undo custom-declare-group allout-developer nil "Allout settings developers care about, including topic encryption and more." :group allout custom-declare-variable allout-enable-file-variable-adjustment funcall function #[0 "\300\207" [t] 1 ""] "If non-nil, some allout outline actions edit Emacs local file var text.\n\nThis can range from changes to existing entries, addition of new ones,\nand creation of a new local variables section when necessary.\n\nEmacs file variables adjustments are also inhibited if `enable-local-variables'\nis nil.\n\nOperations potentially causing edits include allout encryption routines.\nFor details, see `allout-toggle-current-subtree-encryption's docstring." :type boolean] 8)#@48 Version of currently loaded allout.el package. (defvar allout-version "2.3" (#$ . 27826))#@75 Return string describing the loaded outline version. (fn &optional HERE) (defalias 'allout-version #[256 "\301P\203\n\211c\210\302\303\"\210\207" [allout-version "Allout Outline Mode v " message "%s"] 5 (#$ . 27921) "P"])#@38 Allout outline mode minor-mode flag. (defvar allout-mode nil (#$ . 28153)) (make-variable-buffer-local 'allout-mode)#@1049 Buffer-specific setting for allout layout. In buffers where this is non-nil (and if `allout-auto-activation' has been customized to enable this behavior), `allout-mode' will be automatically activated. The layout dictated by the value will be used to set the initial exposure when `allout-mode' is activated. *You should not `setq-default' this variable non-nil unless you want every visited file to be treated as an allout file.* The value would typically be set by a file local variable. For example, the following lines at the bottom of an Emacs Lisp file: ;;;Local variables: ;;;allout-layout: (0 : -1 -1 0) ;;;End: dictate activation of `allout-mode' mode when the file is visited (presuming proper `allout-auto-activation' customization), followed by the equivalent of `(allout-expose-topic 0 : -1 -1 0)'. (This is the layout used for the allout.el source file.) `allout-default-layout' describes the specification format. `allout-layout' can additionally have the value t, in which case the value of `allout-default-layout' is used. (defvar allout-layout nil (#$ . 28277)) (byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local allout-layout put safe-local-variable #[257 "\211\247\206 \211<\206 \211\300>\207" [(: * + -)] 3 "\n\n(fn X)"]] 4)#@215 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 `allout-set-regexp'. (defvar allout-regexp "" (#$ . 29564)) (make-variable-buffer-local 'allout-regexp)#@247 A string dictating the valid set of outline topic bullets. This var should *not* be set by the user -- it is set by `allout-set-regexp', and is produced from the elements of `allout-plain-bullets-string' and `allout-distinctive-bullets-string'. (defvar allout-bullets-string "" (#$ . 29867)) (make-variable-buffer-local 'allout-bullets-string)#@59 Length of current buffers' `allout-plain-bullets-string'. (defvar allout-bullets-string-len 0 (#$ . 30217)) (make-variable-buffer-local 'allout-bullets-string-len)#@454 Regular expression to match a heading line prefix for a particular depth. This expression is used to search for depth-specific topic headers at depth 2 and greater. Use `allout-depth-one-regexp' for to seek topics at depth one. This var is set according to the user configuration vars by `allout-set-regexp'. It is prepared with format strings for two decimal numbers, which should each be one less than the depth of the topic prefix to be matched. (defvar allout-depth-specific-regexp "" (#$ . 30387)) (make-variable-buffer-local 'allout-depth-specific-regexp)#@289 Regular expression to match a heading line prefix for depth one. This var is set according to the user configuration vars by `allout-set-regexp'. It is prepared with format strings for two decimal numbers, which should each be one less than the depth of the topic prefix to be matched. (defvar allout-depth-one-regexp "" (#$ . 30959)) (make-variable-buffer-local 'allout-depth-one-regexp)#@111 `allout-regexp' prepended with a newline for the search target. This is properly set by `allout-set-regexp'. (defvar allout-line-boundary-regexp nil (#$ . 31356)) (make-variable-buffer-local 'allout-line-boundary-regexp)#@73 Like `allout-line-boundary-regexp', for headers at beginning of buffer. (defvar allout-bob-regexp nil (#$ . 31583)) (make-variable-buffer-local 'allout-bob-regexp)#@69 Allout-header prefix length to subtract when computing topic depth. (defvar allout-header-subtraction (byte-code "GS\207" [allout-header-prefix] 1) (#$ . 31752)) (make-variable-buffer-local 'allout-header-subtraction)#@74 Length of `allout-plain-bullets-string', updated by `allout-set-regexp'. (defvar allout-plain-bullets-string-len (length allout-plain-bullets-string) (#$ . 31976)) (make-variable-buffer-local 'allout-plain-bullets-string-len)#@1272 Validate apparent topics of this depth and shallower as being non-aberrant. Verified with `allout-aberrant-container-p'. The usefulness of this check is limited to shallow depths, because the determination of aberrance is according to the mistaken item being followed by a legitimate item of excessively greater depth. The classic example of a mistaken item, for a standard allout outline configuration, is a body line that begins with an `...' ellipsis. This happens to contain a legitimate depth-2 header prefix, constituted by two `..' dots at the beginning of the line. The only thing that can distinguish it *in principle* from a legitimate one is if the following real header is at a depth that is discontinuous from the depth of 2 implied by the ellipsis, ie depth 4 or more. As the depth being tested gets greater, the likelihood of this kind of disqualification is lower, and the usefulness of this test is lower. Extending the depth of the doublecheck increases the amount it is applied, increasing the cost of the test - on casual estimation, for outlines with many deep topics, geometrically (O(n)?). Taken together with decreasing likelihood that the test will be useful at greater depths, more modest doublecheck limits are more suitably economical. (defconst allout-doublecheck-at-and-shallower 3 (#$ . 32209))#@76 Reset the leading string used to identify topic headers. (fn HEADER-LEAD) (defalias 'allout-reset-header-lead #[257 "\211\211GS\302 \207" [allout-header-prefix allout-header-subtraction allout-set-regexp] 2 (#$ . 33547) "sNew lead string: "])#@193 Set the topic-header leading string to specified string. Useful for encapsulating outline structure in programming language comments. Returns the leading string. (fn &optional HEADER-LEAD) (defalias 'allout-lead-with-comment-string #[256 "\211;\204\n\301\302!\262\303\304!\210\207" [allout-reindent-bodies read-string "String prefix for topic headers: " nil allout-reset-header-lead] 3 (#$ . 33799) "P"])#@326 Determine appropriate `allout-header-prefix' and `allout-primary-bullet'. Works according to settings of: `comment-start' `allout-header-prefix' (default) `allout-use-mode-specific-leader' and `allout-mode-leaders'. Apply this via (re)activation of `allout-mode', rather than invoking it directly. (defalias 'allout-infer-header-lead-and-primary-bullet #[0 "\306\300!\205;\204\307>\203\202\310\211\204\311\202V\211;\203'\211\202V\211\312>\2034 \n\236A\206V\211\313>\205V \205V \211GS\311O\314\230\203P \315\316O\202T \211\211Q\317P\211\205d\211 \204c\211\f\207" [allout-use-mode-specific-leader major-mode allout-mode-leaders comment-start allout-header-prefix allout-old-style-prefixes boundp (allout-mode-leaders comment-start t) t nil (t allout-mode-leaders) (t comment-start) " " 0 -1 "_" allout-primary-bullet] 4 (#$ . 34217)]) (defalias 'allout-infer-header-lead 'allout-infer-header-lead-and-primary-bullet)#@215 Determine proper setting for `allout-reindent-bodies'. Depends on default setting of `allout-reindent-bodies' (which see) and presence of setting for `comment-start', to tell whether the file is programming code. (defalias 'allout-infer-body-reindent #[0 "\205 \205\302=?\205\303\211\207" [allout-reindent-bodies comment-start force nil] 2 (#$ . 35192)])#@223 Generate proper topic-header regexp form for outline functions. Works with respect to `allout-plain-bullets-string' and `allout-distinctive-bullets-string'. Also refresh various data structures that hinge on the regexp. (defalias 'allout-set-regexp #[0 "\306\301\307\305E\310\211\211\211\203I\311\262@J\211\262G\262\211W\203BH\262\312\267\2024\313\2029\306\2029\314\315!!P\211T\262\202A\262\202\n\266 G GS\310\211\211\316\314 !\317\320\260\262\316\314 !\321\314 !\322 \323\260\262\324\262\321\321\260\"\325\326\326\260#\327\330\330\260$\331\332\314 !!\333\332!\320\311\fW\203\244\306\202\273\334\332\314 !!\332\314 !!\332\314 !!\335\332 !\320\260\336\260%\331\314 !\337\340\323Q\336\311\fW\203\324\306\202\335\321\314 !\341 \323\260\336\260\211&\207" [allout-bullets-string allout-plain-bullets-string allout-plain-bullets-string-len allout-header-prefix allout-header-subtraction allout-primary-bullet "" allout-distinctive-bullets-string nil 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (45 44 93 48)) "--" regexp-quote char-to-string "\\(" "[ ]*[" "]\\)" "\\|" "\\)+ ?[^" "]" "\\(\f\\)" "\n" "\\|\n" "\\`" "\\|\\`" "\\(^\\|\\`\\)\\(\\(" allout-format-quote " \\{%s\\}[" "\\|\\(" "\\{%s\\}[^" "\\)" " *" "[^ " "[^" allout-regexp allout-line-boundary-regexp allout-bob-regexp allout-depth-specific-regexp allout-depth-one-regexp] 15 (#$ . 35563) nil]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias set-allout-regexp allout-set-regexp nil make-obsolete "26.1"] 4) (defalias 'allout-produce-mode-menubar-entries #[0 "\301\302\303\304#\210\305\302\304\306$\210\301\307\303\310#\210\305\307\310\311$\210\301\312\303\313#\210\305\312\313\314$\210\301\315\303\316#\210\305\315\316\317$\207" [allout-mode-map-value defvar-1 allout-mode-exposure-menu nil "Allout outline exposure menu." easy-menu-do-define ("Exposure" ["Show Entry" allout-show-current-entry t] ["Show Children" allout-show-children t] ["Show Subtree" allout-show-current-subtree t] ["Hide Subtree" allout-hide-current-subtree t] ["Hide Leaves" allout-hide-current-leaves t] "----" ["Show All" allout-show-all t]) allout-mode-editing-menu "Allout outline editing menu." ("Headings" ["Open Sibling" allout-open-sibtopic t] ["Open Subtopic" allout-open-subtopic t] ["Open Supertopic" allout-open-supertopic t] "----" ["Shift Topic In" allout-shift-in t] ["Shift Topic Out" allout-shift-out t] ["Rebullet Topic" allout-rebullet-topic t] ["Rebullet Heading" allout-rebullet-current-heading t] ["Number Siblings" allout-number-siblings t] "----" ["Toggle Topic Encryption" allout-toggle-current-subtree-encryption (> (allout-current-depth) 1)]) allout-mode-navigation-menu "Allout outline navigation menu." ("Navigation" ["Next Visible Heading" allout-next-visible-heading t] ["Previous Visible Heading" allout-previous-visible-heading t] "----" ["Up Level" allout-up-current-level t] ["Forward Current Level" allout-forward-current-level t] ["Backward Current Level" allout-backward-current-level t] "----" ["Beginning of Entry" allout-beginning-of-current-entry t] ["End of Entry" allout-end-of-entry t] ["End of Subtree" allout-end-of-current-subtree t]) allout-mode-misc-menu "Allout outlines miscellaneous bindings." ("Misc" ["Version" allout-version t] "----" ["Duplicate Exposed" allout-copy-exposed-to-buffer t] ["Duplicate Exposed, numbered" allout-flatten-exposed-to-buffer t] ["Duplicate Exposed, indented" allout-indented-exposed-to-buffer t] "----" ["Set Header Lead" allout-reset-header-lead t] ["Set New Exposure" allout-expose-topic t])] 5])#@133 Internal `allout-mode' use; settings to be resumed on mode deactivation. See `allout-add-resumptions' and `allout-do-resumptions'. (defvar allout-mode-prior-settings nil (#$ . 39212)) (make-variable-buffer-local 'allout-mode-prior-settings)#@1145 Set name/value PAIRS. Old settings are preserved for later resumption using `allout-do-resumptions'. The new values are set as a buffer local. On resumption, the prior buffer scope of the variable is restored along with its value. If it was a void buffer-local value, then it is left as nil on resumption. The pairs are lists whose car is the name of the variable and car of the cdr is the new value: `(some-var some-value)'. The pairs can actually be triples, where the third element qualifies the disposition of the setting, as described further below. If the optional third element is the symbol `extend', then the new value created by `cons'ing the second element of the pair onto the front of the existing value. If the optional third element is the symbol `append', then the new value is extended from the existing one by `append'ing a list containing the second element of the pair onto the end of the existing value. Extension, and resumptions in general, should not be used for hook functions -- use the `local' mode of `add-hook' for that, instead. The settings are stored on `allout-mode-prior-settings'. (fn &rest PAIRS) (defalias 'allout-add-resumptions #[128 "\211\205\242\211A\262\242\211@A@G\301V\205AA@\3029\204)\303\304\305!#\210\30613J0\2025\210\302\262\307\"\204W\310p\"\203NDB\202WCB\311!\210\203\232\312\267\202\221\211<\204n\303\313!\266\202BL\266\202\211<\204\205\303\314!\266\202\315C\"L\266\202\303\316\"\266\202L\266\202\207" [allout-mode-prior-settings 2 nil error "Pair's name, %S, must be a symbol, not %s" type-of (void-variable) assoc local-variable-p make-local-variable #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (extend 97 append 120)) "Extension of non-list prior value attempted" "Appending of non-list prior value attempted" append "Unrecognized setting qualifier `%s' encountered"] 11 (#$ . 39461)])#@198 Resume all name/value settings registered by `allout-add-resumptions'. This is used when concluding `allout-mode', to resume selected variables to their settings before `allout-mode' was started. (defalias 'allout-do-resumptions #[0 "\205\"\211A\242\211@A\211\204\301!\266\202@L\266\202\207" [allout-mode-prior-settings kill-local-variable] 5 (#$ . 41423)])#@72 Enable internal outline operations to alter invisible text. (fn EXPR) (defalias 'allout-unprotected '(macro . #[257 "\300\301E\207" [let ((inhibit-read-only (if (not buffer-read-only) t)) (inhibit-field-text-motion t))] 4 (#$ . 41803)]))#@35 Hook run when allout mode starts. (defvar allout-mode-hook nil (#$ . 42048))#@59 Symbol for use as allout invisible-text overlay category. (defvar allout-exposure-category nil (#$ . 42130)) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\307\310\311\312\313& \210\300\317\302\303\320DD\321\306\307\310\311\312\313& \210\300\322\302\303\323DD\324\306\307\310\311\312\313& \210\300\325\302\303\326DD\327\306\307\310\311\312\313& \210\300\330\302\303\331DD\332\306\307\310\311\312\313& \207" [custom-declare-variable allout-exposure-change-functions funcall function #[0 "\300\207" [nil] 1 #1=""] "Abnormal hook run after allout outline subtree exposure changes.\nIt is run at the conclusion of `allout-flag-region'.\n\nFunctions on the hook must take three arguments:\n\n - FROM -- integer indicating the point at the start of the change.\n - TO -- integer indicating the point of the end of the change.\n - FLAG -- change mode: nil for exposure, otherwise concealment.\n\nThis hook might be invoked multiple times by a single command." :type hook :group allout :version "24.3" allout-structure-added-functions #[0 "\300\207" [nil] 1 #1#] "Abnormal hook run after adding items to an Allout outline.\nFunctions on the hook should take two arguments:\n\n - NEW-START -- integer indicating position of start of the first new item.\n - NEW-END -- integer indicating position of end of the last new item.\n\nThis hook might be invoked multiple times by a single command." allout-structure-deleted-functions #[0 "\300\207" [nil] 1 #1#] "Abnormal hook run after deleting subtrees from an Allout outline.\nFunctions on the hook must take two arguments:\n\n - DEPTH -- integer indicating the depth of the subtree that was deleted.\n - REMOVED-FROM -- integer indicating the point where the subtree was removed.\n\nSome edits that remove or invalidate items may be missed by this hook:\nspecifically edits that native allout routines do not control.\n\nThis hook might be invoked multiple times by a single command." allout-structure-shifted-functions #[0 "\300\207" [nil] 1 #1#] "Abnormal hook run after shifting items in an Allout outline.\nFunctions on the hook should take two arguments:\n\n - DEPTH-CHANGE -- integer indicating depth increase, negative for decrease\n - START -- integer indicating the start point of the shifted parent item.\n\nSome edits that shift items can be missed by this hook: specifically edits\nthat native allout routines do not control.\n\nThis hook might be invoked multiple times by a single command." allout-after-copy-or-kill-hook #[0 "\300\207" [nil] 1 #1#] "Normal hook run after copying outline text.." allout-post-undo-hook #[0 "\300\207" [nil] 1 #1#] "Normal hook run after undo activity.\nThe item that's current when the hook is run *may* be the one\nthat was affected by the undo.."] 10)#@194 Value of `normal-auto-fill-function' outside of allout mode. Used by `allout-auto-fill' to do the mandated `normal-auto-fill-function' wrapped within allout's automatic `fill-prefix' setting. (defvar allout-outside-normal-auto-fill-function nil (#$ . 44927)) (byte-code "\300\301!\210\302\303\304\"\207" [make-variable-buffer-local allout-outside-normal-auto-fill-function add-to-list desktop-minor-mode-handlers (allout-mode)] 3)#@328 Internal variable, is nil or has the value of two points: - the location of a topic to be decrypted after saving is done - where to situate the cursor after the decryption is performed This is used to decrypt the topic that was currently being edited, if it was encrypted automatically as part of a file write or autosave. (defvar allout-after-save-decrypt nil (#$ . 45365)) (make-variable-buffer-local 'allout-after-save-decrypt)#@595 List of regexps whose matches are removed from plaintext before encryption. This is for the sake of removing artifacts, like escapes, that are added on and not actually part of the original plaintext. The removal is done just prior to encryption. Entries must be symbols that are bound to the desired values. Each value can be a regexp or a list with a regexp followed by a substitution string. If it's just a regexp, all its matches are removed before the text is encrypted. If it's a regexp and a substitution, the substitution is used against the regexp matches, a la `replace-match'. (defvar allout-encryption-plaintext-sanitization-regexps nil (#$ . 45806)) (make-variable-buffer-local 'allout-encryption-plaintext-sanitization-regexps)#@429 Variable for regexps matching plaintext to remove before encryption. This is used to detect strings in encryption results that would register as allout mode structural elements, for example, as a topic prefix. Entries must be symbols that are bound to the desired regexp values. Encryptions that result in matches will be retried, up to `allout-encryption-ciphertext-rejection-ceiling' times, after which an error is raised. (defvar allout-encryption-ciphertext-rejection-regexps nil (#$ . 46560)) (make-variable-buffer-local 'allout-encryption-ciphertext-rejection-regexps)#@138 Limit on number of times encryption ciphertext is rejected. See `allout-encryption-ciphertext-rejection-regexps' for rejection reasons. (defvar allout-encryption-ciphertext-rejection-ceiling 5 (#$ . 47144)) (make-variable-buffer-local 'allout-encryption-ciphertext-rejection-ceiling)#@56 Return t if `allout-mode' is active in current buffer. (defalias 'allout-mode-p '(macro . #[0 "\300\207" [allout-mode] 1 (#$ . 47434)]))#@397 Implement `allout-encrypt-unencrypted-on-saves' for file writes. Return nil if all goes smoothly, or else return an informative message if an error is encountered. The message will serve as a non-nil return on `write-contents-functions' to prevent saving of the buffer while it has decrypted content. This behavior depends on Emacs versions that implement the `write-contents-functions' hook. (defalias 'allout-write-contents-hook-handler #[0 "?\206\303\301!?\206 ??\205B\212eb\210\304 )\205B\305\306!\210\307\310!\210\3111.\312 \3130\207\314\315\316p!#\305!\210\307\317!\210\211\262\262\207" [allout-mode allout-encrypt-unencrypted-on-saves allout-after-save-decrypt boundp allout-next-topic-pending-encryption message "auto-encrypting pending topics" sit-for 0 (error) allout-encrypt-decrypted nil format "%s contents write inhibited due to encrypted topic encryption error: %s" buffer-name 2] 5 (#$ . 47577)])#@286 Decrypt topic encrypted for save, if it's currently being edited. Ie, if it was pending encryption and contained the point in its body before the save. We use values stored in `allout-after-save-decrypt' to locate the topic and the place for the cursor after the decryption is done. (defalias 'allout-after-saves-handler #[0 "\203\302\301!\203 \204\303\207 @b\210\304 \305 \210\211\204!\306\307!\210\210 A@b\210\307\211\207" [allout-mode allout-after-save-decrypt boundp t buffer-modified-p allout-toggle-subtree-encryption set-buffer-modified-p nil] 3 (#$ . 48512)])#@69 A version of `called-interactively-p' independent of Emacs version. (defalias 'allout-called-interactively-p '(macro . #[0 "\3001 \301\302!\210\3030\202\210\202\203\304\207\305\207" [(error) called-interactively-p interactive t (called-interactively-p 'interactive) (called-interactively-p)] 2 (#$ . 49096)]))#@151 Internal state, for momentarily inhibits aberrance doublecheck. This should only be momentarily let-bound non-nil, not set non-nil in a lasting way. (defvar allout-inhibit-aberrance-doublecheck nil (#$ . 49419))#@118 If t, `allout-mode's last deactivation was deliberate. So `allout-post-command-business' should not reactivate it... (defvar allout-explicitly-deactivated nil (#$ . 49638)) (make-variable-buffer-local 'allout-explicitly-deactivated)#@69 Set the properties of the allout invisible-text overlay and others. (defalias 'allout-overlay-preparations #[0 "\300\301\302\"\210\303\301\304\305#\210\303\301\306\307#\210\303\301\310\311#\210\303\301\312\313#\210\303\301\314\315#\207" [setplist allout-exposure-category nil put invisible allout evaporate t isearch-open-invisible allout-isearch-end-handler insert-in-front-hooks (allout-overlay-insert-in-front-handler) modification-hooks (allout-overlay-interior-modification-handler)] 4 (#$ . 49876)])#@91 Non-nil if Allout mode is enabled. Use the command `allout-mode' to change this variable. (defvar allout-mode nil (#$ . 50387)) (make-variable-buffer-local 'allout-mode)#@13213 Toggle Allout outline mode. \ Allout outline mode is a minor mode that 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 example, see the allout code itself, which is organized as an allout outline.) In addition to typical outline navigation and exposure, allout includes: - topic-oriented authoring, including keystroke-based topic creation, repositioning, promotion/demotion, cut, and paste - incremental search with dynamic exposure and reconcealment of hidden text - adjustable format, so programming code can be developed in outline-structure - easy topic encryption and decryption, symmetric or key-pair - "Hot-spot" operation, for single-keystroke maneuvering and exposure control - integral outline layout, for automatic initial exposure when visiting a file - independent extensibility, using comprehensive exposure and authoring hooks and many other features. Below is a description of the key bindings, and then description of special `allout-mode' features and terminology. See also the outline menubar additions for quick reference to many of the features. Customize `allout-auto-activation' to prepare your Emacs session for automatic activation of `allout-mode'. The bindings are those listed in `allout-prefixed-keybindings' and `allout-unprefixed-keybindings'. We recommend customizing `allout-command-prefix' to use just `\C-c' as the command prefix, if the allout bindings don't conflict with any personal bindings you have on \C-c. In any case, outline structure navigation and authoring is simplified by positioning the cursor on an item's bullet character, the "hot-spot" -- then you can invoke allout commands with just the un-prefixed, un-control-shifted command letters. This is described further in the HOT-SPOT Operation section. Exposure Control: ---------------- \[allout-hide-current-subtree] `allout-hide-current-subtree' \[allout-show-children] `allout-show-children' \[allout-show-current-subtree] `allout-show-current-subtree' \[allout-show-current-entry] `allout-show-current-entry' \[allout-show-all] `allout-show-all' Navigation: ---------- \[allout-next-visible-heading] `allout-next-visible-heading' \[allout-previous-visible-heading] `allout-previous-visible-heading' \[allout-up-current-level] `allout-up-current-level' \[allout-forward-current-level] `allout-forward-current-level' \[allout-backward-current-level] `allout-backward-current-level' \[allout-end-of-entry] `allout-end-of-entry' \[allout-beginning-of-current-entry] `allout-beginning-of-current-entry' (alternately, goes to hot-spot) \[allout-beginning-of-line] `allout-beginning-of-line' -- like regular beginning-of-line, but if immediately repeated cycles to the beginning of the current item and then to the hot-spot (if `allout-beginning-of-line-cycles' is set). Topic Header Production: ----------------------- \[allout-open-sibtopic] `allout-open-sibtopic' Create a new sibling after current topic. \[allout-open-subtopic] `allout-open-subtopic' ... an offspring of current topic. \[allout-open-supertopic] `allout-open-supertopic' ... a sibling of the current topic's parent. Topic Level and Prefix Adjustment: --------------------------------- \[allout-shift-in] `allout-shift-in' Shift current topic and all offspring deeper \[allout-shift-out] `allout-shift-out' ... less deep \[allout-rebullet-current-heading] `allout-rebullet-current-heading' Prompt for alternate bullet for current topic \[allout-rebullet-topic] `allout-rebullet-topic' Reconcile bullets of topic and its offspring -- distinctive bullets are not changed, others are alternated according to nesting depth. \[allout-number-siblings] `allout-number-siblings' Number bullets of topic and siblings -- the offspring are not affected. With repeat count, revoke numbering. Topic-oriented Killing and Yanking: ---------------------------------- \[allout-kill-topic] `allout-kill-topic' Kill current topic, including offspring. \[allout-copy-topic-as-kill] `allout-copy-topic-as-kill' Copy current topic, including offspring. \[allout-kill-line] `allout-kill-line' Kill line, attending to outline structure. \[allout-copy-line-as-kill] `allout-copy-line-as-kill' Copy line but don't delete it. \[allout-yank] `allout-yank' Yank, adjusting depth of yanked topic to depth of heading if yanking into bare topic heading (ie, prefix sans text). \[allout-yank-pop] `allout-yank-pop' Is to `allout-yank' as `yank-pop' is to `yank'. Topic-oriented Encryption: ------------------------- \[allout-toggle-current-subtree-encryption] `allout-toggle-current-subtree-encryption' Encrypt/Decrypt topic content Misc commands: ------------- \[allout-outlinify-sticky] Activate outline mode for current buffer, and establish a default file-var setting for `allout-layout'. \[allout-mark-topic] `allout-mark-topic' \[allout-copy-exposed-to-buffer] `allout-copy-exposed-to-buffer' Duplicate outline, sans concealed text, to buffer with name derived from derived from that of current buffer -- "*BUFFERNAME exposed*". \[allout-flatten-exposed-to-buffer] `allout-flatten-exposed-to-buffer' Like above `copy-exposed', but convert topic prefixes to section.subsection... numeric format. \[customize-variable] allout-auto-activation Prepare Emacs session for allout outline mode auto-activation. Topic Encryption Outline mode supports gpg encryption of topics, with support for symmetric and key-pair modes, and auto-encryption of topics pending encryption on save. Topics pending encryption are, by default, automatically encrypted during file saves, including checkpoint saves, to avoid exposing the plain text of encrypted topics in the file system. If the content of the topic containing the cursor was encrypted for a save, it is automatically decrypted for continued editing. NOTE: A few GnuPG v2 versions improperly preserve incorrect symmetric decryption keys, preventing entry of the correct key on subsequent decryption attempts until the cache times-out. That can take several minutes. (Decryption of other entries is not affected.) Upgrade your EasyPG version, if you can, and you can deliberately clear your gpg-agent's cache by sending it a `-HUP' signal. See `allout-toggle-current-subtree-encryption' function docstring and `allout-encrypt-unencrypted-on-saves' customization variable for details. HOT-SPOT Operation Hot-spot operation provides a means for easy, single-keystroke outline navigation and exposure control. 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 allout-mode keymap control chars. For example, "f" would invoke the command typically bound to "C-cC-f" (\[allout-forward-current-level] `allout-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. Regular navigation keys (eg, \[forward-char], \[next-line]) don't get this special translation, so you can use them to get out of the hot-spot and back to normal editing operation. In allout-mode, the normal beginning-of-line command (\[allout-beginning-of-line]) is replaced with one that makes it easy to get to the hot-spot. If you repeat it immediately it cycles (if `allout-beginning-of-line-cycles' is set) to the beginning of the item and then, if you hit it again immediately, to the hot-spot. Similarly, `allout-beginning-of-current-entry' (\[allout-beginning-of-current-entry]) moves to the hot-spot when the cursor is already located at the beginning of the current entry. Extending Allout Allout exposure and authoring activities all have associated hooks, by which independent code can cooperate with allout without changes to the allout core. Here are key ones: `allout-mode-hook' `allout-mode-off-hook' `allout-exposure-change-functions' `allout-structure-added-functions' `allout-structure-deleted-functions' `allout-structure-shifted-functions' `allout-after-copy-or-kill-hook' `allout-post-undo-hook' Terminology Topic hierarchy constituents -- TOPICS and SUBTOPICS: ITEM: A unitary outline element, including the HEADER and ENTRY text. TOPIC: An ITEM and any ITEMs contained within it, ie having greater DEPTH and with no intervening items of lower DEPTH than the container. CURRENT ITEM: The visible ITEM most immediately containing the cursor. DEPTH: The degree of nesting of an ITEM; it increases with containment. The DEPTH is determined by the HEADER PREFIX. The DEPTH is also called the: LEVEL: The same as DEPTH. ANCESTORS: Those ITEMs whose TOPICs contain an ITEM. PARENT: An ITEM's immediate ANCESTOR. It has a DEPTH one less than that of the ITEM. OFFSPRING: The ITEMs contained within an ITEM's TOPIC. SUBTOPIC: An OFFSPRING of its ANCESTOR TOPICs. CHILD: An immediate SUBTOPIC of its PARENT. SIBLINGS: TOPICs having the same PARENT and DEPTH. Topic text constituents: HEADER: The first line of an ITEM, include the ITEM PREFIX and HEADER text. ENTRY: The text content of an ITEM, before any OFFSPRING, but including the HEADER text and distinct from the ITEM PREFIX. BODY: Same as ENTRY. PREFIX: The leading text of an ITEM which distinguishes it from normal ENTRY text. Allout recognizes the outline structure according to the strict PREFIX format. It consists of a PREFIX-LEAD string, PREFIX-PADDING, and a BULLET. The BULLET might be followed by a number, indicating the ordinal number of the topic among its siblings, or an asterisk indicating encryption, plus an optional space. After that is the ITEM HEADER text, which is not part of the PREFIX. The relative length of the PREFIX determines the nesting DEPTH of the ITEM. PREFIX-LEAD: The string at the beginning of a HEADER PREFIX, by default a `.'. It can be customized by changing the setting of `allout-header-prefix' and then reinitializing `allout-mode'. When the PREFIX-LEAD is set to the comment-string of a programming language, outline structuring can be embedded in program code without interfering with processing of the text (by Emacs or the language processor) as program code. This setting happens automatically when allout mode is used in programming-mode buffers. See `allout-use-mode-specific-leader' docstring for more detail. PREFIX-PADDING: Spaces or asterisks which separate the PREFIX-LEAD and the bullet, determining the ITEM's DEPTH. BULLET: A character at the end of the ITEM PREFIX, it must be one of the characters listed on `allout-plain-bullets-string' or `allout-distinctive-bullets-string'. When creating a TOPIC, plain BULLETs are by default used, according to the DEPTH of the TOPIC. Choice among the distinctive BULLETs is offered when you provide a universal argument (\[universal-argument]) to the TOPIC creation command, or when explicitly rebulleting a TOPIC. The significance of the various distinctive bullets is purely by convention. See the documentation for the above bullet strings for more details. EXPOSURE: The state of a TOPIC which determines the on-screen visibility of its OFFSPRING and contained ENTRY text. CONCEALED: TOPICs and ENTRY text whose EXPOSURE is inhibited. Concealed text is represented by "..." ellipses. 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. This is a minor mode. If called interactively, toggle the `Allout mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `allout-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'allout-mode #[256 "\306 \307=\203 ?\202\247\203\310W\203\311\202\312\313\301!\2031\314\300 \"\2031\300 B\n<\203:\n\202; \204o\315 \210\316\317!\210\320\321\322\312#\210\320\323\324\312#\210\320\325\326\312#\210\320\327\330\312#\210\320\331\332\312#\210\333ed\334\335$\266\202H\f\203w\336\337!\210\340 \210\341 \210\342 \210\343 \210\336\344\345\"\210\346 \210\347 \210\350\351!\210\336\352!\210\353\321\322\311\312$\210\353\323\324\311\312$\210\353\325\326\311\312$\210\353\327\330\311\312$\210\353\331\332\311\312$\210\336\354 D\355@D\356\357/\360A\361RD\3622\360A\361RD%\210 \203\343B\204\343\336\363!\210\n\203GC\203G\211\203GC\364\230\204GC\365\230\203\366\367\370\371 #!\204\372\373\371 \"\266\202H\212\372\374\371 \"\210\375b\210\376 \210\37716\201D!\210\372\201E\371 \"0\210\202F\372\201FA@\"\210\201G\310!\266)\210\201H\201I\203X\201J\202[\201K\"\210\201L\201M!\203\214\306 \203s\211\306 \232\203\214\372\201N\201O\203\204\201P\202\207\201Q\201R$\210\210\201S \210\207" [allout-mode local-minor-modes allout-layout allout-default-layout allout-old-style-prefixes auto-fill-function current-message toggle 1 nil t boundp delq allout-do-resumptions remove-from-invisibility-spec (allout . t) remove-hook pre-command-hook allout-pre-command-business post-command-hook allout-post-command-business before-change-functions allout-before-change-handler isearch-mode-end-hook allout-isearch-end-handler write-contents-functions allout-write-contents-hook-handler remove-overlays category allout-exposure-category allout-add-resumptions (allout-primary-bullet "*") allout-overlay-preparations allout-infer-header-lead-and-primary-bullet allout-infer-body-reindent allout-set-regexp (allout-encryption-ciphertext-rejection-regexps allout-line-boundary-regexp extend) (allout-encryption-ciphertext-rejection-regexps allout-bob-regexp extend) allout-compose-and-institute-keymap allout-produce-mode-menubar-entries add-to-invisibility-spec (allout . t) (line-move-ignore-invisible t) add-hook allout-former-auto-filler allout-outside-normal-auto-fill-function (normal-auto-fill-function allout-auto-fill) paragraph-start "\\|^\\(" "\\)" paragraph-separate (auto-fill-function allout-auto-fill) "activate" "ask" y-or-n-p format-message "Expose %s with layout `%s'? " buffer-name message "Skipped %s layout." "Adjusting `%s' exposure..." 0 allout-this-or-next-heading (error) normal-auto-fill-function allout-regexp allout-inhibit-auto-fill allout-auto-activation allout-expose-topic "Adjusting `%s' exposure... done." "%s" sit-for run-hooks allout-mode-hook allout-mode-on-hook allout-mode-off-hook called-interactively-p any "%s %sabled%s" "Allout mode" "en" "dis" " in current buffer" force-mode-line-update] 13 (#$ . 50565) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar allout-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [allout-mode-hook variable-documentation put "Hook run after entering or leaving `allout-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil] 4)#@27 Keymap for `allout-mode'. (defvar allout-mode-map (byte-code "\300\301!\203\301\207\302\303\301\"\207" [keymapp allout-mode-map error "Invalid keymap %S"] 3) (#$ . 67080)) (byte-code "\301\302\303\304\211%\210\305\306\302\"\207" [allout-mode-map add-minor-mode allout-mode " Allout" nil defalias allout-minor-mode] 6)#@36 Unload the allout outline library. (defalias 'allout-unload-function #[0 "r\301 \211\203\211@\211q\210\203\300\302!\210A\266\202\202)\210\303\207" [allout-mode buffer-list -1 nil] 4 (#$ . 67406)])#@88 Non-nil if the character after point was made invisible by allout. (fn &optional POS) (defalias 'allout-hidden-p #[256 "\300\206`\301\"\302=\207" [get-char-property invisible allout] 4 (#$ . 67616)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put allout-hidden-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@105 Shift the overlay so stuff inserted in front of it is excluded. (fn OL AFTER BEG END &optional PRELEN) (defalias 'allout-overlay-insert-in-front-handler #[1284 "\205 \300T\301!#\207" [move-overlay overlay-end] 10 (#$ . 67967)])#@412 Get confirmation before making arbitrary changes to invisible text. We expose the invisible text and ask for confirmation. Refusal or `keyboard-quit' abandons the changes, with keyboard-quit additionally reclosing the opened text. No confirmation is necessary when `inhibit-read-only' is set -- eg, allout internal functions use this feature cohesively bunch changes. (fn OL AFTER BEG END &optional PRELEN) (defalias 'allout-overlay-interior-modification-handler #[1284 "?\205\220?\205\220`\301!\302!\303b\210`W\203\\\303\304\206&`\305\"\306=\262\203Q\307 \210\303\304\2069`\305\"\306=\262\203J\212\310u\210\307 )\210\211\204Q`\262\311`T\"b\210\202\211\203\214\211b\210\3121{\313\314\315!!?\205vb\210\316\317!0\210\202\214\210\320\303#\210\320\321#\210\316\322!\210b\266\204\207" [inhibit-read-only overlay-start overlay-end nil get-char-property invisible allout allout-show-to-offshoot 1 next-char-property-change (quit) yes-or-no-p substitute-command-keys "Modify concealed text? (\"no\" just aborts, \\[keyboard-quit] also reconceals) " error "Concealed-text change refused" allout-flag-region t "Concealed-text change abandoned, text reconcealed"] 13 (#$ . 68208)])#@123 Protect against changes to invisible text. See `allout-overlay-interior-modification-handler' for details. (fn BEG END) (defalias 'allout-before-change-handler #[514 "\205 \205\303\304\305\206`\306\"\307=\262\205\310 \207" [allout-mode undo-in-progress allout-just-did-undo t nil get-char-property invisible allout allout-show-children] 6 (#$ . 69427)])#@299 Reconcile allout outline exposure on arriving in hidden text after isearch. Optional OVERLAY parameter is for when this function is used by `isearch-open-invisible' overlay property. It is otherwise unused, so this function can also be used as an `isearch-mode-end-hook'. (fn &optional OVERLAY) (defalias 'allout-isearch-end-handler #[256 "\205\301\302\206 `\303\"\304=\262\205\305 \207" [allout-mode nil get-char-property invisible allout allout-show-to-offshoot] 5 (#$ . 69801)])#@65 Buffer point of the start of the last topic prefix encountered. (defvar allout-recent-prefix-beginning 0 (#$ . 70299)) (make-variable-buffer-local 'allout-recent-prefix-beginning)#@63 Buffer point of the end of the last topic prefix encountered. (defvar allout-recent-prefix-end 0 (#$ . 70484)) (make-variable-buffer-local 'allout-recent-prefix-end)#@45 Depth of the last topic prefix encountered. (defvar allout-recent-depth 0 (#$ . 70655)) (make-variable-buffer-local 'allout-recent-depth)#@64 Buffer point last returned by `allout-end-of-current-subtree'. (defvar allout-recent-end-of-subtree 0 (#$ . 70798)) (make-variable-buffer-local 'allout-recent-end-of-subtree)#@136 Register allout-prefix state data. For reference by `allout-recent' funcs. Return the new value of `allout-recent-prefix-beginning'. (defalias 'allout-prefix-data #[0 "\304\225\206\f\305\225\206\f\306\225\304\224\206\305\224\206\306\224\304 Z\nZ] \207" [allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth 1 2 3] 3 (#$ . 70979)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put allout-prefix-data speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@49 Mark allout prefix data as being uninformative. (defalias 'allout-nullify-prefix-data #[0 "``\303 \207" [allout-recent-prefix-end allout-recent-prefix-beginning allout-recent-depth 0] 1 (#$ . 71520)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put allout-nullify-prefix-data speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@314 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 `allout-recent-prefix-beginning' and `allout-recent-prefix-end' if successful. This function uses those settings to return the current depth. (defalias 'allout-recent-depth #[0 "\207" [allout-recent-depth] 1 (#$ . 71882)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put allout-recent-depth speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@310 Like `allout-recent-depth', but return text of last encountered prefix. All outline functions which directly do string matches to assess headings set the variables `allout-recent-prefix-beginning' and `allout-recent-prefix-end' if successful. This function uses those settings to return the current prefix. (defalias 'allout-recent-prefix #[0 "\302 \"\207" [allout-recent-prefix-beginning allout-recent-prefix-end buffer-substring-no-properties] 3 (#$ . 72428)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put allout-recent-prefix speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@347 Like `allout-recent-prefix', but return bullet of last encountered prefix. All outline functions which directly do string matches to assess headings set the variables `allout-recent-prefix-beginning' and `allout-recent-prefix-end' if successful. This function uses those settings to return the current depth of the most recently matched topic. (defalias 'allout-recent-bullet '(macro . #[0 "\300\207" [(buffer-substring-no-properties (1- allout-recent-prefix-end) allout-recent-prefix-end)] 1 (#$ . 73046)]))#@74 True if current item conditions qualify for checking on topic aberrance. (defalias 'allout-do-doublecheck #[0 "?\205 \nX\207" [allout-inhibit-aberrance-doublecheck allout-recent-depth allout-doublecheck-at-and-shallower] 2 (#$ . 73562)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put allout-do-doublecheck speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@476 True if topic, or next sibling with children, contains them discontinuously. Discontinuous means an immediate offspring that is nested more than one level deeper than the topic. If topic has no offspring, then the next sibling with offspring will determine whether or not this one is determined to be aberrant. If true, then the allout-recent-* settings are calibrated on the offspring that qualifies it as aberrant, ie with depth that exceeds the topic by more than one. (defalias 'allout-aberrant-container-p #[0 "\305 `\306\211\307 \310\311\"\216\212\204\\\312\306\313#\203\\\314\225\206%\315\225\206%\316\225\314\224\2062\315\224\2062\316\224\314 \nZ Z]\n\210\nb\210\f=\204 \fTV\203V\317\262\317\262\202 \317\262\202 *\210\211\206ib\210\305 \210\306\207" [allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-depth nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward 0 1 2 3 t] 9 (#$ . 73956)])#@111 Return non-nil if point is on current visible topics' header line. Actually, returns prefix beginning point. (defalias 'allout-on-current-heading-p #[0 "\212\306 \210\307 \310\311\"\216\312!\205G\313\225\206\314\225\206\315\225\313\224\206*\314\224\206*\315\224\313 \nZ Z]\n\205G ?\205@\fX?\206G\316 ?*\207" [allout-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-inhibit-aberrance-doublecheck allout-beginning-of-current-line match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 2 3 allout-aberrant-container-p allout-doublecheck-at-and-shallower] 4 (#$ . 75015)]) (defalias 'allout-on-heading-p 'allout-on-current-heading-p)#@75 True if point is located where current topic prefix ends, heading begins. (defalias 'allout-e-o-prefix-p #[0 "\302 \303\304\"\216\212\305\306 )\210\307 !)\210`\212\310 \210`)U)\207" [inhibit-field-text-motion allout-regexp match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] t beginning-of-line looking-at allout-end-of-prefix] 4 (#$ . 75767)])#@234 Return depth of topic most immediately containing point. Does not do doublecheck for aberrant topic header. Return zero if point is not within any topic. Like `allout-current-depth', but respects hidden as well as visible topics. (defalias 'allout-depth #[0 "\212`\303 \203\211`W\204\202``\304\n\210\304)\207" [allout-recent-depth allout-recent-prefix-end allout-recent-prefix-beginning allout-goto-prefix 0] 3 (#$ . 76142)])#@113 Return depth of visible topic most immediately containing point. Return zero if point is not within any topic. (defalias 'allout-current-depth #[0 "\212\303 \203\304 Z\nZ]\202\305)\207" [allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-back-to-current-heading 1 0] 3 (#$ . 76587)])#@36 Topic prefix of the current topic. (defalias 'allout-get-current-prefix #[0 "\212\302 \205\n\303 \")\207" [allout-recent-prefix-beginning allout-recent-prefix-end allout-goto-prefix buffer-substring-no-properties] 3 (#$ . 76920)])#@53 Return bullet of containing topic (visible or not). (defalias 'allout-get-bullet #[0 "\212\301 \205 \302S\")\207" [allout-recent-prefix-end allout-goto-prefix buffer-substring-no-properties] 3 (#$ . 77158)])#@74 Return bullet of current (visible) topic heading, or none if none found. (defalias 'allout-current-bullet #[0 "\3011\212\302 \210\303S\")0\207\210\304\207" [allout-recent-prefix-end (args-out-of-range) allout-back-to-current-heading buffer-substring-no-properties nil] 3 (#$ . 77374)])#@68 Return the bullet of the header prefix string PREFIX. (fn PREFIX) (defalias 'allout-get-prefix-bullet #[257 "\301\"\205\211\302\225S\302\225O\207" [allout-regexp string-match 2] 4 (#$ . 77669)])#@241 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... (fn &optional DEPTH) (defalias 'allout-sibling-index #[256 "\212\211\203\211\301X\203\301\202?\211\203\211\302 U\203/\303\304\305\"\203)\211T\262\202\211\262\202?\211W\203>\306!\210\307 \202?\301)\207" [allout-recent-depth 0 allout-depth 1 allout-previous-sibling nil allout-ascend-to-depth allout-sibling-index] 5 (#$ . 77875)])#@92 Return a list indicating point's numeric section.subsect.subsubsect... Outermost is first. (defalias 'allout-topic-flat-index #[0 "\300 \301!\302\303V\203B\262S\262\301!\262\202\207" [allout-depth allout-sibling-index nil 0] 5 (#$ . 78448)])#@46 Like beginning of line, but to visible text. (defalias 'allout-beginning-of-current-line #[0 "\301\302\303!\210\304 \210o?\205?n\203\"\305\306\206`\307\"\310=\262\205?\304 \210\305\306\206,`\307\"\310=\262\2049n\204 \311u\210\202 )\207" [inhibit-field-text-motion t move-beginning-of-line 1 beginning-of-line nil get-char-property invisible allout -1] 4 (#$ . 78708)])#@54 Move to the end of line, past concealed text if any. (defalias 'allout-end-of-current-line #[0 "\301\302\210\302\303\206\f`\304\"\305=\262\205.\302\210\302\303\206`\304\"\305=\262\203\306u\210\202)\207" [inhibit-field-text-motion t nil get-char-property invisible allout 1] 4 (#$ . 79096)])#@76 Beginning-of-line with `allout-beginning-of-line-cycles' behavior, if set. (defalias 'allout-beginning-of-line #[0 "\203\n \n\232\204*n\204&`S\306\206`\307\"\310=\262\203&\311`S\307\"b\210\312\313!\207\314 \210\212 \204C\f X\203C\315 \203C\316\313!\204.\317 \210`)i\320U\203Q\211b\207`W\203Z\321 \207`U\203d\322 b\207\321 \210`W\205o\211b\207" [allout-beginning-of-line-cycles last-command this-command allout-inhibit-aberrance-doublecheck allout-recent-depth allout-doublecheck-at-and-shallower get-char-property invisible allout previous-single-char-property-change move-beginning-of-line 1 allout-depth allout-aberrant-container-p allout-previous-visible-heading allout-beginning-of-current-entry 0 allout-beginning-of-current-line allout-current-bullet-pos] 4 (#$ . 79407) nil])#@64 End-of-line with `allout-end-of-line-cycles' behavior, if set. (defalias 'allout-end-of-line #[0 "\203\n \n\232\204 \304 \207\212\305 \210`)l\204\304 \207\306\307\206!`\310\"\311=\262\204?\212\312u\210\306\307\2065`\310\")\311=\262\203K\313 \210\314 \210\315 \210\305 \207`Y\203W\313 \210\304 \207 \204^\316 \210\305 \207" [allout-end-of-line-cycles last-command this-command mark-active allout-end-of-current-line allout-end-of-entry nil get-char-property invisible allout -1 allout-back-to-current-heading allout-show-current-entry allout-show-children push-mark] 5 (#$ . 80215) nil])#@49 True if the mark is currently or always active. (defalias 'allout-mark-active-p #[0 "\207" [mark-active] 1 (#$ . 80823)]) (make-obsolete 'allout-mark-active-p nil "28.1")#@205 Move to the heading for the topic (possibly invisible) after this one. Returns the location of the heading, or nil if none found. We skip anomalous low-level topics, a la `allout-aberrant-container-p'. (defalias 'allout-next-heading #[0 "\306 \307\310\"\216\311!\203\312u\210\313 \314\315#\205Z\312\225\206$\316\225\206$\317\225\312\224\2061\316\224\2061\317\224\312\n Z\fZ] \210 b\210n\204I\320u\210\202?\204X X\203X\321 \210 b)\207" [allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward nil 0 2 3 -1 allout-aberrant-container-p allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 5 (#$ . 81001)]) (byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put allout-next-heading speed -1 put byte-optimizer byte-compile-inline-expand] 5)#@45 Position cursor on current or next heading. (defalias 'allout-this-or-next-heading #[0 "\306 ?\205c\307 \310\311\"\216\312!\203\313u\210\314 \315\316#\205`\313\225\206*\317\225\206*\320\225\313\224\2067\317\224\2067\320\224\313\n Z\fZ] \210 b\210n\204O\321u\210\202E\204^ X\203^\322 \210 b)\262\207" [allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-goto-prefix-doublechecked match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward nil 0 2 3 -1 allout-aberrant-container-p allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 5 (#$ . 81990)])#@202 Move to the prior (possibly invisible) heading line. Return the location of the beginning of the heading, or nil if not found. We skip anomalous low-level topics, a la `allout-aberrant-container-p'. (defalias 'allout-previous-heading #[0 "o?\205k`\306 \210\307 \310\311\"\216\312\313\314#\204\315 !\205f\316\225\206*\317\225\206*\320\225\316\224\2067\317\224\2067\320\224\316\n Z\fZ] b\210\204e X\203e\321 \203e\322 \206fb\203a\323 \210\313\202f`)\262\262\207" [allout-line-boundary-regexp allout-bob-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-goto-prefix match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-backward nil 0 looking-at 1 2 3 allout-aberrant-container-p allout-previous-heading allout-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 6 (#$ . 82733)])#@64 Return the overlay at point that dictates allout invisibility. (defalias 'allout-get-invisibility-overlay #[0 "\300`!\301\203$\211\204$\302@\303\"\304=\203@\262\202A\262\202\207" [overlays-at nil overlay-get invisible allout] 5 (#$ . 83667)])#@72 Move to most recent prior character that is visible, and return point. (defalias 'allout-back-to-visible-text #[0 "\300\301\206`\302\"\303=\262\203\304\305 !b\210`\207" [nil get-char-property invisible allout overlay-start allout-get-invisibility-overlay] 4 (#$ . 83929)])#@1222 Produce a location "chart" of subtopics of the containing topic. Optional argument LEVELS specifies a depth limit (relative to start depth) for the chart. Null LEVELS means no limit. When optional argument VISIBLE is non-nil, the chart includes only the visible subelements of the charted subjects. The remaining optional args are for internal use by the function. Point is left at the end of the subtree. Charts are used to capture outline structure, so that outline-altering routines need to assess the structure only once, and then use the chart for their elaborate manipulations. The chart entries for the topics are in reverse order, so the last topic is listed first. The entry for each topic consists of an integer indicating the point at the beginning of the topic prefix. Charts for offspring consist 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. (fn &optional LEVELS VISIBLE ORIG-DEPTH PREV-DEPTH) (defalias 'allout-chart-subtree #[1024 "?\306\211\203|\307 \262\204T\262\203\310\311!\210\202|\312 \313\314\"\216\315!\203/\311u\210\316 \306\317#\205y\311\225\206C\320\225\206C\321\225\311\224\206P\320\224\206P\321\224\311\n Z\fZ] \210 b\210n\204h\322u\210\202^\204w X\203w\323 \210 b)\266m\204\254 \211\262W\203\254U\203\203 B\262\203\311X\203\324!\204|\211 X\203\254\203\266\310\311!\202\312 \313\314\"\216\315!\203\306\311u\210\316 \306\317#\205\311\225\206\332\320\225\206\332\321\225\311\224\206\347\320\224\206\347\321\224\311\n Z\fZ] \210 b\210n\204\377\322u\210\202\365\204 X\203\323 \210 b)\262\203\254\202\246\203#\310\311!\202\251\312 \313\314\"\216\315!\2033\311u\210\316 \306\317#\205}\311\225\206G\320\225\206G\321\225\311\224\206T\320\224\206T\321\224\311\n Z\fZ] \210 b\210n\204l\322u\210\202b\204{ X\203{\323 \210 b)\262\202\251W\203\254\203\225\317V\203\254\325\205\236S$B\211\262\204|\203\321m\204\267\322u\210h\326U\203\316\311`\321Z]`{\311H\326U\203\316\322u\210`\207" [allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth nil allout-depth allout-next-visible-heading 1 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at re-search-forward 0 2 3 -1 allout-aberrant-container-p allout-next-sibling allout-chart-subtree 10 allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower allout-recent-end-of-subtree] 12 (#$ . 84215)])#@195 Produce a list of locations of this and succeeding sibling topics. Effectively a top-level chart of siblings. See `allout-chart-subtree' for an explanation of charts. (fn &optional START END) (defalias 'allout-chart-siblings #[512 "\212\300 \205 `C\301 \203`B\262\202\211\205\211\237\211\262\262)\207" [allout-goto-prefix-doublechecked allout-next-sibling] 5 (#$ . 87066)])#@223 Return a flat list of hidden points in subtree CHART, up to DEPTH. If DEPTH is nil, include hidden points at any depth. Note that point can be left at any of the points on chart, or at the start point. (fn CHART DEPTH) (defalias 'allout-chart-to-reveal #[514 "\300\211\203\f\301V\203W\203W@\262\211<\2038\302\204#\202%S\"\211\2030\303\"\262A\262\210\202\211b\210\300\304\206B`\305\"\306=\262\203P\211B\262A\262\202\207" [nil 0 allout-chart-to-reveal append get-char-property invisible allout] 8 (#$ . 87459)])#@241 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 the point at the beginning of the prefix, or nil if none. (defalias 'allout-goto-prefix #[0 "\306 \307\310\"\216\311\211\204K\312\313\311\314#\203K\314u\210\315!\203E\314\225\206)\316\225\206)\317\225\314\224\2066\316\224\2066\317\224\314 \nZ Z]\n\262\202\320u\210\202o\203\337\315!\203{\314\225\206a\316\225\206a\317\225\314\224\206n\316\224\206n\317\224\314 \nZ Z]\n\202\340\306 \307\321\"\216\315!\203\213\314u\210\322 \311\323#\205\325\314\225\206\237\316\225\206\237\317\225\314\224\206\254\316\224\206\254\317\224\314 \nZ Z]\n\210\nb\210n\204\304\320u\210\202\272\204\323\fX\203\323\324 \210\nb)\262\206\340\211\202\340\211)\207" [allout-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-line-boundary-regexp match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] nil search-backward "\n" 1 looking-at 2 3 -1 #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward 0 allout-aberrant-container-p allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 7 (#$ . 88012)])#@275 Put point at beginning of immediately containing outline topic. Like `allout-goto-prefix', but shallow topics (according to `allout-doublecheck-at-and-shallower') are checked and disqualified for child containment discontinuity, according to `allout-aberrant-container-p'. (defalias 'allout-goto-prefix-doublechecked #[0 "\303 \205\204 \nX\203\304 \203\305 \207`\207" [allout-inhibit-aberrance-doublecheck allout-recent-depth allout-doublecheck-at-and-shallower allout-goto-prefix allout-aberrant-container-p allout-previous-heading] 2 (#$ . 89339)])#@208 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. (fn &optional IGNORE-DECORATIONS) (defalias 'allout-end-of-prefix #[256 "\301 \2050b\210\302 \303\304\"\216\204,\305\306!\203\307u\210\202l\204,\305\310!\203,\307u\210)\210\311 \207" [allout-recent-prefix-end allout-goto-prefix-doublechecked match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at "[0-9]" 1 "\\s-" allout-current-depth] 5 (#$ . 89906)])#@54 Return position of current (visible) topic's bullet. (defalias 'allout-current-bullet-pos #[0 "\301 \205S\207" [allout-recent-prefix-end allout-current-depth] 1 (#$ . 90478)])#@268 Move to heading line of current topic, or beginning if not in a topic. If interactive, we position at the end of the prefix. Return value of resulting point, unless we started outside of (before any) topics, in which case we return nil. (fn &optional INTERACTIVE) (defalias 'allout-back-to-current-heading #[256 "\305 \210`\306 \205R`X\203N`\262\305 \210\211`U\204E\307!\203E\310\225\206-\311\225\206-\312\225\310\224\206:\311\224\206:\312\224\310 \nZ Z]\n\210\203L\313 \207`\207eb\210\314\207" [allout-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-beginning-of-current-line allout-goto-prefix-doublechecked looking-at 1 2 3 allout-end-of-prefix nil] 5 (#$ . 90663) "p"]) (defalias 'allout-back-to-heading 'allout-back-to-current-heading)#@86 Skip forward to just before the next heading line. Returns that character position. (defalias 'allout-pre-next-prefix #[0 "\306 \307\310\"\216\311!\203\312u\210\313 \314\315#\205Z\312\225\206$\316\225\206$\317\225\312\224\2061\316\224\2061\317\224\312\n Z\fZ] \210 b\210n\204I\320u\210\202?\204X X\203X\321 \210 b)\262\205c Sb\207" [allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward nil 0 2 3 -1 allout-aberrant-container-p allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 5 (#$ . 91496)])#@410 Put point at the end of the last leaf in the containing topic. Optional CURRENT means put point at the end of the containing visible topic. Optional INCLUDE-TRAILING-BLANK means include a trailing blank line, if any, as part of the subtree. Otherwise, that trailing blank will be excluded as delimiting whitespace between topics. Returns the value of point. (fn &optional CURRENT INCLUDE-TRAILING-BLANK) (defalias 'allout-end-of-subtree #[512 "\203\n\306 \210\202 \307 \210\310 \311\312\"\216\313 !\203\314u\210\315\n\316\317#\205h\314\225\2062\320\225\2062\321\225\314\224\206?\320\224\206?\321\224\314 \fZ Z]\f\210\fb\210n\204W\322u\210\202M\204fX\203f\323 \210\fb)\266m\204\325V\203\325\310 \311\312\"\216\313 !\203\205\314u\210\315\n\316\317#\205\317\314\225\206\231\320\225\206\231\321\225\314\224\206\246\320\224\206\246\321\224\314 \fZ Z]\f\210\fb\210n\204\276\322u\210\202\264\204\315X\203\315\323 \210\fb)\266\202km\203\337\324 \210\202\342\322u\210\204\357h\325U\203\357\322u\210`\211\207" [allout-recent-depth allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-back-to-current-heading allout-goto-prefix-doublechecked match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward nil 0 2 3 -1 allout-aberrant-container-p allout-end-of-entry 10 allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower allout-recent-end-of-subtree] 8 (#$ . 92239) "P"])#@330 Put point at end of last leaf in currently visible containing topic. Optional INCLUDE-TRAILING-BLANK means include a trailing blank line, if any, as part of the subtree. Otherwise, that trailing blank will be excluded as delimiting whitespace between topics. Returns the value of point. (fn &optional INCLUDE-TRAILING-BLANK) (defalias 'allout-end-of-current-subtree #[256 "\300\301\"\207" [allout-end-of-subtree t] 4 (#$ . 93809) nil])#@237 When not already there, position point at beginning of current topic header. If already there, move cursor to bullet for hot-spot operation. (See `allout-mode' doc string for details of hot-spot operation.) (fn &optional INTERACTIVE) (defalias 'allout-beginning-of-current-entry #[256 "`\301\302!\210\303\304 W\203b\210\202eb\210\305 \210\205%`U\205%\306 b\207" [allout-recent-prefix-end move-beginning-of-line 1 0 allout-current-depth allout-end-of-prefix allout-current-bullet-pos] 4 (#$ . 94256) "p"])#@243 Position the point at the end of the current topics' entry. Optional INCLUSIVE means also include trailing empty line, if any. When unset, whitespace between items separates them even when the items are collapsed. (fn &optional INCLUSIVE) (defalias 'allout-end-of-entry #[256 "\300 \210\211\204o\204h\301U\203\302u\210`\207" [allout-pre-next-prefix 10 -1] 3 (#$ . 94778) nil]) (defalias 'allout-end-of-current-heading #[0 "\300 \210\301\302\303\304#\210\305u\207" [allout-beginning-of-current-entry search-forward "\n" nil t -1] 4 nil nil]) (defalias 'allout-end-of-heading 'allout-end-of-current-heading)#@75 Return the unmangled body text of the topic immediately containing point. (defalias 'allout-get-body-text #[0 "\212\300 \210\301\302\303\304#\205&\305u\210`\211\205$\306\304!\210\211`U?\205$\307T`\"\262)\207" [allout-end-of-prefix search-forward "\n" nil t -1 allout-end-of-entry buffer-substring-no-properties] 4 (#$ . 95398)])#@79 Ascend to depth DEPTH, returning depth if successful, nil if not. (fn DEPTH) (defalias 'allout-ascend-to-depth #[257 "\211\302V\205/\211\303 X\205/\304W\203\305 \211\262\204 b\210\306\307!\203(\310 \210\211\205-\262\207" [allout-recent-depth allout-recent-prefix-beginning 0 allout-depth nil allout-ascend called-interactively-p interactive allout-end-of-prefix] 4 (#$ . 95737)])#@303 Ascend one level, returning resulting depth if successful, nil if not. Point is left at the beginning of the level whether or not successful, unless optional DONT-MOVE-IF-UNSUCCESSFUL is set, in which case point is returned to its original starting location. (fn &optional DONT-MOVE-IF-UNSUCCESSFUL) (defalias 'allout-ascend #[256 "\211\203`\262\301 \205:`\302 \210W\203\266\202\202:U\2032\203*b\210\303 \266\304\202:b\210\303 \266\304\305\306!\203C\307 \210\207" [allout-recent-depth allout-beginning-of-level allout-previous-heading allout-depth nil called-interactively-p interactive allout-end-of-prefix] 5 (#$ . 96137)])#@102 Descend to depth DEPTH within current topic. Returning depth if successful, nil if not. (fn DEPTH) (defalias 'allout-descend-to-depth #[257 "`\306 \306 \307V\203vU\204v\310 \311\312\"\216\313 !\203 \314u\210\315\n\316\307#\205j\314\225\2064\317\225\2064\320\225\314\224\206A\317\224\206A\320\224\314 \fZ Z]\f\210\fb\210n\204Y\321u\210\202O\204hX\203h\322 \210\fb)\262\203v\211W\204\306 \307V\203\205U\203\205\207b\210\316\207" [allout-recent-depth allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-depth 0 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward nil 2 3 -1 allout-aberrant-container-p allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 8 (#$ . 96793)])#@59 Move out ARG levels from current visible topic. (fn ARG) (defalias 'allout-up-current-level #[257 "`\301 \210\302 \204\211b\210\303\304!\207\305\306!\203\307 \210\207" [allout-recent-prefix-beginning allout-back-to-current-heading allout-ascend error "Can't ascend past outermost level" called-interactively-p interactive allout-end-of-prefix] 4 (#$ . 97656) "p"])#@286 Like `allout-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 the start point of the new topic if successful, nil otherwise. (fn &optional DEPTH BACKWARD) (defalias 'allout-next-sibling #[512 "\211\203o\202 m?\205\365\206\306 `\307\310\211\204\255\203%o\202&m\204\255\2033\311 \202\220\312 \313\314\"\216\315 !\203C\316u\210\317\n\310\307#\205\215\316\225\206W\320\225\206W\321\225\316\224\206d\320\224\206d\321\224\316 Z\fZ]\210b\210n\204|\322u\210\202r\204\213 X\203\213\323 \210b)\262\203\255 \211\262V\203\255T\262\324V\203\325\262\202\203\311\326\"\206\363b\210\203\305\306 \210\266\310\207m\204\347\211\206\323\306 \307V\203\347 U\203\347U\204\347\207b\210\203\362\306 \210\310\266\206\207" [allout-recent-prefix-beginning allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-header-subtraction allout-recent-depth allout-depth 0 nil allout-previous-heading match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward 2 3 -1 allout-aberrant-container-p 7 t allout-next-sibling-leap allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 13 (#$ . 98033)])#@822 Like `allout-next-sibling', but by direct search for topic at depth. Traverse at optional DEPTH, or current depth if none specified. Go backward if optional arg BACKWARD is non-nil. Return the start point of the new topic if successful, nil otherwise. Costs more than regular `allout-next-sibling' for short traversals: - we have to check the prior (next, if traveling backwards) item to confirm connectivity with the prior topic, and - if confirmed, we have to reestablish the allout-recent-* settings with some extra navigation - if confirmation fails, we have to do more work to recover It is an increasingly big win when there are many intervening offspring before the next sibling, however, so `allout-next-sibling' resorts to this if it finds itself in that situation. (fn &optional DEPTH BACKWARD) (defalias 'allout-next-sibling-leap #[512 "\211\203o\202 m?\205`\206\306 \307\211\310Z\311X\203# \202(\312\n\211#\307\211\211\204n\313 \314\315\"\216\203B\316\307\317#\202J\311u\210\320\307\317#)\262\262\203[\321 \203[\307\262\206i\203ho\202im\262\202*\204yb\210\307\202\377\203\346\313 \314\322\"\216\323 !\203\216\311u\210\320\f\307\324#\205\340\311\225\206\242\310\225\206\242\325\225\311\224\206\257\310\224\206\257\325\224\311 ZZ]\210b\210n\204\315\326u\210\202\303\204\335X\203\335\321 \210b)\266\202\351\327 \210W\203\372b\210\306 \210\307\202\377b\210\330 )\266\206\207" [search-whitespace-regexp allout-depth-one-regexp allout-depth-specific-regexp allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-depth nil 2 1 format match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-backward to-limit re-search-forward allout-aberrant-container-p #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 0 3 -1 allout-previous-heading allout-goto-prefix allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 13 (#$ . 99396)])#@259 Like `allout-forward-current-level' backwards, respecting invisible topics. Optional DEPTH specifies depth to traverse, default current depth. Optional BACKWARD reverses direction. Return depth if successful, nil otherwise. (fn &optional DEPTH BACKWARD) (defalias 'allout-previous-sibling #[512 "\300?\"\207" [allout-next-sibling] 5 (#$ . 101487)])#@94 Position cursor at end of previous topic. Presumes point is at the start of a topic prefix. (defalias 'allout-snug-back #[0 "o\204 m\204 \300u\210o\204h\301U\203\300u\210`\207" [-1 10] 2 (#$ . 101847)])#@61 Go back to the first sibling at this level, visible or not. (defalias 'allout-beginning-of-level #[0 "\300\301!\207" [allout-end-of-level backward] 2 (#$ . 102062)])#@80 Go to the last sibling at this level, visible or not. (fn &optional BACKWARD) (defalias 'allout-end-of-level #[256 "\301 \302\303\"\204\304\305!\203\306 \210\207" [allout-recent-depth allout-depth allout-previous-sibling nil called-interactively-p interactive allout-end-of-prefix] 5 (#$ . 102233)])#@157 Move to the next ARGth visible heading line, backward if ARG is negative. Move to buffer limit in indicated direction if headings are exhausted. (fn ARG) (defalias 'allout-next-visible-heading #[257 "\306\211\307W\205\310_\211\262\211\203\310\202\311\312 \313\211\313\307V\203\312\203+o\202,m\204\274\3141>\315!\206:\3060\202@\210\313\316 \210\204c`X\203c\313\210\3171\\\315!0\210\202]\210\316 \210`\262\203\274\320 \321\322\"\216\323\n!\204w\306\202\266\311\225\206\203\324\225\206\203\325\225\311\224\206\220\324\224\206\220\325\224\311 \fZ Z]\f\210\204\262X\203\262\326 \203\262\306\202\266\f\262\313)\262\204#\211\203\303\211\262S\262\202\211\203\323\327 \202\350\203\337b\210\327 \202\350?\205\350\313\210\313*\207" [inhibit-field-text-motion line-move-visual allout-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction t 0 -1 1 allout-current-bullet-pos nil (error) line-move allout-beginning-of-current-line (error) match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 2 3 allout-aberrant-container-p allout-end-of-prefix allout-recent-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 11 (#$ . 102546) "p"])#@183 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 `allout-regexp' matches). (fn ARG) (defalias 'allout-previous-visible-heading #[257 "\300[!\301\302!\203 \303 \210\207" [allout-next-visible-heading called-interactively-p interactive allout-end-of-prefix] 4 (#$ . 103837) "p"])#@184 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. (fn ARG) (defalias 'allout-forward-current-level #[257 "\301 \302V\302U\203\303\304!\210\211\203\305_\262\306 \210\302U\2047\211\203+\307 \202-\310 \2037S\262\202\311\312!\205_\313 \210\302U?\205_\303\314\203Q\315\202R\316\317!Z\317!%\207" [allout-recent-depth allout-current-depth 0 error "No siblings, not in a topic" -1 allout-back-to-current-heading allout-previous-sibling allout-next-sibling called-interactively-p interactive allout-end-of-prefix "Hit %s level %d topic, traversed %d of %d requested" "first" "last" abs] 11 (#$ . 104220) "p"])#@54 Inverse of `allout-forward-current-level'. (fn ARG) (defalias 'allout-backward-current-level #[257 "\301\302!\203\303_\304\305!)\207\305\303_!\207" [current-prefix-arg called-interactively-p interactive -1 call-interactively allout-forward-current-level] 4 (#$ . 104981) "p"])#@378 Outline internal var, for `allout-pre-command-business' hot-spot operation. When set, tells post-processing to reposition on topic bullet, and then unset it. Set by `allout-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 `allout-mode-map-value'. (defvar allout-post-goto-bullet nil (#$ . 105270)) (make-variable-buffer-local 'allout-post-goto-bullet)#@166 Counter that monotonically increases in `allout-mode' buffers. Set by `allout-pre-command-business', to support allout addons in coordinating with allout activity. (defvar allout-command-counter 0 (#$ . 105758)) (make-variable-buffer-local 'allout-command-counter)#@64 Non-nil if the most recent `allout-mode' command hid any text. (defvar allout-this-command-hid-text nil (#$ . 106029)) (make-variable-buffer-local 'allout-this-command-hid-text)#@449 Outline `post-command-hook' function. - Implement (and clear) `allout-post-goto-bullet', for hot-spot outline commands. - Move the cursor to the beginning of the entry if it is hidden and collapsing activity just happened. - If the command we're following was an undo, check for change in the status of encrypted items and adjust auto-save inhibitions accordingly. - Decrypt topic currently being edited if it was encrypted for a save. (defalias 'allout-post-command-business #[0 "\205e \2030\306\307\310!\210\n\311U\203 \203\312 \210\2020\212\214~\210eb\210\313 *\2040\314\315 !\210\316\304!\203=\f\203=\317 \210 \203N\320 \203N\320 b\210\306\211\207\306\321\206U`\322\"\323=\262\205e\205e\324 \207" [allout-mode allout-just-did-undo buffer-saved-size allout-auto-save-temporarily-disabled allout-after-save-decrypt allout-post-goto-bullet nil run-hooks allout-post-undo-hook -1 allout-maybe-resume-auto-save-info-after-encryption allout-next-topic-pending-encryption allout-inhibit-auto-save-info-for-decryption buffer-size boundp allout-after-saves-handler allout-current-bullet-pos get-char-property invisible allout allout-beginning-of-current-entry allout-this-command-hid-text] 4 (#$ . 106213)])#@826 Outline `pre-command-hook' function for outline buffers. Among other things, implements special behavior when the cursor is on the topic bullet character. When the cursor is on the bullet character, self-insert characters are reinterpreted as the corresponding control-character in the `allout-mode-map-value'. The `allout-mode' `post-command-hook' insures that the cursor which has moved as a result of such reinterpretation is positioned on the bullet character of the destination topic. The upshot is that you can get easy, single (ie, unmodified) key outline maneuvering operations by positioning the cursor on the bullet char. When in this mode you can use regular cursor-positioning command/keystrokes to relocate the cursor off of a bullet character to return to regular interpretation of self-insert characters. (defalias 'allout-pre-command-business #[0 "\205 T\304 \305=\205`\306 =\205\307 \207" [allout-mode allout-command-counter allout-this-command-hid-text this-command nil self-insert-command allout-current-bullet-pos allout-hotspot-key-handler] 2 (#$ . 107456)])#@275 Catchall handling of key bindings in hot-spots. Translates unmodified keystrokes to corresponding allout commands, when they would qualify if prefixed with the `allout-command-prefix', and sets `this-command' accordingly. Returns the qualifying command, if any, else nil. (defalias 'allout-hotspot-key-handler #[0 "\304!\247\203\f\202 \305\306\305U?\205s\204S\307X\203S\310\311 \312\313X\2037\314Y\2037\315Z\2028!\"\316\"\206H\310\311 \312!\"\316\"\211\262\203S\316\202Z\310\312!!\262\317!\203l\320\312\321 !\"\262\202Z\211\205s\211\211\207" [last-command-event allout-command-prefix allout-post-goto-bullet this-command event-modifiers 0 nil 33 key-binding vconcat vector 97 122 96 t keymapp lookup-key read-char] 9 (#$ . 108556) nil])#@132 Activate `allout-mode' on non-nil `allout-auto-activation', `allout-layout'. See `allout-auto-activation' for setup instructions. (defalias 'allout-find-file-hook #[0 "\205 ?\205\n\205\301 \207" [allout-auto-activation allout-mode allout-layout] 1 (#$ . 109336)])#@168 Prompt for and return a bullet char as an alternative to the current one. Offer one suitable for current depth DEPTH as default. (fn DEPTH &optional CURRENT-BULLET) (defalias 'allout-solicit-alternate-bullet #[513 "\211;\203 \211\206\f\301!\302!\303\212\304 b\210\305\306\307\310!#\311#)\262\312\313!\210\211\313\230\2030\207\207" [allout-bullets-string allout-bullet-for-depth allout-regexp-sans-escapes nil allout-current-bullet-pos allout-solicit-char-in-string format-message "Select bullet: %s (`%s' default): " substring-no-properties t message ""] 11 (#$ . 109614)])#@85 True if BULLET is one of those on `allout-distinctive-bullets-string'. (fn BULLET) (defalias 'allout-distinctive-bullet #[257 "\301\302!\"\207" [allout-distinctive-bullets-string string-match regexp-quote] 4 (#$ . 110206)])#@81 True if current header prefix bullet is numbered bullet. (fn &optional PREFIX) (defalias 'allout-numbered-type-prefix #[256 "\205\203\301!\202\302 \230\207" [allout-numbered-bullet allout-get-prefix-bullet allout-get-bullet] 4 (#$ . 110438)])#@95 True if current header prefix bullet is for an encrypted entry (body). (fn &optional PREFIX) (defalias 'allout-encrypted-type-prefix #[256 "\205\203\301!\202\302 \230\207" [allout-topic-encryption-bullet allout-get-prefix-bullet allout-get-bullet] 4 (#$ . 110697)])#@95 Return outline topic bullet suited to optional DEPTH, or current depth. (fn &optional DEPTH) (defalias 'allout-bullet-for-depth #[256 "\203\304 \305\306Z]\n\246H!\207 \207" [allout-stylish-prefixes allout-plain-bullets-string allout-plain-bullets-string-len allout-primary-bullet char-to-string 0 2] 6 (#$ . 110979)])#@2143 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 `allout-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 INSTEAD is: - nil, then the bullet char for the context is used, per distinction or depth - a (numeric) character, then character's string representation is used - a string, then the user is asked for bullet with the first char as default - anything else, the user is solicited with bullet char per context as default (INSTEAD overrides other options, including, eg, a distinctive PRIOR-BULLET.) Fifth arg, NUMBER-CONTROL, matters only if `allout-numbered-bullet' is non-nil *and* no specific INSTEAD was specified. Then NUMBER-CONTROL non-nil forces prefix to either numbered or unnumbered 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). (fn &optional PRIOR-BULLET NEW DEPTH INSTEAD NUMBER-CONTROL INDEX) (defalias 'allout-make-topic-prefix #[1536 "\304\211\211\206\n\305 \306X\203\307\262 \202\n\n\203+\310\311 !\"\262\307\262\307\202\n\310\312Z\313\"\262\203};\203QG\314V\205b\315 \314\306O\"\202b\316!\203_\317!\202b\315! \205u\205n??\205u\211 \230\262\211\262\202\n \203\255\203\255?\211\262?\211\262\203\226 \202\n\n\203\247  \230\204\247\n\202\n\320!\202\n \203\343\305 X\203\343 \203\343\204\343\212\305 Y\204\315\321!\210\322 )\211\205\336 \230\205\336\211\211\262\262\206\n\n\203\323 !\203 \203\n \230\203?\211\262\203\n\206\n\320!\2055\324\325 \203% \247\203% \2024\2032\326!T\2024\326 \"R\207" [allout-header-prefix allout-primary-bullet allout-old-style-prefixes allout-numbered-bullet nil allout-depth 1 "" make-string string-to-char 2 32 0 allout-solicit-alternate-bullet characterp char-to-string allout-bullet-for-depth allout-ascend-to-depth allout-get-bullet allout-distinctive-bullet format "%d" allout-sibling-index] 19 (#$ . 111309)])#@1529 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 completely empty -- lacking even whitespace -- in which case open is done on the current line. When adding an offspring, it will be added immediately after the parent if the other offspring are exposed, or after the last child if the offspring are hidden. (The intervening offspring will be exposed in the latter case.) If OFFER-RECENT-BULLET is true, offer to 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. (fn RELATIVE-DEPTH &optional BEFORE OFFER-RECENT-BULLET) (defalias 'allout-open-topic #[769 "\306 \210\307 \310\311\"\216\312\313 \\\314\315!\205\316\262\312\316\211\211\212\317W\203,\320!\210\2026\321Y\2046\322 \210 \262\n\321V\203G\323\nS\n\"\202H\324\262\212 \205b\317X\204\\\325!\205b\326 \205b )\262`)\316\211\211\211\204bb\210 \317X\203\230\212\317\327yV\206\211\314\330!\206\211o)\203\230\212\331 \210\314\332!)\206\260\321U\205\260\f\206\260 \321U\206\260\212\333 )?\262\f\203\316 \317Y\203\316\322 \210o\262o\204\333\334 \210\202\333\f\203\333o\203\333\335\321!\210 \317X\203@\203\370\204\361\335\321!\210\202\360\335\336!\210\202\360\f\2031\316\210\333 \210g\337U\203$\212\321u\210\316\340\206`\341\")\342=\262\203$\321u\210\202\314\315!\204\360\335\321!\210\202\360\331 \210\314\332!\203\360\321u\210\202\360\343 \210m\203N\344\321!\210\202R\345\321!\210\306 \210\327u\210n\203e\312\262\346\347\316\312#\210\314\332!\203n\312\262\212\307 \310\350\"\216\314\f!\203\321u\210\351 \316\317#\205\317\321\225\206\223\336\225\206\223\352\225\321\224\206\240\336\224\206\240\352\2243\321\n3Z4Z]3\2103b\210n\204\275\327u\210\202\2635\204\314 6X\203\314\353 \2103b)\266 V\205\337\327y\210\314\330!)\203\355\321y\210\335\321!\210\321y\210\354 \210o\204b V\204\f\204\335\321!\210\202/\204 V\203\344\321!\210\202/\203&\335\321!\210\202/\f\204/\344\321!\210\203> \317V\204>\344\321!\210m\204bn\203_o\204b\212\327u\210\316\340\206U`\341\")\342=\262\203b\321u\210`\262\355\312\f#\356Pc\210`T\262\357\f\205| \316\211\312%\210 \317V\203\222\212b\210\360 )\210\316\210\361\362#)\266\212)\207" [inhibit-field-text-motion allout-recent-depth allout-recent-prefix-end allout-numbered-bullet allout-regexp allout-line-boundary-regexp allout-beginning-of-current-line match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] t allout-current-depth looking-at "^$" nil 0 allout-ascend-to-depth 1 allout-back-to-current-heading buffer-substring-no-properties "" allout-descend-to-depth allout-numbered-type-prefix -1 "^\\s-*$" allout-end-of-current-subtree "\n\n" allout-pre-next-prefix allout-previous-heading open-line 2 10 get-char-property invisible allout allout-end-of-entry newline line-move re-search-backward "[^ \n]" #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward 3 allout-aberrant-container-p allout-end-of-current-line allout-make-topic-prefix " " allout-rebullet-heading allout-show-children run-hook-with-args allout-structure-added-functions allout-recent-prefix-beginning allout-header-subtraction allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 20 (#$ . 114524)])#@167 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. (fn ARG) (defalias 'allout-open-subtopic #[257 "\300\301\302V\301W#\207" [allout-open-topic 1 0] 6 (#$ . 118793) "p"])#@216 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. (fn ARG) (defalias 'allout-open-sibtopic #[257 "\300\301\211V\302U?#\207" [allout-open-topic 0 1] 6 (#$ . 119077) "p"])#@173 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. (fn ARG) (defalias 'allout-open-supertopic #[257 "\300\301\302V\303W#\207" [allout-open-topic -1 0 1] 6 (#$ . 119411) "p"])#@66 Name of modal fill function being wrapped by `allout-auto-fill'. (defvar allout-former-auto-filler nil (#$ . 119705))#@119 `allout-mode' autofill function. Maintains outline hanging topic indentation if `allout-use-hanging-indents' is set. (defalias 'allout-auto-fill #[0 "?\205T \203\306 ?\205T\n\205.\307 \310\311\"\216\212\312 \210\313 !\205+\314\315 \210i\316\"*\262\f\317=\203> \317=\203>\320\202C\f\206C \204O\n\205Q\211 )\266\202\207" [allout-inhibit-auto-fill allout-inhibit-auto-fill-on-headline allout-use-hanging-indents allout-regexp allout-outside-normal-auto-fill-function auto-fill-function allout-on-current-heading-p match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] beginning-of-line looking-at make-string allout-end-of-prefix 32 allout-auto-fill do-auto-fill fill-prefix allout-former-auto-filler] 4 (#$ . 119829)])#@251 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. (fn OLD-DEPTH NEW-DEPTH &optional NUMBER) (defalias 'allout-reindent-body #[770 "\212\304 \210i\305\211\211Z\\?\306\307 \310\311\"\216\312\313\305\306#\205Q\314\224\262\314\225\211\262\205Q\315 !?\205Q\316ZZ\211\262V\204|\210\\i\\j\210\202+\262\266\205)\207" [buffer-read-only inhibit-field-text-motion inhibit-read-only allout-regexp allout-end-of-prefix nil t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward "\n\\(\\s-*\\)" 1 looking-at 0] 13 (#$ . 120593)])#@59 Solicit new bullet for current visible heading. (fn ARG) (defalias 'allout-rebullet-current-heading #[257 "i`\302 =\303\211\304W\205\305_\211\262\304V\203X\212\306 \210\307 \210\262 \262\310\311\303\211\211\311%\210\312\313\311$)\210S\262\304X\204\303\262\211\204N\314\315!\210\202\316 \210\314\305!\210\202\317\320!\210\203d\302 b\207\205k\321!\207" [allout-recent-prefix-beginning allout-recent-prefix-end allout-current-bullet-pos nil 0 -1 allout-back-to-current-heading allout-end-of-prefix allout-rebullet-heading t run-hook-with-args allout-exposure-change-functions allout-next-visible-heading 1 allout-goto-prefix-doublechecked message "Done." move-to-column] 12 (#$ . 121338) "p"])#@1505 Adjust bullet of current topic prefix. All args are optional. If INSTEAD is: - nil, then the bullet char for the context is used, per distinction or depth - a (numeric) character, then character's string representation is used - a string, then the user is asked for bullet with the first char as default - anything else, the user is solicited with bullet char per context as default 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 `allout-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 fourth arg, INDEX. If NUMBER-CONTROL is non-nil and fourth 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 allout-make-topic-prefix. Fifth arg DO-SUCCESSORS t means re-resolve count on succeeding siblings. Cf vars `allout-stylish-prefixes', `allout-old-style-prefixes', and `allout-numbered-bullet', which all affect the behavior of this function. (fn &optional INSTEAD NEW-DEPTH NUMBER-CONTROL INDEX DO-SUCCESSORS) (defalias 'allout-rebullet-heading #[1280 "\306 \206\211 \307S\"\310\311\"\312\313  &U\2034\211GS\313O\230\2034\314\207\n?\314|*\210b\210\315 \316\317\"\216 \203d \230\203d\320\321!\203d\n?\314\322\224\322\225|*\210)\210\203s\323\322G\311\314%\210\n?\314\211c*\210\203\224U\204\224\324 \204\224\325\"\210\326\327\313$\210\205\325\212\330\313\"\205\324\247\203\267T\202\277 ?\205\277\331 \262 \332 \203\243\333\313\f\f\313%\210\202\243)\207" [allout-recent-prefix-beginning allout-recent-prefix-end buffer-read-only inhibit-field-text-motion inhibit-read-only allout-numbered-bullet allout-depth buffer-substring-no-properties get-text-property allout-was-hidden allout-make-topic-prefix nil t match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at "[0-9]+" 0 put-text-property allout-encrypted-topic-p allout-reindent-body run-hook-with-args allout-exposure-change-functions allout-next-sibling allout-sibling-index allout-numbered-type-prefix allout-rebullet-heading allout-reindent-bodies] 18 (#$ . 122065)])#@515 Rebullet the visible topic containing point and all contained subtopics. Descends into invisible as well as visible topics, however. When optional SANS-OFFSPRING is non-nil, subtopics are not shifted. (Shifting a topic outwards without shifting its offspring is disallowed, since this would create a "containment discontinuity", where the depth difference between a topic and its immediate offspring is greater than one.) With repeat count, shift topic depth by that amount. (fn ARG &optional SANS-OFFSPRING) (defalias 'allout-rebullet-topic #[513 "i\212\204\f\301\262\202<\203@\262\301U\204\302\303!\210\304 \210\\\301X\203.\305\306!\210\307\310\211\211\211&\210\301U\204C\302\311!\210)\312\301\\]!\207" [allout-recent-depth 0 message "Shifting..." allout-back-to-current-heading error "Attempt to shift topic below level 1" allout-rebullet-topic-grunt nil "Shifting... done." move-to-column] 10 (#$ . 124693) "P"])#@776 Like `allout-rebullet-topic', but on nearest containing topic (visible or not). See `allout-rebullet-heading' for rebulleting behavior. All arguments are optional. First arg RELATIVE-DEPTH means to shift the depth of the entire topic that amount. Several subsequent args are for internal recursive use by the function itself: STARTING-DEPTH, STARTING-POINT, and INDEX. Finally, if optional SANS-OFFSPRING is non-nil then the offspring are not shifted. (Shifting a topic outwards without shifting its offspring is disallowed, since this would create a "containment discontinuity", where the depth difference between a topic and its immediate offspring is greater than one.) (fn &optional RELATIVE-DEPTH STARTING-DEPTH STARTING-POINT INDEX DO-SUCCESSORS SANS-OFFSPRING) (defalias 'allout-rebullet-topic-grunt #[1536 "\211\203\203\306W\203\307\310!\210\206\306\311 \206\211?\2064\306U\2042\211?\2054\312 \211\306W\n\206?``\203V\203V\306\n\\V\203V\307\313!\210U\203\306Y\203r\314\315 \\\315\315%\210 \204\365\306\262\316 \317\320\"\216\321!\203\212\322u\210\323 \315\306#\205\324\322\225\206\236\324\225\206\236\325\225\322\224\206\253\324\224\206\253\325\224\322\n Z\fZ] \210 b\210n\204\303\326u\210\202\271\204\322 X\203\322\327 \210 b)\266m\204\365\311 W\203\365T\262\330 T$\210\202\327\306W\203%\212\211b\210\314\315 \\\315\315%)\210\202%W\203%\330  %\210\205`\n\204F\306U\204N U\204F \n\\U\203N\314\315\211\211\211\331%\210b\210\306U?\205`\314\315\211\211\211\331%\207" [allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth 0 error "Attempt to shift topic outwards without offspring, would cause containment discontinuity." allout-depth allout-sibling-index "Attempt to shift topic out beyond level 1" allout-rebullet-heading nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward 2 3 -1 allout-aberrant-container-p allout-rebullet-topic-grunt t allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 21 (#$ . 125645)])#@156 Renumber siblings at current depth. Affects superior topics if optional arg DEPTH is less than current depth. Returns final depth. (fn &optional DEPTH) (defalias 'allout-renumber-to-depth #[256 "\306 \307m\204\241\306 \203\241Y\203\241Y\203\241m\211\262\204\205V\203\205\310 \311\312\"\216\313 !\2035\314u\210\315\n\307\316#\205\314\225\206I\317\225\206I\320\225\314\224\206V\317\224\206V\320\224\314 \fZ Z]\f\210\fb\210n\204n\321u\210\202d\204}X\203}\322 \210\fb)\266\202S\262Y\203\227\323\307\211\211\211\324%\210\211\203db\210\202\266\207" [allout-recent-depth allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-depth nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward 0 2 3 -1 allout-aberrant-container-p allout-rebullet-heading t allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 9 (#$ . 127867)])#@285 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. (fn &optional DENUMBER) (defalias 'allout-number-siblings #[256 "\212\301 \210\302 \210?\205\303\304\232\305\211\2050\306\305\307%\210\203'T\262\310\307\"\262\202\266\204)\207" [allout-recent-depth allout-back-to-current-heading allout-beginning-of-level 1 (16) t allout-rebullet-heading nil allout-next-sibling] 11 (#$ . 128888) "P"])#@643 Increase depth of current heading and any items collapsed within it. With a negative argument, the item is shifted out using `allout-shift-out', instead. With an argument greater than one, shift-in the item but not its offspring, making the item into a sibling of its former children, and a child of sibling that formerly preceded it. You are not allowed to shift the first offspring of a topic inwards, because that would yield a "containment discontinuity", where the depth difference between a topic and its immediate offspring is greater than one. The first topic in the file can be adjusted to any positive depth, however. (fn ARG) (defalias 'allout-shift-in #[257 "\211\301W\203\f\302\303_!\207\212\304 \210o\204L`\303u\210\305 \210`W\203&\202'\301\211\301V\203=TTV\203=\306\307!\266\202L\304 \210TW\203J\310 \210\266)`\311\312\312V\205W\313\"\210\314\315#\207" [allout-recent-depth 0 allout-shift-out -1 allout-back-to-current-heading allout-goto-prefix-doublechecked error "Disallowed shift deeper than containing topic's children." allout-show-children allout-rebullet-topic 1 sans-offspring run-hook-with-args allout-structure-shifted-functions] 6 (#$ . 129508) "p"])#@530 Decrease depth of current heading and any topics collapsed within it. This will make the item a sibling of its former container. With a negative argument, the item is shifted in using `allout-shift-in', instead. With an argument greater than one, shift-out the item's offspring but not the item itself, making the former children siblings of the item. With an argument greater than 1, the item's offspring are shifted out without shifting the item. This will make the immediate subtopics into siblings of the item. (fn ARG) (defalias 'allout-shift-out #[257 "\211\301W\203\f\302\303_!\207\212\304 \203\305 \210)\306 \203%\212\307 )\203%\305 \210\310 \205+\212\311V\203\\\312\311!\211@<\203@\313!\262\212\211\211\203V\211@\211b\210\314\311!\210A\266\202\202B)\266\202b\315\303_!\210)\316\317\303_#\207" [allout-recent-prefix-beginning 0 allout-shift-in -1 allout-ascend allout-show-children allout-current-topic-collapsed-p allout-next-sibling allout-depth 1 allout-chart-subtree flatten-tree allout-shift-out allout-rebullet-topic run-hook-with-args allout-structure-shifted-functions] 7 (#$ . 130719) "p"])#@86 Kill line, adjusting subsequent lines suitably for outline mode. (fn &optional ARG) (defalias 'allout-kill-line #[256 "\203n\203\305 \306\307\"\216\310 !)\262\204\311!\207`\312C\312\313\206&`\314\"\315=\262\212\316 \210`\240\210\312\313\206;`\314\")\315=\262\317 \320\242\"\210\306\321$\216\204h\204h\n?\322\311!*\202l\311!)\207" [allout-mode allout-regexp buffer-read-only inhibit-field-text-motion inhibit-read-only match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at kill-line nil get-char-property invisible allout allout-end-of-current-line allout-depth allout-annotate-hidden #[0 "\306\307!\210\310\302\301\242\"\210 \203\213\212\311 \312\313\"\216\314\f!)\262\204\206\311 \312\315\"\216\314\f!\203/\316u\210\317 \320\321#\205\203\316\225\206C\322\225\206C\323\225\316\224\206Q\322\224\206Q\323\224\316ZZ]\210b\210n\204p\324u\210\202f\204\200X\203\200\325 \210b)\266\326\300!)\210\327\330\300`#\207" [V0 V1 V2 allout-numbered-bullet allout-regexp allout-line-boundary-regexp run-hooks allout-after-copy-or-kill-hook allout-deannotate-hidden match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] 1 re-search-forward nil 0 2 3 -1 allout-aberrant-container-p allout-renumber-to-depth run-hook-with-args allout-structure-deleted-functions allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 5] t] 11 (#$ . 131858) "*P"])#@70 Like `allout-kill-topic', but save to kill ring instead of deleting. (defalias 'allout-copy-line-as-kill #[0 "\301\3021\f\303 0\202\210\304)\207" [buffer-read-only t (buffer-read-only) allout-kill-line nil] 1 (#$ . 133500) nil])#@408 Kill topic together with subtopics. Trailing whitespace is killed with a topic if that whitespace: - would separate the topic from a subsequent sibling - would separate the topic from the end of buffer - would not be added to whitespace already separating the topic from the previous one. Topic exposure is marked with text-properties, to be used by `allout-yank-processing' for exposure recovery. (defalias 'allout-kill-topic #[0 "\306\307 \310 \210\311C \312 \210i\313U\204m\204\314u\210m\204\243g\315U\203\243\212\316 \317\320\"\216\321\n!\2035\314u\210\322 \311\313#\205\200\314\225\206I\323\225\206I\324\225\314\224\206V\323\224\206V\324\224\314\f ZZ] \210 b\210n\204o\325u\210\202e\204~ X\203~\326 \210 b)\262?\206\212\211 U)\204\240eZ\324V\203\243\323Z{\327\230\203\243\314u\210\330`\240\"\210\317\331$\216?\306\332\242\",\207" [inhibit-field-text-motion allout-recent-depth allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning t allout-back-to-current-heading beginning-of-line nil allout-end-of-current-subtree 0 1 10 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at re-search-forward 2 3 -1 allout-aberrant-container-p "\n\n" allout-annotate-hidden #[0 "\303\302\301\242\"\210\304\305!\210\212\306\300!)\210\307\310\300`#\207" [V0 V1 V2 allout-deannotate-hidden run-hooks allout-after-copy-or-kill-hook allout-renumber-to-depth run-hook-with-args allout-structure-deleted-functions] 4] kill-region allout-header-subtraction allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower buffer-read-only inhibit-read-only] 8 (#$ . 133739) nil])#@70 Like `allout-kill-topic', but save to kill ring instead of deleting. (defalias 'allout-copy-topic-as-kill #[0 "\301\3021\f\303 0\202\210\304\305!)\207" [buffer-read-only t (buffer-read-only) allout-kill-topic message "Topic copied..."] 2 (#$ . 135447) nil])#@75 Qualify text with properties to indicate exposure status. (fn BEGIN END) (defalias 'allout-annotate-hidden #[514 "\304 \305\306\"\210\212b\210\305\211\211\211\204\204\305\307\206`\310\"\311=\262\2041`T\312`\310\305\n$]\262\203;=\203A\313\262\202b\210\262\305\307\206N`\310\"\311=\262\204]\313\262\202\314 \262\315!\262\262\203b\210?\313\313\316\317!\320\313$+\210\202)\266\321!)\207" [buffer-read-only inhibit-field-text-motion inhibit-read-only buffer-undo-list buffer-modified-p nil allout-deannotate-hidden get-char-property invisible allout next-single-char-property-change t allout-get-invisibility-overlay overlay-end put-text-property overlay-start allout-was-hidden set-buffer-modified-p] 13 (#$ . 135714)])#@77 Remove allout hidden-text annotation between BEGIN and END. (fn BEGIN END) (defalias 'allout-deannotate-hidden #[514 "?\304\304\211\305d^\306#,\207" [buffer-read-only inhibit-field-text-motion inhibit-read-only buffer-undo-list t remove-text-properties (allout-was-hidden t)] 6 (#$ . 136486)])#@92 Translate text properties indicating exposure status into actual exposure. (fn BEGIN END) (defalias 'allout-hide-by-annotation #[514 "\212b\210\300 \301\211\211\204n\302`\303\"\204\304`\303\301$\262\203'\211=\203-\305\262\202 b\210\262\302`\303\"\204@\305\262\202 \304`\303\301$\262\306\301\307$\310\311\312#\210\310\313\305#\266\314\"\210\262\203 b\210\202 \315!\266\204)\207" [buffer-modified-p nil get-text-property allout-was-hidden next-single-char-property-change t make-overlay front-advance overlay-put category allout-exposure-category evaporate allout-deannotate-hidden set-buffer-modified-p] 11 (#$ . 136793)])#@736 Incidental allout-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-allout-specific yanks. (fn &optional ARG) (defalias 'allout-yank-processing #[256 "\306 `W\203\n\307 \210\310 \311\312\"\216`n\306 \313\314 )\205F\315 !\205F\316\225\206/\317\225\206/\320\225\316\224\206<\317\224\206<\320\224\316\n Z\fZ] \211\206Q\205Q\315 !\203S\313&\316\225\204a\316\202e\316\225Z \321\nS\n\"\212b\205\271l\205\271b\205\271\315 !\205\271\322 \210`U?\205\271\315 !\205\271\316\225\206\236\317\225\206\236\320\225\316\224\206\253\317\224\206\253\320\224\316\n Z\fZ] \205\271 )\313'\262\203M\214 }\210db\210\315\323!\203\340(?\313&)\324\325!*\210\211\203\326 \210\327\313!\204\347\212(?\313&)\330Z!*\210\331 )\210o?\211\262\203\340~\210\325u\210 `}\210\202\340)(?\313&)``\\Z\\|\210\315\332!\2038\324\316!\210\202+\324\325!\210l\204C\333u\210*\334\335!!\210\202P\307 \210)\266\211\203{\212\336\337!\210b\210\340 \203v(?\313&)\334\333\331 \333\211\313%*\210\336\341!)\210\204\203\203\214\342`\306 \"\210\202\222\343\306 `\"\210\204\231\307 \210\344\345#\266\205)\207" [allout-inhibit-aberrance-doublecheck allout-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth mark-marker exchange-point-and-mark match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] t allout-e-o-prefix-p looking-at 1 2 3 buffer-substring-no-properties beginning-of-line "^$" delete-char -1 allout-back-to-current-heading allout-ascend allout-rebullet-topic-grunt allout-depth "[0-9]" nil allout-rebullet-heading string-to-char message "... reconciling numbers" allout-goto-prefix-doublechecked "" allout-hide-by-annotation allout-deannotate-hidden run-hook-with-args allout-structure-added-functions inhibit-field-text-motion allout-numbered-bullet buffer-read-only inhibit-read-only] 16 (#$ . 137459) "*P"])#@1130 `allout-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 `allout-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. `allout-yank-pop' works with `allout-yank' just like normal `yank-pop' works with normal `yank' in non-outline buffers. (fn &optional ARG) (defalias 'allout-yank #[256 "\305 ?\306\305!*\210\f\205\307 \207" [this-command buffer-read-only inhibit-field-text-motion inhibit-read-only allout-mode yank t allout-yank-processing] 3 (#$ . 140025) "*P"])#@258 Yank-pop like `allout-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... (fn &optional ARG) (defalias 'allout-yank-pop #[256 "\302\303!\210 \205\f\304 \207" [this-command allout-mode yank yank-pop allout-yank-processing] 3 (#$ . 141374) "*p"])#@132 Pop to file associated with current heading, if it has an xref bullet. (Works according to setting of `allout-file-xref-bullet'). (defalias 'allout-resolve-xref #[0 "\204\303\304!\207\305 \230\204\303\306\"\207\307\310\311 \312\313\"\216\212\n\314 b\210\315\316\307#\2053\317\224\317\225{*\266\204\320!\262\321!\204W\322!\203P\323\324\325\"!\202T\303\326\"\203h\3271b\330!0\202l\211\262\202l\303\331\")\207" [allout-file-xref-bullet inhibit-field-text-motion allout-recent-prefix-end error "Outline cross references disabled -- no `allout-file-xref-bullet'" allout-current-bullet "Current heading lacks cross-reference bullet `%s'" t nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] line-end-position re-search-forward "\\s-\\(\\S-*\\)" 1 expand-file-name file-exists-p file-writable-p y-or-n-p format "%s not there, create one? " "%s not found and can't be created" (error) find-file-other-window "%s not found"] 9 (#$ . 141792) nil])#@225 Conceal text between FROM and TO if FLAG is non-nil, else reveal it. After the exposure changes are made, run the abnormal hook `allout-exposure-change-functions' with the same arguments as this function. (fn FROM TO FLAG) (defalias 'allout-flag-region #[771 "\301\302\303$\210\211\203 \304\305\306$\307\302\303#\210\307\310\311#\266\311\312\313$\207" [allout-this-command-hid-text remove-overlays category allout-exposure-category make-overlay nil front-advance overlay-put evaporate t run-hook-with-args allout-exposure-change-functions] 8 (#$ . 142793)])#@87 Conceal currently-visible topic's subtree if FLAG non-nil, else reveal it. (fn FLAG) (defalias 'allout-flag-current-subtree #[257 "\212\301 \210\302\303)\210\304`\305?!#)\207" [inhibit-field-text-motion allout-back-to-current-heading t nil allout-flag-region allout-end-of-current-subtree] 5 (#$ . 143369)])#@313 Like `allout-show-current-entry', but reveals entries 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. `allout-show-to-offshoot' should be used after the peek to rectify the exposure. (defalias 'allout-show-entry #[0 "\212\300\211\301 \210\300\302\206 `\303\"\304=\262\203`S\202`\262\305 \262\306\300#\210D\266\202)\207" [nil allout-goto-prefix-doublechecked get-char-property invisible allout allout-pre-next-prefix allout-flag-region] 6 (#$ . 143688) nil])#@592 If point is visible, show all direct subheadings of this heading. Otherwise, do `allout-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?) (fn &optional LEVEL STRICT) (defalias 'allout-show-children #[512 "`\204 \306\307\206\f`\310\"\311=\262\203 \312 \210\313\314\"\210\202&\212\315 \210\214\306\316\267\2024\317\2025\306\2025\320!\321\"\206\314\211\205\314\322\323!\205\314\212\324 \210\325 \262\326 \327\330\"\216\331!\203a\317u\210\332 \306\333#\205\253\317\225\206u\334\225\206u\335\225\317\224\206\202\334\224\206\202\335\224\317\n Z\fZ] \210 b\210n\204\232\336u\210\202\220+\204\251 ,X\203\251\337 \210 b)\262\205\265 TV)\205\314\340\341\342\343!\342\344!\345$\205\314\321 Z\"b\210\203\366\306\307\206\332`\310\"\311=\262\203\366\346`\347 \306#\210-\203\366\211@b\210\350 \210\211\203#\211@b\210\346\212\347 \210`)\351\352\306\314#\210`S\306#\210-\203\211@b\210\350 \210\211A\262\202\366*\266\211b\207" [allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth nil get-char-property invisible allout allout-show-to-offshoot allout-show-children t allout-beginning-of-current-line #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 44 t 48)) 1 allout-chart-subtree allout-chart-to-reveal called-interactively-p interactive allout-back-to-current-heading allout-current-depth match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at re-search-forward 0 2 3 -1 allout-aberrant-container-p message "Discontinuous offspring; use `%s %s'%s." substitute-command-keys "\\[universal-argument]" "\\[allout-shift-out]" " to elevate them." allout-flag-region allout-snug-back allout-show-current-entry search-forward "\n" allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower allout-show-bodies] 13 (#$ . 144294) "p"])#@143 Like `allout-show-entry', but reveals all concealed ancestors, as well. Useful for coherently exposing to a random point in a hidden region. (defalias 'allout-show-to-offshoot #[0 "\212\301`\302 `\303\211\304V\204\305\306\206`\307\"\310=\262\203\305\306\206&`\307\"\310=\262\203I\311\304!\210\305\306\206:`\307\"\310=\262\203\312u\210\202`\211\262U\203m\313 \210\314 \210b\210\211T\262\211\304V\203 \315\316\317\"\210\202 \211\303V\203v\303\262\320 \210b\210\202 b*\266\305\306\206\213`\307\"\310=\262\205\226\321 \207" [inhibit-field-text-motion t allout-goto-prefix-doublechecked 0 1 nil get-char-property invisible allout move-beginning-of-line -1 beginning-of-line allout-show-current-subtree error "allout-show-to-offshoot: %s" "Stumped by aberrant nesting" allout-show-children allout-show-entry] 9 (#$ . 146671) nil])#@48 Hide the body directly following this heading. (defalias 'allout-hide-current-entry #[0 "\301 \210\212\302\303)\210\304`\305 \210`\302#)\207" [inhibit-field-text-motion allout-back-to-current-heading t nil allout-flag-region allout-end-of-entry] 4 (#$ . 147540) nil])#@97 Show body following current heading, or hide entry with universal argument. (fn &optional ARG) (defalias 'allout-show-current-entry #[256 "\211\203\300 \207\212\301 )\210\212\302`\303\304!\210`\305#)\207" [allout-hide-current-entry allout-show-to-offshoot allout-flag-region allout-end-of-entry t nil] 5 (#$ . 147815) "P"])#@120 Show everything within the current topic. With a repeat-count, expose this topic and its siblings. (fn &optional ARG) (defalias 'allout-show-current-subtree #[256 "\212\306 \307X\203z\310 \311\312\"\216\313!\203\314u\210\315 \316\307#\205b\314\225\206,\317\225\206,\320\225\314\224\2069\317\224\2069\320\224\314\n Z\fZ] \210 b\210n\204Q\321u\210\202G\204` X\203`\322 \210 b)\262\204n\323\324!\202\215\325\326!\210\327ed\316#\202\215\330 \210\211\204\207\331\316!\202\215\332 \210\333\334!)\207" [allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-current-depth 0 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward nil 2 3 -1 allout-aberrant-container-p error "No topics" message "Above outermost topic -- exposing all." allout-flag-region allout-beginning-of-current-line allout-flag-current-subtree allout-beginning-of-level allout-expose-topic (* :) allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 6 (#$ . 148148) "P"])#@353 True if the currently visible containing topic is already collapsed. Single line topics intrinsically can be considered as being both collapsed and uncollapsed. If optional INCLUDE-SINGLE-LINERS is true, then single-line topics are considered to be collapsed. By default, they are treated as being uncollapsed. (fn &optional INCLUDE-SINGLE-LINERS) (defalias 'allout-current-topic-collapsed-p #[256 "\301 \302\303\"\216\212\304 \210\305\306\307!)\210`\310\311\312!?!Y\2051\2061\313u\210\314\315\206+`\316\"\317=\262*\207" [inhibit-field-text-motion match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] allout-back-to-current-heading t move-end-of-line 1 allout-end-of-current-subtree looking-at "\n\n" -1 nil get-char-property invisible allout] 6 (#$ . 149284)])#@313 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 close the parent or siblings, even if the target topic is already closed. (fn &optional JUST-CLOSE) (defalias 'allout-hide-current-subtree #[256 "`\300\301!?\211\203\302\301!\210\2021\2041\303 \203\304 \210\2021\305b\210\306\307!\210\310 \210\311\312!\210\306\313!\210b\207" [allout-current-topic-collapsed-p t allout-flag-current-subtree allout-ascend allout-hide-current-subtree 0 message "Top-level topic already closed -- closing siblings..." allout-goto-prefix-doublechecked allout-expose-topic (0 :) "Top-level topic already closed -- closing siblings... Done."] 5 (#$ . 150085) nil])#@66 Show or hide the current subtree depending on its current state. (defalias 'allout-toggle-current-subtree-exposure #[0 "\212\300 \210\301 \302\206\f`\303\"\304=\262\203\305 \202\306 )\207" [allout-back-to-heading line-end-position get-char-property invisible allout allout-show-current-subtree allout-hide-current-subtree] 4 (#$ . 150903) nil])#@61 Show all subheadings of this heading, but not their bodies. (defalias 'allout-show-current-branches #[0 "\301\302 )\210\303\301!\207" [inhibit-field-text-motion t beginning-of-line allout-show-children] 2 (#$ . 151260) nil])#@61 Hide the bodies of the current topic and all its offspring. (defalias 'allout-hide-current-leaves #[0 "\300 \210\301`\302 \210`\"\207" [allout-back-to-current-heading allout-hide-region-body allout-end-of-current-subtree] 3 (#$ . 151491) nil])#@37 Show all of the text in the buffer. (defalias 'allout-show-all #[0 "\300\301!\210\302ed\303#\210\300\304!\207" [message "Exposing entire buffer..." allout-flag-region nil "Exposing entire buffer... Done."] 4 (#$ . 151740) nil])#@37 Hide all of buffer except headings. (defalias 'allout-hide-bodies #[0 "\300ed\"\207" [allout-hide-region-body] 3 (#$ . 151974) nil])#@70 Hide all body lines in the region, but not headings. (fn START END) (defalias 'allout-hide-region-body #[514 "\301 \302\303\"\216\212\214}\210eb\210\304m?\2055\305\210\306`\307 \304#\210m\204\310\311!\203/\312\2020\313u\210\202,\207" [inhibit-field-text-motion match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] t nil allout-flag-region allout-end-of-entry looking-at "\n\n" 2 1] 7 (#$ . 152112)])#@2463 Apply exposure specs to successive outline topic items. Use the more convenient frontend, `allout-new-exposure', if you don't need evaluation of the arguments, or even better, the `allout-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: (allout-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. (allout-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. (allout-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. (fn SPEC) (defalias 'allout-expose-topic #[257 "\211<\205s\306 \307\310\211\211\203p\262@\262A\262\203\3549\203\205\311\267\202\354\312 \210V\203\354\262\202\354\310\313\206?`\314\"\315=\262\204N\212\316\317!)\210\320 \210V\203\354\262\202\354\321 \210\202\354\317\262\322 GGZ\307W\203~\323\324\"\"\262\210\202\354\202\354\247\203\317\307Y\203\265\310\313\206\227`\314\"\315=\262\204\265\212\316\317!\210\307V\204\264V\203\264\262)\325!\307V\203\354\326\325!!\210V\203\354\262\202\354<\203\354\327T!\203\354\330!\211\203\353\211V\203\353\211\262\210\211\203\366\310\262\202 @<\204 `V\203id^b\210\331 \332\333\"\216\334 !\203\335u\210\336\n\310\307#\205c\335\225\206+\337\225\206+\340\225\335\224\2068\337\224\2068\340\224\335 \fZ Z]$\f\210\fb\210n\204Q\341u\210\202G%\204a$&X\203a\342 \210\fb)\266\202 \343!\210\202 \266\205\207" [allout-recent-end-of-subtree allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-depth 0 nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (* 41 + 56 - 93 : 99)) allout-show-current-subtree get-char-property invisible allout allout-hide-current-subtree t allout-show-current-branches allout-show-current-entry allout-chart-siblings append make-list abs allout-show-children allout-descend-to-depth allout-expose-topic match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at 1 re-search-forward 2 3 -1 allout-aberrant-container-p allout-next-sibling allout-recent-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 11 (#$ . 152553) "xExposure spec: "])#@1485 Deprecated. Use `allout-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 FOLLOWERS arguments dictate exposure for succeeding siblings. (fn SPEC &rest FOLLOWERS) (defalias 'allout-old-expose-topic #[385 "\301\302 \303\203\2469\203-\304=\203\305 \210\306=\203!\307 \210\310=\203\246\311 \210\202\246\247\203\\\312Y\203O\212\313\301!\210\303\210`\262\312V\203N\314_\262)\312V\203\246\315!\210\202\246<\203\246\302 T\303\316@!\262A\262\203\244\317!\203\244\303\320\206\203`\321\"\322=\262\204\244\323\316\"\262\211\203\244\203\241\211V\203\244\211\262\266\203\317\211\203\272`W\203\272\211b\210\303\262\303\210\324!\203\317\316@!\210A\262\202\246)\207" [inhibit-field-text-motion t allout-current-depth nil * allout-show-current-subtree + allout-show-current-branches - allout-show-current-entry 0 allout-hide-current-subtree -1 allout-show-children allout-old-expose-topic allout-descend-to-depth get-char-property invisible allout apply allout-next-sibling] 11 (#$ . 156780) "xExposure spec: "]) (make-obsolete 'allout-old-expose-topic 'allout-expose-topic "28.1")#@951 Literal frontend for `allout-expose-topic', doesn't evaluate arguments. Some arguments that would need to be quoted in `allout-expose-topic' need not be quoted in `allout-new-exposure'. Cursor is left at start position. Use this instead of obsolete `allout-exposure'. Examples: (allout-new-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. (allout-new-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. (allout-new-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. (fn &rest SPEC) (defalias 'allout-new-exposure '(macro . #[128 "\300\301\302\303DDE\207" [save-excursion (if (not (or (allout-goto-prefix-doublechecked) (allout-next-heading))) (error "allout-new-exposure: Can't find any outline topics")) allout-expose-topic quote] 6 (#$ . 159240)]))#@165 Convert list representing section/subsection/... to document string. Optional arg CONTEXT indicates interior levels to include. (fn FLAT-INDEX &optional CONTEXT) (defalias 'allout-stringify-flat-index #[513 "\300\301\211\203 \302\202\f\303\211\304V\203=\305@!\262A\262\203)\300BB\202,B\262\2037\211S\2028\304\262\202\f\306\262\203q\203m\307\310@\304U\203W\303\202]\311 @\312\"!T\313\"BB\262A\262\202DA\262\314\315\"\207" ["." nil 2 1 0 int-to-string " " make-string truncate log 10 32 apply concat] 12 (#$ . 160466)])#@87 Convert list representing section/subsection/... to document string. (fn FLAT-INDEX) (defalias 'allout-stringify-flat-index-plain #[257 "\300\203\301@!\205\302BB\262A\262\202\303\304\"\207" [nil int-to-string "." apply concat] 5 (#$ . 161032)])#@87 Convert list representing section/subsection/... to document string. (fn FLAT-INDEX) (defalias 'allout-stringify-flat-index-indented #[257 "\300\301\211\302@!\262A\262\203\300D\202\211C\262\303\262\203O\203K\304\305@\306U\2035\307\202;\310@\311\"!T\312\"BB\262A\262\202\"A\262\313\314\"\207" ["." nil int-to-string " " make-string truncate 0 1 log 10 32 apply concat] 10 (#$ . 161297)])#@959 Produce a list representing exposed topics in current region. This list can then be used by `allout-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. (fn &optional START END FORMAT) (defalias 'allout-listify-exposed #[768 "\212\306\307\211\211\211\211\211\211\211\211\211\211 b\210\310 \210\311 V\203*\312\313\307\314`S\"FC\262 \211\204cm\204c` V\204c \262\314\nS\n\"\262\314 \n\"\262\n\315\306!\210`\262\316\317!?\262 \262\262W\262\310 \210`\262b\210\307\262 `V\203\225\314\307\210\320 \" B\262 `W\203\217\321\317!\210\310 \210`\262\202o\n\237\262  \203\322\323!\f\"\205\251\f<\203\311 \203\276\324\"\202\302\325! F\202\373\f\326=\203\365\211\203\350\327\nT\330\"\f\331\307OP E\202\373\327\n\330\" E\202\373\332\333\334#\262\202\n\fE B\262  \203* <\203*U\203, @T\fAB\262\f\202*V\203=\317\fB\262\f\202*W\203R A\262\fS\262\202= @\206Y\331T\fAB\262\f\202*\237)\266\213)\207" [inhibit-field-text-motion allout-recent-depth allout-recent-prefix-end allout-recent-prefix-beginning allout-distinctive-bullets-string allout-flattened-numbering-abbreviation t nil beginning-of-line allout-goto-prefix-doublechecked 0 "" buffer-substring-no-properties allout-end-of-prefix allout-next-visible-heading 1 allout-back-to-visible-text line-move string-match regexp-quote allout-stringify-flat-index allout-stringify-flat-index-plain indent make-string 32 -1 error "allout-listify-exposed: %s %s" "invalid format"] 20 (#$ . 161722) "r"]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias allout-region-active-p region-active-p nil make-obsolete "28.1"] 4)#@874 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. `indent' (symbol) -- Convert header prefixes to all white space, except for distinctive bullets. Defaults: FUNCTION: `allout-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 (fn &optional FUNC FROM TO FROMBUF TOBUF FORMAT START-NUM) (defalias 'allout-process-exposed #[1792 "\204\300\262\203\204&\301 \203 \302 \262\303 \262\202&e\262d\262\203F\304!\204I\305!\211\204A\306\307\"\266\202I\262\202Ip\262\203[\304!\204c\310!\262\202c\311\312!\313Q\262<\203k\237\210q\210\314#q\210\315\"\210\316!\207" [allout-insert-listified region-active-p region-beginning region-end bufferp get-buffer error "allout-process-exposed: Source buffer %s not found" get-buffer-create "*" buffer-name " exposed*" allout-listify-exposed mapc pop-to-buffer] 11 (#$ . 164177)])#@282 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. (fn LISTIFIED) (defalias 'allout-insert-listified #[257 "\211A\262\211@A\262@A\262@c\210\211\203\300Pc\210\2034@c\210A\211\262\203\301c\210\202\301c\207" [" " "\n"] 6 (#$ . 165628)])#@777 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. (fn &optional ARG TOBUF FORMAT) (defalias 'allout-copy-exposed-to-buffer #[768 "\204 \300\301\302 \303Q!\262`\203\304 \202e\203!\305 \202\"dp\306=\203;\2038\212b\210\307 )\2029\310\262rq\210\311 )\210\312\313p\n\n\314&\210eb\210\315!\210b\207" [get-buffer-create "*" buffer-name " exposed*" allout-back-to-current-heading allout-end-of-current-subtree flat allout-topic-flat-index (1) erase-buffer allout-process-exposed allout-insert-listified nil pop-to-buffer] 15 (#$ . 166103) "P"])#@507 Present numeric outline of outline's exposed portions in another buffer. The resulting outline is not compatible with outline mode -- use `allout-copy-exposed-to-buffer' if you want that. Use `allout-indented-exposed-to-buffer' for indented presentation. With repeat count, copy the exposed portions of only current topic. Other buffer has current buffer's name with " exposed" appended to it, unless optional second arg TOBUF is specified, in which case it is used verbatim. (fn &optional ARG TOBUF) (defalias 'allout-flatten-exposed-to-buffer #[512 "\300\301#\207" [allout-copy-exposed-to-buffer flat] 6 (#$ . 167367) "P"])#@516 Present indented outline of outline's exposed portions in another buffer. The resulting outline is not compatible with outline mode -- use `allout-copy-exposed-to-buffer' if you want that. Use `allout-flatten-exposed-to-buffer' for numeric sectional presentation. With repeat count, copy the exposed portions of only current topic. Other buffer has current buffer's name with " exposed" appended to it, unless optional second arg TOBUF is specified, in which case it is used verbatim. (fn &optional ARG TOBUF) (defalias 'allout-indented-exposed-to-buffer #[512 "\300\301#\207" [allout-copy-exposed-to-buffer indent] 6 (#$ . 168006) "P"])#@203 Return copy of STRING for literal reproduction across LaTeX processing. Expresses the original characters (including carriage returns) of the string across LaTeX processing. (fn STRING &optional FLOW) (defalias 'allout-latex-verb-quote #[513 "\300\301\302#\207" [mapconcat #[257 "\211\300>\203 \301\302!\303Q\207\211\304U\203\305\207\306!\207" [(92 36 37 35 38 123 125 95 94 45 42) "\\char" number-to-string "{}" 10 "\\\\" char-to-string] 4 "\n\n(fn CHAR)"] ""] 6 (#$ . 168657)])#@251 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. (defalias 'allout-latex-verbatim-quote-curr-line #[0 "\301\302 \210\303 \304 \305\306\"\216\307\310\311#\205)\312\224b\210\313c\210T\262\312\225Tb\210\202*\207" [inhibit-field-text-motion t beginning-of-line line-end-position match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward "\\\\" 1 2 "\\"] 6 (#$ . 169150)])#@64 Insert initial LaTeX commands at point in BUFFER. (fn BUFFER) (defalias 'allout-insert-latex-header #[257 "\211q\210\306\307\310\"\203\311\202\312\306\313 \"\306\314\n\"\306\315 \"\306\316\f\"\306\317\320\321 \322%\306\323\324\325\326\327\330(\331&\306\332\333\325\334\335(\331&\306\317\336\337)\203Y\3401T\341)\342\"0\202Z\210\343\202Z\344!\322\345%         \346\n\347\260\fc\207" [allout-number-pages allout-title-style allout-label-style allout-head-line-style allout-body-line-style allout-indent format "\n\\documentstyle{%s}\n" "report" "\\pagestyle{empty}\n" "" "\\newcommand{\\titlecmd}[1]{{%s #1}}\n" "\\newcommand{\\labelcmd}[1]{{%s #1}}\n" "\\newcommand{\\headlinecmd}[1]{{%s #1}}\n" "\\newcommand{\\bodylinecmd}[1]{{%s #1}}\n" "%s%s%s%s" "\\newlength{\\stepsize}\n" "\\setlength{\\stepsize}{" "}\n" "%s%s%s%s%s%s%s" "\\newcommand{\\OneHeadLine}[3]{%\n" "\\noindent%\n" "\\hspace*{#2\\stepsize}%\n" "\\labelcmd{#1}\\hspace*{.2cm}" "\\headlinecmd{#3}\\\\[" "]\n}\n" "%s%s%s%s%s%s" "\\newcommand{\\OneBodyLine}[2]{%\n" "\\hspace*{#1\\stepsize}%\n" "\\bodylinecmd{#2}\\\\[" "\\titlecmd{" allout-latex-verb-quote (error) eval t "" "Unnamed Outline" "\\end{center}\n\n" "\\begin{document}\n\\begin{center}\n" "\\hsize = 7.5 true in\n\\hoffset = -1.5 true in\n\\vspace{.1cm}\n\n" allout-line-skip allout-title] 23 (#$ . 169766)])#@67 Insert concluding LaTeX commands at point in BUFFER. (fn BUFFER) (defalias 'allout-insert-latex-trailer #[257 "\211q\210\300c\207" ["\n\\end{document}\n"] 2 (#$ . 171148)])#@214 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. (fn DEPTH PREFIX BULLET TEXT) (defalias 'allout-latexify-one-item #[1028 "\211\205\211@A\300\211\211\301\302!\303 \304 \203 \302\n!\202!\305\306\260c\210\205\202\307c\210\203m@\262\204C\310\311\"\204C\312\262\203]\310\313\"\211\262\203]\314O\315\300OQ\262c\210\316 \210\317c\210A\262\202-\203w\300\262\202\200\320u\210\321c\210\322u\210\323c\207" [nil "\\OneHeadLine{\\verb " allout-latex-verb-quote "}{" "}{\\verb " "" "}\n" "\\begin{verbatim}\n" string-match "^\\s-*$" t "\\\\end{verbatim}" 0 ">" allout-latex-verbatim-quote-curr-line "\n" -1 "\\ " 1 "\\end{verbatim}\n"] 16 (#$ . 171328)])#@280 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. (fn ARG &optional TOBUF) (defalias 'allout-latexify-exposed #[513 "\211\204 \300\301\302 \303Q!\262`\203e\202\304 \203 d\202\"\305 pq\210\306 \210\307!\210db\210\310\311 %\210db\210\312!\210eb\210\313!\210b\207" [get-buffer-create "*" buffer-name " latexified*" allout-back-to-current-heading allout-end-of-current-subtree erase-buffer allout-insert-latex-header allout-process-exposed allout-latexify-one-item allout-insert-latex-trailer pop-to-buffer] 12 (#$ . 172154) "P"])#@1843 Encrypt clear or decrypt encoded topic text. Allout uses Emacs `epg' library to perform encryption. Symmetric and keypair encryption are supported. All encryption is ascii armored. Entry encryption defaults to symmetric key mode unless keypair recipients are associated with the file (see `epa-file-encrypt-to') or the function is invoked with a (KEYMODE-CUE) universal argument greater than 1. When encrypting, KEYMODE-CUE universal argument greater than 1 causes prompting for recipients for public-key keypair encryption. Selecting no recipients results in symmetric key encryption. Further, encrypting with a KEYMODE-CUE universal argument greater than 4 - eg, preceded by a doubled Ctrl-U - causes association of the specified recipients with the file, replacing those currently associated with it. This can be used to dissociate any recipients with the file, by selecting no recipients in the dialog. Encrypted topic's bullets are set to a `~' to signal that the contents of the topic (body and subtopics, but not heading) is pending encryption or encrypted. `*' asterisk immediately after the bullet signals that the body is encrypted, its absence means the topic is meant to be encrypted but is not currently. When a file with topics pending encryption is saved, topics pending encryption are encrypted. See `allout-encrypt-unencrypted-on-saves' for auto-encryption specifics. *NOTE WELL* that automatic encryption that happens during saves will default to symmetric encryption -- you must deliberately (re)encrypt key-pair encrypted topics if you want them to continue to use the key-pair cipher. Level-one topics, with prefix consisting solely of an `*' asterisk, cannot be encrypted. If you want to encrypt the contents of a top-level topic, use \[allout-shift-in] to increase its depth. (fn &optional KEYMODE-CUE) (defalias 'allout-toggle-current-subtree-encryption #[256 "\212\300 \210\301!)\207" [allout-back-to-current-heading allout-toggle-subtree-encryption] 3 (#$ . 172911) "P"])#@997 Encrypt clear text or decrypt encoded topic contents (body and subtopics.) Entry encryption defaults to symmetric key mode unless keypair recipients are associated with the file (see `epa-file-encrypt-to') or the function is invoked with a (KEYMODE-CUE) universal argument greater than 1. When encrypting, KEYMODE-CUE universal argument greater than 1 causes prompting for recipients for public-key keypair encryption. Selecting no recipients results in symmetric key encryption. Further, encrypting with a KEYMODE-CUE universal argument greater than 4 - eg, preceded by a doubled Ctrl-U - causes association of the specified recipients with the file, replacing those currently associated with it. This can be used to dissociate any recipients with the file, by selecting no recipients in the dialog. Encryption and decryption uses the Emacs `epg' library. Encrypted text will be ascii-armored. See `allout-toggle-current-subtree-encryption' for more details. (fn &optional KEYMODE-CUE) (defalias 'allout-toggle-subtree-encryption #[256 "\212\306\307!\210\310U\203\311\312!\210p \n`dU\203\311\313!\210\314 \315\316\317\307#\2057\320u\210\317\321\2061`\322\"\323=\262`T\324 \325\"Sff\326\230\204P\316\230\205]\311\327\203[\330\202\\\331\" \204~\332\"\211\232\204~\333\334\335 \"!\203~\336\337 \"\210\340\np$\262\f?\307)\fq\210|\210c\210\203\250\341S`\307#\210\204\274\342U\203\274\342U\203\274c\210\325\nS \"*\230\204\326 Sb\210\343\310!\210*c\210\203\346 b\210\343\310!\210\202\355 b\210\344c\210*\203\373\345\f!\210\202\376\346 \210\347\350\f#\266\215)\207" [allout-recent-depth buffer-saved-size allout-recent-prefix-beginning buffer-file-coding-system buffer-read-only inhibit-field-text-motion allout-end-of-prefix t 1 error "Cannot encrypt or decrypt level 1 topics - shift it in to make it encryptable" "No body to encrypt" allout-encrypted-topic-p search-forward "\n" nil -1 get-char-property invisible allout allout-end-of-subtree buffer-substring-no-properties "" "No topic contents to %scrypt" "de" "en" select-safe-coding-system yes-or-no-p format "Register coding system %s as file local var? Necessary when only encrypted text is in that coding system. " allout-adjust-file-variable "buffer-file-coding-system" allout-encrypt-string allout-flag-region 10 delete-char "*" allout-inhibit-auto-save-info-for-decryption allout-maybe-resume-auto-save-info-after-encryption run-hook-with-args allout-structure-added-functions inhibit-read-only allout-topic-encryption-bullet] 20 (#$ . 174932) "P"])#@1628 Encrypt or decrypt message TEXT. Returns the resulting string, or nil if the transformation fails. If DECRYPT is true (default false), then decrypt instead of encrypt. ALLOUT-BUFFER identifies the buffer containing the text. Entry encryption defaults to symmetric key mode unless keypair recipients are associated with the file (see `epa-file-encrypt-to') or the function is invoked with a (KEYMODE-CUE) universal argument greater than 1. When encrypting, KEYMODE-CUE universal argument greater than 1 causes prompting for recipients for public-key keypair encryption. Selecting no recipients results in symmetric key encryption. Further, encrypting with a KEYMODE-CUE universal argument greater than 4 - eg, preceded by a doubled Ctrl-U - causes association of the specified recipients with the file, replacing those currently associated with it. This can be used to dissociate any recipients with the file, by selecting no recipients in the dialog. Optional REJECTED is for internal use, to convey the number of rejections due to matches against `allout-encryption-ciphertext-rejection-regexps', as limited by `allout-encryption-ciphertext-rejection-ceiling'. NOTE: A few GnuPG v2 versions improperly preserve incorrect symmetric decryption keys, preventing entry of the correct key on subsequent decryption attempts until the cache times-out. That can take several minutes. (Decryption of other entries is not affected.) Upgrade your EasyPG version, if you can, and you can deliberately clear your gpg-agent's cache by sending it a `-HUP' signal. (fn TEXT DECRYPT ALLOUT-BUFFER KEYMODE-CUE &optional REJECTED) (defalias 'allout-encrypt-string #[1284 "\304\305!\210\304\306!\210\307\310\311\"\312\313\"\210\211\262rq\210)rq\210 )?\205)\314\315!?\2052\314\316!\2067\317\nZ\n\203C\320\202g\321 !\322X\203P\323\202g\321 !\324X\203]\325\202g\321 !\324V\205g\326\327\303!\205n \310\211\211\330\331\311\"r\211q\210\332\333\"\216c\210\334 !\210 \203\235\335\f!\210\204\235\336ed#\210 \203\354\204\354 \211\203\353\211@\211<\203\271\211@\202\272\211<\203\305A@\202\306\337eb\210\340 \332\341\"\216\342\310\311#\203\341\343\310\211#\210\202\320)\266A\266\202\202\251\210\344ed\"*\262\210\345\267\202\310\202\205\346\f\"\202\347 \332\350\"\216\351 \352\")\262\202\310\262\203J\35319\354\f\355\2063\356\"\"0\202^\357\360A@\361PAAB\"\262\202^\362\363\337\364\355\206Y\356\"##\262\211\204r\365\366\203o\367\202p\370\"\210\326=\203\202\371\372\"\373\374 \"\210\204\303\310\203\240\211\204\240\375@\"\262A\262\202\212\262\203\303S\262\317X\203\265\365\376\n\316#\207\377 T%\207\204\327\375\201@\"\203\327\365\201A!\207\207" [buffer-file-coding-system enable-multibyte-characters allout-encryption-ciphertext-rejection-ceiling epa-file-encrypt-to require epg epa epg-make-context nil t epg-context-set-passphrase-callback epa-passphrase-callback-function allout-get-configvar-values allout-encryption-plaintext-sanitization-regexps allout-encryption-ciphertext-rejection-regexps 0 decrypting prefix-numeric-value 1 default 4 prompt prompt-save boundp generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] set-buffer-multibyte set-buffer-file-coding-system encode-coding-region "" match-data #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward replace-match buffer-substring-no-properties #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (decrypting 250 default 254 prompt-save 266 prompt 266)) epg-list-keys current-window-configuration #[0 "\301\300!\207" [V0 set-window-configuration] 2] epa-select-keys "Select encryption recipients.\nSymmetric encryption is done if no recipients are selected. " (epg-error) epg-decrypt-string encode-coding-string utf-8 signal egp-error " - gpg version problem?" replace-regexp-in-string "\n$" epg-encrypt-string error "%scryption failed" "De" "En" mapcar #[257 "\300\301!@!\207" [epg-user-id-string epg-key-user-id-list] 4 "\n\n(fn KEY)"] allout-adjust-file-variable "epa-file-encrypt-to" string-match "Ciphertext rejected too many times (%s), per `%s'" allout-encrypt-string "[ -]" "Encryption produced non-armored text, whichconflicts with allout mode -- reconfigure!"] 27 (#$ . 177534)])#@186 Temporarily prevent auto-saves in this buffer when an item is decrypted. WAS-BUFFER-SAVED-SIZE is the value of `buffer-saved-size' *before* the decryption. (fn WAS-BUFFER-SAVED-SIZE) (defalias 'allout-inhibit-auto-save-info-for-decryption #[257 "\302U\206 \211\302U?\205\211\302\211\207" [buffer-saved-size allout-auto-save-temporarily-disabled -1] 3 (#$ . 181931)])#@70 Restore auto-save info, *if* there are no topics pending encryption. (defalias 'allout-maybe-resume-auto-save-info-after-encryption #[0 "\205 \302U\205\212\214~\210eb\210\303 *?\205\304\211\207" [allout-auto-save-temporarily-disabled buffer-saved-size -1 allout-next-topic-pending-encryption nil] 2 (#$ . 182311)])#@57 True if the current topic is encryptable and encrypted. (defalias 'allout-encrypted-topic-p #[0 "\212\301\302!\210\303`S`\"\230\205\304 \305\306\"\216\307\310!)\262)\207" [allout-topic-encryption-bullet allout-end-of-prefix t buffer-substring-no-properties match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] looking-at "\\*"] 4 (#$ . 182641)])#@237 Return the point of the next topic pending encryption, or nil if none. Such a topic has the `allout-topic-encryption-bullet' without an immediately following `*' that would mark the topic as being encrypted. It must also have content. (defalias 'allout-next-topic-pending-encryption #[0 "\302\211\211\303 \304\305\"\216\204{\306\307\310\311!\311 !#\302\312#\204'\302\262\312\262\202:\313\224\211\262b\210g\314U\2037\315u\210`\262\204D\312\262\202\n\316\317!\204S\302\262\312\262\202\nm\203`\302\262\312\262\202\n`\262\320u\210\321 \210`X\203u\302\262\202\n\312\262\202\n\205\201b)\207" [allout-header-prefix allout-topic-encryption-bullet nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward format "\\(\\`\\|\n\\)%s *%s[^*]" regexp-quote t 0 10 1 search-forward "\n" -1 allout-end-of-subtree] 10 (#$ . 183019)])#@437 Encrypt topics pending encryption except those containing exemption point. If a topic that is currently being edited was encrypted, we return a list containing the location of the topic and the location of the cursor just before the topic was encrypted. This can be used, eg, to decrypt the topic and exactly resituate the cursor if this is being done as part of a file save. See `allout-encrypt-unencrypted-on-saves' for more info. (defalias 'allout-encrypt-decrypted #[0 "\301 \302\303\"\216\212\304 \305!\306\211\211\211eb\210\307 \203n\310 \262\212\311\300!\205P\205P\312\313!\211\262\205P\306\314\2068`\315\"\316=\262?\205P`Y\205P\317 \205P`X)\203``\262\320\"Z\262\321 \210\204\322\306!\210\202\204v\322\306!\210\205}D\266\206*\207" [allout-encrypt-unencrypted-on-saves match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] point-marker marker-position nil allout-next-topic-pending-encryption buffer-modified-p boundp re-search-forward "$" get-char-property invisible allout allout-end-of-current-subtree allout-count-trailing-whitespace-region allout-toggle-subtree-encryption set-buffer-modified-p] 11 (#$ . 183915) "p"]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\302\303#\210\304\306\302\305#\207" [defalias outlinify-sticky allout-outlinify-sticky nil make-obsolete "29.1" outlineify-sticky] 4)#@228 Activate outline mode and establish file var so it is started subsequently. See `allout-layout' and customization of `allout-auto-activation' for details on preparing Emacs for automatic allout activation. (fn &optional ARG) (defalias 'allout-outlinify-sticky #[256 "\203\300 \210\300 \210\212eb\210\302 \203\303\202(\304\305!\210\306\307!c\210\310\311 \206'\312\")\207" [allout-mode allout-layout allout-goto-prefix t allout-open-topic 2 substitute-command-keys "Dummy outline topic header -- see `allout-mode' docstring: `\\[describe-mode]'." allout-adjust-file-variable "allout-layout" (-1 : 0)] 4 (#$ . 185305) "P"])#@139 Return data identifying the file-vars section, or nil if none. Returns a list of the form (BEGINNING-POINT PREFIX-STRING SUFFIX-STRING). (defalias 'allout-file-vars-section-data #[0 "\301\211\211\212db\210\302\303d\304Ze]\305#\210\306\307\310\301\306#)??\205I`\311Z\262\312`\307\313\301\306#\2030\314u\210`\"\262\312\302\313\301\306#\203@\315u\210`\"\262E)\207" [case-fold-search nil search-backward "\n\f" 3000 move t search-forward "Local Variables:" 16 buffer-substring-no-properties "\n" -1 1] 9 (#$ . 185941)])#@614 Adjust the setting of an Emacs file variable named VARNAME to VALUE. This activity is inhibited if either `enable-local-variables' or `allout-enable-file-variable-adjustment' are nil. When enabled, an entry for the variable is created if not already present, or changed if established with a different value. The section for the file variables, itself, is created if not already present. When created, the section lines (including the section line) exist as second-level topics in a top-level topic at the end of the file. `enable-local-variables' must be true for any of this to happen. (fn VARNAME VALUE) (defalias 'allout-adjust-file-variable #[514 "\205\247 \205\247\212\303\304 \305\211\211\203'@\262A@\262AA@\262\202Xdb\210\306\307!\210\310\311!\210\305\210\312c\210\310\307!\210`\262\313\262\314\315 \210`\"\262b\210\316c\210\310\311!\210\317c\210b\210\320 \210\321\322 \323R\305\303#\203\213`\321\322\305\303#\203w\324u\210`\211GZ\211V\203\206|\210\266\202\234\305\210\306\307!\210\307y\210\323Qc\210\325\326#c)\266\205)\207" [enable-local-variables allout-enable-file-variable-adjustment inhibit-field-text-motion t allout-file-vars-section-data nil open-line 1 allout-open-topic 0 "Local emacs vars.\n" "" buffer-substring-no-properties beginning-of-line "Local variables:\n" "End:\n" allout-show-to-offshoot search-forward "\n" ":" -1 format " %S%s"] 12 (#$ . 186475)])#@270 Return a list of values of the symbols in list bound to CONFIGVAR-NAME. The user is prompted for removal of symbols that are unbound, and they otherwise are ignored. CONFIGVAR-NAME should be the name of the configuration variable, not its value. (fn CONFIGVAR-NAME) (defalias 'allout-get-configvar-values #[257 "\211J\300\211\2032\211@\301!\204%\302\303\304#!\203+\305J\"\210\202+\211JB\262A\266\202\202\210\306!\207" [nil boundp yes-or-no-p format-message "%s entry `%s' is unbound -- remove it? " delq reverse] 10 (#$ . 187907)])#@57 Put the region around topic currently containing point. (defalias 'allout-mark-topic #[0 "\301\302 )\210\303 \210\304 \210\305 \210\306 \207" [inhibit-field-text-motion t beginning-of-line allout-goto-prefix-doublechecked push-mark allout-end-of-current-subtree exchange-point-and-mark] 1 (#$ . 188465) nil])#@185 Solicit (with first arg PROMPT) choice of a character from string STRING. Optional arg DO-DEFAULTING indicates to accept empty input (CR). (fn PROMPT STRING &optional DO-DEFAULTING) (defalias 'allout-solicit-char-in-string #[770 "\301\211\204J\302\303\"\210\304\301\305 )!\262\306\307!\"\203!\211\202E\203/\211\310\230\203/\311\202E\211\312\230\203<\313\314\301\"\202E\315R\262\301\262\202\207" [cursor-in-echo-area nil message "%s" char-to-string read-char string-match regexp-quote " " "" "" signal quit " ...pick from: "] 9 (#$ . 188781)])#@267 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. (fn REGEXP &optional SUCCESSIVE-BACKSLASHES) (defalias 'allout-regexp-sans-escapes #[513 "\300\230\203\300\207\301H\302U\205\211\203\211T\202\303\262\211\203&\211\304U\2032\301\303O\305\303\306O!P\207\305\303\306O\"\207" ["" 0 92 1 2 allout-regexp-sans-escapes nil] 7 (#$ . 189356)])#@119 Return number of trailing whitespace chars between BEG and END. If BEG is bigger than END we return 0. (fn BEG END) (defalias 'allout-count-trailing-whitespace-region #[514 "V\203\300\207\301 \302\303\"\216\212b\210\300\304\305\306#\203(\307\224Tb\210\211T\262\202*\207" [0 match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data t] 3] re-search-forward "[ ][ ]*$" t 2] 8 (#$ . 189884)])#@71 Return a copy of string with all "%" characters doubled. (fn STRING) (defalias 'allout-format-quote #[257 "\300\301\302\303\"\"\207" [apply concat mapcar #[257 "\211\300U\203\301\207\302!\207" [37 "%%" char-to-string] 3 "\n\n(fn CHAR)"]] 6 (#$ . 190304)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\300\306\307\303#\210\304\306\307\310#\210\300\311\312\303#\210\304\311\312\310#\210\300\313\314\303#\210\304\313\314\310#\210\300\315\316\303#\210\304\315\316\310#\210\300\317\320\303#\210\304\317\320\310#\207" [defalias allout-flatten flatten-tree nil make-obsolete "27.1" allout-mark-marker mark-marker "28.1" allout-substring-no-properties substring-no-properties allout-select-safe-coding-system select-safe-coding-system allout-previous-single-char-property-change previous-single-char-property-change allout-next-single-char-property-change next-single-char-property-change] 4)#@71 Isearch (regexp) for topic with bullet BULLET. (fn &optional BULLET) (defalias 'allout-bullet-isearch #[256 "\211\204\f\304\305\306!\"\262\307\310 \311R\312\313!\210\314\307!*\207" [allout-bullets-string allout-header-prefix isearch-string isearch-regexp allout-solicit-char-in-string "ISearch for topic with bullet: " allout-regexp-sans-escapes t "^" "[ ]*" isearch-repeat forward isearch-mode] 6 (#$ . 191209) nil]) (provide 'allout)