| 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-look.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-look.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303\304\305\306\307\306\310&\207" [require info custom-declare-group info-lookup nil "Major mode sensitive help agent." :group help languages] 8)
#@174 Symbol of the current buffer's help mode.
Help is provided according to the buffer's major mode if value is nil.
Automatically becomes buffer local when set in any fashion.
(defvar info-lookup-mode nil (#$ . 730))
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\210\302\314\304\305\315DD\316\310\311\312\317&\207" [make-variable-buffer-local info-lookup-mode custom-declare-variable info-lookup-other-window-flag funcall function #[0 "\300\207" [t] 1 "\n\n(fn)"] "Non-nil means pop up the Info buffer in another window." :group info-lookup :type boolean info-lookup-highlight-face #[0 "\300\207" [match] 1 "\n\n(fn)"] "Face for highlighting looked up help items.\nSetting this variable to nil disables highlighting." face] 8)
#@39 Overlay object used for highlighting.
(defvar info-lookup-highlight-overlay nil (#$ . 1485))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable info-lookup-file-name-alist funcall function #[0 "\300\207" [(("\\`ac\\(local\\|site\\|include\\)\\.m4\\'" . autoconf-mode))] 1 "\n\n(fn)"] "Alist of file names handled specially.\nList elements are cons cells of the form\n\n (REGEXP . MODE)\n\nIf a file name matches REGEXP, then use help mode MODE instead of the\nbuffer's major mode." :group info-lookup :type (repeat (cons (string :tag "Regexp") (symbol :tag "Mode")))] 8)
#@34 History of previous input lines.
(defvar info-lookup-history nil (#$ . 2101))
#@1500 Alist of known help topics.
Cons cells are of the form
(HELP-TOPIC . HELP-DATA)
HELP-TOPIC is the symbol of a help topic.
HELP-DATA is a HELP-TOPIC's public data set.
Value is an alist with elements of the form
(HELP-MODE REGEXP IGNORE-CASE DOC-SPEC PARSE-RULE OTHER-MODES)
HELP-MODE is a mode's symbol.
REGEXP is a regular expression matching those help items whose
documentation can be looked up via DOC-SPEC.
IGNORE-CASE is non-nil if help items are case insensitive.
DOC-SPEC is a list of documentation specifications of the form
(INFO-NODE TRANS-FUNC PREFIX SUFFIX)
INFO-NODE is the name (including file name part) of an Info index.
TRANS-FUNC is a function translating index entries into help items;
nil means add only those index entries matching REGEXP, a string
means prepend string to the first word of all index entries.
PREFIX and SUFFIX are parts of a regular expression. If one of
them is non-nil then search the help item's Info node for the
first occurrence of the regular expression `PREFIX ITEM SUFFIX'.
ITEM will be highlighted with `info-lookup-highlight-face' if this
variable is not nil.
PARSE-RULE is either the symbol name of a function or a regular
expression for guessing the default help item at point. Fuzzy
regular expressions like "[_a-zA-Z0-9]+" do a better job if
there are no clear delimiters; do not try to write too complex
expressions. PARSE-RULE defaults to REGEXP.
OTHER-MODES is a list of cross references to other help modes.
(defvar info-lookup-alist nil (#$ . 2187))
(defalias 'info-lookup->topic-value #[257 "\301\"A\207" [info-lookup-alist assoc] 4 "\n\n(fn TOPIC)"])
(put 'info-lookup->topic-value 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'info-lookup->mode-value #[514 "\301\301\"A\262\"\207" [info-lookup-alist assoc] 8 "\n\n(fn TOPIC MODE)"])
(put 'info-lookup->mode-value 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'info-lookup->regexp #[514 "\301\301\"A\262\"\266\202A@\207" [info-lookup-alist assoc] 10 "\n\n(fn TOPIC MODE)"])
(put 'info-lookup->regexp 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'info-lookup->ignore-case #[514 "\301\302\302\"A\262\"\266\2028\207" [info-lookup-alist 2 assoc] 11 "\n\n(fn TOPIC MODE)"])
(put 'info-lookup->ignore-case 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'info-lookup->doc-spec #[514 "\301\302\302\"A\262\"\266\2028\207" [info-lookup-alist 3 assoc] 11 "\n\n(fn TOPIC MODE)"])
(put 'info-lookup->doc-spec 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'info-lookup->parse-rule #[514 "\301\302\302\"A\262\"\266\2028\207" [info-lookup-alist 4 assoc] 11 "\n\n(fn TOPIC MODE)"])
(put 'info-lookup->parse-rule 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'info-lookup->other-modes #[514 "\301\302\302\"A\262\"\266\2028\207" [info-lookup-alist 5 assoc] 11 "\n\n(fn TOPIC MODE)"])
(put 'info-lookup->other-modes 'byte-optimizer 'byte-compile-inline-expand)
#@489 Add or update a help specification.
Function arguments are specified as keyword/argument pairs:
(KEYWORD . ARGUMENT)
KEYWORD is either `:topic', `:mode', `:regexp', `:ignore-case',
`:doc-spec', `:parse-rule', or `:other-modes'.
ARGUMENT has a value as explained in the documentation of the
variable `info-lookup-alist'.
If no topic or mode option has been specified, then the help topic defaults
to `symbol', and the help mode defaults to the current major mode.
(fn &rest ARG)
(defalias 'info-lookup-add-help #[128 "\300\301\302#\207" [apply info-lookup-add-help* nil] 5 (#$ . 5176)])
#@141 Add a help specification if none is defined.
See the documentation of the function `info-lookup-add-help'
for more details.
(fn &rest ARG)
(defalias 'info-lookup-maybe-add-help #[128 "\300\301\302#\207" [apply info-lookup-add-help* t] 5 (#$ . 5780)])
(defalias 'info-lookup-add-help* #[385 "\302\211\211\211\211\211\211\211\211\303\262 \262\304\262 \203\234 @\2629\204' \305\306 \"\210 A\262\n \2046 \305\307\"\210 @\262 A\262\n\310=\203L \211\262 \202 \311=\203X \211\262\202 \312=\203d \211\262\202 \313=\203p \211\262\202 \314=\203| \211\262\202 \315=\203\210 \211\262\202 \316=\203\224 \211\262\202 \305\317\"\210\202 \n\203\265 \320\320 \"A\262\"\266\202\204\356 \257\320\n \"\206\322 \302B B\211@\320\n\"\211\204\350 BAB\241\210\202\354 \211\241\210\266\302\207" [major-mode info-lookup-alist nil symbol "\\w+" error "Junk in argument list \"%S\"" "Keyword \"%S\" is missing an argument" :topic :mode :regexp :ignore-case :doc-spec :parse-rule :other-modes "Unknown keyword \"%S\"" assoc] 19 "\n\n(fn MAYBE &rest ARG)"])
#@485 Cache storing data maintained automatically by the program.
Value is an alist with cons cell of the form
(HELP-TOPIC . ((HELP-MODE INITIALIZED COMPLETIONS REFER-MODES) ...))
HELP-TOPIC is the symbol of a help topic.
HELP-MODE is a mode's symbol.
INITIALIZED is nil if HELP-MODE is uninitialized, t if
HELP-MODE is initialized, and `0' means HELP-MODE is
initialized but void.
COMPLETIONS is an alist of documented help items.
REFER-MODES is a list of other help modes to use.
(defvar info-lookup-cache nil (#$ . 6886))
(defalias 'info-lookup->cache #[257 "\301\"\206 \211\302BB\211@\207" [info-lookup-cache assoc nil] 4 "\n\n(fn TOPIC)"])
(put 'info-lookup->cache 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'info-lookup->topic-cache #[257 "\211\301\"\206 \211\302BB\211@\262A\207" [info-lookup-cache assoc nil] 5 "\n\n(fn TOPIC)"])
(defalias 'info-lookup->mode-cache #[514 "\300\301!\"\207" [assoc info-lookup->topic-cache] 6 "\n\n(fn TOPIC MODE)"])
(defalias 'info-lookup->initialized #[514 "\300\"A@\207" [info-lookup->mode-cache] 5 "\n\n(fn TOPIC MODE)"])
(defalias 'info-lookup->completions #[514 "\300\"\204\f \301\"\210\302\303\"8\207" [info-lookup->initialized info-lookup-setup-mode 2 info-lookup->mode-cache] 6 "\n\n(fn TOPIC MODE)"])
(defalias 'info-lookup->refer-modes #[514 "\300\"\204\f \301\"\210\302\303\"8\207" [info-lookup->initialized info-lookup-setup-mode 3 info-lookup->mode-cache] 6 "\n\n(fn TOPIC MODE)"])
(defalias 'info-lookup->all-modes #[514 "\211\300\"B\207" [info-lookup->refer-modes] 6 "\n\n(fn TOPIC MODE)"])
(defalias 'info-lookup-quick-all-modes #[514 "\211\301\302\302\"A\262\"\266\2028\266\202B\207" [info-lookup-alist 5 assoc] 14 "\n\n(fn TOPIC MODE)"])
#@193 Throw away all cached data.
This command is useful if the user wants to start at the beginning without
quitting Emacs, for example, after some Info documents were updated on the
system.
(fn)
(defalias 'info-lookup-reset #[0 "\301\211\207" [info-lookup-cache nil] 2 (#$ . 8641) nil])
#@388 Display the definition of SYMBOL, as found in the relevant manual.
When this command is called interactively, it reads SYMBOL from the
minibuffer. In the minibuffer, use M-n to yank the default argument
value into the minibuffer so you can edit it. The default symbol is the
one found at point.
With prefix arg a query for the symbol help mode is offered.
(fn SYMBOL &optional MODE)
(defalias 'info-lookup-symbol #[513 "\300\301#\207" [info-lookup symbol] 6 (#$ . 8933) (byte-code "\301\302\"\207" [current-prefix-arg info-lookup-interactive-arguments symbol] 3)])
#@348 Display the documentation of a file.
When this command is called interactively, it reads FILE from the minibuffer.
In the minibuffer, use M-n to yank the default file name
into the minibuffer so you can edit it.
The default file name is the one found at point.
With prefix arg a query for the file help mode is offered.
(fn FILE &optional MODE)
(defalias 'info-lookup-file #[513 "\300\301#\207" [info-lookup file] 6 (#$ . 9512) (byte-code "\301\302\"\207" [current-prefix-arg info-lookup-interactive-arguments file] 3)])
#@162 Read and return argument value (and help mode) for help topic TOPIC.
If optional argument QUERY is non-nil, query for the help mode.
(fn TOPIC &optional QUERY)
(defalias 'info-lookup-interactive-arguments #[513 "\211\203\n \304!\202$ \305 \306\306\"A\262\"\266\202\203! \202$ \304!\307\"\310\"\311\306\306\"A\262\"\266\2028\266\202\312\313\203R \314\315#\202W \314\316\"\317\211\211\320&\211\321\232\203j \202k \211*D\207" [info-lookup-alist info-lookup-mode completion-ignore-case enable-recursive-minibuffers info-lookup-change-mode info-lookup-select-mode assoc info-lookup->completions info-lookup-guess-default 2 t completing-read format "Describe %s (default %s): " "Describe %s: " nil info-lookup-history ""] 16 (#$ . 10045)])
(defalias 'info-lookup-select-mode #[0 "\2042 \304 \2032 \305\304 ! \2040 \211\2030 \306\211@@)\"\203) \211\211@A)\211A\262\202 \266\2069 \211\207" [info-lookup-mode info-lookup-file-name-alist x major-mode buffer-file-name file-name-nondirectory string-match] 6 "\n\n(fn)"])
(defalias 'info-lookup-change-mode #[257 "\302\303\304\"A\262\"\305\306\307\"\310\311\310\312&\304\"A\211\262\204' \313\314\"\210\304\304\"A\262\"\266\202\204? \313\315#\210\211\211\207" [info-lookup-alist info-lookup-mode mapcar #[257 "\300@!@B\207" [symbol-name] 3 "\n\n(fn ARG)"] assoc completing-read format "Use %s help mode: " nil t info-lookup-history error "No %s help available" "No %s help available for `%s'"] 11 "\n\n(fn TOPIC)"])
#@65 Display the documentation of a help item.
(fn TOPIC ITEM MODE)
(defalias 'info-lookup #[771 "\211\204 \306 \262\307\307\"A\262\"\266\202\204 \310\311#\210\312\"\313\307\307\"A\262\"\266\2028\266\202\307\203C \227\202D \"\206\\ \314\315#\206\\ \310\316\206[ \317#\320\"C\321 \322\323!\205u r\323q\210 \n`E )B\324C\324\211C\324C\324C\324C\f\325=\204\333
\204\220 \326 \210\202\333 \327 \330\331\332\333\334\335!\336\"\313\337%DC\216\326 \210)\210\340\323\315\"\211\205\263 \341!\211\203\325 \211\342 =\204\325 \343 \203\325 \211\344 >\203\325 \345!\210\346!\210\202\331 \347\323!\210\266@\204~@\203~ @@\350\307\307\"A\262\"\266\2028\266\202\262@\204t\203t@@\240\210\313@8\240\210\350@8\240\210\351\330\331\332\352\334\335\n\"\353\"\313\337%D\310\330\331\354\355\334\335\f!\356\"\357\360%\351EDC\217\203m\361\330\331\332\362\334\335
&\363\"\364\337%D\310\330\365\361EDC\217\210A\262\202\211@A\240\210\202\333 \n\204\223
\n@\230\204\223\366\367 @\"\210@\203\233\211@\204\244\310\370!\210
\205\261@\205\261\345!\207" [info-lookup-alist Info-current-file Info-current-node Info-history major-mode info-lookup-other-window-flag info-lookup-select-mode assoc error "No %s help available for `%s'" info-lookup->completions 2 assoc-string t "Not documented as a %s: %s" "" info-lookup->all-modes selected-window get-buffer "*info*" nil Info-mode info current-window-configuration funcall make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] "\n\n(fn)" get-buffer-window window-frame selected-frame display-multi-frame-p frames-on-display-list select-window raise-frame switch-to-buffer-other-window 3 #1=#:err "\304\211\305\300@!\210\301\306\240*\207" [Info-history-list Info-fontify-maximum-menu-size nil Info-goto-node t] 257 "\301\302\300@\"\210\303\304!\210\305\207" [message "Cannot access Info node %s" sit-for 1 nil] 4 "\n\n(fn IGNORED)" #2=#:err "\306 \307\310\311\301A\206
\301@!\312Q!\210)\313 \210\303\314\240\210\304@\204$ \305@\205\220 \300\302@@\315\316\316\"A\262\"\266\2028\266\202\306 eb\210\307\304@\311\301@!\305@Q!\210\317\224b\210\320 \205\217 \205\217 \307\311\301@!!\205\217 \317\224\317\225\321!\203| \322p$\202\203 \323\"\211\266\202\205\217 \324\325#*\207" [nil re-search-forward "^\\* " regexp-quote ":" Info-follow-nearest-node t 2 assoc 0 display-color-p overlayp move-overlay make-overlay overlay-put face case-fold-search info-lookup-alist buffer-read-only info-lookup-highlight-face info-lookup-highlight-overlay] 11 #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] message "Found in different case: %s" "Info documentation for lookup was not found"] 28 (#$ . 11577)])
#@58 Initialize the internal data structure.
(fn TOPIC MODE)
(defalias 'info-lookup-setup-mode #[514 "\303\"\206\341 \304\305\211\211\211\211\306\306 \"A\262\"\266\202\204- \307\310#\210\202\246 \311\306\306 \"A\262\"\266\2028\266\202\211\203n \211@\303 \"\204X \312 \"\210\303 \"\313=\203g \211B\262A\266\202\202D \210\211\237\262\314\315\316\304\317\320\321
\"\322\"\323\324%D\325\315\326\314EDC\217\327\330\331\316\332\333\320\321!\334\"\335\336%\"\"\244\262\313\262\337\"\262E\262\204\331 \306\n\"\206\311 \211\305B\nB\211@\262B\340 !B\241\210\202\335 \241\210)\266\205\207" [Info-history-list info-lookup-alist info-lookup-cache info-lookup->initialized 0 nil assoc message "No %s help available for `%s'" 5 info-lookup-setup-mode t #1=#:err funcall make-byte-code "\302\300\301\"\207" vconcat vector [info-lookup-make-completions] 3 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] apply append mapcar 257 "\301\300\"\207" [info-lookup->completions] 4 "\n\n(fn ARG)" info-lookup->mode-cache info-lookup->topic-cache] 18 (#$ . 14335)])
#@64 Create a unique alist from all index entries.
(fn TOPIC MODE)
(defalias 'info-lookup-make-completions #[514 "\303\304\304\"A\262\"\266\2028\266\202\305\304\304\"A\262\"\266\202A@\266\202\306Q\307\211\211C\307C\307C\307C\307C\307C\307C\310\311!\307\262 \307\262\nr\211q\210\312 \210) \203
\f@@\240\210\f@A@\307=\203} \313\314\315\316\317!\320\"\321\322%\202\243 \f@A@;\203\236
@A@\240\210\313\314\323\316\317 !\324\"\325\322%\202\243 \f@A@\240\210r\211q\210\326\327 @\"\210\330\331\313\332\333\316\317 \"\334\"\335\336%D\337\331\313\314\340\316\317!\341\"\321\342%\330EDC\217\203\375 \343\331\313\332\344\316\317&\345\"\346\336%D\337\331\347\343EDC\217\210)\326\350 @\"\210 A\262\f\202T @\204\337\351!\210@*\207" [info-lookup-alist Info-fontify-maximum-menu-size Info-history-list 3 assoc "^\\(" "\\)\\([ ].*\\)?$" nil get-buffer-create " temp-info-look" Info-mode make-byte-code 257 "\301\300\"\205 \302\303\"\207" vconcat vector [string-match match-string 1] 4 "\n\n(fn ARG)" "\301\302\"\205 \300@\303\304\"P\207" [string-match "^\\([^: \n]+\\)" match-string 1] 5 message "Processing Info node `%s'..." #1=#:err funcall 0 "\302\300@!\210\301\303\240\207" [Info-goto-node t] 2 "\n\n(fn)" error "\301\302\300@\"\210\303\304!\210\305\207" [message "Cannot access Info node `%s'" sit-for 1 nil] "\n\n(fn IGNORED)" #2=#:err "eb\210\306\307\310\311#\205o \312\313\310\311#\205o \303\314\315!\240\210\304\302@\303@!\240\210\304@\203 \303@\316\230\204 \300\301\317\320\320\"A\262\"\266\2028\266\202\203L \304\211@\227\240\210\303@\304@\230\203X \303\310\240\210\320\304@\305@\"\204 \305\304@\303@B\305@B\240\210\202 \207" [search-forward "\n* Menu:" nil t re-search-forward "\n\\* \\(.*\\): " match-string 1 "Menu" 2 assoc info-lookup-alist] 11 #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] "Processing Info node `%s'...done" "Info documentation for lookup was not found"] 27 (#$ . 15457)])
#@207 Return a guess for a symbol to look up, based on text around point.
Try all related modes applicable to TOPIC and MODE.
Return nil if there is nothing appropriate in the buffer near point.
(fn TOPIC MODE)
(defalias 'info-lookup-guess-default #[514 "\300\"\301\211\204 \203 \302@\"\262A\262\202 \211\2039 \303\304\305#\2038 \303\224T\262\306\307\310\211$\262\202 \210\207" [info-lookup->all-modes nil info-lookup-guess-default* 0 string-match "[ \n]+" replace-match " " t] 10 (#$ . 17433)])
(defalias 'info-lookup-guess-default* #[514 "\302\303\303\"A\262\"\266\2028\266\202\304\303\303\"A\262\"\266\2028\266\202\206B \303\303\"A\262\"\266\202A@\266\202`\305\211\211\211\305\262\2129\203Z \262\202\306 :\203j @\262A\262\202p \262\306\262\307 \310\311\306\312\313\314!\315\"\316\317%DC\216\320\321!)\262\203\220 \322\305x\210`\262\323\305\324#\203\260 \320!\203\260 \306\225Y\203\260 \325!\262\202\223 \211\204\306 b\210\322\305w\210\320!\203\306 \325!\262*\207" [info-lookup-alist case-fold-search 2 assoc 4 nil 0 match-data funcall make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" looking-at "[ \n]" " \n" re-search-backward t match-string] 17 "\n\n(fn TOPIC MODE)"])
#@34 Get the C symbol at point.
(fn)
(defalias 'info-lookup-guess-c-symbol #[0 "\300\301\302D\303\301\304\300EDC\217\207" [#1=#:err funcall #[0 "\300\301!\210`\302\211\303\302x\304W\205\" \305\302x\304W\205\" \306\307!\205\" \310\311!\312P\262b\210\306\313!\2032 \310\304!\262\204X \211\314\230\204H \211\315\230\204H \211\316\230\203X \306\317!\203X \211\312P\262\310\311!\262\204` \211\205c P\207" [skip-syntax-backward "w_" nil " \n" 0 "_a-zA-Z0-9" looking-at "\\(struct\\|union\\|enum\\)\\s " match-string 1 " " "[_a-zA-Z][_a-zA-Z0-9]*" "struct" "union" "enum" "[a-z]+\\s +\\([_a-zA-Z][_a-zA-Z0-9]*\\)"] 5 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 6 (#$ . 18726)])
#@46 Get symbol at point in custom buffers.
(fn)
(defalias 'info-lookup-guess-custom-symbol #[0 "\300\301\302D\303\301\304\300EDC\217\207" [#1=#:err funcall #[0 "\212\301\302\303\304\211\304\262\305`\306\"\307>\203? \310`\306\304\311 $\211\262\203? \312`\306\304\313 $\211\262\203? \211V\203? \314\315\316\317\"#\202\265 \320\321\322Q!\203h \212\304x\210`\211\262)\203h \304w\203h `\211\262\203h \211V\204\261 \320\323!\203\221 \324\321\322Q!\203\221 `\211\262\203\221 \304x\203\221 `\211\262\203\221 \211V\204\261 \304w\205\265 `\211\262\205\265 \304w\205\265 `\211\262\205\265 \211V\205\265 \317\")\266\205)\207" [case-fold-search t "][()`',:.\" \n" "^][()`',:.\" \n" nil get-char-property face (custom-variable-tag custom-variable-tag-face) previous-single-char-property-change line-beginning-position next-single-char-property-change line-end-position subst-char-in-string 32 45 buffer-substring-no-properties looking-at "[" "]" "[ \n]" looking-back] 11 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"]] 6 (#$ . 19429)])
#@68 Perform completion on symbol preceding point.
(fn &optional MODE)
(defalias 'info-complete-symbol #[256 "\302\303\206 \303\304 \305\305\"A\262\"\266\202\203 \202 \306\303!\"\207" [info-lookup-alist info-lookup-mode info-complete symbol info-lookup-select-mode assoc info-lookup-change-mode] 11 (#$ . 20499) nil])
#@66 Perform completion on file preceding point.
(fn &optional MODE)
(defalias 'info-complete-file #[256 "\302\303\206 \303\304 \305\305\"A\262\"\266\202\203 \202 \306\303!\"\207" [info-lookup-alist info-lookup-mode info-complete file info-lookup-select-mode assoc info-lookup-change-mode] 11 (#$ . 20829) nil])
#@47 Try to complete a help item.
(fn TOPIC MODE)
(defalias 'info-lookup-completions-at-point #[514 "\211\204 \301 \262\302\302\"A\262\"\266\202\205\223 \303\"`\304\211\204< \203< @\262A\262\305\"\262b\210\202 \211\205\221 \306\"C\211@\205\217 \307\302\302\"A\262\"\266\2028\266\202\203r \211\310\311\312\313\314!\315\"\316\317%\240\210\212\304\210\320\304\321#\203\204 `W\204v \322\224\322\225@\323\324\257)\262\266\203\207" [info-lookup-alist info-lookup-select-mode assoc info-lookup-quick-all-modes nil info-lookup-guess-default* info-lookup->completions 2 make-byte-code 771 "\302\303\300@$)\207" vconcat vector [completion-ignore-case t complete-with-action] 8 "\n\n(fn STRING PRED ACTION)" search-backward t 0 :exclusive no] 17 (#$ . 21153)])
#@47 Try to complete a help item.
(fn TOPIC MODE)
(defalias 'info-complete #[514 "\300 \210\301\"\211\204 \302\303#\202 \304@A@\3058#\207" [barf-if-buffer-read-only info-lookup-completions-at-point error "No %s completion available for `%s' at point" completion-in-region 2] 8 (#$ . 21949)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312&\n\210\300\301\302\303\313\305\314\307\315&\210\300\301\316\305\317\307\320\311\321\322\323&\n\210\300\301\324\305\325\307\326\311\327&\210\300\303\304\301\330\305\331\311\332\307\333\322\334&\f\210\300\301\335\305\336\307\337&\210\300\301\340\305\341\307\342\311\343&\210\300\301\344\305\345\307\346\311\347\322\350&\n\210\300\301\351\305\352\307\353&\210\300\301\354\305\355\307\356\311\357&\210\300\301\360\305\355\322\361&\210\300\301\362\305\363\307\364&\210\300\301\365\305\366\307\367&\210\300\301\370\305\366\322\371&\210\300\301\372\305\366\311\347\322\373&\210\300\301\374\305\375\311\347\322\376&\210\300\301\377\305\375\201@ \201A \307\201B &\210\300\301\201C \305\201D \307\201E &\210\300\301\201F \201@ \201A \305\201G \307\201H &\210\300\301\201I \305\201G \322\201J &\210\300\301\201K \303\304\305\201L \307\201M &\210\300\301\201N \305\201O \307\201P &\210\300\301\201Q \201@ \201A \305\201R \311\201S \322\201T &\n\210\300\301\201U \305\201R \322\201V &\210\201W \201X !\207" [info-lookup-maybe-add-help :mode c-mode :topic symbol :regexp "\\(struct \\|union \\|enum \\)?[_a-zA-Z][_a-zA-Z0-9]*" :doc-spec (("(libc)Function Index" nil "^[ ]+-+ \\(Function\\|Macro\\): .*\\<" "\\>") ("(libc)Variable Index" nil "^\\([ ]+-+ \\(Variable\\|Macro\\): .*\\<\\|`\\)" "\\( \\|'?$\\)") ("(libc)Type Index" nil "^[ ]+-+ Data Type: \\<" "\\>") ("(termcap)Var Index" nil "^[ ]*`" "'")) :parse-rule info-lookup-guess-c-symbol file "[_a-zA-Z0-9./+-]+" (("(libc)File Index")) bison-mode "[:;|]\\|%\\([%{}]\\|[_a-z]+\\)\\|YY[_A-Z]+\\|yy[_a-z]+" (("(bison)Index" nil "`" "'")) "[:;|]\\|%\\([%{}]\\|[_a-zA-Z][_a-zA-Z0-9]*\\)" :other-modes (c-mode) makefile-mode "\\$[^({]\\|\\.[_A-Z]*\\|[_a-zA-Z][_a-zA-Z0-9-]*" (("(make)Name Index" nil "^[ ]*`" "'")) "\\$[^({]\\|\\.[_A-Z]*\\|[_a-zA-Z0-9-]+" makefile-automake-mode "\\$[^({]\\|\\.[_A-Z]*\\|[_a-zA-Z][_a-zA-Z0-9-]*\\|##\\|\\+=" "\\$[^({]\\|\\.[_A-Z]*\\|[_a-zA-Z0-9-]+\\|##\\|\\+=" (("(automake)Variable Index" nil "^[ ]*`" "'") ("(automake)Macro and Variable Index" nil "^[ ]*`" "'") ("(automake)General Index" nil "`" "'") ("(automake)Index" nil "`" "'")) (makefile-mode) texinfo-mode "@\\([a-zA-Z]+\\|[^a-zA-Z]\\)" (("(texinfo)Command and Variable Index" (lambda (item) (if (string-match "^\\([a-zA-Z]+\\|[^a-zA-Z]\\)\\( .*\\)?$" item) (concat "@" (match-string 1 item)))) "`" "[' ]")) m4-mode "[_a-zA-Z][_a-zA-Z0-9]*" (("(m4)Macro index")) "[_a-zA-Z0-9]+" autoconf-mode "A[CM]_[_A-Z0-9]+" (("(autoconf)Autoconf Macro Index" (lambda (item) (if (string-match "^A._" item) item (concat "AC_" item))) "^[ ]+-+ \\(Macro\\|Variable\\): .*\\<" "\\>") ("(autoconf)M4 Macro Index" (lambda (item) (let ((case-fold-search nil)) (cond ((or (string-equal item "dnl") (string-match "^m4_" item) (string-match "^AS_" item)) item) ((string-match "^[A-Z0-9_]+$" item) (concat "AS_" item)) (t (concat "m4_" item))))) "^[ ]+-+ Macro: .*\\<" "\\>") ("(autoconf)Autotest Macro Index" "AT_" "^[ ]+-+ Macro: .*\\<" "\\>") ("(autoconf)Macro Index" "AC_" "^[ ]+-+ \\(Macro\\|Variable\\): .*\\<" "\\>") ("(automake)Macro and Variable Index" nil "^[ ]*`" "'")) ignore (m4-mode) awk-mode "[_a-zA-Z]+" (("(gawk)Index" (lambda (item) (let ((case-fold-search nil)) (cond ((string-match "^\\([A-Z]+\\) special pattern\\b" item) (match-string 1 item)) ((string-match "^\\([a-z]+\\) statement\\b" item) (if (not (string-equal (match-string 1 item) "control")) (match-string 1 item))) ((string-match "^[A-Z]+$" item) item) ((string-match "^[a-z]+$" item) item)))) "`" "\\([ ]*([^)]*)\\)?'")) perl-mode "[$@%][^a-zA-Z]\\|\\$\\^[A-Z]\\|[$@%]?[a-zA-Z][_a-zA-Z0-9]*" (("(perl5)Function Index" (lambda (item) (if (string-match "^\\([a-zA-Z0-9]+\\)" item) (match-string 1 item))) "^" "\\b") ("(perl5)Variable Index" (lambda (item) (let ((sym (cond ((or (string-match "^\\$\\(.\\|@@\\)$" item) (string-match "^\\$\\^[A-Z]$" item)) item) ((string-match "^\\([$%@]\\|@@\\)?[_a-zA-Z0-9]+" item) (match-string 0 item)) (t #1="")))) (if (string-match "@@" sym) (setq sym (concat (substring sym 0 (match-beginning 0)) (substring sym (1- (match-end 0)))))) (if (string-equal sym #1#) nil sym))) "^" "\\b")) "[$@%]?\\([_a-zA-Z0-9]+\\|[^a-zA-Z]\\)" cperl-mode (perl-mode) latex-mode "\\\\\\([a-zA-Z]+\\|[^a-zA-Z]\\)" (("(latex)Command Index" nil "`" "\\({[^}]*}\\)?'")) emacs-lisp-mode "[^][()`',\" \n]+" (("(emacs)Command Index" nil "`\\(M-x[ \n]+\\)?" "'") ("(emacs)Variable Index" nil "`" "'") ("(elisp)Index" nil "^ -+ .*: " "\\( \\|$\\)")) apropos-mode (emacs-lisp-mode) lisp-interaction-mode (emacs-lisp-mode) lisp-mode "[^()`',\" \n]+" (emacs-lisp-mode) scheme-mode :ignore-case t (("(r5rs)Index" nil "^[ ]+-+ [^:]+:[ ]*" "\\b")) octave-mode "[_a-zA-Z0-9]+\\|\\s.+\\|[-!=^|*/.\\,><~&+]\\{1,3\\}\\|[][();,\"']" (("(octave)Function Index" nil "^ -+ [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil) ("(octave)Variable Index" nil "^ -+ [^:]+:[ ]+" nil) ("(octave)Operator Index" nil nil nil) ("(octave)Concept Index" (lambda (item) (cond ((string-match "^\\([A-Z]+\\) statement\\b" item) (match-string 1 item)) (t nil))) nil nil)) maxima-mode "[a-zA-Z0-9_%]+" (("(maxima)Function and Variable Index" nil "^ -+ [^:]+:[ ]+\\(\\[[^=]*=[ ]+\\)?" nil)) inferior-maxima-mode (maxima-mode) sh-mode "\\([a-zA-Z0-9_-]+\\|[!{}@*#?$]\\|\\[\\[?\\|]]?\\)" (("(bash)Builtin Index" nil "^`" "[ .']") ("(bash)Reserved Word Index" nil "^`" "[ .']") ("(bash)Variable Index" nil "^`" "[ .']") ("(coreutils)Index" (lambda (item) (if (string-match "\\`[a-z]+\\'" item) item))) ("(coreutils)Concept Index" (lambda (item) (if (string-match "\\`[a-z]+\\'" item) item))) ("(diff)Index" (lambda (item) (if (string-match "\\`\\([a-z]+\\) invocation\\'" item) (match-string 1 item)))) ("(sed)Concept Index" (lambda (item) (if (string-equal item "Standard input, processing as input") "sed"))) ("(gawk)Index" (lambda (item) (cond ((string-equal item "gawk, extensions, disabling") "awk") ((string-equal item "gawk, versions of, information about, printing") "gawk"))))) cfengine-mode "[[:alnum:]_]+\\(?:()\\)?" (("(cfengine-Reference)Variable Index" (lambda (item) (if (string-match "\\([[:alnum:]_]+\\)()" item) (match-string 1 item) item)) "`" "(")) Custom-mode "[^][()`',:\" \n]+" info-lookup-guess-custom-symbol (emacs-lisp-mode) help-mode (emacs-lisp-mode) provide info-look] 13)