%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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 (#$ . 586))
(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] "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] "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 (#$ . 1319))
(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] "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 (#$ . 1924))
#@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 (#$ . 2010))
#@14
(fn TOPIC)
(defalias 'info-lookup->topic-value #[257 "\301\"A\207" [info-lookup-alist assoc] 4 (#$ . 3558)])
(put 'info-lookup->topic-value 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->mode-value #[514 "\301\301\"A\262\"\207" [info-lookup-alist assoc] 8 (#$ . 3753)])
(put 'info-lookup->mode-value 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->regexp #[514 "\301\301\"A\262\"\266\202A@\207" [info-lookup-alist assoc] 10 (#$ . 3964)])
(put 'info-lookup->regexp 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->ignore-case #[514 "\301\302\302\"A\262\"\266\2028\207" [info-lookup-alist 2 assoc] 11 (#$ . 4180)])
(put 'info-lookup->ignore-case 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->doc-spec #[514 "\301\302\302\"A\262\"\266\2028\207" [info-lookup-alist 3 assoc] 11 (#$ . 4411)])
(put 'info-lookup->doc-spec 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->parse-rule #[514 "\301\302\302\"A\262\"\266\2028\207" [info-lookup-alist 4 assoc] 11 (#$ . 4636)])
(put 'info-lookup->parse-rule 'byte-optimizer 'byte-compile-inline-expand)
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->other-modes #[514 "\301\302\302\"A\262\"\266\2028\207" [info-lookup-alist 5 assoc] 11 (#$ . 4865)])
(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 (#$ . 5097)])
#@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 (#$ . 5701)])
#@24
(fn MAYBE &rest ARG)
(defalias 'info-lookup-add-help* #[385 "\302\211\211\211\211\211\211\211\211\303\262 \262\304\262 \203x @\2629\204' \305\306 \"\210 A\262\n \2046 \305\307\"\210 @\262 A\262\n\310\267\202p \211\262 \202 \211\262\202 \211\262\202 \211\262\202 \211\262\202 \211\262\202 \211\262\202 \305\311\"\210\202 \n\203\221 \312\312 \"A\262\"\266\202\204\312 \257\312\n \"\206\256 \302B B\211@\312\n\"\211\204\304 BAB\241\210\202\310 \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" #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:topic 70 :mode 76 :regexp 82 :ignore-case 88 :doc-spec 94 :parse-rule 100 :other-modes 106)) "Unknown keyword \"%S\"" assoc] 19 (#$ . 5960)])
#@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 (#$ . 6854))
#@14
(fn TOPIC)
(defalias 'info-lookup->cache #[257 "\301\"\206 \211\302BB\211@\207" [info-lookup-cache assoc nil] 4 (#$ . 7387)])
(put 'info-lookup->cache 'byte-optimizer 'byte-compile-inline-expand)
#@14
(fn TOPIC)
(defalias 'info-lookup->topic-cache #[257 "\211\301\"\206 \211\302BB\211@\262A\207" [info-lookup-cache assoc nil] 5 (#$ . 7596)])
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->mode-cache #[514 "\300\301!\"\207" [assoc info-lookup->topic-cache] 6 (#$ . 7751)])
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->initialized #[514 "\300\"A@\207" [info-lookup->mode-cache] 5 (#$ . 7885)])
#@19
(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 (#$ . 8010)])
#@19
(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 (#$ . 8215)])
#@19
(fn TOPIC MODE)
(defalias 'info-lookup->all-modes #[514 "\211\300\"B\207" [info-lookup->refer-modes] 6 (#$ . 8420)])
#@19
(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 (#$ . 8547)])
#@187 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.
(defalias 'info-lookup-reset #[0 "\301\211\207" [info-lookup-cache nil] 2 (#$ . 8721) nil])
#@393 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 MODE 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 (#$ . 9007) (byte-code "\301\302\"\207" [current-prefix-arg info-lookup-interactive-arguments symbol] 3)])
#@353 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 MODE 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 (#$ . 9591) (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 (#$ . 10129)])
(defalias 'info-lookup-select-mode #[0 "\204, \304 \203, \305\304 ! \204* \211\203* \306@@\"\203# \211@A\211A\262\202 \266\n\211\203a \204a \211\203X \211@\211@\307\307 \"A\262\"\266\202\203Q A\266\202\2026 \210\211\310N\262\202- \210\206i \n\211\207" [info-lookup-mode info-lookup-file-name-alist major-mode info-lookup-alist buffer-file-name file-name-nondirectory string-match assoc derived-mode-parent] 11])
#@14
(fn TOPIC)
(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 (#$ . 11339)])
#@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\"\321 \322\323!\205t r\323q\210 \n`E )B\324\211\211\211\211\211\f\325=\204\320
\204\212 \326 \210\202\320 \327 \330\331\332\333\334!\335\"\313$\216\326 \210)\210\336\323\315\"\211\205\250 \337!\211\203\312 \211\340 =\204\312 \341 \203\312 \211\342 >\203\312 \343!\210\344!\210\202\316 \345\323!\210\266\204\336\203\336 @\346\307\307\"A\262\"\266\2028\266\202\262\204\326\203\326@@\262\313@8\262\346@8\262\3471#\324\211 ; <\350!\210\315\211\262*0\2020\210\351\352\"\210\353\354!\210\202\317\203\317\3551\312\324 =\356\357\360\fA\206F\f@!\361Q!\210)\362 \210\315\262\204Z\205\306 @\313\307\307\"A\262\"\266\2028\266\202\324 > =eb\210\356\360\f@!Q!\210\331\224b\210\363 \205\305?\205\305\356\360 @!!\205\305\331\224\331\225\364@!\203\262\365@p$\202\271\366\"\211@\266\202\205\305\367@\370?#*0\202\316\210\202\317\210A\262\202\363 A\262 \202\320 \n\204\363
\n@\230\204\363\351\371 @\"\210\203\372\211\204\310\372!\210
\205\205\343!\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 make-byte-code 0 "\301\300!\207" vconcat vector [set-window-configuration] 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 (error) Info-goto-node message "Cannot access Info node %s" sit-for 1 (error) re-search-forward "^\\* " regexp-quote ":" Info-follow-nearest-node display-color-p overlayp move-overlay make-overlay overlay-put face "Found in different case: %s" "Info documentation for lookup was not found" Info-history-list Info-fontify-maximum-menu-size case-fold-search buffer-read-only info-lookup-highlight-face info-lookup-highlight-overlay] 26 (#$ . 11820)])
#@58 Initialize the internal data structure.
(fn TOPIC MODE)
(defalias 'info-lookup-setup-mode #[514 "\303\"\206\327 \304\305\211\211\211\211\306\306 \"A\262\"\266\202\204- \307\310#\210\202\234 \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\3141\201 \315\"0\202\203 \210\305\316\317\320\321\322\323\324\325!\326\"\327\330%\"\"\244\262\313\262\331\"\262E\262\204\317 \306\n\"\206\277 \211\305B\nB\211@\262B\332 !B\241\210\202\323 \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 (error) info-lookup-make-completions apply append mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [info-lookup->completions] 4 "\n\n(fn ARG)" info-lookup->mode-cache info-lookup->topic-cache] 18 (#$ . 14198)])
#@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\211\211\211\211\211C\307\211\310\311! r\211q\210\312 \210) \203? @@\262 @A@\307=\203m \313\314\315\316\317!\320\"\321\322%\202\223 @A@;\203\216 \f@A@\240\210\313\314\323\316\317!\324\"\325\322%\202\223 @A@\262r\211q\210\326\327 \"\210\3301\260 \331!\210\332\211\2620\202\276 \210\326\333 \"\210\334\335!\210\2020\2030\3361+eb\210\337\340\307\332#\205'\341\342\307\332#\205'\343\335!\262!\262\203\320 \344\230\204\320
\345\304\304\"A\262\"\266\2028\266\202\203\f\227\262\230\203\307\262\304\"\204\320 BB\262\202\320 0\202/\210\2020\210)\326\346 \"\210 A\262\f\202H \204G\347\350!\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\242\303\304\"P\207" [string-match "^\\([^: \n]+\\)" match-string 1] 5 message "Processing Info node `%s'..." (error) Info-goto-node t "Cannot access Info node `%s'" sit-for 1 (error) search-forward "\n* Menu:" re-search-forward "\n\\* \\(.*\\): " match-string "Menu" 2 "Processing Info node `%s'...done" error "Info documentation for lookup was not found"] 25 (#$ . 15189)])
#@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 (#$ . 16745)])
#@19
(fn TOPIC MODE)
(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\2129\203W \262\202\276 :\203g @\262A\262\202m \262\306\262\307 \310\306\311\312\313!\314\"\315$\216\316\317!)\262\203\210 \320\305x\210`\262\321\305\322#\203\250 \316!\203\250 \306\225Y\203\250 \323!\262\202\213 \211\204\276 b\210\320\305w\210\316!\203\276 \323!\262*\207" [info-lookup-alist case-fold-search 2 assoc 4 nil 0 match-data make-byte-code "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 looking-at "[ \n]" " \n" re-search-backward t match-string] 16 (#$ . 17260)])
#@28 Get the C symbol at point.
(defalias 'info-lookup-guess-c-symbol #[0 "\3001k \301\302!\210`\303\211\304\303x\305W\205& \306\303x\305W\205& \307\310!\205& \311\312!\313P\262b\210\307\314!\2036 \311\305!\262\204\\ \211\315\230\204L \211\316\230\204L \211\317\230\203\\ \307\320!\203\\ \211\313P\262\311\312!\262\204d \211\205g P\266\2030\207\210\303\207" [(error) 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 (#$ . 18014)])
#@40 Get symbol at point in custom buffers.
(defalias 'info-lookup-guess-custom-symbol #[0 "\3011\276 \212\302\303\304\305\211\306`\307\"\310>\203@ \311`\307\305\312 $\211\262\203@ \313`\307\305\314 $\211\262\203@ \211V\203@ \315\316\317\320\"#\202\270 \321\322\323Q!\203i \212\305x\210`\211\262)\203i \305w\203i `\211\262\203i \211V\204\264 \321\324!\203\224 \325\322\323Q`S\"\203\224 `\211\262\203\224 \305x\203\224 `\211\262\203\224 \211V\204\264 \305w\205\270 `\211\262\205\270 \305w\205\270 `\211\262\205\270 \211V\205\270 \320\")\266\205)0\207\210\305\207" [case-fold-search (error) t "][()`'‘’,:.\" \n" "^][()`'‘’,:.\" \n" nil get-char-property face (custom-variable-tag custom-variable-obsolete 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 (#$ . 18616)])
#@44 Get symbol at point in GDB script buffers.
(defalias 'info-lookup-guess-gdb-script-symbol #[0 "\3001D \212\301 \210\302\303!\205A \304\305\306!\307\310#\311\312\313\"\3142? \205> \315\316\317#\266\202\320\"\2036 \321\314\"\210\322!\266\202 0\266\202)0\207\210\323\207" [(error) back-to-indentation looking-at "[-a-z]+\\(\\s-[-a-z]+\\)*" split-string match-string-no-properties 0 "\\s-+" t info-lookup->completions symbol gdb-script-mode result " " mapconcat identity assoc throw nbutlast nil] 8 (#$ . 19611)])
#@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 (#$ . 20137) 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 (#$ . 20467) 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\242\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\242\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\242$)\207" vconcat vector [completion-ignore-case t complete-with-action] 8 "\n\n(fn STRING PRED ACTION)" search-backward t 0 :exclusive no] 17 (#$ . 20791)])
#@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 (#$ . 21596)])
(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\365\366\"\203\231 \367\202\232 \370\371BC&\210\300\301\372\305\373\307\374&\210\300\301\375\305\373\322\376&\210\300\301\377\305\373\311\347\322\201@ &\210\300\301\201A \305\201B \311\347\322\201C &\210\300\301\201D \305\201B \201E \366\307\201F &\210\300\301\201G \305\201H \307\201I &\210\300\301\201J \201E \366\305\201K \307\201L &\210\300\301\201M \305\201K \322\201N &\210\300\301\201O \303\304\305\201P \307\201Q &\210\300\301\201R \305\201S \307\201T &\210\300\301\201U \201E \366\305\201V \311\201W \322\201X &\n\210\300\301\201Y \305\201V \322\201Z &\210\300\301\201[ \201E \201\\ \305\201] \307\201^ \311\201_ &\n\210\201` \201a !\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]\\)" Info-find-file "latex2e" t "(latex2e)Command Index" "(latex)Command Index" (nil "[`'‘]" "\\({[^}]*}|\\[[^]]*\\]\\)*['’]") emacs-lisp-mode "[^][()`'‘’,\" \n]+" (("(emacs)Command Index" nil "['`‘]\\(M-x[ \n]+\\)?" "['’]") ("(emacs)Variable Index" nil "['`‘]" "['’]") ("(elisp)Index" nil "^ -+ .*: " "\\( \\|$\\)") ("(cl)Function Index" nil "^ -+ .*: " "\\( \\|$\\)") ("(cl)Variable Index" nil "^ -+ .*: " "\\( \\|$\\)")) apropos-mode (emacs-lisp-mode) lisp-interaction-mode (emacs-lisp-mode) lisp-mode "[^()`'‘’,\" \n]+" (emacs-lisp-mode) scheme-mode :ignore-case (("(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) gdb-script-mode nil "\\([-a-z]+\\(\\s-+[-a-z]+\\)*\\)" (("(gdb)Command and Variable Index" nil nil nil)) info-lookup-guess-gdb-script-symbol provide info-look] 13)
Zerion Mini Shell 1.0