| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/info-xref.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:23 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/info-xref.el
;;; in Emacs version 24.3.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)
#@101 Return non-nil if FILENAME is an Emacs lock file.
A lock file is ".#foo.txt" etc per `lock-buffer'.
(defalias 'info-xref-lock-file-p #[(filename) "\301\302\"\207" [filename string-match "\\(\\`\\|\\/\\)\\.#"] 3 (#$ . 569)])
#@259 Return t if FILENAME is an info subfile.
If removing the last "-<NUM>" from the filename gives a file
which exists, then consider FILENAME a subfile. This is an
imperfect test, probably ought to open up the purported top file
and see what subfiles it says.
(defalias 'info-xref-subfile-p #[(filename) "\301\302\"\205 \303\304\305\"\304\306\"P!\207" [filename string-match "\\`\\(\\([^-]*-\\)*[^-]*\\)-[0-9]+\\(.*\\)\\'" file-exists-p match-string 1 3] 5 (#$ . 801)])
#@425 Evaluate BODY in a buffer containing the contents of FILENAME.
If FILENAME is already in a buffer then that's used, otherwise a
temporary buffer.
The current implementation uses `insert-file-contents' rather
than `find-file-noselect' so as not to be held up by queries
about local variables or possible weirdness in a major mode.
`lm-with-file' does a similar thing, but it sets
`emacs-lisp-mode' which is not wanted here.
(defalias 'info-xref-with-file '(macro . #[(filename &rest body) "\302\303D\304\305\306 BBD\307BB\310\311\312\313\314D\315BBFE\207" [filename body let* info-xref-with-file--filename info-xref-with-file--body lambda nil ((info-xref-with-file--existing (find-buffer-visiting info-xref-with-file--filename))) if info-xref-with-file--existing (with-current-buffer info-xref-with-file--existing (save-excursion (funcall info-xref-with-file--body))) with-temp-buffer insert-file-contents ((funcall info-xref-with-file--body))] 8 (#$ . 1280)]))
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put info-xref-with-file edebug-form-spec t lisp-indent-function 1] 4)
#@43 Name of the buffer for info-xref results.
(defconst info-xref-output-buffer "*info-xref results*" (#$ . 2377))
#@62 Count of good cross references, during info-xref processing.
(defvar info-xref-good 0 (#$ . 2494))
#@61 Count of bad cross references, during info-xref processing.
(defvar info-xref-bad 0 (#$ . 2599))
#@69 Count of unavailable cross references, during info-xref processing.
(defvar info-xref-unavail 0 (#$ . 2702))
#@106 A heading string, during info-xref processing.
This is shown if there's an error, but not if successful.
(defvar info-xref-output-heading "" (#$ . 2818))
#@160 The current buffer's filename, during info-xref processing.
When looking at file contents in a temp buffer there's no
`buffer-file-name', hence this variable.
(defvar info-xref-filename nil (#$ . 2979))
#@280 Info files found or not found, during info-xref processing.
Key is "(foo)" etc and value nil or t according to whether info
manual "(foo)" exists or not. This is used to suppress
duplicate messages about foo not being available. (Duplicates
within one top-level file that is.)
(defvar info-xref-xfile-alist nil (#$ . 3189))
(defvar info-xref-in-progress nil)
#@288 Run BODY with an info-xref output buffer.
This is meant to nest, so you can wrap it around a set of
different info-xref checks and have them write to the one output
buffer created by the outermost `info-xref-with-output', with an
overall good/bad count summary inserted at the very end.
(defalias 'info-xref-with-output '(macro . #[(&rest body) "\301\302\303\304BB\305BBB\207" [body save-excursion (unless info-xref-in-progress (display-buffer (get-buffer-create info-xref-output-buffer)) (set-buffer info-xref-output-buffer) (setq buffer-read-only nil) (fundamental-mode) (erase-buffer) (insert ";; info-xref output -*- mode: compilation -*-\n\n") (compilation-mode) (setq info-xref-good 0 info-xref-bad 0 info-xref-unavail 0 info-xref-xfile-alist nil)) let ((info-xref-in-progress t) (info-xref-output-heading "")) ((unless info-xref-in-progress (info-xref-output "done, %d good, %d bad, %d unavailable" info-xref-good info-xref-bad info-xref-unavail)))] 5 (#$ . 3557)]))
(put 'info-xref-with-output 'edebug-form-spec t)
#@71 Emit a `format'-ed message FMT+ARGS to the `info-xref-output-buffer'.
(defalias 'info-xref-output #[(fmt &rest args) "rq\210\212db\210\305\n\306\307 \f#\310\261\210*\311\312\313!)\207" [info-xref-output-buffer inhibit-read-only info-xref-output-heading fmt args t apply format "\n" "" sit-for 0] 5 (#$ . 4587)])
(put 'info-xref-output 'byte-compile-format-like t)
#@168 Emit a `format'-ed error FMT+ARGS to the `info-xref-output-buffer'.
The error is attributed to `info-xref-filename' and the current
buffer's line and column of point.
(defalias 'info-xref-output-error #[(fmt &rest args) "\303\304\305P \306e\307 \"TiT\n&\207" [fmt info-xref-filename args apply info-xref-output "%s:%s:%s: " count-lines line-beginning-position] 7 (#$ . 4962)])
(put 'info-xref-output-error 'byte-compile-format-like t)
#@52 Return t if it's possible to go to the given NODE.
(defalias 'info-xref-goto-node-p #[(node) "p\212\302 \303\216\304\305\306\217p\232\204 \307 \210,\207" [oldbuf #1=#:wconfig current-window-configuration ((set-window-configuration #1#)) nil (byte-code "\301\302\303!\205\f \303q\210\304\"\210\305\207" [node Info-goto-node get-buffer "*info*" "xref - temporary" t] 4) ((error)) kill-buffer] 3 (#$ . 5405)])
(defalias 'info-xref-check-node #[(node) "\306\307\310\311\211%\312\313\"\204 \314\315\"\207\316\317\"\211\320\230\203& \314\321\"\202f \322 \n\"\204A \323 ! B\nB \204@ \314\324 \"\210)\322 \n\"A\204P \fT\211\202f \323!\203]
T\211\202f T\314\325\")\207" [node file info-xref-xfile-alist found info-xref-unavail info-xref-good replace-regexp-in-string "[ \n][ \n ]*\\| [ \n ]+" " " t string-match "\\`([^)]*)" info-xref-output-error "no `(file)' part at start of node: %s\n" match-string 0 "()" "empty filename part: %s" assoc info-xref-goto-node-p "not available to check: %s\n (this reported once per file)" "no such node: %s" info-xref-bad] 7])
#@1169 Check external references in FILENAME, an info document.
Interactively from an `Info-mode' or `texinfo-mode' buffer the
current info file is the default.
Results are shown in a `compilation-mode' buffer. The format is
a bit rough, but there shouldn't be many problems normally. The
file:line:column: is the info document, but of course normally
any correction should be made in the original .texi file.
Finding the right place in the .texi is a manual process.
When a target info file doesn't exist there's obviously no way to
validate node references within it. A message is given for
missing target files once per source document. It could be
simply that you don't have the target installed, or it could be a
mistake in the reference.
Indirect info files are understood, just pass the top-level
foo.info to `info-xref-check' and it traverses all sub-files.
Compressed info files are accepted too as usual for `Info-mode'.
"makeinfo" checks references internal to an info document, but
not external references, which makes it rather easy for mistakes
to creep in or node name changes to go unnoticed.
`Info-validate' doesn't check external references either.
(defalias 'info-xref-check #[(filename) "\301C!\207" [filename info-xref-check-list] 2 (#$ . 6495) (list (let* ((default-filename (cond ((eq major-mode 'Info-mode) Info-current-file) ((eq major-mode 'texinfo-mode) (save-excursion (goto-char (point-min)) (if (re-search-forward "^@setfilename[ ]+\\([^ \n]+\\)[ ]*" (line-beginning-position 100) t) (expand-file-name (match-string 1))))))) (prompt (if default-filename (format "Info file (%s): " default-filename) "Info file: "))) (read-file-name prompt nil default-filename t)))])
#@527 Check external references in all info documents in the info path.
`Info-directory-list' and `Info-additional-directory-list' are
the info paths. See `info-xref-check' for how each file is
checked.
The search for "all" info files is rather permissive, since
info files don't necessarily have a ".info" extension and in
particular the Emacs manuals normally don't. If you have a
source code directory in `Info-directory-list' then a lot of
extraneous files might be read. This will be time consuming but
should be harmless.
(defalias 'info-xref-check-all #[nil "\300\301 !\207" [info-xref-check-list info-xref-all-info-files] 2 (#$ . 8204) nil])
#@309 Return a list of all available info files.
Only top level files are returned, subfiles are excluded.
Since info files don't have to have a .info suffix, all files in
the relevant directories are considered, which might mean a lot
of extraneous things if for instance a source code directory is
in the path.
(defalias 'info-xref-all-info-files #[nil "\302 \210\303\304\305\306\307 \"\"\"\207" [Info-directory-list Info-additional-directory-list info-initialize apply nconc mapcar #[(dir) "\304\305 \306\307#\304\211\203; @\310\n!\2034 \311\312\n\"\2044 \313\n!\2044 \314\n!\2044 \315\n!\2044 \nB A\211\204 *\237)\207" [result dir name --dolist-tail-- nil directory-files t "\\`[^.]" file-exists-p string-match "\\.te?xi\\'" backup-file-name-p file-directory-p info-xref-subfile-p] 5] append] 7 (#$ . 8859)])
#@63 Check external references in info documents in FILENAME-LIST.
(defalias 'info-xref-check-list #[(filename-list) "\212\204% \306\307 !!\210 q\210\310\311 \210\312 \210\313c\210\314 \210\315\211\315\310'\316\317 ()\310 *\211 +\203\275 +@*\310'\320\321*\" (\320\322*\"\310 , -\323\216-\203_ \324 ,\325\326-\"\210\327\330! .r.q\210\331\216\332*!\210eb\210\333\334\310\316#\203\257 \335*! /\336\337!\203\253 \340\341\342!/\" *\327\330! 0r0q\210\343\216\332*!\210\344 \210,\310y\210\202\201 )\202\262 \344 \210.+A\211+\2045 ,?\205\311 \345\346 \f
$)\207" [info-xref-in-progress info-xref-output-buffer buffer-read-only info-xref-good info-xref-bad info-xref-unavail display-buffer get-buffer-create nil fundamental-mode erase-buffer ";; info-xref output -*- mode: compilation -*-\n\n" compilation-mode 0 t "" format "Info file %s\n" "Looking at %s" ((byte-code "\203 \203 \302\303 \"\210\202 \302\304!\210\304\207" [#1=#:with-temp-message #2=#:current-message message #3="%s" nil] 3)) current-message message #3# generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#4=#:temp-buffer buffer-name kill-buffer] 2)) info-insert-file-contents search-forward " \nIndirect:\n" file-name-directory looking-at "\\(.*\\): [0-9]+\n" expand-file-name match-string 1 ((byte-code "\301!\203\n \302!\210\301\207" [#5=#:temp-buffer buffer-name kill-buffer] 2)) info-xref-check-buffer info-xref-output "done, %d good, %d bad, %d unavailable" info-xref-xfile-alist info-xref-output-heading filename-list info-xref-filename --dolist-tail-- #2# #1# #4# dir #5#] 6 (#$ . 9684)])
#@122 Check external references in the info file in the current buffer.
This should be the raw file contents, not `Info-mode'.
(defalias 'info-xref-check-buffer #[nil "eb\210\300\301\302\303#\205 \212\304\224b\210\305\306\304!!\210)\202 \207" [re-search-forward "\\*[Nn]ote[ \n ]+[^:]*:[ \n ]+\\(\\(([^)]*)\\)[^.,]+\\)[.,]" nil t 1 info-xref-check-node match-string] 4 (#$ . 11300)])
#@320 Check info references in all customize groups and variables.
Info references can be in `custom-manual' or `info-link' entries
of the `custom-links' for a variable.
Any `custom-load' autoloads in variables are loaded in order to
get full link information. This will be a lot of Lisp packages
and can take a long time.
(defalias 'info-xref-check-all-custom #[nil "\212\204% \306\307 !!\210 q\210\310\311 \210\312 \210\313c\210\314 \210\315\211\315\310 \316\317 \320\321!\210\322\323!\210\322\324!\210\325\326!\204? \310\325\327!\204H \310\330\331!\210\320\332!\210\330\333!\210*?\205` \320\334 \f
$)\207" [info-xref-in-progress info-xref-output-buffer buffer-read-only info-xref-good info-xref-bad info-xref-unavail display-buffer get-buffer-create nil fundamental-mode erase-buffer ";; info-xref output -*- mode: compilation -*-\n\n" compilation-mode 0 t "" info-xref-output "Loading custom-load autoloads ..." require cus-start cus-load boundp viper-mode gnus-registry-install mapatoms #[(symbol) "\304N\305\211\2057 \n@\2119\203 \306\307\310\217\210\202/ \311 \"\204/ \311\312 ! \"\204/ \313\314\315\217\210\nA\211\204\n \305*\207" [symbol load --dolist-tail-- load-history custom-loads nil cause (require load) ((error (info-xref-output "Symbol `%s': cannot require '%s: %s" symbol load cause))) assoc locate-library err (load load) ((error (byte-code "\303\304 \305\n!$\207" [symbol load err info-xref-output "Symbol `%s': cannot load \"%s\": %s" error-message-string] 6)))] 4] "\nChecking custom-links references ..." #[(symbol) "\306N\307\211\205Q \n@\211@\310>\203I \211A@)\311=\203& \211AA)\312 \211A@)!\2037 \fT\202I
T\313\314\315\316\" \211A@)$\210\nA\211\204\n \307*\207" [symbol link --dolist-tail-- x info-xref-good info-xref-bad custom-links nil (custom-manual info-link) :tag info-xref-goto-node-p info-xref-output "Symbol `%s' (file %s): cannot goto node: %s" symbol-file defvar] 7] "done, %d good, %d bad, %d unavailable" info-xref-xfile-alist info-xref-output-heading] 6 (#$ . 11687) nil])
#@794 Check docstring info node references in source files.
The given files are searched for docstring hyperlinks like
Info node `(elisp)Documentation Tips'
and those links checked by attempting to visit the target nodes
as per `info-xref-check' does.
Interactively filenames are read as a wildcard pattern like
"foo*.el", with the current file as a default. Usually this
will be lisp sources, but anything with such hyperlinks can be
checked, including the Emacs .c sources (or the etc/DOC file of
all builtins).
Because info node hyperlinks are found by a simple regexp search
in the files, the Lisp code checked doesn't have to be loaded,
and links can be in the file commentary or elsewhere too. Even
.elc files can usually be checked successfully if you don't have
the sources handy.
(defalias 'info-xref-docstrings #[(filename-list) "\306\307!\210\212\204) \310\311 !!\210 q\210\312\313 \210\314 \210\315c\210\316 \210\317\211\317\312\320\321 \312 \211 \203\200 @ \312 \322 \323 !\211 !\203` r!q\210\212 \210*\202v \324\325! \"r\"q\210\326\216\327 !\210 \210++ A\211 \2049 ,?\205\214 \330\331 \f
$)\207" [info-xref-in-progress info-xref-output-buffer buffer-read-only info-xref-good info-xref-bad info-xref-unavail require help-mode display-buffer get-buffer-create nil fundamental-mode erase-buffer ";; info-xref output -*- mode: compilation -*-\n\n" compilation-mode 0 t "" #[nil "eb\210\302\303\304#\205. \305\306!\212\306\224b\210\307\310 \"\204* \307\311 \"\204& \312 P\313 !\210*\202 \207" [help-xref-info-regexp node re-search-forward nil t match-string 2 string-match "%" "\\`(" "(emacs)" info-xref-check-node] 4] find-buffer-visiting generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents info-xref-output "done, %d good, %d bad, %d unavailable" info-xref-xfile-alist info-xref-output-heading filename-list info-xref-filename --dolist-tail-- info-xref-with-file--filename info-xref-with-file--body info-xref-with-file--existing #1#] 6 (#$ . 13741) (let* ((default (and buffer-file-name (file-relative-name buffer-file-name))) (prompt (if default (format "Filename with wildcards (%s): " default) "Filename with wildcards: ")) (pattern (read-file-name prompt nil default)) (filename-list (file-expand-wildcards pattern t)) newlist) (setq filename-list (let ((--dolist-tail-- filename-list) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (or (info-xref-lock-file-p file) (file-directory-p file) (setq newlist (cons file newlist))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq file nil) (nreverse newlist))) (if filename-list nil (error "No files: %S" pattern)) (list filename-list))])
(provide 'info-xref)