| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/allout-widgets.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:10 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/allout-widgets.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require allout widget wid-edit] 2)
#@46 Allout mode enhanced with graphical widgets.
(defvar allout-widgets-mode nil (#$ . 646))
(byte-code "\300\301!\210\302\303\304\305\306\307%\210\302\310\304\311\306\303%\207" [make-variable-buffer-local allout-widgets-mode custom-declare-group allout-widgets nil "Allout extension that highlights outline structure graphically.\n\nCustomize `allout-widgets-auto-activation' to activate allout-widgets\nwith allout-mode." :group allout allout-widgets-developer "Settings for development of allout widgets extension."] 6)
#@146 Enable allout-widgets-mode in allout-mode buffers.
See `allout-widgets-mode-inhibit' for per-file/per-buffer
inhibition of allout-widgets-mode.
(defalias 'allout-widgets-mode-enable #[nil "\300\301\302\"\210\300\303\304\"\210\305\207" [add-hook allout-mode-off-hook allout-widgets-mode-off allout-mode-on-hook allout-widgets-mode-on t] 3 (#$ . 1172)])
#@147 Disable allout-widgets-mode in allout-mode buffers.
See `allout-widgets-mode-inhibit' for per-file/per-buffer
inhibition of allout-widgets-mode.
(defalias 'allout-widgets-mode-disable #[nil "\300\301\302\"\210\300\303\304\"\210\305\207" [remove-hook allout-mode-off-hook allout-widgets-mode-off allout-mode-on-hook allout-widgets-mode-on t] 3 (#$ . 1532)])
#@144 Commission or decommission allout-widgets-mode along with allout-mode.
Meant to be used by customization of `allout-widgets-auto-activation'.
(defalias 'allout-widgets-setup #[(varname value) "\303 \"\210\n\203\f \304 \207\305 \207" [varname value allout-widgets-auto-activation set-default allout-widgets-mode-enable allout-widgets-mode-disable] 3 (#$ . 1897)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313& \210\300\314\315\316\304\305\306\317\310\311& \210\300\320\321\322\304\305\306\317\310\311& \210\300\323\324\325\304\305\306\326\310\311& \210\300\327\330\331\304\305\306\332\310\311& \210\300\333\334\335\304\305\306\336\310\311& \210\300\337\340\341\304\305\306\342\310\311& \210\300\343\302\344\304\305\306\342\310\311& \210\300\345\302\346\304\305\306\307\310\347& \210\300\350\302\351\304\305\306\307\310\347& \210\300\352\353\354\304\305\306\355\310\347& \210\300\356\302\357\304\305\306\307\310\347& \207" [custom-declare-variable allout-widgets-auto-activation nil "Activate to enable allout icon graphics wherever allout mode is active.\n\nAlso enable `allout-auto-activation' for this to take effect upon\nvisiting an outline.\n\nWhen this is set you can disable allout widgets in select files\nby setting `allout-widgets-mode-inhibit'\n\nInstead of setting `allout-widgets-auto-activation' you can\nexplicitly invoke `allout-widgets-mode' in allout buffers where\nyou want allout widgets operation.\n\nSee `allout-widgets-mode' for allout widgets mode features." :version "24.1" :type boolean :group allout-widgets :set allout-widgets-setup allout-widgets-icons-dark-subdir "icons/allout-widgets/dark-bg/" "Directory on `image-load-path' holding allout icons for dark backgrounds." string allout-widgets-icons-light-subdir "icons/allout-widgets/light-bg/" "Directory on `image-load-path' holding allout icons for light backgrounds." allout-widgets-icon-types '(xpm png) "File extensions for the icon graphic format types, in order of preference." (repeat symbol) allout-widgets-theme-dark-background "allout-dark-bg" "Identify the outline's icon theme to use with a dark background." (string) allout-widgets-theme-light-background "allout-light-bg" "Identify the outline's icon theme to use with a light background." (string) allout-widgets-item-image-properties-emacs '(:ascent center :mask (heuristic t)) "Default properties item widget images in mainline Emacs." plist allout-widgets-item-image-properties-xemacs "Default properties item widget images in XEmacs." allout-widgets-run-unit-tests-on-load "When non-nil, unit tests will be run at end of loading allout-widgets.\n\nGenerally, allout widgets code developers are the only ones who'll want to\nset this.\n\n(If set, this makes it an even better practice to exercise changes by\ndoing byte-compilation with a repeat count, so the file is loaded after\ncompilation.)\n\nSee `allout-widgets-run-unit-tests' to see what's run." allout-widgets-developer allout-widgets-time-decoration-activity "Retain timing info of the last cooperative redecoration.\n\nThe details are retained as the value of\n`allout-widgets-last-decoration-timing'.\n\nGenerally, allout widgets code developers are the only ones who'll want to\nset this." allout-widgets-hook-error-post-time 0 "Amount of time to sit showing hook error messages.\n\n0 is minimal, or nil to not post to the message area.\n\nThis is for debugging purposes." integer allout-widgets-maintain-tally "If non-nil, maintain a collection of widgets, `allout-widgets-tally'.\n\nThis is for debugging purposes.\n\nThe tally shows the total number of item widgets in the current\nbuffer, and tracking increases as new widgets are added and\ndecreases as obsolete widgets are garbage collected."] 12)
#@230 Hash-table of existing allout widgets, for debugging.
Table is maintained iff `allout-widgets-maintain-tally' is non-nil.
The table contents will be out of sync if any widgets are created
or deleted while this variable is nil.
(defvar allout-widgets-tally nil (#$ . 5641))
(make-variable-buffer-local 'allout-widgets-tally)
#@396 Return a string giving the number of tracked widgets, or empty string if not tracking.
The string is formed for appending to the allout-mode mode-line lighter.
An empty string is also returned if tracking is inhibited or
widgets are locally inhibited.
The number varies according to the evanescence of objects on a
hash table with weak keys, so tracking of widget erasures is often delayed.
(defalias 'allout-widgets-tally-string #[nil "\205 ?\205 \n\205 \303\304\305\n!\"\207" [allout-widgets-maintain-tally allout-widgets-mode-inhibit allout-widgets-tally format ":%s" hash-table-count] 4 (#$ . 5974)])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\301!\207" [custom-declare-variable allout-widgets-track-decoration nil "If non-nil, show cursor position of each item decoration.\n\nThis is for debugging purposes, and generally set at need in a\nbuffer rather than as a prevailing configuration (but it's handy\nto publicize it by making it a customization variable)." :version "24.1" :type boolean :group allout-widgets-developer make-variable-buffer-local] 10)
#@55 Version of currently loaded allout-widgets extension.
(defvar allout-widgets-version "1.0" (#$ . 7071))
#@54 Return string describing the loaded outline version.
(defalias 'allout-widgets-version #[(&optional here) "\303P\n\203 c\210\304\305 \"\210 )\207" [allout-widgets-version msg here "Allout Outline Widgets Extension v " message "%s"] 3 (#$ . 7181) "P"])
#@476 Inhibit `allout-widgets-mode' from activating widgets.
This also inhibits automatic adjustment of widgets to track allout outline
changes.
You can use this as a file local variable setting to disable
allout widgets enhancements in selected buffers while generally
enabling widgets by customizing `allout-widgets-auto-activation'.
In addition, you can invoked `allout-widgets-mode' allout-mode
buffers where this is set to enable and disable widget
enhancements, directly.
(defvar allout-widgets-mode-inhibit nil (#$ . 7444))
(byte-code "\300\301\302\303\304!\203
\304\202 \305#\210\306\301!\207" [put allout-widgets-mode-inhibit safe-local-variable fboundp booleanp #[(x) "\301\235\207" [x (t nil)] 2] make-variable-buffer-local] 5)
#@250 Override de-escaping of text-prefixes in item bodies during specific changes.
This is used by `allout-buffer-modification-handler' to signal such changes
to `allout-body-modification-handler', and is always reset by
`allout-post-command-business'.
(defvar allout-inhibit-body-modification-hook nil (#$ . 8190))
(make-variable-buffer-local 'allout-inhibit-body-modification-hook)
#@316 Cache allout icon images, as an association list.
`allout-fetch-icon-image' uses this cache transparently, keying
images with lists containing the name of the icon directory (as
found on the `load-path') and the icon name.
Set this variable to `nil' to empty the cache, and have it replenish from the
filesystem.
(defvar allout-widgets-icons-cache nil (#$ . 8577))
#@123 Tell `allout-widgets-post-command-business' to unset `inhibit-read-only'.
Used by `allout-graphics-modification-handler'
(defvar allout-widgets-unset-inhibit-read-only nil (#$ . 8951))
#@167 Tell `allout-widgets-post-command-business' to reequip the handler.
Necessary because the handler sometimes deliberately raises an
error, causing it to be disabled.
(defvar allout-widgets-reenable-before-change-handler nil (#$ . 9144))
#@153 List of body-overlays that did before-change business but not after-change.
See `allout-post-command-business' and `allout-body-modification-handler'.
(defvar allout-unresolved-body-mod-workroster (make-hash-table :size 16) (#$ . 9388))
#@139 Informative message presented on improper editing of outline structure.
The structure includes the guides lines, bullet, and bullet cue.
(defvar allout-structure-unruly-deletion-message "Unruly edit prevented --\nTo change the bullet character: \\[allout-rebullet-current-heading]\nTo promote this item: \\[allout-shift-out]\nTo demote it: \\[allout-shift-in]\nTo delete it and offspring: \\[allout-kill-topic]\nSee \\[describe-mode] for many more options." (#$ . 9633))
#@391 Record outline changes for processing by post-command hook.
Entries on the list are lists whose first element is a symbol indicating
the change type and subsequent elements are data specific to that change
type. Specifically:
'exposure `allout-exposure-from' `allout-exposure-to' `allout-exposure-flag'
The changes are recorded in reverse order, with new values pushed
onto the front.
(defvar allout-widgets-changes-record nil (#$ . 10112))
(make-variable-buffer-local 'allout-widgets-changes-record)
#@148 Record outline undo traces for processing by post-command hook.
The changes are recorded in reverse order, with new values pushed
onto the front.
(defvar allout-widgets-undo-exposure-record nil (#$ . 10625))
(make-variable-buffer-local 'allout-widgets-undo-exposure-record)
#@59 String holding last error string, for debugging purposes.
(defvar allout-widgets-last-hook-error nil (#$ . 10906))
#@75 Display "Adjusting widgets" message above this number of pending changes.
(defvar allout-widgets-adjust-message-length-threshold 100 (#$ . 11027))
#@73 Display "Adjusting widgets" message above this size of pending changes.
(defvar allout-widgets-adjust-message-size-threshold 10000 (#$ . 11180))
#@65 Maintained true during `allout-widgets-exposure-undo-processor'
(defvar allout-undo-exposure-in-progress nil (#$ . 11331))
#@110 Regular expression for body text that would look like an item prefix if
not altered with an escape sequence.
(defvar allout-escaped-prefix-regexp "" (#$ . 11461))
(make-variable-buffer-local 'allout-escaped-prefix-regexp)
#@33 General tree-node key bindings.
(defvar allout-item-icon-keymap (byte-code "\303 \304\305\211\203 \n@\306 \307#\210\nA\211\204 *\306\310\311#\210\306\312\313#\210\306\314\315#\210\306\316\317#\210)\207" [km digit --dolist-tail-- make-sparse-keymap ("0" "1" "2" "3" "4" "5" "6" "7" "8" "9") nil define-key digit-argument "-" negative-argument [(mouse-1)] #[nil "\300\207" [nil] 1 nil nil] [(mouse-2)] #[nil "\300\207" [nil] 1 nil nil] [t] allout-item-icon-key-handler] 5) (#$ . 11689))
#@61 General key bindings for the text content of outline items.
(defvar allout-item-body-keymap (byte-code "\302 \303 \203 \304 \"\210 *\207" [local-map km make-sparse-keymap current-local-map set-keymap-parent] 3) (#$ . 12193))
(make-variable-buffer-local 'allout-item-body-keymap)
#@54 Symbol carrying allout body-text overlay properties.
(defvar allout-body-span-category nil (#$ . 12483))
#@77 Keymap used in the item cue area - the space between the icon and headline.
(defvar allout-cue-span-keymap (byte-code "\302 \303 \"\210)\207" [km allout-item-icon-keymap make-sparse-keymap set-keymap-parent] 3) (#$ . 12594))
#@102 Symbol for category of text property used to hide escapes of prefix-like
text in allout item bodies.
(defvar allout-escapes-category nil (#$ . 12829))
#@56 Symbol carrying allout icon-guides overlay properties.
(defvar allout-guides-category nil (#$ . 12986))
#@65 Symbol carrying allout icon and guide lines overlay properties.
(defvar allout-guides-span-category nil (#$ . 13096))
#@65 Symbol carrying allout icon and guide lines overlay properties.
(defvar allout-icon-span-category nil (#$ . 13220))
#@299 Symbol carrying common properties of the space following the outline icon.
(That space is used to convey selected cues indicating body qualities,
including things like:
- encryption '~'
- numbering '#'
- indirect reference '@'
- distinctive bullets - see `allout-distinctive-bullets-string'.)
(defvar allout-cue-span-category nil (#$ . 13343))
#@66 Association list mapping span identifier to category identifier.
(defvar allout-span-to-category '((:guides-span . allout-guides-span-category) (:cue-span . allout-cue-span-category) (:icon-span . allout-icon-span-category) (:body-span . allout-body-span-category)) (#$ . 13698))
#@69 Symbol carrying common properties of an overlay's trailing newline.
(defvar allout-trailing-category nil (#$ . 13984))
#@396 Timing details for the last cooperative decoration action.
This is maintained when `allout-widgets-time-decoration-activity' is set.
The value is a list containing two elements:
- the elapsed time as a number of seconds
- the list of changes processed, a la `allout-widgets-changes-record'.
When active, the value is revised each time automatic decoration activity
happens in the buffer.
(defvar allout-widgets-last-decoration-timing nil (#$ . 14110))
(make-variable-buffer-local 'allout-widgets-last-decoration-timing)
#@107 Non-nil if Allout-Widgets mode is enabled.
Use the command `allout-widgets-mode' to change this variable.
(defvar allout-widgets-mode nil (#$ . 14644))
(make-variable-buffer-local 'allout-widgets-mode)
#@939 Toggle Allout Widgets mode.
With a prefix argument ARG, enable Allout Widgets mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
Allout Widgets mode is an extension of Allout mode that provides
graphical decoration of outline structure. It is meant to
operate along with `allout-mode', via `allout-mode-hook'.
The graphics include:
- guide lines connecting item bullet-icons with those of their subitems.
- icons for item bullets, varying to indicate whether or not the item
has subitems, and if so, whether or not the item is expanded.
- cue area between the bullet-icon and the start of the body headline,
for item numbering, encryption indicator, and distinctive bullets.
The bullet-icon and guide line graphics provide keybindings and mouse
bindings for easy outline navigation and exposure control, extending
outline hot-spot navigation (see `allout-mode').
(defalias 'allout-widgets-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203\314 \312\313\314\315\316\317\305\320\321 \322RD&\210\312\304\fD\323\324
P\325DD\"\210\326\327\330\331\332$\210\333 \210\334\335!\210\334\336!\210\337 \203S \340@\337 \"\210\326\341\342\331\343$\210\326\344\345\331\343$\210\326\346\347\331\343$\210\326\350\351\331\343$\210\326\352\353\331\343$\210\326\354\355\331\343$\210\326\356\357\331\343$\210\326\360\361\331\343$\210\326\362\363\331\343$\210\f\204\235 \364\365\366\367\370$\371 A\372A@B\"\211 C?\205\265 \373B\236B>\211 D\203\305 DADAB\241\210+\374 \210\202<\332\375 E F\376ed\"\210\377\201G !\210\377\336!\210\201H \327\330\343#\210\201H \341\342\343#\210\201H \344\345\343#\210\201H \346\347\343#\210\201H \350\351\343#\210\201H \352\353\343#\210\201H \356\357\343#\210\201H \360\361\343#\210\201H \362\363\343#\210\201I \201J B\"\210\201K E!\210*\201L \201M \n\203L\201N \202O\201O \"\210\201P \201Q !\203|\306 \203g\306 \232\203|\201R \201S \n\203w\201T \202z\201U \"\210)\201V \210\n\207" [#1=#:last-message arg allout-widgets-mode allout-regexp allout-widgets-tally allout-escaped-prefix-regexp current-message toggle prefix-numeric-value 0 allout-add-resumptions (truncate-lines t) (auto-hscroll-mode t) (line-move-ignore-fields t) (widget-push-button-prefix #2="") (widget-push-button-suffix #2#) "\\(\\\\\\)" "\\(" "\\)" allout-widgets-escapes-sanitization-regexp-pair "\\(\n\\|\\`\\)" "\\1\\3" add-hook after-change-functions allout-widgets-after-change-handler nil t allout-setup-text-properties add-to-invisibility-spec (allout-torso . t) allout-escapes current-local-map set-keymap-parent allout-exposure-change-functions allout-widgets-exposure-change-recorder local allout-structure-added-functions allout-widgets-additions-recorder allout-structure-deleted-functions allout-widgets-deletions-recorder allout-structure-shifted-functions allout-widgets-shifts-recorder allout-after-copy-or-kill-hook allout-widgets-after-copy-or-kill-function allout-post-undo-hook allout-widgets-after-undo-function before-change-functions allout-widgets-before-change-handler post-command-hook allout-widgets-post-command-business pre-command-hook allout-widgets-pre-command-business make-hash-table :test eq :weakness key (allout-widgets-mode-inhibit #2# (:eval (allout-widgets-tally-string))) assoc allout-mode allout-widgets-prepopulate-buffer buffer-modified-p allout-widgets-undecorate-region remove-from-invisibility-spec allout-item-body-keymap mode-line-entry minor-mode-alist associated after was-modified inhibit-read-only (allout-torso . t) remove-hook assq-delete-all allout-widgets-mode-inhibit set-buffer-modified-p run-hooks allout-widgets-mode-hook allout-widgets-mode-on-hook allout-widgets-mode-off-hook called-interactively-p any message "Allout-Widgets mode %sabled" "en" "dis" force-mode-line-update] 12 (#$ . 14853) (list (or current-prefix-arg 'toggle))])
(byte-code "\301\302\303\304\300!\205\n \303\211%\207" [allout-widgets-mode-map add-minor-mode allout-widgets-mode nil boundp] 6)
#@41 Explicitly disable allout-widgets-mode.
(defalias 'allout-widgets-mode-off #[nil "\300\301!\207" [allout-widgets-mode -1] 2 (#$ . 18883)])
#@41 Explicitly disable allout-widgets-mode.
(defalias 'allout-widgets-mode-on #[nil "\300\301!\207" [allout-widgets-mode 1] 2 (#$ . 19028)])
#@49 Configure category and literal text properties.
(defalias 'allout-setup-text-properties #[nil "\304\305\306\"\210\307\305\310\311#\210\307\305\312#\210\307\305\313 #\210\307\305\314\315#\210\304\316\317\320\305!!\"\210\307\316\314\315#\210\304\321\306\"\210\307\321\322\323#\210\307\321\312\n#\210\304\324\306\"\210\307\324\322\323#\210\307\324\310\325#\210\307\324\312 #\210\307\324\313 #\210\307\324\326\327#\210\307\324\314\315#\210\304\330\306\"\210\307\330\322\323#\210\307\330\312\n#\210\304\331\306\"\210\307\331\332\333#\210\307\331\322\323#\207" [allout-item-icon-keymap widget-button-face allout-item-body-keymap allout-cue-span-keymap setplist allout-guides-span-category nil put modification-hooks (allout-graphics-modification-handler) local-map mouse-face field structure allout-icon-span-category allout-widgets-copy-list symbol-plist allout-body-span-category evaporate t allout-cue-span-category (allout-body-modification-handler) pointer arrow allout-trailing-category allout-escapes-category invisible allout-escapes] 5 (#$ . 19171)])
#@72 Step over the current buffers exposed items to do initial widgetizing.
(defalias 'allout-widgets-prepopulate-buffer #[nil "?\205 \212eb\210\301\302!\205 \303`!\204 \304 \210\202 )\207" [allout-widgets-mode-inhibit allout-next-visible-heading 1 widget-at allout-get-or-create-item-widget] 2 (#$ . 20232)])
#@156 A widget for the current outline's overarching container as an item.
The item has settings (of the file/connection) and maybe a body, but no
icon/bullet.
(defvar allout-container-item-widget nil (#$ . 20549))
(make-variable-buffer-local 'allout-container-item-widget)
#@53 Handle actions pending before allout-mode activity.
(defalias 'allout-widgets-pre-command-business #[(&optional recursing) "\300\207" ["Handle actions pending before allout-mode activity."] 1 (#$ . 20824)])
#@117 Handle actions pending after any allout-mode commands.
Optional RECURSING is for internal use, to limit recursion.
(defalias 'allout-widgets-post-command-business #[(&optional recursing) "\300\301\302\217\207" [failure (byte-code "\306\300!\205 \205 \203 \307\211 \203 \310\311\312\307\313$\210\307\f\204'
\203~ \314\211 ) *\315 +\316 ,\317,! -\320 .\f\203N \314 /\321 \210\322 \210)\202T \321 \210\322 \2100\203c \323\320 .\"
D1\307-\203| -;\203x \324-!\210\202| \324\325!\210.\326`!\206\217 `d=?\205\217 \326`T!\307 2 3\2123\205\n\3273\330\"b\205\nn?\205\n\331\332\333\217\204\326 `S\334] 4\3354\206\274 `\336\")\337=\203\317 \212`S\334]b\210\340 \210)\3413!\202\n`25?\205\340 \314\314 6\342\343!\210*\344u\210\3452\211T\307#\210\346\347!\210\324\350!\2102\205\n`2V\205\n\344u+\207" [allout-mode allout-widgets-unset-inhibit-read-only inhibit-read-only allout-widgets-reenable-before-change-handler allout-widgets-undo-exposure-record allout-widgets-changes-record boundp nil add-hook before-change-functions allout-widgets-before-change-handler local t allout-widgets-hook-error-handler " Adjusting widgets..." allout-widgets-adjusting-message current-time allout-widgets-exposure-undo-processor allout-widgets-changes-dispatcher allout-elapsed-time-seconds message "" widget-at widget-get :from err (yes-or-no-p "Misplaced item won't be recognizable as part of outline - rectify? ") ((quit)) 1 get-char-property invisible allout allout-show-to-offshoot allout-widgets-undecorate-item insert-before-markers "\n" -1 allout-flag-region allout-widgets-post-command-business recursing "outline structure corrected - item moved to beginning of new line" debug-on-signal debug-on-error debugger adjusting-message replaced-message start-time buffer-undo-list allout-widgets-time-decoration-activity allout-widgets-last-decoration-timing inserted-at this-widget pos buffer-read-only inhibit-field-text-motion] 6) ((error (byte-code "\301\211\207" [allout-widgets-changes-record nil] 2)))] 3 (#$ . 21038)])
#@68 Business to be done before changes in a widgetized allout outline.
(defalias 'allout-widgets-before-change-handler #[(beg end) "\203 \306 \307\"\310=\205h \212 b\210\311 \211\205 \312\n!*\207 \203# \313\207\314\304!\203- \f\204/ \313\207
\315\232\2037 \313\207\316 \232\203G Td^\202I \317\320$\204Q \313\207\321\322!\203_ ?\313\211\207\313\323\324!!\207" [undo-in-progress beg item-widget inhibit-read-only allout-mode this-command get-text-property category allout-icon-span-category allout-get-item-widget allout-widgets-exposure-undo-recorder t boundp quoted-insert text-property-any field structure yes-or-no-p "Unruly edit of outline structure - allow? " error substitute-command-keys end allout-widgets-unset-inhibit-read-only allout-widgets-reenable-before-change-handler allout-structure-unruly-deletion-message] 6 (#$ . 23084)])
#@71 Reconcile what needs to be reconciled for allout widgets after edits.
(defalias 'allout-widgets-after-change-handler #[(beg end prelength) "\300\207" ["Reconcile what needs to be reconciled for allout widgets after edits."] 1 (#$ . 23946)])
#@43 True if the current item is not decorated
(defalias 'allout-current-decorated-p #[nil "\212\302 \205 \303V\203 \304 \205 \305\202 )\207" [allout-recent-depth allout-container-item-widget allout-back-to-current-heading 0 allout-get-item-widget t] 2 (#$ . 24193)])
#@284 Process errors which occurred in the course of command hook operation.
We store a backtrace of the error information in the variable,
`allout-widgets-last-hook-error', unset the error handlers, and
reraise the error, so that processing continues to the
encompassing condition-case.
(defalias 'allout-widgets-hook-error-handler #[(mode args) "\306\307\211\310\311\312!!\313\216 \314 \210)r q\210\315 + \316 \317\320
\321\322\323 \"% \324\325\317\326 \f#\211 \"\210\324 !\210\327 !\210 \330\232\203S \331\332 \"\202[ \330\333
$+\207" [debugger debug-on-error debug-on-signal standard-output bt this debug nil get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) backtrace buffer-string "allout-widgets-hook-error-handler" format "allout-widgets-last-hook-error stored, %s/%s %s %s" format-time-string "%e-%b-%Y %r" current-time message "%s" "%s:\n%s" sit-for error apply signal "%s: unexpected mode, %s %s" mode args header allout-widgets-last-hook-error allout-widgets-hook-error-post-time] 9 (#$ . 24469)])
#@629 Post MESSAGE when pending are likely to make a big enough delay.
If posting of the MESSAGE is warranted and there already is a
`current-message' in the minibuffer, the MESSAGE is appended to
the current one, and the previously pending `current-message' is
returned for later posting on completion.
If posting of the MESSAGE is warranted, but no `current-message'
is pending, then t is returned to indicate that case.
If posting of the MESSAGE is not warranted, then nil is returned.
See `allout-widgets-adjust-message-length-threshold',
`allout-widgets-adjust-message-size-threshold' for message
posting threshold criteria.
(defalias 'allout-widgets-adjusting-message #[(message) "G V\204 d\306\307\211 \310\311\"\210\f
ZV,\205< \312 \313\2031 \314 Q\2023 !\210\206; \315)\207" [allout-widgets-changes-record allout-widgets-adjust-message-length-threshold second first max min 0 nil mapc #[(entry) "@\306=?\205- \211A@)AA@\n ^\fW\203 \n ^\n ]
V\205- \n ]\211\207" [entry x first second min max :undone-exposure] 3] current-message message " - " t allout-widgets-adjust-message-size-threshold prior] 4 (#$ . 25545)])
#@72 Dispatch CHANGES-RECORD items to respective widgets change processors.
(defalias 'allout-widgets-changes-dispatcher #[nil "\204\221 \211\205 \306\307\211 \307\211 \307 \205\216 \n\203i \n\211A@\310\f@\311\"\2036 \f
B\202 \310\f@\312\"\203G \fB\202 \310\f@\313\"\203X \fB\202 \310\f@\314\"\203 \fB\202
\203q \315
!\210\203{ \316!\210\203\205 \317!\210\205\216 \320!.\207\321\232?\205\240 \322ed\"\210\321\211\207" [allout-widgets-mode-inhibit allout-widgets-changes-record changes-record changes-pending entry exposures t nil eql :exposed :added :deleted :shifted allout-widgets-exposure-change-processor allout-widgets-additions-processor allout-widgets-deletions-processor allout-widgets-shifts-processor undecorated allout-widgets-undecorate-region additions deletions shifts] 4 (#$ . 26699)])
#@130 Record allout exposure changes for tracking during post-command processing.
Records changes in `allout-widgets-changes-record'.
(defalias 'allout-widgets-exposure-change-recorder #[(from to flag) "\304 \nF B\211\207" [from to flag allout-widgets-changes-record :exposed] 4 (#$ . 27549)])
#@136 Widgetize and adjust item widgets tracking allout outline exposure changes.
Generally invoked via `allout-exposure-change-functions'.
(defalias 'allout-widgets-exposure-change-processor #[(changes) "\306\307\"\310\211\211\211 \211\310 \211 \205@\310
\211 A@)\310\211
AA@
AAA@\310 W\203P \203Y \303\202Z \304 \311 J#\211@ \211 A@)L\210\n\204\367 \212 b\210\203\246 \312 \"\210\313 \210\314 \211 \204\234 \315 \210\202\242 \316 \317\"\210)\202\366 `W\203\366 \313 \210\314 \211\204\277 \315 \202\305 \316\317\"\210\320\321!\210\322\323\"\203\326 \324!\210`V\203\357 \311 `\f#\211@\f\211 A@)\320\321!\210\202\246 ).A\211\204 \310.\207" [changes deactivate-mark covered handled-conceal handled-expose change sort #[(this next) "\211A@)\n\211A@)W\207" [this x next] 3] nil allout-range-overlaps allout-widgets-undecorate-region allout-beginning-of-current-line allout-get-item-widget allout-get-or-create-item-widget widget-apply :redecorate allout-next-visible-heading 1 widget-get :has-subitems allout-redecorate-visible-subtree --dolist-tail-- x parent flag to got bucket from handling widget] 8 (#$ . 27847)])
#@278 Record allout item additions for tracking during post-command processing.
Intended for use on `allout-structure-added-functions'.
FROM point at the start of the first new item and TO is point at the start
of the last one.
Records changes in `allout-widgets-changes-record'.
(defalias 'allout-widgets-additions-recorder #[(from to) "\303 E\nB\211\207" [from to allout-widgets-changes-record :added] 3 (#$ . 29057)])
#@206 Widgetize and adjust items tracking allout outline structure additions.
Dispatched by `allout-widgets-post-command-business' in response to
:added entries recorded by `allout-widgets-additions-recorder'.
(defalias 'allout-widgets-additions-processor #[(changes) "\212\306\211\n\306\211 \205\240 \f@\211\211 A@)\306 AA@ W\2035 \307 #\211@ \211 A@)\204\227 b\210\310 \203Z \311\312\313!!\210`W\203e b\210`W\203 m\204 \314 \210\311\312 !\210\315\316!\210\202e `V\203\227 \307` #\211@ \211 A@)+\fA\211\204
\306-\207" [covered handled changes change --dolist-tail-- x nil allout-range-overlaps allout-ascend allout-redecorate-visible-subtree allout-get-or-create-item-widget redecorate allout-beginning-of-current-line allout-next-visible-heading 1 to bucket from] 5 (#$ . 29484)])
#@288 Record allout item deletions for tracking during post-command processing.
Intended for use on `allout-structure-deleted-functions'.
DEPTH is the depth of the deleted subtree, and FROM is the point from which
the subtree was deleted.
Records changes in `allout-widgets-changes-record'.
(defalias 'allout-widgets-deletions-recorder #[(depth from) "\303 E\nB\211\207" [depth from allout-widgets-changes-record :deleted] 3 (#$ . 30321)])
#@194 Adjust items tracking allout outline structure deletions.
Dispatched by `allout-widgets-post-command-business' in response to
:deleted entries recorded by `allout-widgets-deletions-recorder'.
(defalias 'allout-widgets-deletions-processor #[(changes) "\212\306\211\205; \n@\211\211A@) AA@ \fb\210\307\310!\2032
\310V\203, \311
S!\210\312\313\314!!\210*\nA\211\204 \306+\207" [changes change --dolist-tail-- x from depth nil allout-previous-visible-heading 1 allout-ascend-to-depth allout-redecorate-visible-subtree allout-get-or-create-item-widget redecorate] 4 (#$ . 30766)])
#@292 Record outline subtree shifts for tracking during post-command processing.
Intended for use on `allout-structure-shifted-functions'.
SHIFTED-AMOUNT is the depth change and AT is the point at the start of the
subtree that's been shifted.
Records changes in `allout-widgets-changes-record'.
(defalias 'allout-widgets-shifts-recorder #[(shifted-amount at) "\303 E\nB\211\207" [shifted-amount at allout-widgets-changes-record :shifted] 3 (#$ . 31359)])
#@205 Widgetize and adjust items tracking allout outline structure additions.
Dispatched by `allout-widgets-post-command-business' in response to
:shifted entries recorded by `allout-widgets-shifts-recorder'.
(defalias 'allout-widgets-shifts-processor #[(changes) "\212\303\211\205 \n@\211AA@b\210\304 \210\305 \210\nA\211\204 \303+\207" [changes change --dolist-tail-- nil allout-ascend allout-redecorate-visible-subtree] 3 (#$ . 31819)])
#@121 Do allout-widgets processing of text just placed in the kill ring.
Intended for use on allout-after-copy-or-kill-hook.
(defalias 'allout-widgets-after-copy-or-kill-function #[nil "@\205 \301@!\240\207" [kill-ring allout-widgets-undecorate-text] 3 (#$ . 32268)])
#@97 Do allout-widgets processing of text after an undo.
Intended for use on allout-post-undo-hook.
(defalias 'allout-widgets-after-undo-function #[nil "\212\300 \205\n \301\302 !)\207" [allout-goto-prefix allout-redecorate-item allout-get-or-create-item-widget] 2 (#$ . 32541)])
#@226 Record outline exposure undo for tracking during post-command processing.
Intended for use by `allout-graphics-modification-handler'.
WIDGET is the widget being changed.
Records changes in `allout-widgets-changes-record'.
(defalias 'allout-widgets-exposure-undo-recorder #[(widget) "?\205\n \nB\211\207" [allout-undo-exposure-in-progress widget allout-widgets-undo-exposure-record] 2 (#$ . 32824)])
#@213 Adjust items tracking undo of allout outline structure exposure.
Dispatched by `allout-widgets-post-command-business' in response to
:undone-exposure entries recorded by `allout-widgets-exposure-undo-recorder'.
(defalias 'allout-widgets-exposure-undo-processor #[nil "\306 \307\211 \307\211 \307\211 \307\211 \307\212\n\307\211 \205\313 @\310 \311\"\310 \312\"\310 \313\"\314 \315\316#\317\313\" \320\f
#\211 @ \211 A@) \204\301 \310 \311\"b\210\307 !\321!\206r `\322\")\323=\204\301 \324=\203\222 \325=\203\222 \326 \210\327 !\210\202\301 \325=\203\301 \324=\203\301 \212\330 \307 \"\211 \203\300 @\211\"b\210\331 \210 A\211 \204\254 + A\211 \204% \307.
\207" [allout-undo-exposure-in-progress allout-widgets-undo-exposure-record widgets widget widget-start-marker widget-end-marker t nil widget-get :from :to :icon-state widget-apply :actual-position :icon-start get-text-property allout-range-overlaps get-char-property invisible allout closed opened allout-hide-current-subtree allout-decorate-item-and-context allout-chart-exposure-contour-by-icon allout-show-to-offshoot from-state icon-start-point to-state handled covered --dolist-tail-- x pos expose-to] 5 (#$ . 33236)])
#@287 Return points of subtree items to which exposure should be extended.
The qualifying items are ones with a widget icon that is in the closed or
empty state, or items with undecorated subitems.
The resulting list of points is in reverse order.
Optional FROM-DEPTH is for internal use.
(defalias 'allout-chart-exposure-contour-by-icon #[(&optional from-depth) "\306\211\211\211\211\211 \211\203 \307 \202\212 `\307 \310 \311\216\312 !\203/ \313u\210\314 \306\315#\205\204 \313\225\206D \316\225\206D \317\225 \313\224\206R \316\224\206R \317\224 \313\320 !#]\" \210 b\210n\204q \321u\210\202g #\204\201 \"$X\203\201 \322 \210 b*?\"
\2045\"V\2035\323 \211\2035\f\"W\203\271 \324\f!\211@ A\211\203\212 \325 \n\"\202\212 \326 \327\"\330>\203\311 `\nB\331 \210\310 \332\216\312 !\203\331 \313u\210\314 \306\315#\205.\313\225\206\356 \316\225\206\356 \317\225 \313\224\206\374 \316\224\206\374 \317\224 \313\320 !#]\" \210 b\210n\204\321u\210\202#\204+\"$X\203+\322 \210 b*?\211\203\216 \204@
\nB\202Eb\210\n.\207" [from-depth subgot got this-widget level-depth at-end nil allout-depth match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at 1 re-search-forward 0 2 3 - -1 allout-aberrant-container-p allout-get-item-widget allout-chart-exposure-contour-by-icon append widget-get :icon-state (closed empty) allout-end-of-subtree ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) start-point save-match-data-internal allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower] 8 (#$ . 34477)])
#@370 Return a pair indicating overlap of FROM and TO subtree range in RANGES.
First element of result indicates whether candidate range FROM, TO
overlapped any of the existing ranges.
Second element of result is a new version of RANGES incorporating the
candidate range with overlaps consolidated.
FROM and TO must be in increasing order, as must be the pairs in RANGES.
(defalias 'allout-range-overlaps #[(from to ranges) "\306\211\211\211\211
\203\345 \204\345
@
A\n\203] @ V\2037 \n D\fB \fB \307\202\n \211 \nA@) Y\203\n \n \211 \nA@)D\fB \211 \nA@)\307\202\n @ V\203y D\fB \fB \307\202\n @ Y\203\252 \211 \nA@) Y\203\n \n \211 \nA@)D\fB \211 \nA@)\307\202\n \211 \nA@) Y\203\313 \fB @ \211 \nA@)\307\202\n \211 \nA@) Y\203\336 @\202\n \fB\202\n \n\203\355 \204 \n\204 \204 D\fB\202 \n\203 \n D\fB\f\237
\203\310\f
\"\n\205 \307\f-D\207" [done included-to included-from entry new-ranges ranges nil t append to x from] 6 (#$ . 36295)])
#@35 allout-range-overlaps unit tests.
(defalias 'allout-test-range-overlaps #[nil "\303\211\304\303\n\305\306\"\307\232\204 \310\311\312C\"\210\n\313\314\"\315\232\204& \310\311\316C\"\210\n\317\320\"\321\232\2045 \310\311\322C\"\210\n\323\324\"\325\232\204D \310\311\326C\"\210\n\306\327\"\330\232\204S \310\311\331C\"\210\n\332\333\"\334\232\204b \310\311\335C\"\210\n\336\337\"\340\232\204q \310\311\341C\"\210\n\342\343\"\344\232\204\200 \310\311\345C\"\210\n\320\346\"\347\232\204\217 \310\311\350C\"\210\303\n\336\346\"\351\232\204\240 \310\311\352C\"\210\n\353\354\"\355\232\204\257 \310\311\356C\"\210\n\357\360\"\361\232\204\276 \310\311\362C\"\210\n\332\336\"\363\232\204\315 \310\311\364C\"\210\n\313\353\"\365\232\204\334 \310\311\366C\"\210\n\306\367\"\370\232\204\353 \310\311\371C\"\210\n\320\372\"\373\232\204\372 \310\311\374C\"\210\303\211+\207" [ranges got try nil #[(from to) "\305 \n#\211\211 A@) \207" [from to ranges got x allout-range-overlaps] 5] 3 5 #1=(nil ((3 5))) signal cl-assertion-failed (equal (funcall try 3 5) '#1#) 10 12 #2=(nil ((3 5) (10 12))) (equal (funcall try 10 12) '#2#) 1 2 #3=(nil ((1 2) (3 5) (10 12))) (equal (funcall try 1 2) '#3#) 7 9 #4=(nil ((1 2) (3 5) (7 9) (10 12))) (equal (funcall try 7 9) '#4#) 8 #5=(t ((1 2) (3 9) (10 12))) (equal (funcall try 5 8) '#5#) 15 17 #6=(nil ((1 2) (3 9) (10 12) (15 17))) (equal (funcall try 15 17) '#6#) 20 22 #7=(nil ((1 2) (3 9) (10 12) (15 17) (20 22))) (equal (funcall try 20 22) '#7#) 4 11 #8=(t ((1 2) (3 12) (15 17) (20 22))) (equal (funcall try 4 11) '#8#) 25 #9=(t ((1 25))) (equal (funcall try 2 25) '#9#) #10=(nil ((20 25))) (equal (funcall try 20 25) '#10#) 30 35 #11=(nil ((20 25) (30 35))) (equal (funcall try 30 35) '#11#) 26 28 #12=(nil ((20 25) (26 28) (30 35))) (equal (funcall try 26 28) '#12#) #13=(t ((15 25) (26 28) (30 35))) (equal (funcall try 15 20) '#13#) #14=(t ((10 35))) (equal (funcall try 10 30) '#14#) 6 #15=(nil ((5 6) (10 35))) (equal (funcall try 5 6) '#15#) 100 #16=(t ((2 100))) (equal (funcall try 2 100) '#16#)] 4 (#$ . 37313)])
#@244 EXAMPLE FUNCTION. Widgetize items in buffer using allout-chart-subtree.
We economize by just focusing on the first of local-maximum depth siblings.
Optional DOING is for internal use - a chart of the current level, for
recursive operation.
(defalias 'allout-widgetize-buffer #[(&optional doing) "\204- \212eb\210\306 \307\211\205+ \n@\211b\210\310 \211\203\" \311 !\210)\nA\211\204 \307+\207\307 \307 \211\203L \n@\211<\203E \312\311
!\210\nA\211\2047 *\f?\205` \313@!?\205` @b\210\314 )\207" [doing top-level-sibling --dolist-tail-- subchart have-sublists sibling allout-chart-siblings nil allout-chart-subtree allout-widgetize-buffer t widget-at allout-get-or-create-item-widget] 3 (#$ . 39383) nil])
(byte-code "\301\302\303\304\305\306\307\306\310\311\312\313\314\315\316\317\320\321\322\323\324\306\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\306\344\306\345\306\346\306\347\306\350\306\351\306\352\306\353\306\354\306\355\306\356\306\357\360\361\306\362\360\363\306\364\360\365\306\366\306\367\370\371\372\373\306\374\306\375\306\376\306\377\306\201@ \306\201A \201B \201C \306\201D \360\201E \201F \201G \201H &e\207" [allout-item-icon-keymap define-widget allout-item-widget default "A widget presenting an allout outline item." button nil real-field :create allout-decorate-item-and-context :value-delete allout-widgets-undecorate-item :expander allout-tree-event-dispatcher :expander-p identity :action allout-tree-widget-action :redecorate allout-redecorate-item :last-decorated-tick :parse-item allout-parse-item-at-point :decorate-item-span allout-decorate-item-span :decorate-guides allout-decorate-item-guides :decorate-icon allout-decorate-item-icon :decorate-cue allout-decorate-item-cue :decorate-body allout-decorate-item-body :actual-position allout-item-actual-position :is-container :from :to :span-overlay :icon-start :icon-end :distinctive-start :distinctive-end :body-start :body-end :depth :has-subitems :was-has-subitems init :expanded :was-expanded :brief :was-brief :does-encrypt :is-encrypted :location allout-item-location :button-keymap :keymap :guides-span :icon-span :cue-span :bullet :was-bullet :body-span :body-brevity-p allout-body-brevity-p :guide-column-flags :was-guide-column-flags :populous-p allout-item-populous-p :help-echo allout-tree-widget-help-echo] 102)
#@54 create a new item widget, not yet situated anywhere.
(defalias 'allout-new-item-widget #[nil "\203 \303\304!\305 \306\n#\210 )\207\303\304!\207" [allout-widgets-maintain-tally widget allout-widgets-tally widget-convert allout-item-widget puthash nil] 4 (#$ . 41729)])
(put 'allout-new-item-widget 'byte-optimizer 'byte-compile-inline-expand)
#@926 Create or adjust widget decorations for ITEM-WIDGET and neighbors at point.
The neighbors include its siblings and parent.
ITEM-WIDGET can be a created or converted allout-item-widget.
If you're only trying to get or create a widget for an item, use
`allout-get-or-create-item-widget'. If you have the item-widget, applying
:redecorate will do the right thing.
Optional BLANK-CONTAINER is for internal use. It is used to fabricate a
container widget for an empty-bodied container, in the course of decorating
a proper (non-container) item which starts at the beginning of the file.
Optional REDECORATE causes redecoration of the item-widget and
its siblings, even if already decorated in this cycle of the command loop.
Optional PARENT, when provided, bypasses some navigation and computation
necessary to obtain the parent of the items being processed.
We return the item-widget corresponding to the item at point.
(defalias 'allout-decorate-item-and-context #[(item-widget &optional redecorate blank-container parent) "\204 \306 \307\"\n\232?\205\272\310\311 ` \312 ,-\206* \313 \211,?\206*
,W\211 .\2033 \314b\210\315 /\316/\310\"\210/ /.?\205I \317 0\312\211 1 2\312\211 3 4\312\211 5 6\312\211 7 8\310 9.\203x \320 \321\310#\210\314C8\202
\3220\323\324#b\210\3060\321\"\203\216 \313 \210\202\365 \325 :\326\216\327;!\203\236 \314u\210\330<\312\331#\203\364 \314\225\206\263 \332\225\206\263 \333\225=\314\224\206\301 \332\224\206\301 \333\224>\314\334=>?#]@>\210>b\210n\204\340 \335u\210\202\326 A\204\360 @BX\203\360 \336 \210>b\210*@7>C8\337 \203
>8B8\202\376 8\312 C\211 D\203\250D@\211Cb\210E\203)\340\331!\210C/U\2035 \202U\341 \206UF\203R\342\343! G\344G\312H#\210G)\202U\342\343!5\204e\3065\307\"\n\232\204\233\3225\345\310-$\210\3225\346\"\210\3225\34703\205\200\310$\210\3225\350\"\210\3225\351\"\210\3225\352\"\210\3205\307\n#\210C3DA\211D\204*\353\f!\210/b\210/\312\211\223\210 .\207" [redecorate item-widget allout-command-counter allout-inhibit-body-modification-hook was-modified was-point widget-get :last-decorated-tick t buffer-modified-p nil allout-goto-prefix 1 point-marker set-marker-insertion-type allout-get-or-create-parent-widget widget-put :is-container widget-apply :actual-position :from match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) looking-at re-search-forward 0 2 3 - -1 allout-aberrant-container-p allout-next-sibling sit-for allout-get-item-widget widget-convert allout-item-widget puthash :parse-item :decorate-item-span :decorate-guides :decorate-icon :decorate-cue :decorate-body set-buffer-modified-p prefix-start blank-container is-container steady-point parent parent-flags parent-depth successor-sibling body doing-item sub-item-widget depth reverse-siblings-chart buffer-undo-list save-match-data-internal allout-regexp allout-line-boundary-regexp allout-recent-prefix-end allout-recent-prefix-beginning allout-header-subtraction allout-recent-depth allout-inhibit-aberrance-doublecheck allout-doublecheck-at-and-shallower doing-at --dolist-tail-- allout-widgets-track-decoration allout-widgets-maintain-tally widget allout-widgets-tally] 6 (#$ . 42081)])
#@321 Resituate ITEM-WIDGET decorations, disregarding context.
Use this to redecorate only the item, when you know that its
situation with respect to siblings, parent, and offspring is
unchanged from its last decoration. Use
`allout-decorate-item-and-context' instead to reassess and adjust
relevant context, when suitable.
(defalias 'allout-redecorate-item #[(item-widget) "\304\305\" \232?\205, \306 \307\310\311\"\210\310\312\"\210\310\313\"\210\310\314\"\210\310\315\"\210\316 !*\207" [item-widget allout-command-counter buffer-undo-list was-modified widget-get :last-decorated-tick buffer-modified-p t widget-apply :parse-item :decorate-guides :decorate-icon :decorate-cue :decorate-body set-buffer-modified-p] 3 (#$ . 45334)])
#@339 Redecorate all visible items in subtree at point.
Optional PARENT-WIDGET is for optimization, when the parent
widget is already available.
Optional DEPTH restricts the excursion depth of covered.
Optional CHART is for internal recursion, to carry a chart of the
target items.
Point is left at the last sibling in the visible subtree.
(defalias 'allout-redecorate-visible-subtree #[(&optional parent-widget depth chart) "\203 \306\307\310#\203 \306\307\310#b\210\202) \311 \211\203% \312 \313\"\202( \314\313!)\n\2061 \315\316\317\"\316\211\211\211 \237\211\316 \211 \203\261 @\211\250\203~
\204u b\210\311\316!\211\203r \312\313\316$\210\202u \314 \210\202\250 <\203\250 \203\220 \320V\203\250 \321
\204\231 \202\234 \314\313!\205\244 S#\210A\211\204L * \205\276 ` W\205\276 b.\207" [parent-widget got chart recent-sibling-point previous-sibling previous-sibling-point widget-apply :actual-position :from allout-get-item-widget allout-decorate-item-and-context redecorate allout-get-or-create-item-widget allout-chart-subtree nil visible 1 allout-redecorate-visible-subtree item-widget pending-chart sibling-point --dolist-tail-- depth] 7 (#$ . 46078)])
#@335 Set widget ITEM-WIDGET layout parameters per item-at-point's actual layout.
If optional AT-BEGINNING is t, then point is assumed to be at the start of
the item prefix.
If optional BLANK-CONTAINER is true, then the parameters of a container
which has an empty body are set. (Though the body is blank, the object
may have subitems.)
(defalias 'allout-parse-item-at-point #[(item-widget &optional at-beginning blank-container) "\306 \203 \307\202\f \206 \310!\211?\205 \311 \211\205# \312
\211 $S %\313\211 & '\313\211 ( )T *\314+\315#\210\n\203n \314+\316\317\316e\320+\316\"##\210\314+\321\313#\210\314+\322\313#\210\314+\323\324#&\202\315 \314+\316\317\316,\203} `\202 -\320+\316\"##\210\314+\322%#\210\314+\321$#\210 \203\251 \314+\325\326#\210\314+\327\f#\210$&\314+\330\331 \211(#\210&f\332\232\203\305 &T&\314+\323&#\210\314+\333 \203\331 \324\202\333 \334 \211'#\210\314+\335\317\335 \203\356 e\202\365 \336 \206\365 db\320+\335\"##\210\314+\337'dU?\205.\211*W\211)#\210\314+\340)\2053\212-b\210\313 /\341/\206-`\342\"*\343=?#.\f\207" [depth blank-container is-container does-encrypt is-encrypted allout-recent-prefix-end allout-depth 0 zerop allout-encrypted-type-prefix allout-encrypted-topic-p nil widget-put :depth :from allout-set-boundary-marker widget-get :icon-end :icon-start :body-start 1 :does-encrypt t :is-encrypted :bullet allout-get-bullet 32 :body-end allout-end-of-entry :to allout-pre-next-prefix :has-subitems :expanded get-char-property invisible allout icon-end icon-start body-start body-end bullet has-subitems contents-depth item-widget at-beginning allout-recent-prefix-beginning allout-recent-depth pos] 10 (#$ . 47300)])
#@225 Set or create item widget BOUNDARY type marker at POSITION.
Optional CURRENT-MARKER is the marker currently being used for
the boundary, if any.
BOUNDARY type is either :from or :to, determining the marker insertion type.
(defalias 'allout-set-boundary-marker #[(boundary position &optional current-marker) "\204 ` \203 \303\223\207\304 \305\n\303\"\210\n\303\223)\207" [position current-marker marker nil make-marker set-marker-insertion-type] 3 (#$ . 49023)])
#@204 Equip the item with a span, as an entirety.
This span is implemented so it can be used to detect displacement
of the widget in absolute terms, and provides an offset bias for
the various element spans.
(defalias 'allout-decorate-item-span #[(item-widget) "\301\302\"\205 \301\303\"\301\304\"=?\205 \305\301\303\"\301\304\"#\207" [item-widget widget-get :is-container :from :to allout-item-span] 6 (#$ . 49502)])
#@571 Add ITEM-WIDGET guide icon-prefix descender and connector text properties.
Optional arguments provide context for deriving the guides. In
their absence, the current guide column flags are used.
Optional PARENT-WIDGET is the widget for the item's parent item.
Optional HAS-SUCCESSOR is true iff the item is followed by a sibling.
We also hide the header-prefix string.
Guides are established according to the item-widget's :guide-column-flags,
when different than :was-guide-column-flags. Changing that property and
reapplying this method will rectify the glyphs.
(defalias 'allout-decorate-item-guides #[(item-widget &optional parent-widget has-successor) "\306\307\"?\2057\306\310\"\n\205 \306\n\310\"\n\205 \306\n\311\"\211 G
\312\\Z \" \313V\203L \n\203L \314\311\315#C\316\"W\205F \317\"\320\"\f##\206P \306\311\" $\306\321\" %\306\322\" &\306\323\" '& ()G *\324\211 + ,\324\211 - .\325 /%$\232\204-\326$!\211+\203&+A\204\242 +@\203\236 \327\202\302 \330\202\302 +@\320=\203\267 -\206\260 \316T-\324\202\302 +@\203\301 \331\202\302 \332\211,\203 \333(\211*\\\211(\334\335,!$\210*\313V\203\343 \313*-\203 -\316 0 101W\203\333(\211T\211(\334\335,\336>\203\f\337\202
\332!$\2100T\2110\202\361 *\324-+A\211+\204\216 \314\321$#\210\340\341&'$.\207" [item-widget depth parent-widget parent-depth parent-flags parent-flags-depth widget-get :is-container :depth :guide-column-flags 2 1 widget-put append 0 make-list - :was-guide-column-flags :from :icon-start nil t reverse mid-connector end-connector through-descender skip-descender put-text-property display allout-fetch-icon-image (mid-connector end-connector) extender-connector allout-item-element-span-is :guides-span extender-length has-successor flags was-flags guides-start guides-end position allout-header-prefix increment reverse-flags guide-name extenders paint-extenders inhibit-read-only i --dotimes-limit--] 9 (#$ . 49930)])
#@76 Add item icon glyph and distinctive bullet text properties to ITEM-WIDGET.
(defalias 'allout-decorate-item-icon #[(item-widget) "\306\307\"?\205X\306\310\"\306\311\"\306\312\"\211 \306\313\" \314 ! *\306\315\" +\306\316\" ,\306\317\"\211 -\205= \306\320\" .\306\321\" /\306\322\" 0\323 1\324 2\306\325\"/\232\203y \306\326\"0\232\203y \306\327\"-\232\203y \306\330\".\232\204\326 -\203\213 .\203\207 \331\202\236 \332\202\236 /\203\224 \333\202\236 0\203\235 \334\202\236 \3352\336 \211T\337\3402!$\210\341\325/#\210\341\3260#\210\341\327-#\210\341\330.#\210\341\3422#\210\336 \n\3422$\210\343\344 \n$\210
\230?\205V*\204\345\n\211T\346#\210\n+\n,\341\315+#\210\341\316,#\210\202: 3\230\204\n+\nT,\202:-\203'\n+\nT,\202:\nb\210\347\350!\210\n\351\225{\n+\351\225,\336+,\337\f$\210\341\313 #\210\341\315+#\210\341\316,#.\207" [item-widget icon-start icon-end bullet use-bullet was-bullet widget-get :is-container :icon-start :icon-end :bullet :was-bullet allout-distinctive-bullet :distinctive-start :distinctive-end :does-encrypt :is-encrypted :expanded :has-subitems t nil :was-expanded :was-has-subitems :was-does-encrypt :was-is-encrypted locked-encrypted unlocked-encrypted opened closed empty put-text-property display allout-fetch-icon-image widget-put :icon-state allout-item-element-span-is :icon-span remove-text-properties (display) looking-at "[0-9]+" 0 distinctive distinctive-start distinctive-end does-encrypt is-encrypted expanded has-subitems inhibit-read-only icon-state allout-numbered-bullet] 7 (#$ . 51893)])
#@68 Incorporate space between bullet icon and body to the ITEM-WIDGET.
(defalias 'allout-decorate-item-cue #[(item-widget) "\306\307\"?\2054 \306\310\"\206 \306\311\"\306\312\"\306\313\"\306\314\" \315 \316\317 \n$\210\320\nS\n\321\315$-\207" [item-widget cue-start body-start expanded has-subitems inhibit-read-only widget-get :is-container :distinctive-end :icon-end :body-start :expanded :has-subitems t allout-item-element-span-is :cue-span put-text-property rear-nonsticky] 5 (#$ . 53503)])
#@118 Incorporate item body text as part the ITEM-WIDGET.
Optional FORCE means force reassignment of the region property.
(defalias 'allout-decorate-item-body #[(item-widget &optional force) "\306\307 \310\"\307 \311\"\211 \306 \312 \313\n Td^\f%-\207" [allout-inhibit-body-modification-hook item-widget body-start body-end body-text-end inhibit-read-only t widget-get :body-start :body-end allout-item-element-span-is :body-span force] 7 (#$ . 54013)])
#@74 Return ITEM-WIDGET FIELD position taking item displacement into account.
(defalias 'allout-item-actual-position #[(item-widget field) "\306=\204 \307 \310\"\207\307 \311\"\307 \306\"\n\205 \312\n! \205, \n\205, \f\206* \313 Z \307 \"
\2066 \313\\,\207" [field item-widget span-overlay body-end-position ref-marker-position offset :body-end widget-get :from :span-overlay overlay-end 0] 3 (#$ . 54472)])
#@78 Eliminate widgets and decorations for all items in region from START to END.
(defalias 'allout-widgets-undecorate-region #[(start end) "\304\212b\210\305\n\306p $\211 W\205' \nb\210\307 \211\203 \310 \311\"\210\202 +\207" [start widget next end nil next-single-char-property-change display allout-get-item-widget allout-widgets-undecorate-item t] 5 (#$ . 54888)])
#@58 Eliminate widgets and decorations for all items in TEXT.
(defalias 'allout-widgets-undecorate-text #[(text) "\301\302G\303$\210\207" [text remove-text-properties 0 (display nil :icon-state nil rear-nonsticky nil category nil button nil field nil)] 5 (#$ . 55266)])
#@143 Remove widget decorations from ITEM-WIDGET.
Any concealed content head lines and item body is exposed, unless
optional NO-EXPOSE is non-nil.
(defalias 'allout-widgets-undecorate-item #[(item-widget &optional no-expose) "\306\307\"\306\310\"\311\306\312\"\306\313\"\314 \315\211 \204- \316\317#\210?\2054 \315\315 \320#\210*
\203P \321
!\210\322\312\317#\210\f\203^ \321\f!\210\322\313\317#\210\317\211\223\210\317\211\223\210 ?\205r \323\317!.\207" [item-widget inhibit-read-only buffer-undo-list was-modified button-overlay span-overlay widget-get :from :to (display nil :icon-state nil rear-nonsticky nil category nil button nil field nil) :span-overlay :button buffer-modified-p t allout-flag-region nil remove-text-properties delete-overlay widget-put set-buffer-modified-p text-properties-to-remove to from no-expose buffer-read-only inhibit-field-text-motion] 8 (#$ . 55541)])
#@363 Return or register the location of an ITEM-WIDGET's actual START and END.
If START and END are not passed in, return either a dotted pair
of the current span, if established, or nil if not yet set.
When the START and END are passed, return the distance that the
start of the item moved. We return 0 if the span was not
previously established or is not moved.
(defalias 'allout-item-span #[(item-widget &optional start end) "\306\307\"\310\211\211\211 \2042
\205] \311
\310\312\310%\313\f\314#\210\313\f\315\312#\210\316\307\f#\210\312\202]
\204@ \317\f!\320\f!B\202] \317\f!
\232\203Q \320\f!\232\204\\ \321\f
#\210\312\202] \310,\207" [item-widget changed was-end was-start overlay start widget-get :span-overlay nil make-overlay t overlay-put button evaporate widget-put overlay-start overlay-end move-overlay end] 7 (#$ . 56469)])
#@578 Return or register the location of the indicated ITEM-WIDGET ELEMENT.
ELEMENT is one of :guides-span, :icon-span, :cue-span, or :body-span.
When optional START is specified, optional END must also be.
START and END are the actual bounds of the region, if provided.
If START and END are not passed in, we return either a dotted
pair of the current span, if established, or nil if not yet set.
When the START and END are passed, we return t if the region
changed or nil if not.
Optional FORCE means force assignment of the region's text
property, even if it's already set.
(defalias 'allout-item-element-span-is #[(item-widget element &optional start end force) "\306 \"\211\203
\203) \f\205J \307 \f
B#\210\310\f
\311\312
\"A$\210\313\202J \f\2041 \n\202J \n@\f=\203? \nA
=\204I \307 \n#\210\313\202J \314)\207" [item-widget element span force start end widget-get widget-put put-text-property category assoc t nil allout-span-to-category] 8 (#$ . 57328)])
#@318 Return the widget for the item at point, or nil if no widget yet exists.
Point must be situated *before* the start of the target item's
body, so we don't get an existing containing item when we're in
the process of creating an item in the middle of another.
Optional CONTAINER is used to obtain the container item.
(defalias 'allout-get-item-widget #[(&optional container) "\204 \304\305 !\203
\207\306\n!\211\205@ <\205@ \307\310 \311\"!\203; `\312 \313\311#Y\205@ `\312 \313\314#X\205@ \202@ \315 !\210\316)\207" [container allout-container-item-widget allout-recent-prefix-beginning got zerop allout-depth widget-at marker-position widget-get :from widget-apply :actual-position :body-start allout-widgets-undecorate-item nil] 6 (#$ . 58305)])
#@456 Return a widget for the item at point, creating the widget if necessary.
When creating a widget, we assume there has been a context change
and decorate its siblings and parent, as well.
Optional BLANK-CONTAINER is for internal use, to fabricate a
meta-container item with an empty body when the first proper
(non-container) item starts at the beginning of the file.
Optional REDECORATE, if non-nil, means to redecorate the widget
if it already exists.
(defalias 'allout-get-or-create-item-widget #[(&optional redecorate blank-container) "\305!\306\211\203 \203 \307\n!\210\n\2026 \204! \310\311 !\2031 \f\2066 \312\313\314!\315#\211\2026 \312\313\314!!*\207" [blank-container buffer-undo-list widget redecorate allout-container-item-widget allout-get-item-widget t allout-redecorate-item zerop allout-depth allout-decorate-item-and-context widget-convert allout-item-widget nil] 5 (#$ . 59068)])
#@331 Return widget for parent of item at point, decorating it if necessary.
We return the container widget if we're above the first proper item in the
file.
Optional REDECORATE, if non-nil, means to redecorate the widget if it
already exists.
Point will wind up positioned on the beginning of the parent or beginning
of the buffer.
(defalias 'allout-get-or-create-parent-widget #[(&optional redecorate) "o\204 \302 \204 \303!\203 \304 \305\"\207\304 !\207" [allout-regexp redecorate allout-ascend looking-at allout-get-or-create-item-widget blank-container] 3 (#$ . 59983)])
#@138 Do routine processing of body text before and after modification.
Operation is inhibited by `allout-inhibit-body-modification-handler'.
(defalias 'allout-body-modification-handler #[(beg end) "\205 \301\207" [allout-inhibit-body-modification-hook nil] 1 (#$ . 60567)])
#@112 Protect against incoherent deletion of decoration graphics.
Deletes allowed only when inhibit-read-only is t.
(defalias 'allout-graphics-modification-handler #[(beg end) "\203 \306 \307\"\310=\205K \212 b\210\311 \211\205 \312\n!*\207 \203# \313\207\314\304!\203- \f\204/ \313\207
\315\232\2037 \313\207\316\317!\203E ?\313\211\207\320\321!!\207" [undo-in-progress beg item-widget inhibit-read-only allout-mode this-command get-text-property category allout-icon-span-category allout-get-item-widget allout-widgets-exposure-undo-recorder t boundp quoted-insert yes-or-no-p "Unruly edit of outline structure - allow? " error substitute-command-keys allout-widgets-unset-inhibit-read-only allout-structure-unruly-deletion-message] 4 (#$ . 60846)])
#@158 Catchall handling of key bindings in item icon/cue hot-spots.
Applies `allout-hotspot-key-handler' and calls the result, if any, as an
interactive command.
(defalias 'allout-item-icon-key-handler #[nil "\301 \211\205\n \302!)\207" [mapped-binding allout-hotspot-key-handler call-interactively] 3 (#$ . 61610) nil])
#@43 Location of the start of the item's text.
(defalias 'allout-item-location #[(item-widget) "\301\302\303\"!\207" [item-widget overlay-start widget-get :span-overlay] 4 (#$ . 61934)])
#@101 Fetch allout icon for symbol NAME.
We use a caching strategy, so the caller doesn't need to do so.
(defalias 'allout-fetch-icon-image #[(name) "\306\307\310\"\311\232\203 \n\202
\fD \312\"\211 \203/ \313\211 A@)!\202h \203W \204W \314\315\316 @\317\f\320
!\321\320 @!RF\"C! A\211\2043 \203f DB,\207" [allout-widgets-icon-types types allout-widgets-icons-light-subdir allout-widgets-icons-dark-subdir use-dir name allout-frame-property nil background-mode light assoc allout-widgets-copy-list allout-find-image append :type :file symbol-name "." key allout-widgets-icons-cache got x allout-widgets-item-image-properties-emacs] 11 (#$ . 62124)])
#@69 Return seconds between `current-time' style time START/END triples.
(defalias 'allout-elapsed-time-seconds #[(end start) "\303 \"\304\n!)\207" [end start elapsed time-subtract float-time] 3 (#$ . 62811)])
(byte-code "\300\301\302\303!\203\f \303\202 \302\304!\203 \304\202 \305\"\210\300\306\302\307!\205\" \307\"\207" [defalias allout-frame-property fboundp frame-parameter frame-property nil allout-find-image find-image] 4)
#@121 Return a copy of LIST, which may be a dotted list.
The elements of LIST are not copied, just the list structure itself.
(defalias 'allout-widgets-copy-list #[(list) ":\203 \302:\203 \211A@ B\202 \237 \241\210)\207@\207" [list res nil] 3 (#$ . 63250)])
#@78 Debugging/diagnostic tool - count overlays with 'button' property in region.
(defalias 'allout-widgets-count-buttons-in-region #[(start end) "\206 e \206 d V\203 \n)\304\305\306\307\310 \"\"\"\211G)\207" [start end interim button-overlays delq nil mapcar #[(o) "\301\302\"\205 \207" [o overlay-get button] 3] overlays-in] 8 (#$ . 63520) "r"])
(defalias 'allout-widgets-run-unit-tests #[nil "\300\301!\210\302 \210\300\303!\210\304\305!\207" [message "Running allout-widget tests..." allout-test-range-overlaps "Running allout-widget tests... Done." sit-for 0.5] 2])
(byte-code "\203 \301 \210\302\303!\207" [allout-widgets-run-unit-tests-on-load allout-widgets-run-unit-tests provide allout-widgets] 2)