;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310DD\311\312\313\314\315\316\317\320\321&\210\304\322\306\307\323DD\324\312\313\314\325\316\307&	\210\304\326\306\307\327DD\330\312\313\314\331\316\332\320\333&\210\304\334\306\307\335DD\336\312\313\314\337\316\340\320\341&\210\304\342\306\307\343DD\344\312\313\314\345\316\340\320\341&\210\304\346\306\307\347DD\350\312\313\314\351\316\352\320\353&\210\304\354\306\307\355DD\356\312\313\314\357\316\340\320\341&\207" [require cl-lib org-macs org custom-declare-variable org-num-face funcall function #[0 "\300\207" [nil] 1 #1=""] "Face to use for numbering.\nWhen nil, use the same face as the headline.  This value is\nignored if `org-num-format-function' specifies a face for its\noutput." :group org-appearance :package-version (Org . "9.3") :type (choice (const :tag "Like the headline" nil) (face :tag "Use face")) :safe #[257 "\211?\206\300
!\207" [facep] 3 "\n\n(fn VAL)"] org-num-format-function #[0 "\300\207" [org-num-default-format] 1 #1#] "Function used to display numbering.\nIt is called with one argument, a list of numbers, and should\nreturn a string, or nil.  When nil, no numbering is displayed.\nAny `face' text property on the returned string overrides\n`org-num-face'." (Org . "9.3") org-num-max-level #[0 "\300\207" [nil] 1 #1#] "Level below which headlines are not numbered.\nWhen set to nil, all headlines are numbered." (Org . "9.3") (choice (const :tag "Number everything" nil) (integer :tag "Stop numbering at level")) #[257 "\211?\206\300
!\207" [wholenump] 3 "\n\n(fn VAL)"] org-num-skip-commented #[0 "\300\207" [nil] 1 #1#] "Non-nil means commented sub-trees are not numbered." (Org . "9.3") boolean booleanp org-num-skip-footnotes #[0 "\300\207" [nil] 1 #1#] "Non-nil means footnotes sections are not numbered." (Org . "9.3") org-num-skip-tags #[0 "\300\207" [nil] 1 #1#] "List of tags preventing the numbering of sub-trees.\n\nFor example, add \"ARCHIVE\" to this list to avoid numbering\narchived sub-trees.\n\nTag in this list prevent numbering the whole sub-tree,\nirrespective to `org-use-tag-inheritance', or other means to\ncontrol tag inheritance." (Org . "9.3") (repeat (string :tag "Tag")) #[257 "\211<\205	\300\301\"\207" [cl-every stringp] 4 "\n\n(fn VAL)"] org-num-skip-unnumbered #[0 "\300\207" [nil] 1 #1#] "Non-nil means numbering obeys to UNNUMBERED property." (Org . "9.3")] 12)
#@58 Regexp matching a COMMENT keyword at headline beginning.
(defconst org-num--comment-re (format "\\`%s\\(?: \\|$\\)" org-comment-string) (#$ . 2496))
#@55 Ordered list of overlays used for numbering outlines.
(defvar org-num--overlays nil (#$ . 2651))
(make-variable-buffer-local 'org-num--overlays)
#@165 Level below which headlines from current tree are not numbered.
When nil, all headlines are numbered.  It is used to handle
inheritance of no-numbering attributes.
(defvar org-num--skip-level nil (#$ . 2803))
(make-variable-buffer-local 'org-num--skip-level)
#@129 Current headline numbering.
A numbering is a list of integers, in reverse order.  So numbering
for headline "1.2.3" is (3 2 1).
(defvar org-num--numbering nil (#$ . 3069))
(make-variable-buffer-local 'org-num--numbering)
#@58 Buffer position signaling a headline without an overlay.
(defvar org-num--missing-overlay nil (#$ . 3296))
(make-variable-buffer-local 'org-num--missing-overlay)
#@60 Non-nil means an overlay became invalid since last update.
(defvar org-num--invalid-flag nil (#$ . 3464))
(make-variable-buffer-local 'org-num--invalid-flag)
#@45 Return regexp matching a numbered headline.
(defalias 'org-num--headline-regexp #[0 "\204\305\306 \211\307\nP+\207\310\311\f\203\312_S\202\"\207" [org-num-max-level org-called-with-limited-levels org-outline-regexp outline-regexp org-odd-levels-only t org-get-limited-outline-regexp "^" format "^\\*\\{1,%d\\} " 2] 5 (#$ . 3628)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-num--headline-regexp speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@54 Non-nil if overlay O is a numbering overlay.

(fn O)
(defalias 'org-num--overlay-p #[257 "\300
\301\"\207" [overlay-get org-num] 4 (#$ . 4127)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-num--overlay-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@61 Non-nil if overlay O is still active in the buffer.

(fn O)
(defalias 'org-num--valid-overlay-p #[257 "\300
\301\"\302=?\207" [overlay-get org-num invalid] 4 (#$ . 4422)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-num--valid-overlay-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@80 Mark overlay O as invalid.
Update `org-num--invalid-flag' accordingly.

(fn O)
(defalias 'org-num--invalidate-overlay #[257 "\301
\302\303#\210\304\211\207" [org-num--invalid-flag overlay-put org-num invalid t] 5 (#$ . 4750)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put org-num--invalidate-overlay speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@50 Remove all numbering overlays in current buffer.
(defalias 'org-num--clear #[0 "\301\302\"\210\303\211\207" [org-num--overlays mapc delete-overlay nil] 3 (#$ . 5137)])
#@268 Return overlay for numbering headline at point.

NUMBERING is the numbering to use, as a list of integers, or nil
if nothing should be displayed.  LEVEL is the level of the
headline.  SKIP is its skip value.

Assume point is at a headline.

(fn NUMBERING LEVEL SKIP)
(defalias 'org-num--make-overlay #[771 "\304C\212\305 \210\306\307w\210\310\311 `T\")\312
\313\314#\210\312
\315#\210\312
\316#\210\312
\317\206>	\2037S\n\246\202<\n^S8#\210\312
\320#\210\312
\321#\210\322
\"\210\207" [org-num-face org-cycle-level-faces org-n-level-faces org-level-faces #[385 "
\301
\302\303#\210\304\211\207" [org-num--invalid-flag overlay-put org-num invalid t] 7 "\n\n(fn O &rest _)"] beginning-of-line "*" nil make-overlay line-beginning-position overlay-put org-num t skip level numbering-face modification-hooks insert-in-front-hooks org-num--refresh-display] 10 (#$ . 5314)])
#@179 Refresh OVERLAY's display.
NUMBERING specifies the new numbering, as a list of integers, or
nil if nothing should be displayed.  Assume OVERLAY is valid.

(fn OVERLAY NUMBERING)
(defalias 'org-num--refresh-display #[514 "\211\205	\301!!\211\203 \302\303\304#\204 \305
\304\306\307\"D\"\210\310\311#\207" [org-num-format-function reverse get-text-property 0 face org-add-props overlay-get numbering-face overlay-put after-string] 9 (#$ . 6206)])
#@110 Return skip value for headline at point.
Value is t when headline should not be numbered, and nil
otherwise.
(defalias 'org-num--skip-value #[0 "\306!\210\307\310!	\205\311\225\205\312\307\311!\313\"\n\203$\203$
\232\206S\f\2039
\2039\314\315\")\2039\316\207	\203F\317\320\"\203F\316\207\205S\321`\322\"\205S\316\207" [org-complex-heading-regexp org-num-skip-tags org-num-skip-footnotes org-footnote-section org-num-skip-commented case-fold-search org-match-line match-string 4 5 org-split-string ":" nil string-match t cl-some #[257 "\211\235\207" [org-num-skip-tags] 3 "\n\n(fn TAG)"] org-entry-get "UNNUMBERED" org-num--comment-re org-num-skip-unnumbered] 5 (#$ . 6668)])
#@152 Return numbering for current headline.
LEVEL is headline's level, and SKIP its skip value.  Return nil
if headline should be skipped.

(fn LEVEL SKIP)
(defalias 'org-num--current-numbering #[514 "\203\f
V\203\f\302\207\211\203
\302\207\302	G	\204&\303\304S\305\"B\202W
U\2035	@T	AB\202W
W\203K\211Z	\233\211@T
AB\262
\202W\306\303\304ZS\305\"B	\"\211\207" [org-num--skip-level org-num--numbering nil 1 make-list 0 append] 8 (#$ . 7375)])
#@207 Add numbering overlays between START and END positions.
When START or END are nil, use buffer boundaries.  Narrowing, if
any, is ignored.  Return the list of created overlays, newest
first.

(fn START END)
(defalias 'org-num--number-region #[514 "
\206\305\212\306
!\203\307
!q\210\212\214~\210\211\206`b\210\203#\310\210\2045\311\312 \211\313\nP+\202D\314\315\f\203B\316_S\202C\"\310\317\311#\203g\320\321\225\321\224ZS!\322 \323\"\324
#B\266\204\202E\262
+\207" [org-num-max-level org-called-with-limited-levels org-outline-regexp outline-regexp org-odd-levels-only 1 markerp marker-buffer nil t org-get-limited-outline-regexp "^" format "^\\*\\{1,%d\\} " 2 re-search-forward org-reduced-level 0 org-num--skip-value org-num--current-numbering org-num--make-overlay] 12 (#$ . 7841)])
#@187 Update buffer's numbering.
This function removes invalid overlays and refreshes numbering
for the valid ones in the numbering overlays list.  It also adds
missing overlays to that list.
(defalias 'org-num--update #[0 "\305\211\305\211\n\211A\242\211\262\203\251\211\306
\307\"\310=?\262
\203k\311
!\205)\311@!\203NV\204N\211\203=
V\203L\305\312
\"\244\262\266\202P\305\266\306
\313\"\306\314\"\315\"\316\"\210B\262\266\202\317
!\210\n\203\214\n@\306
\307\"\310=?\262
\204\214\317\n\211A\242!\210\202o
\205\224\311@!\n\205\234\311\n@!\312\"\244\262\266\202\203\276
\205\265\311@!\312
\305\"\244\262\210\305
\237\211\207" [org-num--skip-level org-num--numbering org-num--overlays org-num--missing-overlay org-num--invalid-flag nil overlay-get org-num invalid overlay-start org-num--number-region level skip org-num--current-numbering org-num--refresh-display delete-overlay] 9 (#$ . 8661)])
#@181 Check numbering integrity; update it if necessary.
This function is meant to be used in `after-change-functions'.
See this variable for the meaning of BEG and END.

(fn BEG END _)
(defalias 'org-num--verify #[771 "\306\307 \310\311\"\216\212\312!\203\313!q\210\212\214~\210\206`b\210	\2042\314\315 \211\316P+\202A\317\320
\203?\321	_S\202@	\"\212\314\315 \211\316P#\3221Y\323\314!0\202[\210\306,\203\245\324
!\203\245\325`\326\"\211:\203\244\211\242\211\327\267\266\202\245
\243\211\204\200`\266\202\245
\243\330 \331\332\"=\204\236\211\333
\326\334#\210\314\211$\266\266\202\245\210\210)U\203\322n\204\322\325`\326\"\211:\203\321\211\242\211\314=\203\320
\243\211\333
\326\334#\210\314\211$\266\210\210$\204\372\204\372\335 X\204\372\306y\210\336
\337#\204\367\340\306x\210\324
!\203\372\341 \210+\204
$\205
\342 )\207" [org-num--missing-overlay org-num-max-level org-called-with-limited-levels org-outline-regexp outline-regexp org-odd-levels-only nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] markerp marker-buffer t org-get-limited-outline-regexp "^" format "^\\*\\{1,%d\\} " 2 (error) org-back-to-heading looking-at get-char-property-and-overlay org-num #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 120 t 133)) org-num--skip-value overlay-get skip overlay-put invalid line-end-position re-search-forward move "*" line-beginning-position org-num--update org-outline-regexp-bol org-num--invalid-flag] 14 (#$ . 9615)])
#@85 Default numbering display function.
NUMBERING is a list of numbers.

(fn NUMBERING)
(defalias 'org-num-default-format #[257 "\300\301\302#\303P\207" [mapconcat number-to-string "." " "] 5 (#$ . 11188)])
#@93 Non-nil if Org-Num mode is enabled.
Use the command `org-num-mode' to change this variable.
(defvar org-num-mode nil (#$ . 11398))
(make-variable-buffer-local 'org-num-mode)
#@599 Dynamic numbering of headlines in an Org buffer.

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

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

(fn &optional ARG)
(defalias 'org-num-mode #[256 "\304 
\305=\203
?\202
\247\203
\306W\203\307\202\310\311\301!\2031\312\300	\"\2031\300	B\203X\313\314!\204?\315\316!\210\307\317\307\211\"\237\320\321\322\307\310$\210\320\323\324\307\310$\210\202g\324 \210\325\321\322\310#\210\325\323\324\310#\210\326\327\203q\330\202r\331\"\210\332\333!\203\224\304 \203\206\211\304 \232\203\224\334\335\203\220\336\202\221\337\340#\210\210\341 \210\207" [org-num-mode local-minor-modes org-num--numbering org-num--overlays current-message toggle 1 nil t boundp delq derived-mode-p org-mode user-error "Cannot activate headline numbering outside Org mode" org-num--number-region add-hook after-change-functions org-num--verify change-major-mode-hook org-num--clear remove-hook run-hooks org-num-mode-hook org-num-mode-on-hook org-num-mode-off-hook called-interactively-p any message "Org-Num mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 11579) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar org-num-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%\210\315\316!\207" [org-num-mode-map org-num-mode-hook variable-documentation put "Hook run after entering or leaving `org-num-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-num-mode " o#" boundp provide org-num] 6)