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



(require 'info)
#@106 Create or update Info file tag table in current buffer or in a region.

(fn &optional INPUT-BUFFER-NAME)
(defalias 'Info-tagify #[256 "edd\306 TU`\307\310\203\307\311\"\202#\203\"\312\300 !\202#\313\"\314\315\"\210\316\317%\216~\210eb\210\320\321\322\323#\203I\314\324!\210\202\374\322\211\323\325\326\322\323#\203\240\327\330!\331\230\203\220\327\332!\333\230\203h\323\262
\334\327\335!P\336\224DB\262\211\323=\203\207\336\224\336\225\337 \210*\202M\336\224\336\225|\210\202M\340\341\342!P\343\224TDB\262\202Mdb\210\344y\210\322\320\345\322\323#\203\275`\346\347!\210\350 \210`
|\266db\210n\204\307\351 \210\352c\210\353\354!\203\325
`\322\223\210
\237\262
\203\366
@@\355\261\210\356@A@p\"\210\343c\210
A\262\202\331\345c\210*\266)\314\357\"\207" [buffer-file-name case-fold-search texinfo-command-end texinfo-command-start buffer-read-only Info-tag-table-marker buffer-size format "Tagifying %s..." "region in %s" file-name-nondirectory "buffer" message "%s" make-closure #[0 "\303b\210\300\302\203\304 T\202\301d^}\207" [V0 V1 V2 V3 buffer-size] 3] search-forward "\nIndirect:\n" nil t "Cannot tagify split info file.  Run this before splitting." re-search-forward "\\(\\(@anchor\\)\\(-no\\|-yes\\)\\(-refill\\)\\({\\)\\([^}]+\\)\\(}\\)\\|\\(\n\\(\f\\)?\\)\\(\n\\(File:[ 	]*\\([^,\n	]*\\)[,	\n]+[ 	\n]*\\)?Node:[ 	]*\\([^,\n	]*\\)[,	\n]\\)\\)" match-string 2 "@anchor" 3 "-yes" "Ref: " 6 0 texinfo-format-refill "Node: " match-string-no-properties 13 10 -8 "\nEnd tag table\n" search-backward "\nTag table:\n" beginning-of-line newline "\f\nTag table:\n" derived-mode-p info-mode 127 princ "%sdone"] 12 (#$ . 101) nil])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable Info-split-threshold funcall function #[0 "\300\207" [262144] 1 ""] "The number of characters by which `Info-split' splits an info file." :type integer :version "23.1" :group texinfo] 10)
#@636 Split an info file into an indirect file plus bounded-size subfiles.
Each subfile will be up to the number of characters that
`Info-split-threshold' specifies, plus one node.

To use this command, first visit a large Info file that has a tag
table.  The buffer is modified into a (small) indirect info file which
should be saved in place of the original visited file.

The subfiles are written in the same directory the original file is
in, with names generated by appending `-' and a number to the original
file name.  The indirect file still functions as an Info file, but it
contains just the tag table and a directory of subfiles.
(defalias 'Info-split #[0 "\304 \305\\W\203
\306\307!\210eb\210\310\311!\210\312u\210`\313\314\315\316\317	!
db\210\320y\210\314\310\321\314\316#\2045\306\322!\210\323\324!\210\325\326!\203C\306\327!\210\330 \210\315u\210\214e`}\210eb\210`TdW\203\240`\\d^b\210\310\311\314\331#\210\\\332!\333\334\"PDB\262\335c\210\336e`\333\334\"P#\210`S`|\210\312u\210`Z\\\262`|\210T\262\202Q)\203\277b\210@A@\333\337@@S\"\335\261\210A\262\202\241b\210\340c\210\310\341!\210\342c)\207" [Info-split-threshold buffer-file-name case-fold-search buffer-read-only buffer-size 20000 error "This is too small to be worth splitting" search-forward "" -1 0 nil 1 t file-name-sans-versions -8 "\nEnd tag table\n" "Tag table required; use M-x Info-tagify" search-backward "\nTag table:\n" looking-at "\nTag table:\n" "Tag table is just a skeleton; use M-x Info-tagify" beginning-of-line move file-name-nondirectory format "-%d" "\n" write-region ": %d" "\nIndirect:\n" "\nTag Table:\n" "(Indirect)\n"] 13 (#$ . 2071) nil])
#@110 Check current buffer for validity as an Info file.
Check that every node pointer points to an existing node.
(defalias 'Info-validate #[0 "\212\214~\210eb\210\306\307\310\311#\203\312\313\314p!\"\210eb\210\315\311\310\211
\306\316\310\311#\203w\317y\210`\317y\210\320\321\311#\203s\322\317\224\317\225b\210\323\310x\210`\"\227\324
\n\"\203Z\211\325\310EB\266\202\"\211\310\210\320\326\311#\205m\327\225b\210\330 \227E\nB\210\210\202\"eb\210\306\316\310\311#\203{
\317y\210`\310\211
\317y\210\320\321\311#\203u
\214\331 \306\316\310\332#\210`}\210\333
!\266\322\317\224\317\225b\210\323\310x\210`\"\227\310\210\334\335\310\311#\203\n
\336\337!\211\262\203\n
\324
\n\"\203\n
\324
\n\"A@\232\203
\211\203\377\211@A@\340\232\203\370\211@@\232\203\370\341
@\"\211A\262
\202\335\210\202\n
\211\340EB\310\210\320\326\310\311#\203
\336\342!\210\310\210\334\343\310\311#\203(
\336\344!\210\345\346\310\311#\203K
\345\347\310\311#\203K
\336\350`\212\351\310w\210`){P\352 \"\210\2020
eb\210\345\353\310\311#\203t
\327\224\354\\b\210\355\310w\210\336\356`\212\351\310w\210`){P\352\357!\"\210\202N
))\266\202z\360 ?\262
\204\210
\211\203*\fr\361\362!q\210p\363 \210
\310\211@\311\211A\311BC\364 \210\365\366!\210+\211D\203\367\370!\210\367@@!\210\367\371!\210@A@\372\373\"\203\333
\367
\327\211\224O!\210\367\374!\266\202\340
\367
!\266\375@8\203\367\376!\210\375@8\372\373\"\203\367
\327\211\224O!\210\367\374!\266\202\367
!\266\377 \210A\211\204\262
\205\367\201E!\201F!\210)\266\202\202D\212\201G\362!\203<\362q\210\201Hp!\210)\201I\201J!+\266\203*\207" [Info-validate-lossages case-fold-search Info-validate-allnodes Info-validate-thisnode default-directory buffer-read-only search-forward "\nTag table:\n(Indirect)\n" nil t error "Don't yet know how to validate indirect info files: \"%s\"" buffer-name (("*")) "\n" 1 re-search-backward "Node:[ 	]*\\([^,\n	]*\\)[,	\n]" buffer-substring-no-properties " 	" assoc "Duplicate node-name" "prev[ious]*:" 0 Info-following-node-name match-data move set-match-data search-backward "next:" Info-validate-node-name "invalid Next" "should have Previous" delq "invalid Previous" "up:" "invalid Up" re-search-forward "\n* Menu:" "\n\\* " "invalid menu item " "^:" Info-extract-menu-node-name "\\*note\\>[^:	]*:" 5 " \n" "invalid reference " "Bad format cross-reference" Info-validate-tags-table get-buffer-create " *problems in info file*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook princ "In node \"" "\", " string-match "\n" "..." 2 ": " terpri buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output "\nTags table must be recomputed\n" internal-temp-output-buffer-show get-buffer kill-buffer message "File appears valid"] 12 (#$ . 3751) nil])
#@28 

(fn KIND &optional NAME)
(defalias 'Info-validate-node-name #[513 "\211\204 \303\225b\210\304\305w\210g\306U\204 \307`\310\305w\210\311\305x\210`\"\262
\211\203E\211\227\262
\211G\303V\2037\211\303H\306U\204E\312
\"\204E	E\nB\207" [Info-validate-allnodes Info-validate-thisnode Info-validate-lossages 0 " 	" nil 40 buffer-substring-no-properties "^,	\n" " " assoc] 6 (#$ . 6587)])
(defalias 'Info-validate-tags-table #[0 "eb\210\301\302\303\304#\204
\304\207\3052\245\306\224\307\310!\210\306\225S\303\262
\211\203F
b\210\211@@\311\232\204?\301\312@@\313Q\304#\204?\314\305\315\"\210\211A\262
\202
Tb\210\316\317!\203\215\320\321\224\321\225\"\227\262
\322
\"\262
\211\203\202\323\324\224b\210
AA@\325p!Z\262
\306V\203|
\202~
[W\203\207\314\305\326\"\210\321y\210\202J\266\316\327!\203\230\321y\210\316\330!\204\243\314\305\331\"\210\3030?\207" [Info-validate-allnodes search-forward "\nEnd tag table\n" nil t losing 0 search-backward "\nTag table:\n" "*" "Node: " "" throw x looking-at ".*Node: \\(.*\\)\\([0-9]+\\)$" buffer-substring-no-properties 1 assoc 1000 2 read y "\n" "End tag table\n" z] 7])
#@267 Run `Info-validate' on the files remaining on the command line.
Must be used only with -batch, and kills Emacs on completion.
Each file will be processed even if an error occurred previously.
For example, invoke "emacs -batch -f batch-info-validate $info/ ~/*.info"
(defalias 'batch-info-validate #[0 "\204\306\307!\210\310\311\211\312\211\313\311\211-\203Y\314-@!\262\315!\2048\316\317\"\210\320\262-A\211-\202\321!\203K\322!-A\244\211-\202

B\262
-A\211-\204\211\203
\211@\262\211A\262
\311\3231\370.\203s\324p!\210\325!\210\326p!\210\327\311!\210\330 \210\311/db\210\331\332\311\310#\203\230\316\333\"\210\202\251d\334W\203\246\316\335\"\210\202\251\336 \210)\316\337\"\210\340\341!\203\271\324\341!\210\342 \210\340\341!\203\341\316\343!\210\316\344\"\210r\341q\210\345\346ed\"!\210)\316\343!\210\320\262\310\262
\347 \205\362\211?\205\362\316\350\"\210\351 0\266\202Y\316\352\353!\"\266\202Y\354!\266\203-\207" [noninteractive kept-new-versions kept-old-versions find-file-run-dired auto-save-default version-control error "batch-info-validate may only be used -batch" t nil 259259 0 expand-file-name file-exists-p message ">> %s does not exist!" 1 file-directory-p directory-files (error) kill-buffer find-file buffer-disable-undo set-buffer-modified-p fundamental-mode search-backward "\n\f\nTag table:\n" "%s already tagified" 30000 "%s too small to bother tagifying" Info-tagify "Checking validity of info file %s..." get-buffer " *problems in info file*" Info-validate "----------------------------------------------------------------------" ">> PROBLEMS IN INFO FILE %s" princ buffer-substring-no-properties buffer-modified-p "Saving modified %s" save-buffer ">> Error: %s" prin1-to-string kill-emacs command-line-args-left buffer-file-name case-fold-search] 10 (#$ . 7733)])
(provide 'informat)