Current File : //usr/local/share/emacs/27.2/lisp/org/org-num.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\303\304\305\306\307DD\310\311\312\313\314\315\316\317\320& \210\303\321\305\306\322DD\323\311\312\313\324\315\306\317\325& \210\303\326\305\306\327DD\330\311\312\313\331\315\332\317\333& \210\303\334\305\306\335DD\336\311\312\313\337\315\340\317\341& \210\303\342\305\306\343DD\344\311\312\313\345\315\340\317\341& \210\303\346\305\306\347DD\350\311\312\313\351\315\352\317\353& \210\303\354\305\306\355DD\356\311\312\313\357\315\340\317\341& \207" [require cl-lib org-macs custom-declare-variable org-num-face funcall function #[0 "\300\207" [nil] 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] "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") nil org-num-max-level #[0 "\300\207" [nil] 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] "Non-nil means commented sub-trees are not numbered." (Org . "9.3") boolean booleanp org-num-skip-footnotes #[0 "\300\207" [nil] 1] "Non-nil means footnotes sections are not numbered." (Org . "9.3") org-num-skip-tags #[0 "\300\207" [nil] 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] "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) (#$ . 2785))
#@55 Ordered list of overlays used for numbering outlines.
(defvar org-num--overlays nil (#$ . 2940))
(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 (#$ . 3092))
(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 (#$ . 3358))
(make-variable-buffer-local 'org-num--numbering)
#@58 Buffer position signaling a headline without an overlay.
(defvar org-num--missing-overlay nil (#$ . 3585))
(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 (#$ . 3753))
(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 (#$ . 3917)])
(put 'org-num--headline-regexp 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 4342)])
(put 'org-num--overlay-p 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 4563)])
(put 'org-num--valid-overlay-p 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 4817)])
(put 'org-num--invalidate-overlay 'byte-optimizer 'byte-compile-inline-expand)
#@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 (#$ . 5130)])
#@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> \2037 S\n\246\202< \n^S 8#\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 (#$ . 5307)])
#@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 (#$ . 6199)])
#@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\206W \f\203; \203; \314 \315\")\203; \316\202W \203J \317\320\"\203J \316\202W \205W \321`\322\"\205W \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 (#$ . 6661)])
#@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\202Y U\2035 @T AB\202Y W\203K \211Z \233\211@TAB\262\202Y \306\303\304\307\303#\305\"B \"\211\207" [org-num--skip-level org-num--numbering nil 1 make-list 0 append -] 10 (#$ . 7372)])
#@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#\203h \320\321\322\225\322\224\305#!\323 \324\"\325#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 (#$ . 7849)])
#@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\247 \211\306\307\"\310=?\262\203i \311!\205) \311@! \203L V\204L \211\203= V\203J \305\312\"\244\262\202L \305\266\306\313\"\306\314\"\315\"\316\"\210B\262\266\202 \317!\210\n\203\212 \n@\306\307\"\310=?\262\204\212 \317\n\211A\242!\210\202m \205\222 \311@!\n\205\232 \311\n@!\312\"\244\262\266\202 \203\274 \205\263 \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 (#$ . 8678)])
#@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\312\313\314!\315\"\316$\216\212\317!\203 \320!q\210\212\214~\210\211\206& `b\210 \204: \321\322 \211 \323 P+\202I \324\325
\203G \326 _S\202H \"\212\321\322 \211 \323 P '\3271a \330\321!0\202c \210\306,\203\254 \331!\203\254 \332`\333\"\211:\203\253 \211@\211\204\210 A\211\204\204 `\210\202\252 \211\321=\203\252 A\211\334 \335\336\"=\204\250 \211\337\333\340#\210\321\211(\266\266\210\210)U\203\332 n\204\332 \332`\333\"\211:\203\331 \211@\211\321=\203\330 A\211\211\337\333\340#\210\321\211(\266\210\210(\204\204\341 X\204\306y\210\342\343#\204 \344\306x\210\331!\203\345 \210+\210\204(\205\346 )\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-byte-code 0 "\301\300\302\"\207" vconcat vector [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 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] 16 (#$ . 9627)])
#@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 (#$ . 11113)])
#@93 Non-nil if Org-Num mode is enabled.
Use the command `org-num-mode' to change this variable.
(defvar org-num-mode nil (#$ . 11323))
(make-variable-buffer-local 'org-num-mode)
#@310 Dynamic numbering of headlines in an Org buffer.
If called interactively, enable Org-Num mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'org-num-mode #[256 "\303 \304=\203
?\202 \305!\306V\211\203: \307\310!\204! \311\312!\210\313\314\313\211\"\237\315\316\317\313\320$\210\315\321\322\313\320$\210\202I \322 \210\323\316\317\320#\210\323\321\322\320#\210\324\325\203S \326\202T \327\"\210\330\331!\203x \303 \203h \211\303 \232\203x \332\333\334\203s \335\202t \336#\266\210\337 \210\207" [org-num-mode org-num--numbering org-num--overlays current-message toggle prefix-numeric-value 0 derived-mode-p org-mode user-error "Cannot activate headline numbering outside Org mode" nil org-num--number-region add-hook after-change-functions org-num--verify t 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 " in current buffer" message "Org-Num mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 11504) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar org-num-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\210\312\313!\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.)" add-minor-mode org-num-mode " o#" boundp nil provide org-num] 6)
Mini Shell