mirror of https://github.com/Chizi123/.emacs.d.git

Chizi123
2018-11-21 e75a20334813452c6912c090d70a0de2c805f94d
commit | author | age
76bbd0 1 ;ELC
C 2 ;;; Compiled
3 ;;; in Emacs version 26.1
4 ;;; with all optimizations.
5
6 ;;; This file uses dynamic docstrings, first added in Emacs 19.29.
7
8 ;;; This file does not contain utf-8 non-ASCII characters,
9 ;;; and so can be loaded in Emacs versions earlier than 23.
10
11 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
12 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
13
14
15 (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)
16 #@48 First star of inline tasks, with correct face.
17 (defvar org-indent-inlinetask-first-star (org-add-props "*" '(face org-warning)) (#$ . 675))
18 #@37 Timer running the initialize agent.
19 (defvar org-indent-agent-timer nil (#$ . 821))
20 #@50 List of buffers watched by the initialize agent.
21 (defvar org-indent-agentized-buffers nil (#$ . 910))
22 #@68 Timer to reschedule agent after switching to other idle processes.
23 (defvar org-indent-agent-resume-timer nil (#$ . 1018))
24 #@114 Time to run agent before switching to other idle processes.
25 Delay used when the buffer to initialize is current.
26 (defvar org-indent-agent-active-delay '(0 2 0) (#$ . 1147))
27 #@117 Time to run agent before switching to other idle processes.
28 Delay used when the buffer to initialize isn't current.
29 (defvar org-indent-agent-passive-delay '(0 0 400000) (#$ . 1327))
30 #@71 Minimal time for other idle processes before switching back to agent.
31 (defvar org-indent-agent-resume-delay '(0 0 100000) (#$ . 1515))
32 #@101 Position of initialization before interrupt.
33 This is used locally in each buffer being initialized.
34 (defvar org-indent--initial-marker nil (#$ . 1657))
35 #@15 Used locally.
36 (defvar org-hide-leading-stars-before-indent-mode nil (#$ . 1815))
37 #@114 Non-nil means the last deletion operated on a headline.
38 It is modified by `org-indent-notify-modified-headline'.
39 (defvar org-indent-modified-headline-flag nil (#$ . 1903))
40 (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)
41 #@59 Vector containing line prefixes strings for regular text.
42 (defvar org-indent--text-line-prefixes nil (#$ . 3411))
43 #@54 Vector containing line prefix strings for headlines.
44 (defvar org-indent--heading-line-prefixes nil (#$ . 3531))
45 #@57 Vector containing line prefix strings for inline tasks.
46 (defvar org-indent--inlinetask-line-prefixes nil (#$ . 3649))
47 #@37 Maximum theoretical headline depth.
48 (defconst org-indent--deepest-level 50 (#$ . 3773))
49 #@56 Compute prefix strings for regular text and headlines.
50 (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\311\307OP\202[\314\307\315\316$I\266 \314\312\\\321\"\307\315\316$\310V\205u\322!PI\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 32 char-to-string org-indent-inlinetask-first-star org-indent-boundary-char] 12 (#$ . 3867)])
51 #@56 Remove indentations between BEG and END.
52
53 (fn BEG END)
54 (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 (#$ . 4637)])
55 (put 'org-indent-remove-properties 'byte-optimizer 'byte-compile-inline-expand)
56 #@99 Non-nil if Org-Indent mode is enabled.
57 Use the command `org-indent-mode' to change this variable.
58 (defvar org-indent-mode nil (#$ . 5151))
59 (make-variable-buffer-local 'org-indent-mode)
60 #@351 When active, indent text according to outline structure.
61
62 Internally this works by adding `line-prefix' and `wrap-prefix'
63 properties, after each buffer modification, on the modified zone.
64
65 The process is synchronous.  Though, initial indentation of
66 buffer, which can take a few seconds on large buffers, is done
67 during idle time.
68
69 (fn &optional ARG)
70 (defalias 'org-indent-mode #[256 "\306 \307=\203 ?\202\310!\311V\211\203\241\312\301!\210\313\312\302!\210\314\315! \203/\312\304!\210\313 \203B\312\316!\210\312\317!\210\320\321 \210\322\323\324\313\320$\210\322\325\326\313\327$\210\322\330\331\313\327$\210:\203b\332 \210ed\333 \320\211;<\320=\334\311\335\336\337!\340\"\341$\216\342\343#,\266>\203\221p>B>\202p>B>\344\345\320\346#?\202\347\304!\210\350p>\">\351\n!\203\267\n\313\211\223\210\352\316!\203\305\312\317!\210\353\323\354\"\210\353\325\326\327#\210\353\330\331\327#\210\212\214~\210ed\333 \320\211;<\320=\334\311\335\336\337!\340\"\341$\216\342\343#,\266*:\203\332 \210\355 \210\356\357\203\360\202\361\"\210\362\363!\2036\306 \203&\211\306 \232\2036\364\365\366\2031\367\2022\370#\266\210\371 \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 org-hide-leading-stars-before-indent-mode org-hide-leading-stars t org-indent--compute-prefixes add-hook filter-buffer-substring-functions #[1028 "\300#!\207" [org-indent-remove-properties-from-string] 9 "\n\n(fn FUN START END DELETE)"] 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 boundp remove-hook #[1028 "\300#!\207" [org-indent-remove-properties-from-string] 9 "\n\n(fn FUN START END DELETE)"] 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 "Org-Indent mode %sabled%s" "en" "dis" force-mode-line-update font-lock-mode buffer-undo-list inhibit-read-only inhibit-modification-hooks org-indent-agentized-buffers org-indent-agent-timer] 12 (#$ . 5343) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)])
71 (defvar org-indent-mode-hook nil)
72 (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)
73 #@66 Add indentation properties to the accessible part of the buffer.
74 (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 (#$ . 8392) nil])
75 #@57 Remove indentation properties from STRING.
76
77 (fn STRING)
78 (defalias 'org-indent-remove-properties-from-string #[257 "\300\301G\302$\210\207" [remove-text-properties 0 (line-prefix nil wrap-prefix nil)] 6 (#$ . 9074)])
79 #@179 Start or resume current buffer initialization.
80 Only buffers in `org-indent-agentized-buffers' trigger an action.
81 When no more buffer is being watched, the agent suppress itself.
82 (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 (#$ . 9299)])
83 #@162 Set virtual indentation for the buffer BUFFER, asynchronously.
84 Give hand to other idle processes if it takes longer than DELAY,
85 a time value.
86
87 (fn BUFFER DELAY)
88 (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 (#$ . 9849)])
89 #@355 Set prefix properties on current line an move to next one.
90
91 LEVEL is the current level of heading.  INDENTATION is the
92 expected indentation when wrapping line.
93
94 When optional argument HEADING is non-nil, assume line is at
95 a heading.  Moreover, if is is `inlinetask', the first star will
96 have `org-warning' face.
97
98 (fn LEVEL INDENTATION &optional HEADING)
99 (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 (#$ . 10368)])
100 #@339 Add indentation properties between BEG and END.
101
102 When DELAY is non-nil, it must be a time value.  In that case,
103 the process is asynchronous and can be interrupted, either by
104 user request, or after DELAY.  This is done by throwing the
105 `interrupt' tag along with the buffer position where the process
106 stopped.
107
108 (fn BEG END &optional DELAY)
109 (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\302m?\205\302\203\\\330 \203\\\331\332`\"\210\202?\203z\333\323 \"\203z\334\322\335 \f\"\336\337#\331\332`\"\210\202?\340(!\203\252\341\310\225\310\224\342#\317)\340!)\262\206\226\343\344\310#\210\211\343=\204\245\262\266\202?\345 \203\271\344\346`!\"\210\202?\344\347 \"\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 time-add current-time buffer-modified-p "\300?\205\301\302!\207" [restore-buffer-modified-p nil] 2 input-pending-p throw interrupt time-less-p run-with-idle-timer current-idle-time nil org-indent-initialize-agent looking-at - 1 inlinetask org-indent-set-line-properties org-at-item-p org-list-item-body-column org-get-indentation org-outline-regexp inhibit-changing-match-data] 15 (#$ . 11187)])
110 #@304 Set `org-indent-modified-headline-flag' depending on context.
111
112 BEG and END are the positions of the beginning and end of the
113 range of deleted text.
114
115 This function is meant to be called by `before-change-functions'.
116 Flag will be non-nil if command is going to modify or delete an
117 headline.
118
119 (fn BEG END)
120 (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 (#$ . 12790)])
121 #@264 Refresh indentation properties in an adequate portion of buffer.
122 BEG and END are the positions of the beginning and end of the
123 range of inserted text.  DUMMY is an unused argument.
124
125 This function is meant to be called by `after-change-functions'.
126
127 (fn BEG END _)
128 (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 (#$ . 13601)])
129 (provide 'org-indent)