ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/org/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/org/org-indent.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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!\210\304\305\306\307\310\311\312\303&\207" [require org-macs org-compat org custom-declare-group org-indent nil "Options concerning dynamic virtual outline indentation." :tag "Org Indent" :group] 8)
#@36 Maximum indentation in characters.
(defconst org-indent-max 40 (#$ . 657))
#@184 Maximum added level through virtual indentation, in characters.
It is computed by multiplying `org-indent-indentation-per-level'
minus one by actual level of the headline minus one.
(defconst org-indent-max-levels 20 (#$ . 739))
#@81 Vector with all indentation strings.
It will be set in `org-indent-initialize'.
(defvar org-indent-strings nil (#$ . 975))
#@86 Vector with all indentation star strings.
It will be set in `org-indent-initialize'.
(defvar org-indent-stars nil (#$ . 1104))
#@48 First star of inline tasks, with correct face.
(defvar org-indent-inlinetask-first-star (org-add-props "*" '(face org-warning)) (#$ . 1237))
#@37 Timer running the initialize agent.
(defvar org-indent-agent-timer nil (#$ . 1384))
#@50 List of buffers watched by the initialize agent.
(defvar org-indent-agentized-buffers nil (#$ . 1474))
#@68 Timer to reschedule agent after switching to other idle processes.
(defvar org-indent-agent-resume-timer nil (#$ . 1583))
#@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) (#$ . 1712))
#@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) (#$ . 1892))
#@71 Minimal time for other idle processes before switching back to agent.
(defvar org-indent-agent-resume-delay '(0 0 100000) (#$ . 2080))
#@101 Position of initialization before interrupt.
This is used locally in each buffer being initialized.
(defvar org-indent-initial-marker nil (#$ . 2222))
#@15 Used locally.
(defvar org-hide-leading-stars-before-indent-mode nil (#$ . 2379))
#@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 (#$ . 2467))
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\310\315&\210\300\316\313\317\304\305\310\315&\210\300\320\321\322\304\305\310\323&\210\324\305\325\326\211\"\327\304\330%\207" [custom-declare-variable org-indent-boundary-char 32 "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 :set #[(var val) " L\210\n\205\n \303 \207" [var val org-indent-strings org-indent-initialize] 2] :type character org-indent-mode-turns-off-org-adapt-indentation t "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 "Non-nil means setting the variable `org-indent-mode' will turn on `org-hide-leading-stars'." org-indent-indentation-per-level 2 "Indentation per level in number of characters." integer custom-declare-face org-compatible-face nil "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] 10)
#@37 Initialize the indentation strings.
(defalias 'org-indent-initialize #[nil "\306T\307\"\306T\307\" \310\307I\210\n\310\307I\210\311 \fX\2039 \312\313 S\314\"\315
!P\307\316\317$I\210 T\211\202 *\311 X\203[ \n \312\313 \320\"\307\316\321$I\210 T\211\202A *\307\207" [org-indent-max org-indent-strings org-indent-stars i #1=#:--cl-var-- org-indent-boundary-char make-vector nil 0 1 org-add-props make-string 32 char-to-string face org-indent 42 org-hide org-indent-max-levels #2=#:--cl-var--] 8 (#$ . 3950)])
#@42 Remove indentations between BEG and END.
(defalias 'org-indent-remove-properties #[(beg end) "\306 \307\211\307\310\216\311\f
\312#-\207" [#1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks beg end buffer-modified-p t #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] remove-text-properties (line-prefix nil wrap-prefix nil)] 5 (#$ . 4482)])
(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 (#$ . 4958))
(make-variable-buffer-local 'org-indent-mode)
#@331 When active, indent text according to outline structure.
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.
(defalias 'org-indent-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\2030 \312\313\314\315#\2040 \316\317!\210\320 \210\321\322!\210\323\202C\n\203\331 \324\323 \325\f! L\210*
\204F \326 \210\327\330\322! \325\f! L\210*?\203c \331\323 \325\f! L\210*@\203 \332 \325\f! L\210*\333\334 \325\f! L\210*\335\336\337\323\334$\210\335\340\341\323\342$\210\335\343\344\323\342$\210A\203\234 \345 \210ed B C\346 D\334\211 E F\334 G\347\216\350CB\351#.\210H\203\311 pHBH\202CpHBH\352\353\334\354#I\202C\355\331!\210\356pH\"H\357!\203\361 \323\211\223\210\360\332!\203\333 \325\f! L\210*\361\336\362\"\210\361\340\341\342#\210\361\343\344\342#\210\212\214~\210ed B C\346 D\334\211 E F\334 G\347\216\350CB\351#.\210*A\203@\345 \210\363 \210\364\365\n\203M\366\202N\367\"\210\370\371!\203u\306 \203b\306 \232\203u\372 \"\316\373\n\203o\374\202p\375\"#\210))\376 \210\n\207" [#1=#:last-message arg org-indent-mode value var org-indent-strings current-message toggle prefix-numeric-value 0 org-version-check "23.1.50" "Org Indent mode" :predicate message "org-indent-mode can crash Emacs 23.1 - refusing to turn it on!" ding sit-for 1 nil indent-tabs-mode make-local-variable org-indent-initialize org-indent-initial-marker copy-marker org-adapt-indentation org-hide-leading-stars-before-indent-mode org-hide-leading-stars t org-add-hook filter-buffer-substring-functions #[(fun start end delete) "\304 \n #!\207" [fun start end delete org-indent-remove-properties-from-string] 5] after-change-functions org-indent-refresh-maybe local before-change-functions org-indent-notify-modified-headline org-restart-font-lock buffer-modified-p #[nil "?\205 \301\302!\207" [#2=#:modified 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 boundp remove-hook #[(fun start end delete) "\304 \n #!\207" [fun start end delete org-indent-remove-properties-from-string] 5] 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" "Org-Indent mode %sabled%s" "en" "dis" force-mode-line-update org-indent-mode-turns-off-org-adapt-indentation org-indent-mode-turns-on-hiding-stars font-lock-mode end beg #2# buffer-undo-list inhibit-read-only inhibit-modification-hooks org-indent-agentized-buffers org-indent-agent-timer] 6 (#$ . 5150) (list (or current-prefix-arg 'toggle))])
#@180 Hook run after entering or leaving `org-indent-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar org-indent-mode-hook nil (#$ . 8017))
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [org-indent-mode-map 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 #[nil "\306\307!\204\n \310\311!\207\312\313!\210ed\314 \315\211 \315 \316\216\317 \320#.\210\321ed\"\210\312\322!\207" [end beg #1=#:modified 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 #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] remove-text-properties (line-prefix nil wrap-prefix nil) org-indent-add-properties "Indentation of buffer set."] 4 (#$ . 8378) nil])
#@44 Remove indentation properties from STRING.
(defalias 'org-indent-remove-properties-from-string #[(string) "\301\302G\303$\210\207" [string remove-text-properties 0 (line-prefix nil wrap-prefix nil)] 5 (#$ . 9034)])
#@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 #[nil "\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 org-remove-if-not buffer-live-p org-indent-initialize-buffer] 4 (#$ . 9259)])
#@143 Set virtual indentation for the buffer BUFFER, asynchronously.
Give hand to other idle processes if it takes longer than DELAY,
a time value.
(defalias 'org-indent-initialize-buffer #[(buffer delay) "rq\210 \2054 \212\214~\210\3062\" \n\203 \307\n!\203 \310\nd #\210\3110 \n\f\311\223\210\f?\2053 \312
\"\211+)\207" [buffer org-indent-mode org-indent-initial-marker delay interruptp org-indent-agentized-buffers interrupt marker-position org-indent-add-properties nil delq] 4 (#$ . 9812)])
#@321 Set prefix properties on current line an move to next one.
Prefix properties `line-prefix' and `wrap-prefix' in current line
are set to, respectively, length L and W.
If H is non-nil, `line-prefix' will be starred. If H is
`inline', the first star will have `org-warning' face.
Assume point is at beginning of line.
(defalias 'org-indent-set-line-properties #[(l w h) "\306=\203) \n ^H\211 \205% \307\305!\203$
\203$ \f\310\311OP\202% \f)\202< \2035 \n ^H\202< \n^H^H \312`\313 Td^\314\315F#\210*\310y\207" [h org-indent-stars l org-indent-max-levels stars org-inlinetask-show-first-star inline boundp 1 nil add-text-properties point-at-eol line-prefix wrap-prefix org-indent-inlinetask-first-star org-indent-strings org-indent-max w wrap line] 8 (#$ . 10314)])
(put 'org-indent-set-line-properties 'byte-optimizer 'byte-compile-inline-expand)
#@309 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.
(defalias 'org-indent-add-properties #[(beg end &optional delay) "\306 \307\216\212\214~\210 b\210\310 \210\311\312 \313\fS! \212\3141) .\315\311!)0\202. \210\316\202< \205< \f\317\320\225\320\224\321#_\321\\) /\322\323!\205Q \324 \205Q \f\325 S_\321\\ 01\205^ \326\327 1\" 2\330 3\311\211 4 5\311 6\331\216`7X\205qm?\205q1\203\215 \332 \203\215 \333\334`\"\210\202o 1\203\257 \3352\327 \"\203\257 \336\326\337 8\"\316\340#9\333\334`\"\210\202o \341:!\203R\317\320\225\320\224\342# ;
;S_\211 <;T\\ =\341 !\203O<=\311 > ? @>\343=\203A@B^H\211 C\205 \344\345!\203 %\203 DC\342\316OP\202 C)\202'>\203 A@B^H\202'E@F^HE?F^H = <\346`\347 Td^\350<\351=F#\210*\342y+\210=/\202N\341\352!\203\320<=\343 > ? @>\343=\203\221A@B^H\211 C\205\215\344\345!\203\213%\203\213DC\342\316OP\202\215C)\202\251>\203\241A@B^H\202\251E@F^HE?F^H = <\346`\347 Td^\350<\351=F#\210*\342y+\210\3160\202N<=\343 > ? @>\343=\203\fA@B^H\211 C\205\344\345!\203%\203DC\342\316OP\202C)\202$>\203 A@B^H\202$E@F^HE?F^H = <\346`\347 Td^\350<\351=F#\210*\342y+\210\324 \205L=0+\202o \353 \203\3450\206b/\206b\320 <\354`!<\\ =<=\316 > ? @>\343=\203\250A@B^H\211 C\205\244\344\345!\203\242%\203\242DC\342\316OP\202\244C)\202\300>\203\270A@B^H\202\300E@F^HE?F^H = <\346`\347 Td^\350<\351=F#\210*\342y+\210*\202o 0\206\360/\206\360\320\211 <\355 \\ =<=\316 > ? @>\343=\2034A@B^H\211 C\2050\344\345!\203.%\203.DC\342\316OP\2020C)\202L>\203DA@B^H\202LE@F^HE?F^H = <\346`\347 Td^\350<\351=F#\210*\342y+\210*\202o .\207" [save-match-data-internal beg case-fold-search limited-re org-indent-indentation-per-level added-ind-per-lvl match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] beginning-of-line t org-get-limited-outline-regexp abs (error) org-back-to-heading nil - 0 2 featurep org-inlinetask org-inlinetask-in-task-p org-inlinetask-get-task-level time-add current-time buffer-modified-p #[nil "?\205 \301\302!\207" [#1=#:modified restore-buffer-modified-p nil] 2] input-pending-p throw interrupt time-less-p run-with-idle-timer current-idle-time org-indent-initialize-agent looking-at 1 inline boundp org-inlinetask-show-first-star add-text-properties point-at-eol line-prefix wrap-prefix "\\*+ end[ ]*$" org-at-item-p org-list-item-body-column org-get-indentation outline-regexp pf pf-inline delay time-limit #1# buffer-undo-list inhibit-read-only inhibit-modification-hooks end org-indent-agent-resume-delay org-indent-agent-resume-timer org-outline-regexp nstars line wrap h w l org-indent-stars org-indent-max-levels stars org-indent-inlinetask-first-star org-indent-strings org-indent-max] 8 (#$ . 11193)])
#@290 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.
(defalias 'org-indent-notify-modified-headline #[(beg end) "\205! \212 b\210\306 \307\216\310 \203 \311\225W\206 \312 \f\313#+\211\207" [org-indent-mode beg save-match-data-internal org-outline-regexp-bol end org-indent-modified-headline-flag match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] org-at-heading-p 0 re-search-forward t] 4 (#$ . 14315)])
#@248 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'.
(defalias 'org-indent-refresh-maybe #[(beg end dummy) "\205F \306 \307\216\n\204 \212 b\210\310 \210\311\f
\312#)\203A \212
b\210\312 \313 \211 \314P \315 \210,`) \316\317
\")\202E \317
\"*\207" [org-indent-mode save-match-data-internal org-indent-modified-headline-flag beg org-outline-regexp-bol end match-data #[nil "\301\302\"\207" [save-match-data-internal 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 org-called-with-limited-levels org-outline-regexp outline-regexp] 5 (#$ . 15007)])
(provide 'org-indent)
Kontol Shell Bypass