| Current File : //proc/self/root/kunden/kunden/proc/thread-self/root/usr/share/emacs/27.2/lisp/apropos.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\344&\210\317\345\346\347\306\303\323\324&\210\312\350\351\352\315\353\306\303\323\324& \210\312\354\304\355\306\303\315\356&\210\312\357\360\361\306\303\315\362&\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-user-option' will search all variables, not just user options.\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-user-option-button ((t (:inherit (font-lock-variable-name-face button)))) "Button face indicating a user option in Apropos." "24.4" 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." (choice (const nil) face) 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))] 10)
#@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) (#$ . 3677))
#@34 Hook run when mode is turned on.
(defvar apropos-mode-hook nil (#$ . 3912))
#@37 Apropos pattern as entered by user.
(defvar apropos-pattern nil (#$ . 3994))
#@48 Apropos pattern passed through `regexp-quote'.
(defvar apropos-pattern-quoted nil (#$ . 4077))
#@65 Current list of apropos words extracted from `apropos-pattern'.
(defvar apropos-words nil (#$ . 4178))
#@37 Current list of words and synonyms.
(defvar apropos-all-words nil (#$ . 4287))
#@37 Regexp used in current apropos run.
(defvar apropos-regexp nil (#$ . 4372))
#@38 Regexp matching `apropos-all-words'.
(defvar apropos-all-words-regexp nil (#$ . 4454))
#@78 List of elc files already scanned in current run of `apropos-documentation'.
(defvar apropos-files-scanned nil (#$ . 4547))
#@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 (#$ . 4678))
#@47 Current item in or for `apropos-accumulator'.
(defvar apropos-item nil (#$ . 5250))
#@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")) (#$ . 5341))
#@227 List of current Apropos function followed by its arguments.
Used by `apropos--revert-buffer' to regenerate the current
Apropos buffer. Each Apropos command should ensure it is set
before `apropos-mode' makes it buffer-local.
(defvar apropos--current nil (#$ . 5632))
(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) "\301\302\303!!\206 \304\305\306!\"!\207" [button button-activate apropos-next-label-button button-start error "There is nothing to follow for `%s'" button-label] 5 (#$ . 6084)])
(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\355\310\356\312\313\314\357&
\210\300\360\302\361\304\362\306\355\310\363\312\313\314\364&
\210\300\365\302\366\304\367\306\355\310\370\312\313\314\371&
\210\300\372\310\373\312\313\314\374&\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-user-option "User option" "o" apropos-user-option-button "mouse-2, RET: Display more help on this user option" #[(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 (#$ . 8927)])
#@120 Make regexp matching any two of the words in WORDS.
WILD should be a subexpression matching wildcards between matches.
(defalias 'apropos-words-to-regexp #[(words wild) "\301\302!!\211A\204 @\207\303\304\305#\207" [words delete-dups copy-sequence mapconcat #[(w) "\303\304 \303\305\306\307\310\n!\"\311#\304\260\207" [w wild words "\\(?:" "\\)" mapconcat identity delq copy-sequence "\\|"] 11] "\\|"] 5 (#$ . 9458)])
#@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#\206 \311\312!\202 )\207" [subject pattern read-string "Search for " " (word list or regexp): " regexp-quote split-string "[ ]+" t user-error "No word list given"] 4 (#$ . 9890)])
#@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 (#$ . 10457)])
#@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 (#$ . 11310)])
#@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 (#$ . 11695)])
#@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 (#$ . 11991)])
#@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 (#$ . 12363)])
#@169 Return t if STR is a genuine hit.
This may fail if only one of the keywords is matched more than once.
This requires at least two 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 (#$ . 12692)])
#@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 (#$ . 13005)])
#@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 (#$ . 13214)])
#@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 (#$ . 13394)])
#@111 Regenerate current Apropos buffer using `apropos--current'.
Intended as a value for `revert-buffer-function'.
(defalias 'apropos--revert-buffer #[(_ignore-auto noconfirm) "\204\n \302\303!\205 \304\305 \"\207" [noconfirm apropos--current yes-or-no-p "Revert apropos buffer? " apply funcall] 3 (#$ . 13573)])
(defvar apropos-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [apropos-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar apropos-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [apropos-mode-abbrev-table apropos-mode-map variable-documentation put purecopy "Keymap for `apropos-mode'." boundp apropos-mode-syntax-table definition-name apropos-mode (lambda (#1=#:def-tmp-var) (defvar apropos-mode-syntax-table #1#)) make-syntax-table "Syntax table for `apropos-mode'." (lambda (#1#) (defvar apropos-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `apropos-mode'." derived-mode-parent special-mode] 5)
#@263 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 or penultimate 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 \306\331!\210\306\332!\210\333)\334\335!\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 apropos--current revert-buffer-function apropos--revert-buffer run-mode-hooks apropos-mode-hook apropos-mode-abbrev-table local-abbrev-table] 6 (#$ . 15046) 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 (#$ . 16145))
#@419 Show user options 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
variables, not just user options.
(defalias 'apropos-user-option #[(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 (#$ . 16317) (list (apropos-read-pattern (if (or current-prefix-arg apropos-do-all) "variable" "user option")) current-prefix-arg)])
#@216 Show variables that match PATTERN.
With the optional argument DO-NOT-ALL non-nil (or when called
interactively with the prefix \[universal-argument]), show user
options only, i.e. behave like `apropos-user-option'.
(defalias 'apropos-variable #[(pattern &optional do-not-all) "?\205 \303\304\n!)\207" [do-not-all apropos-do-all pattern t apropos-user-option] 2 (#$ . 17131) (list (apropos-read-pattern (if current-prefix-arg "user option" "variable")) current-prefix-arg)])
#@222 Show buffer-local variables that match PATTERN.
Optional arg BUFFER (default: current buffer) is the buffer to check.
The output includes variables that are not yet set in BUFFER, but that
will be buffer-local when set.
(defalias 'apropos-local-variable #[(pattern &optional buffer) "\204 p\302 \303\304#\207" [buffer pattern apropos-command nil #[(symbol) "\301!\205 \302N\207" [symbol local-variable-if-set-p variable-documentation] 2]] 4 (#$ . 17615) (list (apropos-read-pattern "buffer-local variable"))])
(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 \nF\307!\210\310\311! \312\313!) \204 #\314$\n\206* \203) \315\202* \316\"\211%\211 &\203V &@\317N\204D \320&@!\203M \321&@%\"%&A\211&\2044 )%\322\211\211 ' ( )\211 *\203\367 *\211@\211(\323(!\211'\n?\205\271 \315(!\205\271 \3241\217 \325(\326\"0\202\221 \210\327\211)\203\270 )\327=\203\242 \330\202\271 '\331)!\\'\332)\333\334\335)\"#\202\271 \336\n\205\343 \n(!\205\343 \337(\340\326#\211)\205\343 '\331)!\\'\332)\333\334\335)\"#F\240\210*@A'\240\210*A\211*\204h , +\341\326\322\211\326$)\205
\205
\305\342
\")\207" [pattern do-all var-predicate apropos--current standard-output message apropos-command 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 (error) documentation t error "(documentation error)" apropos-score-doc substring 0 string-match "\n" "(not documented)" documentation-property variable-documentation apropos-print "%s" apropos-do-all apropos-regexp apropos-accumulator tem score symbol doc p apropos-multi-type] 11 (#$ . 18184) (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) "\3041 \305 \n#\211\203 \306 \307\310\311 \"#\202 \312)0\207\210\313\207" [symbol property raw doc (error) documentation-property substring 0 string-match "\n" "(not documented)" "(error retrieving documentation)"] 7 (#$ . 20202)])
#@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) "\305 E\306!\210\307\310 ?\205 \f?\205 \311\" \206 \f\"\207" [pattern do-all apropos--current apropos-regexp apropos-do-all apropos 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 (#$ . 20581) (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) "\306D\307\211\211\310\n\" \204U \n\311\312!\313Q \203K \204K @@;\203B \314@@\"\203B @\202 A\211\204$ * \204U \315\316\"\210 A\307 \211 \203\245 @\211 \242\211 \317\267\202\216 A\fB\202\233 A
B\202\233 \202\233 A@
B\202\233 \243\206\226 B) A\211 \204` *\320 \321 \322\323\324\325
\206\270 \326\327#\324\325\f\206\301 \330\327#$\260#-\207" [file apropos--current load-history lh-entry requires provides apropos-library nil assoc "\\(?:\\`\\|[\\/]\\)" regexp-quote "\\(\\.\\|\\'\\)" string-match error "Unknown library `%s'" #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (require 111 provide 120 t 129 cl-defmethod 132)) "" apropos-symbols-internal format-message "Library `%s' provides: %s\nand requires: %s" mapconcat apropos-library-button (nil) " and " (nil) symbols re lh x --dolist-tail-- #1=#:val apropos-pattern apropos-do-all] 12 (#$ . 21857) (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!\2058 \3071% \3101 \311\n\312\"00\202' 0\210\313\202' \210\314\211\2037 \315 \316\317\320 \"#\2028 \321\322\n!\205C \323\n\324\312#\325\n!\211\205e @CAA\211\203_ @ B\202O \326\327 \237\330#\n\331N\205p \323\n\332\312#\333\n!\205\240 \n\334N\211\203\232 \333 !\203\226 \335\336\n\337N\203\220 \340\202\221 \341 #\202\237 \342\202\237 \323\n\343\312#)\n\344N\205\253 \323\n\345\312#\257*\207" [properties doc symbol alias nil apropos-score-symbol fboundp (error) (void-function) documentation t "(alias for undefined function)" "(can't retrieve function documentation)" substring 0 string-match "\n" "(not documented)" boundp apropos-documentation-property variable-documentation symbol-plist mapconcat #[(p) "\301\302\"\207" [p format "%s"] 3] " " widget-type widget-documentation facep face-alias format-message "%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 E\307!\210 \204 \310\211\310\211
\311\312!\210+ \313\310\314\")\207" [pattern do-all apropos--current apropos-do-all apropos-accumulator p apropos-value 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" v f apropos-multi-type] 4 (#$ . 24639) (list (apropos-read-pattern "value") current-prefix-arg)])
#@194 Show buffer-local variables whose values match PATTERN.
This is like `apropos-value', but only for buffer-local variables.
Optional arg BUFFER (default: current buffer) is the buffer to check.
(defalias 'apropos-local-value #[(pattern &optional buffer) "\204 p\306 E\307 !\210\310\211 \311\312!\210)\310 \313V\2039 \314\310\315\316\317\320! :\2032 \321\2023 \322 $#\202= \314\310\315\")\207" [buffer pattern apropos--current apropos-accumulator var apropos-multi-type apropos-local-value apropos-parse-pattern nil mapatoms #[(symb) "\303>\204\f \304\305\306#\307\310!\203 \310 !\203 \311 \205) \312 !\311 F\nB\211\207" [symb var apropos-accumulator (apropos-regexp apropos-pattern apropos-all-words-regexp apropos-words apropos-all-words apropos-accumulator symb var) apropos-value-internal local-variable-if-set-p symbol-value fboundp apropos-false-hit-str nil apropos-score-str] 4] 20 apropos-print "\n----------------\n" format "Buffer `%s' has the following local variables\nmatching %s`%s':" buffer-name "keywords " "" emacs-major-version] 9 (#$ . 26140) (list (apropos-read-pattern "value of buffer-local variable"))])
#@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 E\307!\210 \204 \310\211\311\312!\310\211\211\211 \313\216rq\210\314 \210 \203: \315\316!\210\317\310\320\310\321$.\207" [pattern do-all apropos--current apropos-do-all apropos-accumulator apropos-files-scanned apropos-documentation apropos-parse-pattern nil get-buffer-create " apropos-temp" #[nil "\301!\207" [standard-input kill-buffer] 2] 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 apropos-documentation-sort-by-scores sv sf v f apropos-sort-by-scores standard-input] 7 (#$ . 27289) (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\205C ;\205C \305 \"\205C \306!\205C \n\205C \307\310!!\305 \"\2048 \305 \"\203B \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\373 \306\211\211\211\211 B\307 \210\310!\210\311\312\306\313#\205\372 \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\256 #A#A@\331
!\\\240\204\304 \332 \320\"\331
!\\\306\211F\211#\"B\"$\203\350 \333
!\334%
\"\204\335 \334!
\"\203\350 \335\321\224\321\225\336$
%\210\n\203\360 \337\202\361 \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 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 K\211\204 \242\301=\203 A\302!\203- G\303V\205[ \303H\202[ \211\242\304=\262\203= \3058\202[ \242\306=\205[ \3058;\203Q \3058\202[ \3078;\205[ \3078\211\250?\205c \207" [function macro byte-code-function-p 4 autoload 2 lambda 3] 4 (#$ . 32153)])
#@44 If non-nil, use a single line per binding.
(custom-declare-variable 'apropos-compact-layout nil '(#$ . 32582) :type 'boolean)
#@743 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 DO-KEYS is non-nil, output the key bindings. If NOSUBST is
nil, substitute "ASCII quotes" (i.e., grace accent and
apostrophe) with curly quotes), and if non-nil, leave them alone.
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\f\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\322\315\211 E F G B H IDq\210\323 \210\324\325!J\203^ \326\202_ \327\330\261\210K\203n K\331\261\210I\315 L\211 M\203\353M@LN\203\214 o\204\214 \332N!\210L@FLA@\247\204\244 L@\315LABBL`GU\203\256 \333 \210\334\335F!\336\337\340J\341\337&\210`GO\342=\203\331 LA@\203\331 \343\344LA@!\345\261\210P\204\211Q\203\206\346F!\203\206F\347=\204\206\350\351\352\"\203\206rHq\210\353F!)\315 R\211 S\315 T\211 M\203ZM@T\322\315 U\211 VTGW\203D\354TVH!\2048\355TVH!\203;\316UVT\211V\202 U\204PTRBR*MA\211M\204*R\211E*\203o\356\357E\360#c\210\202\206\361c\210\362`\363Z`\364Z\341\365$\210\362`\366Z`\341\365$\210\333 \210\367\370\346F!\203\226\371\202\242\372F!\203\241\373\202\242\374W?#\210\367\366\375F!\203\264\376\202\265\377W?#\210\367\201Z \201[ \316#\210\367\201\\ \201] \316#\210\367\201^ \201_ \316#\210\367\201` \201a \315#\210MA\211M\204y *\201b \201X !\210\316X\201b \201Y !\210\316Y.\201c 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 A@\nA@V\206# A@\nA@U\205 @\n@\231\207 @\n@\231\207" [apropos-sort-by-scores a b] 2] get-buffer-create "*Apropos*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook 0 apropos-mode substitute-command-keys "Type \\[apropos-follow] on " "a type label" "an entry" " to view its full documentation.\n\n" "\n\n" princ terpri 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 framep bufferp mapconcat #[(key) "\3011 \302!0\202
\210\303\304\305G\306\307%\210\207" [key (error) key-description nil put-text-property 0 face apropos-keybinding] 6] ", " "M-x ... RET" put-text-property 11 8 apropos-keybinding 3 apropos-print-doc 2 apropos-command macrop apropos-macro apropos-function custom-variable-p apropos-user-option apropos-variable buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output item symbol button-end old-buffer p apropos-multi-type text apropos-item --dolist-tail-- spacing apropos-sort-by-scores apropos-compact-layout do-keys filtered keys key loser i nosubst truncate-partial-width-windows truncate-lines 7 apropos-group 6 apropos-face 5 apropos-widget 4 apropos-plist make-local-variable internal-temp-output-buffer-show] 9 (#$ . 32715)])
(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 "\300\301\302 !\206 \303\304!!\207" [button-activate apropos-next-label-button line-beginning-position error "There is nothing to follow here"] 3 (#$ . 37104) nil])
#@45 Display a pretty listing of SYMBOL's plist.
(defalias 'apropos-describe-plist #[(symbol) "\306\307D\310\311!\"\210 \312\211\223\210\313\nB\314 B\315 \316 \317
!\211 !\312\211 \" #!q\210\320\321!\210\322!\210\320\323\324!!\210\325e\326\\`\327Z\330\331$\210\332\333\"c\210\320\334!#r q\210\335 \312\"\")\336\337!\203n \337\"#\"\202p #.\207" [symbol help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame #1=#:vbuffer-or-name help-setup-xref apropos-describe-plist called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup princ "Symbol " prin1 substitute-command-keys "'s plist is\n (" put-text-property 7 14 face apropos-symbol apropos-format-plist "\n " ")" temp-buffer-window-show functionp help-window-setup #2=#:buffer standard-output #3=#:window #4=#:value] 6 (#$ . 37381)])
(provide 'apropos)