403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.217.5
Web Server : Apache
System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/org/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/org/org-indent.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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)) (#$ . 351))
#@37 Timer running the initialize agent.
(defvar org-indent-agent-timer nil (#$ . 497))
#@50 List of buffers watched by the initialize agent.
(defvar org-indent-agentized-buffers nil (#$ . 586))
#@68 Timer to reschedule agent after switching to other idle processes.
(defvar org-indent-agent-resume-timer nil (#$ . 694))
#@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) (#$ . 822))
#@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) (#$ . 1001))
#@71 Minimal time for other idle processes before switching back to agent.
(defvar org-indent-agent-resume-delay '(0 0 100000) (#$ . 1189))
#@101 Position of initialization before interrupt.
This is used locally in each buffer being initialized.
(defvar org-indent--initial-marker nil (#$ . 1331))
#@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 (#$ . 1490))
(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 #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 #1#] "Non-nil means setting `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 #1#] "Non-nil means setting `org-indent-mode' will turn on `org-hide-leading-stars'." org-indent-indentation-per-level #[0 "\300\207" [2] 1 #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 (#$ . 2990))
#@54 Vector containing line prefix strings for headlines.
(defvar org-indent--heading-line-prefixes nil (#$ . 3110))
#@57 Vector containing line prefix strings for inline tasks.
(defvar org-indent--inlinetask-line-prefixes nil (#$ . 3228))
#@37 Maximum theoretical headline depth.
(defconst org-indent--deepest-level 50 (#$ . 3352))
#@56 Compute prefix strings for regular text and headlines.
(defalias 'org-indent--compute-prefixes #[0 "\306\307\"\306\307\"\306\307\"\f\310V\205\207\310\211W\205\205\211\311X\203'\310\202,\fSS_\312\313\"	\314\307\315\316$I\210\n\211\311X\203F\317\202`\320\305!\203Z
\203Z\311\307OP\202`\314\307\315\316$I\266\314\312\\\321\"\310V\205v\322!P\307\315\316$I\266\211T\262\202\266\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 32 char-to-string org-indent-inlinetask-first-star org-indent-boundary-char] 11 (#$ . 3446)])
#@56 Remove indentations between BEG and END.

(fn BEG END)
(defalias 'org-indent-remove-properties #[514 "\303 \304\211\304\305\306\"\216\307\310#,\207" [buffer-undo-list inhibit-read-only inhibit-modification-hooks buffer-modified-p t make-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] remove-text-properties (line-prefix nil wrap-prefix nil)] 8 (#$ . 4235)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-indent-remove-properties speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@99 Non-nil if Org-Indent mode is enabled.
Use the command `org-indent-mode' to change this variable.
(defvar org-indent-mode nil (#$ . 4789))
(make-variable-buffer-local 'org-indent-mode)
#@886 When active, indent text according to outline structure.

This is a minor mode.  If called interactively, toggle the `Org-Indent
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 `org-indent-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

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\247\203\310W\203\311\202\312\313\301!\2031\314\300	\"\2031\300	B\203\311\315\302!\210\311\315\303!\210\316\310!\f\203S
\317=\204S\315\305!\210\311>\203_\315\320!\210\312\321 \210\313\322!\203r\323\322\324\311\312$\210\202{\325\326\327\330B\331\311$\210\323\332\333\311\334$\210\323\335\336\311\334$\210?\203\221\337 \210ed\340 \312\211@A\312B\341\342\"\216\343\344#,\266C\203\271pCBC\202ApCBC\345\346\312\347#D\202A\350\305!\210\314pC\"C\351!\203\337\311\211\223\210\352\320!\203\351\350\320!\210\313\322!\203\367\353\322\354\"\210\202\355\356\357!\331\"\211\356\357!=\204\n\360\357\"\210\210\353\332\333\334#\210\353\335\336\334#\210\212\214~\210ed\340 \312\211@A\312B\341\342\"\216\343\344#,\266*?\203>\337 \210\361 \210\362\363\203K\364\202L\365\"\210\366\367!\203n\306 \203`\211\306 \232\203n\370\371\203j\372\202k\373\374#\210\210\375 \210\207" [org-indent-mode local-minor-modes indent-tabs-mode org-indent--initial-marker org-indent-mode-turns-off-org-adapt-indentation org-adapt-indentation current-message toggle 1 nil t boundp delq make-local-variable copy-marker headline-data org-hide-leading-stars org-indent--compute-prefixes 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-closure #[0 "\300?\205\301\302!\207" [V0 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 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 message "Org-Indent mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update org-indent-mode-turns-on-hiding-stars font-lock-mode buffer-undo-list inhibit-read-only inhibit-modification-hooks org-indent-agentized-buffers org-indent-agent-timer] 9 (#$ . 4981) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar org-indent-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode org-indent-mode " Ind" boundp] 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\"\216\315\316#,\266\317ed\"\210\307\320!\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-closure #[0 "\300?\205\301\302!\207" [V0 restore-buffer-modified-p nil] 2] remove-text-properties (line-prefix nil wrap-prefix nil) org-indent-add-properties "Indentation of buffer set."] 7 (#$ . 9159) 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 (#$ . 9808)])
#@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 (#$ . 10033)])
#@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 (#$ . 10584)])
#@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\303\267\202\202	\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 inlinetask 10)) org-add-props make-string 42 " " 32 nil face org-indent add-text-properties line-beginning-position 2 line-prefix wrap-prefix] 12 (#$ . 11104)])
#@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\"\216\212\214~\210b\210\311 \210\312\313 \314 \206\315\205#\316\317\"\320 \312\211\312\307\321\"\216`X\205\351m?\205\351\203M\322 \203M\323\324`\"\210\2020\203j\325\317\"\203j\326\327\330 \f\"\317\331#\323\324`\"\210\2020\332#!\203\231\315\225\315\224ZS\312$\332!)\262\206\205\333\334\315#\210\211\333=\204\224\262\266\2020\335 \203\250\334\336`!\"\210\2020\334\337 %\340=\205\344\341 \206\344\342 \206\344&\312$\332!)\262\206\344'\312$\332!)\262\206\344(\312$\332!)\262#\210\2020,\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-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] beginning-of-line t org-get-limited-outline-regexp org-current-level 0 org-time-add nil buffer-modified-p #[0 "\300?\205\301\302!\207" [V0 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 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 (#$ . 12013)])
#@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 "\2053\212\214~\210b\210\305 \306\307\"\216\310 \203\311\225W\206-\312\313\314 \211\315\nP+\313#)\262*\211\207" [org-indent-mode org-called-with-limited-levels org-outline-regexp outline-regexp org-indent-modified-headline-flag match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] org-at-heading-p 0 re-search-forward t org-get-limited-outline-regexp "^"] 8 (#$ . 13811)])
#@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 "\205T\306 \307\310\"\216\212\214~\210	\204-\212b\210\311 \210\312\313\314 \211\315P+\313#)\203M\212b\210\313\314 \211\315P\316 \210,`)\317\320\"\262\202Q\320\"+\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-closure #[0 "\301\300\302\"\207" [V0 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] 9 (#$ . 14590)])
(provide 'org-indent)

Youez - 2016 - github.com/yon3zu
LinuXploit