| 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/apropos.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:11 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/apropos.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\310\311&\210\312\313\304\314\306\303\315\316&\210\317\320\321\322\306\303\323\324&\210\317\325\326\327\306\303\323\324&\210\317\330\331\332\306\303\323\324&\210\317\333\334\335\306\303\323\324&\210\317\336\337\340\306\303\323\324&\210\317\341\342\343\306\303\323\324&\210\312\344\345\346\306\303\323\324&\210\312\347\304\350\306\303\315\351&\210\312\352\353\354\306\303\315\355&\207" [require button custom-declare-group apropos nil "Apropos commands for users and programmers." :group help :prefix "apropos" custom-declare-variable apropos-do-all "Non nil means apropos commands will search more extensively.\nThis may be slower. This option affects the following commands:\n\n`apropos-variable' will search all variables, not just user variables.\n`apropos-command' will also search non-interactive functions.\n`apropos' will search all symbols, not just functions, variables, faces,\nand those with property lists.\n`apropos-value' will also search in property lists and functions.\n`apropos-documentation' will search all documentation strings, not just\nthose in the etc/DOC documentation file.\n\nThis option only controls the default behavior. Each of the above\ncommands also has an optional argument to request a more extensive search.\n\nAdditionally, this option makes the function `apropos-library'\ninclude key-binding information in its output." :type boolean custom-declare-face apropos-symbol ((t (:inherit bold))) "Face for the symbol name in Apropos output." :version "24.3" apropos-keybinding ((t (:inherit underline))) "Face for lists of keybinding in Apropos output." apropos-property ((t (:inherit font-lock-builtin-face))) "Face for property name in apropos output, or nil for none." apropos-function-button ((t (:inherit (font-lock-function-name-face button)))) "Button face indicating a function, macro, or command in Apropos." apropos-variable-button ((t (:inherit (font-lock-variable-name-face button)))) "Button face indicating a variable in Apropos." apropos-misc-button ((t (:inherit (font-lock-constant-face button)))) "Button face indicating a miscellaneous object type in Apropos." apropos-match-face 'match "Face for matching text in Apropos documentation/value, or nil for none.\nThis applies when you look for matches in the documentation or variable value\nfor the pattern; the part that matches gets displayed in this font." apropos-sort-by-scores "Non-nil means sort matches by scores; best match is shown first.\nThis applies to all `apropos' commands except `apropos-documentation'.\nIf value is `verbose', the computed score is shown for each match." (choice (const :tag "off" nil) (const :tag "on" t) (const :tag "show scores" verbose)) apropos-documentation-sort-by-scores t "Non-nil means sort matches by scores; best match is shown first.\nThis applies to `apropos-documentation' only.\nIf value is `verbose', the computed score is shown for each match." (choice (const :tag "off" nil) (const :tag "on" t) (const :tag "show scores" verbose))] 8)
#@30 Keymap used in Apropos mode.
(defvar apropos-mode-map (byte-code "\303!\304 \n\"\210\305 \306\307#\210 )\207" [button-buffer-map map special-mode-map copy-keymap set-keymap-parent define-key "
" apropos-follow] 4) (#$ . 3605))
#@34 Hook run when mode is turned on.
(defvar apropos-mode-hook nil (#$ . 3840))
#@37 Apropos pattern as entered by user.
(defvar apropos-pattern nil (#$ . 3922))
#@48 Apropos pattern passed through `regexp-quote'.
(defvar apropos-pattern-quoted nil (#$ . 4005))
#@65 Current list of apropos words extracted from `apropos-pattern'.
(defvar apropos-words nil (#$ . 4106))
#@37 Current list of words and synonyms.
(defvar apropos-all-words nil (#$ . 4215))
#@37 Regexp used in current apropos run.
(defvar apropos-regexp nil (#$ . 4300))
#@36 Regexp matching apropos-all-words.
(defvar apropos-all-words-regexp nil (#$ . 4382))
#@78 List of elc files already scanned in current run of `apropos-documentation'.
(defvar apropos-files-scanned nil (#$ . 4473))
#@522 Alist of symbols already found in current apropos run.
Each element has the form
(SYMBOL SCORE FUN-DOC VAR-DOC PLIST WIDGET-DOC FACE-DOC CUS-GROUP-DOC)
where SYMBOL is the symbol name, SCORE is its relevance score (a
number), FUN-DOC is the function docstring, VAR-DOC is the
variable docstring, PLIST is the list of the symbols names in the
property list, WIDGET-DOC is the widget docstring, FACE-DOC is
the face docstring, and CUS-GROUP-DOC is the custom group
docstring. Each docstring is either nil or a string.
(defvar apropos-accumulator nil (#$ . 4604))
#@47 Current item in or for `apropos-accumulator'.
(defvar apropos-item nil (#$ . 5176))
#@166 List of synonyms known by apropos.
Each element is a list of words where the first word is the standard Emacs
term, and the rest of the words are alternative terms.
(defvar apropos-synonyms '(("find" "open" "edit") ("kill" "cut") ("yank" "paste") ("region" "selection")) (#$ . 5267))
(define-button-type 'apropos-symbol 'face 'apropos-symbol 'help-echo "mouse-2, RET: Display more help on this symbol" 'follow-link t 'action 'apropos-symbol-button-display-help)
#@62 Display further help for the `apropos-symbol' button BUTTON.
(defalias 'apropos-symbol-button-display-help #[(button) "\304\305!!\206 \306\307\310!\"\311 \203 \312\313\"\206 \312\302\"\314\n!\203? \315 r\316\216\317\320\321\n!!!\210\nb\210\322\323!+\202B \n!+\207" [button use-mouse-action action save-selected-window--state apropos-next-label-button button-start error "There is nothing to follow for `%s'" button-label nil button-get mouse-action markerp internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window display-buffer marker-buffer recenter 0] 4 (#$ . 5735)])
(byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\314\315&
\210\300\316\302\317\304\320\306\307\310\321\312\313\314\322&
\210\300\323\302\324\304\325\306\307\310\326\312\313\314\327&
\210\300\330\302\331\304\332\306\333\310\334\312\313\314\335&
\210\300\336\302\337\304\340\306\341\310\342\312\313\314\343&
\210\300\344\302\345\304\346\306\347\310\350\312\313\314\351&
\210\300\352\302\353\304\354\306\347\310\355\312\313\314\356&
\210\300\357\302\360\304\361\306\347\310\362\312\313\314\363&
\210\300\364\310\365\312\313\314\366&\207" [define-button-type apropos-function apropos-label "Function" apropos-short-label "f" face apropos-function-button help-echo "mouse-2, RET: Display more help on this function" follow-link t action #[(button) "\301\302\303\"!\207" [button describe-function button-get apropos-symbol] 4] apropos-macro "Macro" "m" "mouse-2, RET: Display more help on this macro" #[(button) "\301\302\303\"!\207" [button describe-function button-get apropos-symbol] 4] apropos-command "Command" "c" "mouse-2, RET: Display more help on this command" #[(button) "\301\302\303\"!\207" [button describe-function button-get apropos-symbol] 4] apropos-variable "Variable" "v" apropos-variable-button "mouse-2, RET: Display more help on this variable" #[(button) "\301\302\303\"!\207" [button describe-variable button-get apropos-symbol] 4] apropos-face "Face" "F" (font-lock-variable-name-face button) "mouse-2, RET: Display more help on this face" #[(button) "\301\302\303\"!\207" [button describe-face button-get apropos-symbol] 4] apropos-group "Group" "g" apropos-misc-button "mouse-2, RET: Display more help on this group" #[(button) "\301\302\303\"!\207" [button customize-group-other-window button-get apropos-symbol] 4] apropos-widget "Widget" "w" "mouse-2, RET: Display more help on this widget" #[(button) "\301\302\303\"!\207" [button widget-browse-other-window button-get apropos-symbol] 4] apropos-plist "Properties" "p" "mouse-2, RET: Display more help on this plist" #[(button) "\301\302\303\"!\207" [button apropos-describe-plist button-get apropos-symbol] 4] apropos-library "mouse-2, RET: Display more help on this library" #[(button) "\301\302\303\"!\207" [button apropos-library button-get apropos-symbol] 4]] 14)
#@174 Return the next apropos label button after POS, or nil if there's none.
Will also return nil if more than one `apropos-symbol' button is encountered
before finding a label.
(defalias 'apropos-next-label-button #[(pos) "\305\306\"\307 \205 \310 \311\" \205 \310 \304\" \203J \204J \f\312=\203+ \n\204J \f\312=\2033 \306\305\313 !!\211\203 \310 \311\"\310 \304\"\202 \205O ,\207" [pos button already-hit-symbol label type next-button t nil button-get apropos-label apropos-symbol button-start] 4 (#$ . 8654)])
#@53 Make regexp matching any two of the words in WORDS.
(defalias 'apropos-words-to-regexp #[(words wild) "\302\303\304\305#\306A\203 \302\303\304\305#\306R\202 \307R\207" [words wild "\\(" mapconcat identity "\\|" "\\)" ""] 9 (#$ . 9184)])
#@285 Read an apropos pattern, either a word list or a regexp.
Returns the user pattern, either a list of words which are matched
literally, or a string which is used as a regexp to search for.
SUBJECT is a string that is included in the prompt to identify what
kind of objects to search.
(defalias 'apropos-read-pattern #[(subject) "\302\303\304Q!\305 ! \230\203 \306 \307\310#\202 )\207" [subject pattern read-string "Search for " " (word list or regexp): " regexp-quote split-string "[ ]+" t] 4 (#$ . 9434)])
#@258 Rewrite a list of words to a regexp matching all permutations.
If PATTERN is a string, that means it is already a regexp.
This updates variables `apropos-pattern', `apropos-pattern-quoted',
`apropos-regexp', `apropos-words', and `apropos-all-words-regexp'.
(defalias 'apropos-parse-pattern #[(pattern) "\306\211\n:\203\207 \n\307\310\n\311#\312\f! \306 \211 \203w @\211 \211 \203c @\235\203Z \307\310@\313#@A\235\203S \306\211\2020 A\211\2043 B B+A\211\204 *\314 \315\"\314\316\"\211)\207\312\n!\n\n\n\211\207" [apropos-words apropos-all-words pattern words apropos-pattern apropos-pattern-quoted nil mapconcat identity " " regexp-quote "\\|" apropos-words-to-regexp ".+" ".*?" word --dolist-tail-- apropos-synonyms a s syn apropos-all-words-regexp apropos-regexp] 5 (#$ . 9954)])
#@111 Return apropos scores for string STR matching WORDS.
Value is a list of offsets of the words into the string.
(defalias 'apropos-calc-scores #[(str words) "\306\211\n\203. \n\306\211 \203' \f@\307
\"\211\203 B\fA\211\204 \306 *\202; \307
\"\205; \310\224\310\225D*\207" [i scores words word --dolist-tail-- str nil string-match 0 apropos-pattern] 4 (#$ . 10806)])
#@38 Return apropos score for string STR.
(defalias 'apropos-score-str #[(str) "\2032 G\211\306\245[\307 \"\310 \211 \203-
@\311\n\312 \fZ\312_ \245#
A\211\204 \310\n,\207\313\207" [str l score apropos-all-words s --dolist-tail-- 10 apropos-calc-scores nil + 1000 0] 6 (#$ . 11191)])
#@52 Return apropos score for documentation string DOC.
(defalias 'apropos-score-doc #[(doc) "G\211\306V\203@ \306\307 \"\203 \310\311\f\"\312 \211
\2039
@\313\n\314
Z\314_ \245#
A\211
\204 \312\n+\202A \306)\207" [doc l score apropos-pattern-quoted apropos-all-words s 0 string-match 10000 apropos-calc-scores nil + 50 --dolist-tail--] 6 (#$ . 11487)])
#@34 Return apropos score for SYMBOL.
(defalias 'apropos-score-symbol #[(symbol &optional weight) "\306!\307G\310 \"\311 \211 \203,
@\312\n\313 Z \fZ\313_ \245#
A\211\204 \311\n
\2065 \314_,\207" [symbol l score apropos-words s --dolist-tail-- symbol-name 0 apropos-calc-scores nil + 60 3 weight] 6 (#$ . 11859)])
#@172 Return t if STR is a genuine hit.
This may fail if only one of the keywords is matched more than once.
This requires that at least 2 keywords (unless only one was given).
(defalias 'apropos-true-hit #[(str words) "?\206 ?\206 A?\206 \302 \"G\303V\207" [str words apropos-calc-scores 1] 3 (#$ . 12188)])
#@67 Return t if SYMBOL is not really matched by the current keywords.
(defalias 'apropos-false-hit-symbol #[(symbol) "\302\303! \"?\207" [symbol apropos-words apropos-true-hit symbol-name] 3 (#$ . 12504)])
#@64 Return t if STR is not really matched by the current keywords.
(defalias 'apropos-false-hit-str #[(str) "\302 \"?\207" [str apropos-words apropos-true-hit] 3 (#$ . 12713)])
#@60 Return t if DOC is really matched by the current keywords.
(defalias 'apropos-true-hit-doc #[(doc) "\302 \"\207" [doc apropos-all-words apropos-true-hit] 3 (#$ . 12893)])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [apropos-mode-hook variable-documentation put purecopy "Hook run when entering Apropos mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp apropos-mode-map definition-name apropos-mode] 5)
(defvar apropos-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [apropos-mode-map variable-documentation put purecopy "Keymap for `apropos-mode'." boundp apropos-mode-syntax-table definition-name apropos-mode] 5)
(defvar apropos-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [apropos-mode-syntax-table variable-documentation put purecopy "Syntax table for `apropos-mode'." apropos-mode-abbrev-table definition-name apropos-mode] 5)
(defvar apropos-mode-abbrev-table (progn (define-abbrev-table 'apropos-mode-abbrev-table nil) apropos-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [apropos-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `apropos-mode'." apropos-mode derived-mode-parent special-mode] 5)
#@248 Major mode for following hyperlinks in output of apropos commands.
\{apropos-mode-map}
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `apropos-mode-hook', as the final step
during initialization.
(defalias 'apropos-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036
\321 =\203< \322\f\323 \"\210)\324\325\"\204V =\204V \326\325 C#\210\327 !\210\330\f!\210 )\331\332!\207" [delay-mode-hooks major-mode mode-name apropos-mode-map apropos-mode-syntax-table parent make-local-variable t special-mode apropos-mode "Apropos" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks apropos-mode-hook apropos-mode-abbrev-table local-abbrev-table] 6 (#$ . 14378) nil])
#@123 If non-nil, this apropos query concerns multiple types.
This is used to decide whether to print the result's type or not.
(defvar apropos-multi-type t (#$ . 15367))
#@405 Show user variables that match PATTERN.
PATTERN can be a word, a list of words (separated by spaces),
or a regexp (using some regexp special characters). If it is a word,
search for matches for that word as a substring. If it is a list of words,
search for matches for any two (or more) of those words.
With \[universal-argument] prefix, or if `apropos-do-all' is non-nil, also show
normal variables.
(defalias 'apropos-variable #[(pattern &optional do-all) "\303\304 \204 \n\203 \305\202 \306#\207" [pattern do-all apropos-do-all apropos-command nil #[(symbol) "\301!\205 \302N\207" [symbol boundp variable-documentation] 2] custom-variable-p] 4 (#$ . 15539) (list (apropos-read-pattern (if (or current-prefix-arg apropos-do-all) "variable" "user option")) current-prefix-arg)])
(defalias 'command-apropos 'apropos-command)
#@670 Show commands (interactively callable functions) that match PATTERN.
PATTERN can be a word, a list of words (separated by spaces),
or a regexp (using some regexp special characters). If it is a word,
search for matches for that word as a substring. If it is a list of words,
search for matches for any two (or more) of those words.
With \[universal-argument] prefix, or if `apropos-do-all' is non-nil, also show
noninteractive functions.
If VAR-PREDICATE is non-nil, show only variables, and only those that
satisfy the predicate VAR-PREDICATE.
When called from a Lisp program, a string PATTERN is used as a regexp,
while a list of strings is used as a word list.
(defalias 'apropos-command #[(pattern &optional do-all var-predicate) "\306!\210\307\310!\311\312!) \204 \f\313
!\206# \203\" \314\202# \315\"\211\"\211 #\203O #@\316N\204= \317#@!\203F \320#@\"\"\"#A\211#\204- )\"\321\211\211 $ % &\211 '\203\346 '\211@\211%\322%!\211$!?\205\247 \314%!\205\247 \321\323\324\217\211&\203\246 &\325=\203\221 \326\202\247 $\327&!\\$&\330\331\332&\"O\202\247 \333!\205\322 !%!\205\322 \334%\335\336#\211&\205\322 $\327&!\\$&\330\331\332&\"OF\240\210'@A$\240\210'A\211'\204a , (\337\336\321\211\336$)\205\374 \n\205\374 \302\340\n\")\207" [pattern standard-output message do-all apropos-do-all apropos-regexp apropos-parse-pattern get-buffer-create "*Apropos*" help-print-return-message identity apropos-internal fboundp commandp apropos-inhibit apropos-false-hit-symbol delq nil apropos-score-symbol (documentation symbol t) ((error 'error)) error "(documentation error)" apropos-score-doc 0 string-match "\n" "(not documented)" documentation-property variable-documentation t apropos-print "%s" var-predicate apropos-accumulator tem score symbol doc p apropos-multi-type] 10 (#$ . 16381) (list (apropos-read-pattern (if (or current-prefix-arg apropos-do-all) "command or function" "command")) current-prefix-arg)])
#@70 Like (documentation-property SYMBOL PROPERTY RAW) but handle errors.
(defalias 'apropos-documentation-property #[(symbol property raw) "\300\301\302\217\207" [nil (byte-code "\304 \n#\211\203 \305\306\307 \"O\202 \310)\207" [symbol property raw doc documentation-property 0 string-match "\n" "(not documented)"] 6) ((error "(error retrieving documentation)"))] 3 (#$ . 18346)])
#@608 Show all meaningful Lisp symbols whose names match PATTERN.
Symbols are shown if they are defined as functions, variables, or
faces, or if they have nonempty property lists.
PATTERN can be a word, a list of words (separated by spaces),
or a regexp (using some regexp special characters). If it is a word,
search for matches for that word as a substring. If it is a list of words,
search for matches for any two (or more) of those words.
With \[universal-argument] prefix, or if `apropos-do-all' is non-nil,
consider all symbols (if they match PATTERN).
Returns list of symbols and documentation found.
(defalias 'apropos #[(pattern &optional do-all) "\304!\210\305\306 \n?\205 ?\205 \307\"\n\206 \"\207" [pattern apropos-regexp do-all apropos-do-all apropos-parse-pattern apropos-symbols-internal apropos-internal #[(symbol) "\301!\206 \302!\206 \303!\206 \304!\207" [symbol fboundp boundp facep symbol-plist] 2]] 4 (#$ . 18736) (list (apropos-read-pattern "symbol") current-prefix-arg)])
(defalias 'apropos-library-button #[(sym) "\204 \302\207\303\304!!\305 \306\307\310\311\312\211 &\210 )\207" [sym name "<nothing>" copy-sequence symbol-name make-text-button nil type apropos-library face apropos-symbol] 9])
#@235 List the variables and functions defined by library FILE.
FILE should be one of the libraries currently loaded and should
thus be found in `load-history'. If `apropos-do-all' is non-nil,
the output includes key-bindings of commands.
(defalias 'apropos-library #[(file) "\306\211\211\307 \" \n\204W \310\311!\312Q \203M \n\204M \211 @@)\203D \313\211 @@)\"\203D @\202 A\211\204 *\n\204W \314\315\"\210\nA\306 \211 \203\237 @\211\242\211 \316=\203z A B\202\225 \317=\203\212 A\fB\202\225 \243\206\222
B) A\211 \204b *\320 \321
\322\323\324\325\f\206\261 \326\327#\324\325 \206\272 \330\327#$\260#-\207" [file load-history lh-entry requires provides symbols nil assoc "\\(?:\\`\\|[\\/]\\)" regexp-quote "\\(\\.\\|\\'\\)" string-match error "Unknown library `%s'" require provide "" apropos-symbols-internal format "Library `%s' provides: %s\nand requires: %s" mapconcat apropos-library-button (nil) " and " (nil) re lh x --dolist-tail-- #1=#:val apropos-pattern apropos-do-all] 12 (#$ . 19979) (let* ((libs (delq nil (mapcar 'car load-history))) (libs (nconc (delq nil (mapcar #'(lambda (l) (setq l (file-name-nondirectory l)) (while (not (equal (setq l (file-name-sans-extension l)) l))) l) libs)) libs))) (list (completing-read "Describe library: " libs nil t)))])
(defalias 'apropos-symbols-internal #[(symbols keys &optional text) "\306 \306\211\203 @\211\307N\204 \nB A\211\204\n *)\310\311 \" \312
\306 #)\207" [all symbols symbol --dolist-tail-- apropos-accumulator keys nil apropos-inhibit mapcar #[(symbol) "\304\211\n\305\n!\306\n!\205\" \304\307\310\217\211\203! \311\312\313 \"O\202\" \314\315\n!\205- \316\n\317\320#\321\n!\211\205O @CAA\211\203I @ B\2029 \322\323 \237\324#\n\325N\205Z \316\n\326\320#\327\n!\205\212 \n\330N\211\203\204 \327 !\203\200 \331\332\n\333N\203z \334\202{ \335 #\202\211 \336\202\211 \316\n\337\320#)\n\340N\205\225 \316\n\341\320#\257*\207" [properties doc symbol alias nil apropos-score-symbol fboundp (documentation symbol t) ((void-function "(alias for undefined function)") (error "(can't retrieve function documentation)")) 0 string-match "\n" "(not documented)" boundp apropos-documentation-property variable-documentation t symbol-plist mapconcat symbol-name " " widget-type widget-documentation facep face-alias format "%slias for the face `%s'." obsolete-face "Obsolete a" "A" "(alias for undefined face)" face-documentation custom-group group-documentation] 12] apropos-print text] 5])
#@565 Show all symbols whose value's printed representation matches PATTERN.
PATTERN can be a word, a list of words (separated by spaces),
or a regexp (using some regexp special characters). If it is a word,
search for matches for that word as a substring. If it is a list of words,
search for matches for any two (or more) of those words.
With \[universal-argument] prefix, or if `apropos-do-all' is non-nil, also looks
at function definitions (arguments, documentation and body) and at the
names and values of properties.
Returns list of symbols and values found.
(defalias 'apropos-value #[(pattern &optional do-all) "\306!\210 \204\n \n\307\211\307\211 \f\310\311!\210+
\312\307\313\")\207" [pattern do-all apropos-do-all apropos-accumulator p v apropos-parse-pattern nil mapatoms #[(symbol) "\306\211\306 \307>\204 \310\311 \312#\f\203\" \310\313 \314#\315 \316\317#\320 !\203* \306\320!\2032 \306\320\n!\203: \306\204F \204F \n\205[ \321\322!\322 !\322\n!# \n\257
B\211\207" [f v p symbol do-all apropos-accumulator nil (apropos-regexp apropos-pattern apropos-all-words-regexp apropos-words apropos-all-words do-all apropos-accumulator symbol f v p) apropos-value-internal boundp symbol-value fboundp symbol-function apropos-format-plist "\n " t apropos-false-hit-str + apropos-score-str] 7] apropos-print "\n----------------\n" f apropos-multi-type] 4 (#$ . 22505) (list (apropos-read-pattern "value") current-prefix-arg)])
#@631 Show symbols whose documentation contains matches for PATTERN.
PATTERN can be a word, a list of words (separated by spaces),
or a regexp (using some regexp special characters). If it is a word,
search for matches for that word as a substring. If it is a list of words,
search for matches for any two (or more) of those words.
Note that by default this command only searches in the file specified by
`internal-doc-file-name'; i.e., the etc/DOC file. With \[universal-argument] prefix,
or if `apropos-do-all' is non-nil, it searches all currently defined
documentation strings.
Returns list of symbols and documentation found.
(defalias 'apropos-documentation #[(pattern &optional do-all) "\306!\210 \204\n \n\307\211\310\311!
\307\211\211\211 \312\216rq\210\313 \210 \2034 \314\315!\210\316\307\317\307\320$.\207" [pattern do-all apropos-do-all apropos-accumulator apropos-files-scanned apropos-documentation-sort-by-scores apropos-parse-pattern nil get-buffer-create " apropos-temp" ((kill-buffer standard-input)) apropos-documentation-check-doc-file mapatoms #[(symbol) "\306!\307N\211\250\203 \310\311 !\311\n!\312 !\312\n! \204' \n\205f
\236A\211\203V \203C A \240\210\211@ \\\240\210\n\205f AA\n\240\210\211@\f\\\240\207\313\314\315\" \f# \nF
B\211\207" [symbol f v sf sv apropos-accumulator apropos-safe-documentation variable-documentation nil apropos-documentation-internal apropos-score-doc + apropos-score-symbol 2 apropos-item] 6] apropos-print "\n----------------\n" t sv sf v f apropos-sort-by-scores standard-input] 7 (#$ . 23969) (list (apropos-read-pattern "documentation") current-prefix-arg)])
(defalias 'apropos-value-internal #[(predicate symbol function) " !\205\" \305\n !!\306 \"\205\" \f\203! \307\310\224\310\225\311\f %\210 \207" [predicate symbol function apropos-regexp apropos-match-face prin1-to-string string-match put-text-property 0 face] 6])
(defalias 'apropos-documentation-internal #[(doc) ":\203\n \304@!\207\205> \305 \"\205> \306!\205> \n\205> \307\310!!\305 \"\2043 \305 \"\203= \311\312\224\312\225\313\n%\210\207" [doc apropos-all-words-regexp apropos-match-face apropos-pattern-quoted apropos-documentation-check-elc-file string-match apropos-true-hit-doc substitute-command-keys copy-sequence put-text-property 0 face] 6])
(defalias 'apropos-format-plist #[(pl sep &optional compare) "\306!\307\211\203Y \310\311@A@# \203 \312\f\n\"\203/ \313\314\315@!G\316\317\n%\210\2021 \307\n\203Q \203G
\203G \313\314\224\314\225\316
\n%\210 \211\205N \nQAA\211\204\f *\207" [pl p-out p compare apropos-regexp apropos-match-face symbol-plist nil format "%s %S" string-match put-text-property 0 symbol-name face apropos-property sep] 7])
(defalias 'apropos-documentation-check-doc-file #[nil "\306\211\307\306\211 \310c\210\311u\210\312
P!\210\306u\210\212\313\314!m)?\205\311 \315\307!\210\214` S}\210\316 \306\317#)\203\303 \nTb\210h\320=\203G \307\202H \321\322 `T S{\323!\203\303 \f\321U\203d \324 !\202m \f\307U\203\303 \325 !\203\303 \236\211 \203\204 A\326!\240\204\230 \327 \307\"\326!\\\306\211F\211 B !\203\274 \330!\331\"\"\204\261 \331 \"\203\274 \332\333\224\333\225\334!%\210\f \233\240\210 b\202 -\207" [doc sepb sepa symbol type doc-directory nil 2 31 -1 insert-file-contents search-forward " " beginning-of-line re-search-forward t 70 3 read apropos-true-hit-doc boundp fboundp apropos-score-doc apropos-score-symbol substitute-command-keys string-match put-text-property 0 face internal-doc-file-name apropos-all-words-regexp apropos-accumulator apropos-item apropos-match-face apropos-pattern-quoted] 7])
(defalias 'apropos-documentation-check-elc-file #[(file) " \235?\205\377 \306\211\211\211\211 B\307 \210\310!\210\311\312\306\313#\205\376 \314 `T\315` \316#\306u\210\214\f }\210\317!\306\313#)\203 \320\\b\210\f {\321\225\fZ\321\224\fZ\322
!\203 \323\324!\325\306w\210\306u\210\314 \211 :\203w A@\202y \n\203\206 \326N\202\221 \327 !\203 \330 !\203 \"\236\211#\203\262 #A#\211 $A@)\331
!\\\240\204\310 \332 \320\"\331
!\\\306\211F\211#\"B\"%\203\354 \333
!\334&
\"\204\341 \334!
\"\203\354 \335\321\224\321\225\336%
%\210\n\203\364 \337\202\365 \320#\233
\240\210\202 -\207" [file apropos-files-scanned this-is-a-variable end beg doc nil erase-buffer insert-file-contents search-forward "\n#@" t read + -1 re-search-forward 2 0 apropos-true-hit-doc looking-at "(def\\(var\\|const\\) " "(a-z" variable-documentation fboundp apropos-safe-documentation apropos-score-doc apropos-score-symbol substitute-command-keys string-match put-text-property face 3 symbol apropos-all-words-regexp apropos-accumulator apropos-item x apropos-match-face apropos-pattern-quoted] 7])
#@91 Like `documentation', except it avoids calling `get_doc_string'.
Will return nil instead.
(defalias 'apropos-safe-documentation #[(function) "\203 9\203 \302!\205 K\211\204 \242\303=\203 A\304!\2033 G\305V\205a \305H\202a \211\242)\306=\203C \3078\202a \242\310=\205a \3078;\203W \3078\202a \3118;\205a \3118\211\250?\205i \207" [function object fboundp macro byte-code-function-p 4 autoload 2 lambda 3] 3 (#$ . 28768)])
#@44 If non-nil, use a single line per binding.
(custom-declare-variable 'apropos-compact-layout nil '(#$ . 29221) :type 'boolean)
#@558 Output result of apropos searching into buffer `*Apropos*'.
The value of `apropos-accumulator' is the list of items to output.
Each element should have the format
(SYMBOL SCORE FN-DOC VAR-DOC [PLIST-DOC WIDGET-DOC FACE-DOC GROUP-DOC]).
The return value is the list that was in `apropos-accumulator', sorted
alphabetically by symbol name; but this function also sets
`apropos-accumulator' to nil before returning.
If SPACING is non-nil, it should be a string; separate items with that string.
If non-nil TEXT is a string that will be printed as a heading.
(defalias 'apropos-print #[(do-keys spacing &optional text nosubst) "\204\f \306\307 \"\210\202\370\310\311\"\nr\312\313!q\210p\314 \210 \315\211\316\211@\316 A B\317 \210\320\321!\210+\211 C Dp\316\315\211 E F B G HDq\210\322 \210\323\324!I\203[ \325\202\\ \326\327\261\210J\203k J\330\261\210H\315 K\211 L\203\330L@KM\203\211 o\204\211 \331M!\210K@FK\211 NA@)\247\204\245 K@\315KABBK\332\333F!\334\335\336I\337\335&\210O\340=\203\325 K\211 NA@)\203\325 \341\342K\211 NA@)!\343\261\210P\204\205Q\203\202\344F!\203\202F\345=\204\202\346\347\350\"\203\202rGq\210\351F!)\315 R\211 S\315 T\211 L\203VL@T\352\315 U\211 VTGW\203@\353TVH!\2044\354TVH!\2037\316UVT\211V\202U\204LTRBR*LA\211L\204
*R\211E*\203k\355\356E\357#c\210\202\202\360c\210\361`\362Z`\363Z\337\364$\210\361`\365Z`\337\364$\210\366 \210\367\370\344F!\203\222\371\202\236\372F!\203\235\373\202\236\374W?#\210\367\365\375W?#\210\367\376\377\316#\210\367\201Z \201[ \316#\210\367\201\\ \201] \316#\210\367\201^ \201_ \315#\210LA\211L\204v *\201` \201X !\210\316X\201` \201Y !\210\316Y-\201a C!\210+\315\207" [apropos-accumulator apropos-pattern default-directory #1=#:old-dir buffer-read-only buffer-file-name message "No apropos matches for `%s'" sort #[(a b) "\203* \211A@) \211A@)V\206/ \211A@) \211A@)U\205) @ @\231\207 @ @\231\207" [apropos-sort-by-scores a x b] 3] get-buffer-create "*Apropos*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook apropos-mode substitute-command-keys "Type \\[apropos-follow] on " "a type label" "an entry" " to view its full documentation.\n\n" "\n\n" princ insert-text-button symbol-name type apropos-symbol skip face verbose " (" number-to-string ") " commandp self-insert-command indent-to 30 1 where-is-internal 0 framep bufferp mapconcat #[(key) "\301\302\303\217\304\305G\306\307%\210\207" [key nil (key-description key) ((error)) put-text-property 0 face apropos-keybinding] 6] ", " "M-x ... RET" put-text-property 11 8 apropos-keybinding 3 terpri apropos-print-doc 2 apropos-command apropos-macrop apropos-macro apropos-function apropos-variable 7 apropos-group buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output item symbol old-buffer p apropos-multi-type text apropos-item --dolist-tail-- spacing x apropos-sort-by-scores apropos-compact-layout do-keys filtered keys key loser i nosubst truncate-partial-width-windows truncate-lines 6 apropos-face 5 apropos-widget 4 apropos-plist make-local-variable internal-temp-output-buffer-show] 9 (#$ . 29354)])
#@37 Return t if SYMBOL is a Lisp macro.
(defalias 'apropos-macrop #[(symbol) "\302!\205$ K\211:\205$ @\303=\206$ \211\242)\304=\205$ \3058\306>\207" [symbol object fboundp macro autoload 4 (macro t)] 3 (#$ . 32543)])
(defalias 'apropos-print-doc #[(i type do-keys) " 8\211;\205\271 \203 \306\307\310\311#\312\261\210\202 \313c\210\f\203Y \314
\315\"\211 $:\2040 $C$\316 \203? \317\320\314
\321\"\"\202C \314
\322\"\305
\323 @%\210 \203R \312\202S \324c\210)\202g \316\312\305
\325\326\315\327\323 @& \210`i % &\n\330\232\203x \331\202\201 '\203\201 \332\n!\nc\210\n\331\232\203\222 \333&`\334\335$\210\336(\250\203\236 (\202\240 )\\\337%\340\" * )\341&`\342\326$\210,n\206\271 \343 )\207" [i apropos-item doc apropos-compact-layout apropos-multi-type type propertize " " display (space :align-to 32) " " " " button-type-get face insert-text-button format "<%s>" apropos-short-label apropos-label apropos-symbol ": " skip t default "" "(not documented)" substitute-command-keys put-text-property font-lock-face shadow 5 make-string 32 fill-region nil terpri button-face ocol opoint do-keys emacs-lisp-docstring-fill-column fill-column fill-prefix] 11])
#@74 Invokes any button at point, otherwise invokes the nearest label button.
(defalias 'apropos-follow #[nil "\304\305 !\206\n \306\307!\310\203 \311 \312\"\206 \311 \302\"\313\n!\203; \314 r\315\216\316\317\320\n!!!\210\nb\210\321\322!+\202> \n !+\207" [use-mouse-action button action save-selected-window--state apropos-next-label-button line-beginning-position error "There is nothing to follow here" nil button-get mouse-action markerp internal--before-save-selected-window ((internal--after-save-selected-window save-selected-window--state)) select-window display-buffer marker-buffer recenter 0] 4 (#$ . 33722) nil])
#@45 Display a pretty listing of SYMBOL's plist.
(defalias 'apropos-describe-plist #[(symbol) "\306\307D\310\311!\"\210 \312\211\223\210\312\313 B\f r\314\315 !q\210p\316 \210
\312\211!\"\317\211#\317 $ %\320 \210\321\322!\210+\211 &\211 'q\210\323\324!\210\325!\210\323\326!\210\327e\330\\`\331Z\332\333$\210\334\335\"c\210\323\336!\337&!\210+\340\n!\210*\207" [symbol help-window-point-marker help-window temp-buffer-show-hook default-directory #1=#:old-dir help-setup-xref apropos-describe-plist called-interactively-p interactive nil #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook princ "Symbol " prin1 "'s plist is\n (" put-text-property 7 14 face apropos-symbol apropos-format-plist "\n " ")" internal-temp-output-buffer-show help-window-setup buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 6 (#$ . 34354)])
(provide 'apropos)