Current File : //usr/local/share/emacs/27.2/lisp/org/org-indent.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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!\210\300\304!\210\305\306\307\310\311\312\313\303&\207" [require org-macs org-compat org cl-lib custom-declare-group org-indent nil "Options concerning dynamic virtual outline indentation." :tag "Org Indent" :group] 8)
#@48 First star of inline tasks, with correct face.
(defvar org-indent-inlinetask-first-star (org-add-props "*" '(face org-warning)) (#$ . 675))
#@37 Timer running the initialize agent.
(defvar org-indent-agent-timer nil (#$ . 821))
#@50 List of buffers watched by the initialize agent.
(defvar org-indent-agentized-buffers nil (#$ . 910))
#@68 Timer to reschedule agent after switching to other idle processes.
(defvar org-indent-agent-resume-timer nil (#$ . 1018))
#@114 Time to run agent before switching to other idle processes.
Delay used when the buffer to initialize is current.
(defvar org-indent-agent-active-delay '(0 2 0) (#$ . 1147))
#@117 Time to run agent before switching to other idle processes.
Delay used when the buffer to initialize isn't current.
(defvar org-indent-agent-passive-delay '(0 0 400000) (#$ . 1327))
#@71 Minimal time for other idle processes before switching back to agent.
(defvar org-indent-agent-resume-delay '(0 0 100000) (#$ . 1515))
#@101 Position of initialization before interrupt.
This is used locally in each buffer being initialized.
(defvar org-indent--initial-marker nil (#$ . 1657))
#@114 Non-nil means the last deletion operated on a headline.
It is modified by `org-indent-notify-modified-headline'.
(defvar org-indent-modified-headline-flag nil (#$ . 1816))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\210\300\312\302\303\313DD\314\306\307\310\315&\210\300\316\302\303\317DD\320\306\307\310\315&\210\300\321\302\303\322DD\323\306\307\310\324&\210\325\307\326\327\306\330%\207" [custom-declare-variable org-indent-boundary-char funcall function #[0 "\300\207" [32] 1] "The end of the virtual indentation strings, a single-character string.\nThe default is just a space, but if you wish, you can use \"|\" or so.\nThis can be useful on a terminal window - under a windowing system,\nit may be prettier to customize the `org-indent' face." :group org-indent :type character org-indent-mode-turns-off-org-adapt-indentation #[0 "\300\207" [t] 1] "Non-nil means setting the variable `org-indent-mode' will turn off indentation adaptation.\nFor details see the variable `org-adapt-indentation'." boolean org-indent-mode-turns-on-hiding-stars #[0 "\300\207" [t] 1] "Non-nil means setting the variable `org-indent-mode' will turn on `org-hide-leading-stars'." org-indent-indentation-per-level #[0 "\300\207" [2] 1] "Indentation per level in number of characters." integer custom-declare-face ((t (:inherit org-hide))) "Face for outline indentation.\nThe default is to make it look like whitespace. But you may find it\nuseful to make it ever so slightly different." org-faces] 8)
#@59 Vector containing line prefixes strings for regular text.
(defvar org-indent--text-line-prefixes nil (#$ . 3324))
#@54 Vector containing line prefix strings for headlines.
(defvar org-indent--heading-line-prefixes nil (#$ . 3444))
#@57 Vector containing line prefix strings for inline tasks.
(defvar org-indent--inlinetask-line-prefixes nil (#$ . 3562))
#@37 Maximum theoretical headline depth.
(defconst org-indent--deepest-level 50 (#$ . 3686))
#@56 Compute prefix strings for regular text and headlines.
(defalias 'org-indent--compute-prefixes #[0 "\306\307\"\306\307\"\306\307\"\310\211W\205\200 \211\211\311X\203\" \310\202' \fSS_\312\313\" \314\307\315\316$I\210\n\211\311X\203A \317\202[ \320\305!\203U
\203U \321\311\"P\202[ \314\307\315\316$I\266 \314\312\\\322\"\310V\205q \323!P\307\315\316$I\266\211T\262\202 \207" [org-indent--deepest-level org-indent--heading-line-prefixes org-indent--inlinetask-line-prefixes org-indent--text-line-prefixes org-indent-indentation-per-level org-inlinetask-show-first-star make-vector nil 0 1 make-string 42 org-add-props face org-indent "" boundp substring 32 char-to-string org-indent-inlinetask-first-star org-indent-boundary-char] 12 (#$ . 3780)])
#@56 Remove indentations between BEG and END.
(fn BEG END)
(defalias 'org-indent-remove-properties #[514 "\303 \304\211\304\305\306\307\310\311!\312\"\313$\216\314\315#,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (line-prefix nil wrap-prefix nil)] 10 (#$ . 4561)])
(put 'org-indent-remove-properties 'byte-optimizer 'byte-compile-inline-expand)
#@99 Non-nil if Org-Indent mode is enabled.
Use the command `org-indent-mode' to change this variable.
(defvar org-indent-mode nil (#$ . 5075))
(make-variable-buffer-local 'org-indent-mode)
#@594 When active, indent text according to outline structure.
If called interactively, enable Org-Indent mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
Internally this works by adding `line-prefix' and `wrap-prefix'
properties, after each buffer modification, on the modified zone.
The process is synchronous. Though, initial indentation of
buffer, which can take a few seconds on large buffers, is done
during idle time.
(fn &optional ARG)
(defalias 'org-indent-mode #[256 "\306 \307=\203
?\202 \310!\311V\211\203\261 \312\301!\210\313\312\302!\210\314\315! \2035 \f\316=\2045 \312\304!\210\313
\203@ \312\317!\210\320\321 \210\322\323!\203S \324\323\325\313\320$\210\202\\ \326\327\330\331B\332\313$\210\324\333\334\313\335$\210\324\336\337\313\335$\210@\203r \340 \210ed\341 \320\211 A B\320 C\342\311\343\344\345!\346\"\347$\216\350\351#,\266D\203\241 pDBD\2020pDBD\352\353\320\354#E\2020\355\304!\210\356pD\"D\357\n!\203\307 \n\313\211\223\210\360\317!\203\321 \355\317!\210\322\323!\203\337 \361\323\362\"\210\202\363 \363\364\365!\332\"\211\364\365!=\204\362 \366\365\"\210\210\361\333\334\335#\210\361\336\337\335#\210\212\214~\210ed\341 \320\211 A B\320 C\342\311\343\344\345!\346\"\347$\216\350\351#,\266*@\203-\340 \210\367 \210\370\371\203:\372\202;\373\"\210\374\375!\203e\306 \203O\211\306 \232\203e\376\377\201F \203^\201G \202a\201H #\266\210\201I \210\207" [org-indent-mode indent-tabs-mode org-indent--initial-marker org-indent-mode-turns-off-org-adapt-indentation org-adapt-indentation org-indent-mode-turns-on-hiding-stars current-message toggle prefix-numeric-value 0 make-local-variable nil copy-marker 1 headline-data org-hide-leading-stars t org-indent--compute-prefixes boundp filter-buffer-substring-functions add-hook #[1028 "\300#!\207" [org-indent-remove-properties-from-string] 9 "\n\n(fn FUN START END DELETE)"] advice--add-function :filter-return #[0 "\300\301!\207" [advice--buffer-local filter-buffer-substring-function] 2] #[257 "\300\301\"\207" [advice--set-buffer-local filter-buffer-substring-function] 4 "\n\n(fn GV--VAL)"] org-indent-remove-properties-from-string after-change-functions org-indent-refresh-maybe local before-change-functions org-indent-notify-modified-headline org-restart-font-lock buffer-modified-p make-byte-code "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (line-prefix nil wrap-prefix nil) run-with-idle-timer 0.2 org-indent-initialize-agent kill-local-variable delq markerp local-variable-p remove-hook #[1028 "\300#!\207" [org-indent-remove-properties-from-string] 9 "\n\n(fn FUN START END DELETE)"] advice--remove-function advice--buffer-local filter-buffer-substring-function advice--set-buffer-local redraw-display run-hooks org-indent-mode-hook org-indent-mode-on-hook org-indent-mode-off-hook called-interactively-p any " in current buffer" message font-lock-mode buffer-undo-list inhibit-read-only inhibit-modification-hooks org-indent-agentized-buffers org-indent-agent-timer "Org-Indent mode %sabled%s" "en" "dis" force-mode-line-update] 12 (#$ . 5267) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar org-indent-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [org-indent-mode-map org-indent-mode-hook variable-documentation put "Hook run after entering or leaving `org-indent-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode org-indent-mode " Ind" boundp nil] 6)
#@66 Add indentation properties to the accessible part of the buffer.
(defalias 'org-indent-indent-buffer #[0 "\303\304!\204\n \305\306!\207\307\310!\210ed\311 \312\211\312\313\314\315\316\317!\320\"\321$\216\322\323#,\266\324ed\"\210\307\325!\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks derived-mode-p org-mode error "Not in Org mode" message "Setting buffer indentation. It may take a few seconds..." buffer-modified-p t make-byte-code 0 "\300?\205 \301\302!\207" vconcat vector [restore-buffer-modified-p nil] 2 remove-text-properties (line-prefix nil wrap-prefix nil) org-indent-add-properties "Indentation of buffer set."] 9 (#$ . 9053) nil])
#@57 Remove indentation properties from STRING.
(fn STRING)
(defalias 'org-indent-remove-properties-from-string #[257 "\300\301G\302$\210\207" [remove-text-properties 0 (line-prefix nil wrap-prefix nil)] 6 (#$ . 9735)])
#@179 Start or resume current buffer initialization.
Only buffers in `org-indent-agentized-buffers' trigger an action.
When no more buffer is being watched, the agent suppress itself.
(defalias 'org-indent-initialize-agent #[0 "\203 \305!\210\306\307 \"\211\204 \305\n!\207p >\203 \310p \"\207\310 @\f\"\207" [org-indent-agent-resume-timer org-indent-agentized-buffers org-indent-agent-timer org-indent-agent-active-delay org-indent-agent-passive-delay cancel-timer cl-remove-if-not buffer-live-p org-indent-initialize-buffer] 4 (#$ . 9960)])
#@162 Set virtual indentation for the buffer BUFFER, asynchronously.
Give hand to other idle processes if it takes longer than DELAY,
a time value.
(fn BUFFER DELAY)
(defalias 'org-indent-initialize-buffer #[514 "rq\210\205= \212\214~\210\3032* \203( \304 !\203( \305 !\232\203( \306 d#\210\3070 \307\223\210\211?\205: \310\n\"\211\262*)\207" [org-indent-mode org-indent--initial-marker org-indent-agentized-buffers interrupt marker-position marker-buffer org-indent-add-properties nil delq] 6 (#$ . 10510)])
#@355 Set prefix properties on current line an move to next one.
LEVEL is the current level of heading. INDENTATION is the
expected indentation when wrapping line.
When optional argument HEADING is non-nil, assume line is at
a heading. Moreover, if it is `inlinetask', the first star will
have `org-warning' face.
(fn LEVEL INDENTATION &optional HEADING)
(defalias 'org-indent-set-line-properties #[770 "\211\204 \202 \211\303=\203 \202 \nH\304\203% \305\306\"\307P\202) \305\310\"P\311\312\313$\314\315 \315\316!\317\320F#\266\311y\207" [org-indent--text-line-prefixes org-indent--inlinetask-line-prefixes org-indent--heading-line-prefixes inlinetask org-add-props make-string 42 " " 32 nil face org-indent add-text-properties line-beginning-position 2 line-prefix wrap-prefix] 12 (#$ . 11030)])
#@339 Add indentation properties between BEG and END.
When DELAY is non-nil, it must be a time value. In that case,
the process is asynchronous and can be interrupted, either by
user request, or after DELAY. This is done by throwing the
`interrupt' tag along with the buffer position where the process
stopped.
(fn BEG END &optional DELAY)
(defalias 'org-indent-add-properties #[770 "\306 \307\310\311\312\313!\314\"\315$\216\212\214~\210b\210\316 \210\317\320 \321 \206\" \310\205* \322\323\"\324 \317\211\317\307\310\325\312\313!\326\"\327$\216`X\205\370 m?\205\370 \203[ \330 \203[ \331\332`\"\210\202> \203x \333\323\"\203x \334\335\336 \f\"\323\337#\331\332`\"\210\202> \340+!\203\250 \341\310\225\310\224\342#\317 ,\340!)\262\206\224 \343\344\310#\210\211\343=\204\243 \262\266\202> \345 \203\267 \344\346`!\"\210\202> \344\347 -\350=\205\363 \351 \206\363 \352 \206\363 .\317 ,\340!)\262\206\363 /\317 ,\340!)\262\206\363 0\317 ,\340!)\262#\210\202> ,\262)\266\203+\207" [case-fold-search buffer-undo-list inhibit-read-only inhibit-modification-hooks org-indent-agent-resume-delay org-indent-agent-resume-timer match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 beginning-of-line t org-get-limited-outline-regexp org-current-level org-time-add nil buffer-modified-p "\300?\205 \301\302!\207" [restore-buffer-modified-p nil] 2 input-pending-p throw interrupt org-time-less-p run-with-idle-timer time-add current-idle-time org-indent-initialize-agent looking-at - 1 inlinetask org-indent-set-line-properties org-at-item-p org-list-item-body-column current-indentation headline-data org-at-planning-p org-at-clock-log-p org-outline-regexp inhibit-changing-match-data org-adapt-indentation org-property-start-re org-property-end-re org-property-re] 15 (#$ . 11849)])
#@304 Set `org-indent-modified-headline-flag' depending on context.
BEG and END are the positions of the beginning and end of the
range of deleted text.
This function is meant to be called by `before-change-functions'.
Flag will be non-nil if command is going to modify or delete an
headline.
(fn BEG END)
(defalias 'org-indent-notify-modified-headline #[514 "\205: \212\214~\210b\210\305 \306\307\310\311\312!\313\"\314$\216\315 \203% \307\225W\2064 \316\317\320 \211\321\nP+\317#)\262*\211\207" [org-indent-mode org-called-with-limited-levels org-outline-regexp outline-regexp org-indent-modified-headline-flag match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 org-at-heading-p re-search-forward t org-get-limited-outline-regexp "^"] 10 (#$ . 13704)])
#@264 Refresh indentation properties in an adequate portion of buffer.
BEG and END are the positions of the beginning and end of the
range of inserted text. DUMMY is an unused argument.
This function is meant to be called by `after-change-functions'.
(fn BEG END _)
(defalias 'org-indent-refresh-maybe #[771 "\205[ \306 \307\310\311\312\313!\314\"\315$\216\212\214~\210 \2044 \212b\210\316 \210\317\320\321 \211 \322 P+\320#)\203T \212b\210\320\321 \211 \322 P \323 \210,`)\324\325\"\262\202X \325\"+\262\207" [org-indent-mode org-indent-modified-headline-flag org-called-with-limited-levels org-outline-regexp outline-regexp org-outline-regexp-bol match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 beginning-of-line re-search-forward t org-get-limited-outline-regexp "^" outline-next-heading nil org-indent-add-properties] 11 (#$ . 14515)])
(provide 'org-indent)
Mini Shell