| 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\221 p>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\302 m?\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) | |
