HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/informat.elc
;ELC
;;; Compiled
;;; in Emacs version 26.1
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'info)
#@72 Create or update Info file tag table in current buffer or in a region.
(defalias 'Info-tagify #[(&optional input-buffer-name) "edd\306 TU`\307\310\203\307\311\"\202!	\203 \312\301 !\202!\313\".\314\315\n\"\210\316\216~\210eb\210\317\320\321\322#\203C\314\323!\210\202
\321\211\322\324/012\325/\321\322#\203\250\326\327!\330\230\203\227\326\331!\332\230\203k\3221\333\326\334!P\335\224D2B21\322=\203\216\335\224\335\22534\336 \210*\202O\335\224\335\225|\210\202O\337\340\341!P\342\224TD2B2\202Odb\210\343y\210\3215\317\344\321\322#\203\311`6\345\346!\210\347 \210`6|\210)db\210n\204\323\350 \210\351c\2107\352=\203\3438`\321\223\2102\237\2112\203	2@@\353\261\210\3542@A@p\"\210\342c\2102A\2112\204\354\344c\210-)\314\355\n\"-\207" [input-buffer-name buffer-file-name msg opoint nomax omax buffer-size format "Tagifying %s..." "region in %s" file-name-nondirectory "buffer" message "%s" #[nil "b\210	\n\203\304 T\202d^}\207" [opoint omin nomax omax buffer-size] 3] search-forward "\nIndirect:\n" nil t "Cannot tagify split info file.  Run this before splitting." "\\(\\(@anchor\\)\\(-no\\|-yes\\)\\(-refill\\)\\({\\)\\([^}]+\\)\\(}\\)\\|\\(\n\\(\f\\)?\\)\\(\n\\(File:[ 	]*\\([^,\n	]*\\)[,	\n]+[ 	\n]*\\)?Node:[ 	]*\\([^,\n	]*\\)[,	\n]\\)\\)" re-search-forward 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" info-mode 127 princ "%sdone" omin regexp case-fold-search refillp tag-list texinfo-command-end texinfo-command-start buffer-read-only end major-mode Info-tag-table-marker] 10 (#$ . 424) nil])
#@69 The number of characters by which `Info-split' splits an info file.
(custom-declare-variable 'Info-split-threshold 262144 '(#$ . 2152) :type 'integer :version "23.1" :group 'texinfo)
#@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 #[nil "\306 \307\\W\203
\310\311!\210eb\210\312\313!\210\314u\210`\315\316\317\320\321	!%&db\210\322y\210\316'\312\323\316\320#\204<\310\324!\210\325\326!\210\327\330!\203J\310\331!\210\332 \210\317u\210\214e`}\210eb\210`TdW\203\247`\\d^b\210\312\313\316\333#\210&%\\\334\n!\335\336\f\"PD
B\337c\210\340e`\n\335\336\f\"P#\210`S`|\210\314u\210%`&Z\\%&`|\210\fT\202X)
\203\306&b\210
@A@\335\341
@@S\"\337\261\210
A\211\204\254&b\210\342c\210\312\343!\210\344c.\207" [Info-split-threshold buffer-file-name filename case-fold-search subfile-number subfiles 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" chars-deleted start buffer-read-only] 8 (#$ . 2342) nil])
#@110 Check current buffer for validity as an Info file.
Check that every node pointer points to an existing node.
(defalias 'Info-validate #[nil "\212\214~\210eb\210\306\307\310\311#\203\312\313\314p!\"\210eb\210\315\316\311\310\211\306\317\310\311#\203|\320y\210`\320y\210\321
\311#\203x\322\320\224\320\225b\210\323\310x\210`\"\227@\324@\f\"\203^@\325\310EB\202w@\310\210\321\326
\311#\205r\327\225b\210\330 \227
E\fB))\202#eb\210\306\317\310\311#\203\222\320y\210`\310\211AB\320y\210\321
\311#\203\216\214\331 C\306\317\310\332#\210
`}\210\333C!\210)\322\320\224\320\225b\210\323\310x\210`\"\227B\310\210\334\335\310\311#\203#\336\337!\211A\203#\324A\f\"\203#\324A\f\"A@B\232\203\211D\203D@A@\340\232\203
D@@A\232\203
\341D@\"DA\211D\204\362)\202#A\340BEB\310\210\321\326\310\311#\2032\336\342!\210\310\210\334\343\310\311#\203A\336\344!\210\345\346\310\311#\203d\345\347\310\311#\203d\336\350`\212\351\310w\210`){P\352 \"\210\202Ieb\210\345\353\310\311#\203\215\327\224\354\\b\210\355\310w\210\336\356`\212\351\310w\210`){P\352\357!\"\210\202g)+\202\360 ?\204\236	\203OEFr\361\362!q\210p\363 \210FE\310\211GH\311\211I\311JK\364 \210\365\366!\210+\211LM\203;\367\370!\210\367@@!\210\367\371!\210@A@D\372\373D\"\203\374\367D\327\211\224O!\210\367\374!\210\202\367D!\210)\375@8\2031\367\376!\210\375@8D\372\373D\"\203+\367D\327\211\224O!\210\367\374!\210\2020\367D!\210)\377 \210A\211\204\320	\205D\367\201N!\201OL!\210+\202i\212\201P\362!\203a\362q\210\201Qp!\210)\201R\201S!.\207" [Info-validate-lossages tags-losing case-fold-search regexp Info-validate-allnodes beg search-forward "\nTag table:\n(Indirect)\n" nil t error "Don't yet know how to validate indirect info files: \"%s\"" buffer-name (("*")) "Node:[ 	]*\\([^,\n	]*\\)[,	\n]" "\n" 1 re-search-backward 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[ \n]*[^:	]*:" 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 name next Info-validate-thisnode md tem default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output "\nTags table must be recomputed\n" internal-temp-output-buffer-show get-buffer kill-buffer message "File appears valid"] 6 (#$ . 4081) nil])
(defalias 'Info-validate-node-name #[(kind &optional name) "\204\305\225b\210\306\307w\210g\310U\204\311`\312\307w\210\313\307x\210`\"\203C\227\211G\305V\2035\305H\310U\204C\314	\"\204C\nE\fB\207" [name Info-validate-allnodes Info-validate-thisnode kind Info-validate-lossages 0 " 	" nil 40 buffer-substring-no-properties "^,	\n" " " assoc] 5])
(defalias 'Info-validate-tags-table #[nil "eb\210\304\305\306\307#\204
\307\207\3102\243\311\224\312\313!\210\311\225S\306\211\203H	b\210\n@@\314\232\204A\304\315\n@@\316Q\307#\204A\317\310\320\"\210\nA\211\204$	Tb\210\321\322!\203\214\323\324\224\324\225\"\227\325\n\"\211\203\201\326\327\224b\210\nAA@\330p!Z\211\311V\203{\n\202}\n[W\203\206\317\310\331\"\210\324y\210\202L+\321\332!\203\226\324y\210\321\333!\204\241\317\310\334\"\210\3060?\207" [end start tem 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] 5])
#@268 Runs `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 #[nil "\204\306\307!\210\310\311\211\312\211\313\311\211-./\203e\314/@!.\315.!\204@\316\317.\"\210\320/A\211/\202\321.!\203U\322.!/A\244\211/\202.-B-/A\211/\204 -\203%-@.-A-\3110\32311\203\204\324p!\210\325.!\210\326p!\210\327\311!\210\330 \210\3112db\210\331\332\311\310#\203\253\316\333.\"\210\202\275d\334W\203\272\316\335.\"\210\202\275\336 \210)\3373\316\340.\"\210\3413!\203\323\3243!\210\342 \210\3413!\203\376\316\343!\210\316\344.\"\210r3q\210\345\346ed\"!\210)\316\343!\210\320\3100)\347 \2050?\205\316\350.\"\210\351 0\202 4\316\352\3534!\")\210)\202e\354!.\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 " *problems in info file*" "Checking validity of info file %s..." get-buffer 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 files file command-line-args-left lose buffer-file-name case-fold-search loss-name err] 6 (#$ . 8065)])
(provide 'informat)