;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib help-mode radix-tree] 2)
#@457 List of functions to run in help buffer in `describe-function'.
Those functions will be run after the header line and argument
list was inserted, and before the documentation is inserted.
The functions will be called with one argument: the function's symbol.
They can assume that a newline was output just before they were called,
and they should terminate any of their own output with a newline.
By convention they should indent their output by 2 spaces.
(defvar help-fns-describe-function-functions nil (#$ . 179))
#@551 List of functions to run in help buffer in `describe-variable'.
Those functions will be run after the header line and value was inserted,
and before the documentation will be inserted.
The functions will receive the variable name as argument.
They can assume that a newline was output just before they were called,
and they should terminate any of their own output with a newline.
By convention they should indent their output by 2 spaces.
Current buffer is the buffer in which we queried the variable,
and the output should go to `standard-output'.
(defvar help-fns-describe-variable-functions nil (#$ . 703))
#@257 List of functions to run in help buffer in `describe-face'.
The functions will be used (and take the same parameters) as
described in `help-fns-describe-variable-functions', except that
the functions are called with two parameters: The face and the
frame.
(defvar help-fns-describe-face-functions nil (#$ . 1321))
#@219 Internal variable let-bound to help functions that have triggered.
Help functions can check the contents of this list to see whether
a specific previous help function has inserted something in the
current help buffer.
(defvar help-fns--activated-functions nil (#$ . 1642))
#@60 Radix-tree representation replacing `definition-prefixes'.
(defvar help-definition-prefixes nil (#$ . 1921))
#@65 Return the up-to-date radix-tree form of `definition-prefixes'.
(defalias 'help-definition-prefixes #[0 "\302!\303V\203\304\305\"\210\306!\210	\207" [definition-prefixes help-definition-prefixes hash-table-count 0 maphash #[514 "\301\"\302\303\"#\211\207" [help-definition-prefixes radix-tree-lookup radix-tree-insert append] 9 "\n\n(fn PREFIX FILES)"] clrhash] 3 (#$ . 2036)])
#@64 Try and figure out if FILE has already been loaded.

(fn FILE)
(defalias 'help--loaded-p #[257 "\302
!\211\205\n\303
!\262
\206>\304
!\305\211\203;\211@\211@;\2034
@\305\306\307#)\266\203\2034\306\262
A\266\202\202\210\262
\207" [load-history inhibit-changing-match-data intern-soft featurep load-history-regexp nil t string-match] 12 (#$ . 2433)])
#@17 

(fn PREFIXES)
(defalias 'help--load-prefixes #[257 "\211\211\205B\211@\211\242
\243\301\302#\211\211\2039\211@\303
!\2042\3041,\305
\306\307#0\210\2022\310\311\"\266
A\266\202\202\266
A\266\202\202
\207" [help-definition-prefixes radix-tree-insert nil help--loaded-p (debug error) load noerror nomessage message "while loading: %S"] 11 (#$ . 2802)])
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\210\310\302\311\312\313DD\314\315\316\317\320\321\322&	\210\310\323\311\312\324DD\325\315\316\317\320\321\326&	\207" [defvaralias help-enable-completion-auto-load help-enable-completion-autoload nil (saved-value saved-variable-comment) put make-obsolete-variable "27.1" custom-declare-variable funcall function #[0 "\300\207" [t] 1 #1=""] "Whether completion for Help commands can perform autoloading.\nIf non-nil, whenever invoking completion for `describe-function'\nor `describe-variable' load files that might contain definitions\nwith the current prefix.  The files are chosen according to\n`definition-prefixes'." :type boolean :group help :version "26.3" help-enable-symbol-autoload #[0 "\300\207" [nil] 1 #1#] "Perform autoload if docs are missing from autoload objects." "28.1"] 10)
#@54 Return symbol class characters for symbol S.

(fn S)
(defalias 'help--symbol-class #[257 "\211;\203\n\300
!\262
\301
!\205G\302
!\203\303\202'\211K\242\304=\203&\305\202'\306\307!\310
\242\304=\2037
A\2028
!\262
\205?\311\312N\205F\313Q\314!\205\315!\203W\316\202X\317\320!\205_\321\3221nJ\323!\232?0\202s\210\324\202w\205w\325\326N\205~\313R\327!\205\206\330\301\331!\205\223\331!\205\223\332R\207" [intern-soft fboundp commandp "c" macro "m" "f" indirect-function advice--p "!" byte-obsolete-info "-" boundp custom-variable-p "u" "v" local-variable-if-set-p "'" (error) default-value nil "*" byte-obsolete-variable facep "a" cl-find-class "t"] 7 (#$ . 4100)])
#@20 

(fn COMPLETIONS)
(defalias 'help--symbol-completion-table-affixation #[257 "\300\301\"\207" [mapcar #[257 "\300
!\3011\302
!0\202\210\303\211\205\211\304\305\306\"O\307\310\311\312!\"\313\314#\2036\307\310\315\"\313\314#\2027\316E\207" [intern (error) documentation nil 0 string-search "\n" propertize format "%-4s" help--symbol-class face completions-annotations " -- %s" ""] 10 "\n\n(fn C)"]] 4 (#$ . 4802)])
#@27 

(fn STRING PRED ACTION)
(defalias 'help--symbol-completion-table #[771 "\211\304=\203\304\305\205
\306\307\"B\207	\203\310\311 \"\312
!\266	\205*\313\314\315\n\"\"\316\205;\317\320#$\207" [completions-detailed help-enable-completion-autoload definition-prefixes obarray metadata append ((affixation-function . help--symbol-completion-table-affixation)) ((category . symbol-help)) radix-tree-prefixes help-definition-prefixes help--load-prefixes mapcar intern all-completions complete-with-action make-closure #[257 "\300
!\206	\211\301>\207" [V0 V1] 3 "\n\n(fn SYM)"]] 12 (#$ . 5236)])
#@156 Buffer that was current when `describe-function' was invoked.
Functions on `help-fns-describe-function-functions' can use this
to get buffer-local values.
(defvar describe-function-orig-buffer nil (#$ . 5853))
#@181 Prompt for a function from `describe-function' or `describe-command'.
If optional argument WANT-COMMAND is non-nil, prompt for an
interactive command.

(fn &optional WANT-COMMAND)
(defalias 'help-fns--describe-function-or-command-prompt #[256 "\211\203\n@@\202\f\302 \303\203\304\202\305\"\306\307
\310\311\312\"\306\313\211\205.\314	!&\211\315\232\204;\316
!\262\203D9\204P\317\203M\320\202N\321!\210\322!\204i\323N\204i\317\203e\324\202f\325\"\210)C\207" [command-history enable-recursive-minibuffers function-called-at-point format-prompt "Describe command" "Describe function" t completing-read help--symbol-completion-table make-closure #[257 "\300\203\301
!\207\302
!\206\211\303N\207" [V0 commandp fboundp function-documentation] 3 "\n\n(fn F)"] nil symbol-name "" intern user-error "You didn't specify a command's symbol" "You didn't specify a function symbol" fboundp function-documentation "Symbol is not a command: %s" "Symbol's function definition is void: %s"] 12 (#$ . 6070)])
#@228 Display the full documentation of FUNCTION (a symbol).
When called from Lisp, FUNCTION may also be a function object.

See the `help-enable-symbol-autoload' variable for special
handling of autoloaded functions.

(fn FUNCTION)
(defalias 'describe-function #[257 "\206p\306\307E\310\311!\"\210\212	\312\211\223\210\313\nB\314B\315 \316 \317
!\211\312\211\320N\2037\321!\210\202;\322!\210\321\323!\210\324!\210r
q\210\325 )\262
rq\210\326\312\"\262)\327\330!\203d\330\"\202e\211)\266\204,\207" [describe-function-orig-buffer help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output help-setup-xref describe-function--helper called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup reader-construct princ prin1 " is " describe-function-1 buffer-string temp-buffer-window-show functionp help-window-setup] 8 (#$ . 7107) (help-fns--describe-function-or-command-prompt)])
#@131 Display the full documentation of COMMAND (a symbol).
When called from Lisp, COMMAND may also be a function object.

(fn COMMAND)
(defalias 'describe-command #[257 "\300
!\207" [describe-function] 3 (#$ . 8136) (byte-code "\300\301!\207" [help-fns--describe-function-or-command-prompt is-command] 2)])
#@197 Return the name of the C file where SUBR-OR-VAR is defined.
KIND should be `var' for a variable or `subr' for a subroutine.
If we can't find the file name, nil is returned.

(fn SUBR-OR-VAR KIND)
(defalias 'help-C-file-name #[514 "\303\304!
\305=\203\306\307!P\202#\3109\203\307!\202\"\311\312!!Pr
q\210eb\210m\2035\313\314	\"!\210\3152k\316\317\320Q\321\322#\211\204N\323\315\321\"\266\2029\324\325!\210\326\327!\211\n\235\203d\323\315\"\266\2029
b\266\2029\211\205\237\330\331\"\203\202\332\333\322\211\327%\262
\202\221\330\334\"\203\221\332\335\322\211$\262
\330\336\"\203\236\337
P\202\237\211\262
)\207" [internal-doc-file-name doc-directory build-files get-buffer-create " *DOC*" var "V" symbol-name "F" subr-name advice--cd*r insert-file-contents-literally expand-file-name loop search-forward "" "\n" nil t throw re-search-backward "S\\(.*\\)" match-string 1 string-match "^ns.*\\(\\.o\\|obj\\)\\'" replace-match ".m" "\\.\\(o\\|obj\\)\\'" ".c" "\\.\\(c\\|m\\)\\'" "src/"] 11 (#$ . 8445)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\207" [custom-declare-variable help-downcase-arguments funcall function #[0 "\300\207" [nil] 1 ""] "If non-nil, argument names in *Help* buffers are downcased." :type boolean :group help :version "23.2"] 10)
#@183 Highlight ARG as an argument name for a *Help* buffer.
Return ARG in face `help-argument-name'; ARG is also downcased
if the variable `help-downcase-arguments' is non-nil.

(fn ARG)
(defalias 'help-highlight-arg #[257 "\301\203\n
\227\202
\302\303#\207" [help-downcase-arguments propertize face help-argument-name] 5 (#$ . 9759)])
#@17 

(fn DOC ARGS)
(defalias 'help-do-arg-highlight #[514 "\301 p\302\303#\216\304\305!!\210\306\307\310\"\210\211\2035\211@\311\312\313!\314Q\315!\316\211\317&\262
A\266\202\202\210)\207" [emacs-lisp-mode-syntax-table syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table make-syntax-table modify-syntax-entry 45 "w" replace-regexp-in-string "\\<\\(?:[a-z-]*-\\)?\\(" regexp-quote "\\)\\(?:es\\|s\\|th\\)?\\(?:-[a-z0-9-]+\\)?\\(?:-[{([<`\"‘].*?\\)?\\>" help-highlight-arg t 1] 13 (#$ . 10100)])
#@29 

(fn USAGE DOC &rest ARGS)
(defalias 'help-highlight-arguments #[642 "\203\206\301\302\"\203\206\303\304\305\"r\211q\210\306\307\"\216c\210eb\210\310\206&\311\312!?\310\313\310w\210
\203m\211\204?\311\314!\203?\305\262
\315\316\310\305#\204M\310\262\202.\317\320!B\262\211\203.\317\321!\322\230\203.\323\322!\210\324`\321\"b\210\202.\325\326 \"\262\205\325\"\262)\266*\210B\207" [case-fold-search string-match "^(" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] nil looking-at "\\[" "^ " " &" re-search-forward " \\([\\[(]*\\)\\([^] &).]+\\)" match-string 2 1 "(" search-backward scan-sexps help-do-arg-highlight buffer-string] 11 (#$ . 10663)])
#@689 Guess the file that defined the Lisp object OBJECT, of type TYPE.
OBJECT should be a symbol associated with a function, variable, or face;
  alternatively, it can be a function definition.
If TYPE is `defvar', search for a variable definition.
If TYPE is `defface', search for a face definition.
If TYPE is not a symbol, search for a function definition.

The return value is the absolute name of a readable file where OBJECT is
defined.  If several such files exist, preference is given to a file
found via `load-path'.  The return value can also be `C-source', which
means that OBJECT is a function or variable defined in C.  If no
suitable file is found, return nil.

(fn OBJECT TYPE)
(defalias 'find-lisp-object-file-name #[514 "\211\211\242\301=\262
\211\203
A@\206\3029\203\206\303\"
\203-\304
\305\306$\262
\202l\211;\203l\307\310\"\203l\3111F\312\313#0\202H\210\313\211A\203kr\211@q\210\211Ab\210\314\315\313\316#\203j\304\317\320\321!!\322\306$\262)\210\211\204\203\323!\203\203\324\325!\203\201\326\327\"\207\330\207\211\204\2469\203\246\331=\203\246\332N\250\203\246\324\325!\203\244\326\333\"\207\330\207\211;\204\255\313\207\313\307\334\335!\"\205\317\336!\337\340\341!!\230\205\317\342\317!\211\262!\205\317\211\262
\2060
\307\343\"\203\343\344
\345\346#\202\344\211\342
!\203\356\211\206\367\342
\347P!\205\367\211\262
\2060
\335
!
\304\350#\232\203
\307\343\"\203
\344
\345\346#\202
\211\202

\351
\316\313\306$\211\205.
\342
!\205.
\211\266\203\207" [load-path autoload symbol-file defun locate-file (".el" ".elc") readable string-match "[.]*loaddefs.el\\'" (error) find-function-search-for-symbol nil re-search-backward "^;;; Generated autoloads from \\(.*\\)" t file-name-sans-extension match-string-no-properties 1 (".el" ".elc") subrp get-buffer " *DOC*" help-C-file-name subr C-source defvar variable-documentation var "\\`\\..*\\.elc\\'" file-name-nondirectory file-name-directory file-name-as-directory expand-file-name "~" file-readable-p "[.]elc\\'" substring-no-properties 0 -1 ".gz" ("") locate-library] 11 (#$ . 11417)])
#@17 

(fn FUNCTION)
(defalias 'help-fns--key-bindings #[257 "\302
!\205\371rq\210`)\303!\211\304>\204\341\305
\206	\306\211$\306\307=\203=\310\242!\203=
@\311H:\203=\312\313!\266\202\341
\211\203Z\211@\314
\311H!\315\235\203S\211B\262
A\266\202\202>\210\203w\312\316!\210\3129\203p\317\320\"\202q\321!\210\312\322!\210
\203\314\312\203\204\323\202\205\324!\210\211G\325W\203\235rq\210\326\327\330#c\210)\202\314\211\211\203\261\211@\331
\"\262
A\266\202\202\236\210
\203\310rq\210\326\327\330#c\210\332c\210)\202\314\312\333!\210\204\330
\204\330\211\203\337\312\334!\210\335 \210\266rq\210\336`\"\210\337\340`\341Z\"?\205\366\335 )\266\202\207" [standard-output overriding-local-map commandp command-remapping (ignore undefined) where-is-internal nil self-insert-command vectorp 0 princ "It is bound to many ordinary text characters.\n" event-modifiers (nil (shift)) "Its keys are remapped to " format-message "`%s'" "an anonymous command" ".\n" "Without this remapping, it would be bound to " "It is bound to " 10 mapconcat help--key-description-fontified ", " delq ", and many ordinary text characters" "many ordinary text characters" "." terpri fill-region-as-paragraph looking-back "\n\n" 2] 10 (#$ . 13533)])
#@17 

(fn FUNCTION)
(defalias 'help-fns--compiler-macro #[257 "\300
\301\"\211\205K\302c\210\2119\203)\303\304\"c\210\212\305\306\307!\310\311#\210\312\313\314#\210)\202I
\315N\211;\203H\303\316\"c\210\212\305\306\307!\310\311#\210\312\313\317$\210)\210\320c\207" [function-get compiler-macro "  This function has a compiler macro" format-message " `%s'" re-search-backward substitute-command-keys "`\\([^`']+\\)'" nil t help-xref-button 1 help-function compiler-macro-file " in `%s'" help-function-cmacro ".\n"] 8 (#$ . 14799)])
#@114 Insert usage at point and return docstring.  With highlighting.

(fn FUNCTION DOC REAL-DEF REAL-FUNCTION BUFFER)
(defalias 'help-fns--signature #[1285 "\301!\203\207\302\303#\211<\203\211\202\304!\305\"\211\203'\211A\262\211\2035<\2045\211@\202\212
<\203B\306\"\202\212
;\203K
\202\212\2119\203f\211K\211\262\203f\305\307!\n\"\211\262\203L
\262
\203q\211@\202\212;\204}\310!\203\211\311\312\313\314	!!\"\202\212\315\316\317\320\303$\203\260\321\211rq\210\322!\262\322!\262
)\323\"\266\202\202\264\211	B`
@A
9\203\306
\324N\204\313
\325\261\210\326`\"\210\207" [advertised-signature-table keymapp gethash t help-function-arglist help-split-fundoc help--make-usage-docstring documentation vectorp format "\nMacro: %s" help--docstring-quote format-kbd-macro "[Missing arglist.]" replace-regexp-in-string "\\`(\\\\=\\\\\\\\=` \\([^\n ]*\\))\\'" "\\\\=`\\1" nil substitute-command-keys help-highlight-arguments reader-construct "\n" fill-region] 17 (#$ . 15341)])
#@17 

(fn FUNCTION)
(defalias 'help-fns--parent-mode #[257 "\2119\205\211\300N\211\205)\301\302!c\210`\303\304\"c\210\305
`\306\307\310C&\266\301\311!c\207" [derived-mode-parent substitute-command-keys "  Parent mode: `" format "%s" make-text-button type help-function help-args "'.\n"] 10 (#$ . 16371)])
#@17 

(fn FUNCTION)
(defalias 'help-fns--obsolete #[257 "\2119\205\211\300N\211@
\205H\301K\242\302=\203\303\202\304\305\261\210\3068\203.\307\310\3068\"c\210\211;\2039\311
P\202E\211\203D\312\313\"\202E\314\315\261\207" [byte-obsolete-info "  This " macro "macro" "function" " is obsolete" 2 format " since %s" ";\n  " format-message ";\n  use `%s' instead." "." "\n"] 7 (#$ . 16686)])
(add-hook 'help-fns-describe-function-functions 'help-fns--globalized-minor-mode)
#@17 

(fn FUNCTION)
(defalias 'help-fns--globalized-minor-mode #[257 "\2119\205\211\300N\205\301
\302\"\210\303 \207" [globalized-minor-mode help-fns--customize-variable " the global mode variable." terpri] 4 (#$ . 17175)])
#@134 Return non-nil if FUNCTION has previously been autoloaded.
FILE is the file where FUNCTION was probably defined.

(fn FUNCTION FILE)
(defalias 'help-fns--autoloaded-p #[514 "\301\302!!\303B\304\2031\211\2041@@;\203*\301@@!\232\203*
@A\235\262
A\262\202\n\207" [load-history file-name-sans-extension file-truename t nil] 8 (#$ . 17406)])
#@86 Insert some help blurb if FUNCTION should only be used interactively.

(fn FUNCTION)
(defalias 'help-fns--interactive-only #[257 "\2119\205A\211K\242\301=?\205A\211\302N\206\303\300!\205\211>\211\205?\304
;\203.\305\306\"\202<
\307=\204;\310\311\"\202<\312\313\261\262
\207" [byte-compile-interactive-only-functions macro interactive-only boundp "  This function is for interactive use only" format ";\n  in Lisp code %s" t format-message ";\n  in Lisp code use `%s' instead." "." "\n"] 6 (#$ . 17764)])
(add-hook 'help-fns-describe-function-functions 'help-fns--side-effects)
#@17 

(fn FUNCTION)
(defalias 'help-fns--side-effects #[257 "\2119\205\300
\301\"\204\300
\302\"\205\303\304\261\207" [function-get pure side-effect-free "  This function does not change global state, " "including the match data.\n"] 4 (#$ . 18362)])
(add-hook 'help-fns-describe-function-functions 'help-fns--disabled)
#@17 

(fn FUNCTION)
(defalias 'help-fns--disabled #[257 "\2119\205\300
\301\"\205\302c\207" [function-get disabled "  This function is disabled.\n"] 4 (#$ . 18691)])
#@75 Return the likely first release that defined SYMBOL, or nil.

(fn SYMBOL)
(defalias 'help-fns--first-release #[257 "\301
!\302\303!\304Q\305\306\307#\310\211\311\312\306\"r\211q\210\313\314\"\216\211\203t\211@\315 \210\316
!\210eb\210\317\320!\210\321\310\306#\203m\322\224\212\323\324\310\306#\204P\325\326\327!\"\210\202h\330\331!\203_\332
\"\203gD\262\211\262\210)\210\2022
A\266\202\202\210*\210\211\205\205\333
\310\334\335\336&\207" [data-directory symbol-name "\\_<" regexp-quote "\\_>" directory-files t "\\`NEWS\\(\\'\\|\\.\\)" nil generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] erase-buffer insert-file-contents search-forward "\n*" re-search-forward 0 re-search-backward "^\\* .* Emacs \\([0-9.]+[0-9]\\)" message "Ref found in non-versioned section in %S" file-name-nondirectory match-string 1 version< make-text-button type help-news help-args] 14 (#$ . 18863)])
(byte-code "\300\301\302\"\210\300\303\302\"\207" [add-hook help-fns-describe-function-functions help-fns--mention-first-release help-fns-describe-variable-functions] 3)
#@15 

(fn OBJECT)
(defalias 'help-fns--mention-first-release #[257 "\302>?\205\2119\205\303
!\211\205r	q\210\304\305\"c)\262
\207" [help-fns--activated-functions standard-output help-fns--customize-variable-version help-fns--first-release format "  Probably introduced at or before Emacs version %s.\n"] 5 (#$ . 20005)])
(add-hook 'help-fns-describe-function-functions 'help-fns--mention-shortdoc-groups)
#@15 

(fn OBJECT)
(defalias 'help-fns--mention-shortdoc-groups #[257 "\301\302!\210\2119\205\f\303
!\211\205D`\304Crq\210\305c\210\306\307\310$\"\210G\311U\2031\312\2022\313c\210)\214
`}\210\314ed\"\210db)\266\202\207" [standard-output require shortdoc shortdoc-function-groups 0 "  Other relevant functions are documented in the " mapc make-closure #[257 "\302\242\303V\203\302\242\301GSU\203\304\202\305c\210\302\211\242T\240\210\306\307!\310\311\312\300#\313\314\315\316\317!&\207" [V0 V1 V2 0 " and " ", " insert-text-button symbol-name action make-closure #[257 "\302\301\300\"\207" [V0 V1 shortdoc-display-group] 4 "\n\n(fn _)"] follow-link t help-echo purecopy "mouse-1, RET: show documentation group"] 10 "\n\n(fn GROUP)"] 1 " group.\n" " groups.\n" fill-region-as-paragraph] 10 (#$ . 20420)])
#@17 

(fn FILENAME)
(defalias 'help-fns-short-filename #[257 "\301
!\211\211\2032\211@\302\"\211GGW\203\211\262\210\302\"\211GGW\203*\211\262\210
A\266\202\202\210\207" [load-path abbreviate-file-name file-relative-name] 8 (#$ . 21246)])
#@116 Return information about FUNCTION.
Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF).

(fn FUNCTION)
(defalias 'help-fns--analyze-function #[257 "\2119\205\n\301\302!!\211\203\303\302!!\206
\2119\2033\211K\2064\211\304N\203+\305\2024\306\307C\"\2024\211\211\205a\2119\206a\203N
9\203N\211\242\310=?\206a\311
!\205a9\205a\312
!\313!\230?\211\203\205\311!\204\205\314
!\203\211K9\203\211K\262
\202l\211\262
\202\224\311!\203\223\315\312!!\202\224
\203\272\211\211\242\310=\262
\203\272\316
8\204\272\3171\264\320
!0\210\202\272\321\322\"\266F\207" [help-enable-symbol-autoload advice--p advice--symbol-function advice--cd*r function-documentation nil signal void-function autoload subrp subr-name symbol-name fboundp intern 2 (error) autoload-do-load message "Error while autoloading: %S"] 10 (#$ . 21502)])
#@71 Print a line describing FUNCTION to `standard-output'.

(fn FUNCTION)
(defalias 'help-fns-function-description-header #[257 "\302
!\211\242
\243\211\242
\243\211\242
\243\211\242
\243\303\304\203 \305\202\"\"\306!\2049\307!\2049\242\310>\203S\211;\203S\311\f\"\203S\312\313	!\205O\314P\202_\313!\203^\315\202_\316\317	;\204m\320\n!\203q\321\202k

9\203\202
\322N\203\202\323\202k
\203\217\324\325\"\202k
\326\n!\203\234
\327P\202k
\330\n!\203\267
\331!A\332=\203\262\333\202\263\334P\202k
	\211\242\335=\262
\203\354\336\337\313\f!\203\317\340\202\350\341\f8\342=\203\334\343\202\350\341\f8\203\347\344\202\350\345\"\202k
	\242\346=\204\373\347!\203


\344P\202k
\306\n!\203

\350P\202k
\351\n!\203

\352P\202k
	\242\353=\203)

\345P\202k
	\242\354=\2037

\355P\202k
\307\n!\203j
\303\n\243\211\203Z
\356
\242!\203S
\357\262\303\262
\211\243\262
\202B
\203c
\343\202d
\360P\266\202\202k
\361!\210\203|
\362!\204|
\317\363!\207rq\210\212\364 \365\366\"\216\367\370\371!\303\357#\203\231
\372\373\374#\210)\210*
\204\255
rq\210\375
D)\202\347
\317\324\376\377=\203\274
\201@\202\301
\201A!\"!\210rq\210\375
\201BF\212\367\370\201C!\303\357#\210\372\373\201D$\210*\317\201E!\207" [standard-output help-mode--current-data help-fns--analyze-function nil find-lisp-object-file-name defun byte-code-function-p keymapp (macro lambda closure) help-fns--autoloaded-p "an autoloaded " commandp "interactive " "an interactive " "a " princ vectorp "a keyboard macro" reader-construct "a reader construct" format-message "an alias for `%s'" subr-native-elisp-p "native-compiled Lisp function" subrp subr-arity unevalled "special form" "built-in function" autoload format "an autoloaded %s" "interactive Lisp function" 4 keymap "keymap" "Lisp macro" "Lisp function" macro macrop "byte-compiled Lisp function" module-function-p "module function" lambda closure "Lisp closure" char-table-p t "sparse keymap" "" fboundp ",\nwhich is not defined." match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] re-search-backward substitute-command-keys "alias for `\\([^`']+\\)'" help-xref-button 1 help-function :symbol " in `%s'" C-source "C source code" help-fns-short-filename :file "`\\([^`']+\\)'" help-function-def "."] 18 (#$ . 22377)])
(defalias 'help-fns--ensure-empty-line #[0 "l\204\300c\210`S\206
`Sf\301=?\205\300c\207" ["\n" 10] 2])
#@17 

(fn FUNCTION)
(defalias 'describe-function-1 #[257 "r\304 q\210`)\305!\210r\304 q\210\306\212
b\210\307y\210`)`\"\210)\210\310 \210\310 \210\311
!\211\242
\243\211\242
\243\211\242
\243\211\242
\243\312\3131F\314\315\"0\202H\210\312p\211\242\316=\262
\203f
\203f\203f\317\320\"\203f\321!\210\322
!\210r	q\210\3231\217\324
\325\f!\203\205\326!\202\207%0\202\221\210
\327 \210\211\206\231\330c\210\331\n\"\266\332>?\205\254\333\334!)\207" [help-enable-autoload standard-output help-fns-describe-function-functions text-quoting-style help-buffer help-fns-function-description-header fill-region-as-paragraph 0 terpri help-fns--analyze-function nil (invalid-function void-function) documentation t autoload string-match "\\([^\\]=\\|[^=]\\|\\`\\)\\\\[[{<]" autoload-do-load help-fns--key-bindings (invalid-function void-function) help-fns--signature subrp indirect-function help-fns--ensure-empty-line "Not documented." help-fns--run-describe-functions (straight grave) set-buffer-file-coding-system utf-8] 19 (#$ . 24837)])
(byte-code "\300\301\302\"\210\300\301\303\"\210\300\301\304\"\210\300\301\305\"\207" [add-hook help-fns-describe-function-functions help-fns--obsolete help-fns--interactive-only help-fns--parent-mode help-fns--compiler-macro] 3)
#@184 Return the bound variable symbol found at or before point.
Return 0 if there is no such symbol.
If ANY-SYMBOL is non-nil, don't insist the symbol be bound.

(fn &optional ANY-SYMBOL)
(defalias 'variable-at-point #[256 "\301 p\302\303#\216\304!\210\3051J\212\306\307w\210\310\311!\312U\2030gz\313=\2040gz\314=\2040\315\316!\210\306\307w\210\317p!\2119\205C\320
!\205C\211\262
)0\202N\210\202Q\206\234\321 \211\205Z\322
!\211\203n\204h\320
!\203n\211\266\202\202\230\323 \302\324\"\216\205\223\325\326\"\205\223\322\327\330\"!\262\204\222\320!\205\223
)\262
\266\202\206\234\312)\207" [emacs-lisp-mode-syntax-table syntax-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-syntax-table] 2] set-syntax-table (error) "'" nil skip-syntax-backward "_w" 0 119 95 forward-sexp -1 read boundp find-tag-default intern-soft match-data #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] string-match "\\`\\W*\\(.*?\\)\\W*\\'" match-string 1] 10 (#$ . 26131)])
#@32 

(fn VARIABLE &optional TYPE)
(defalias 'describe-variable-custom-version-info #[513 "
\301N\302N\206\303\304\203\305\306#\207\203Q\242\243<\203)\243@\202+\243
\236\307\"A\203O\203O\305\310\205E\305\311\"\312Q$\262\266\207" [customize-package-emacs-version-alist custom-version custom-package-version "variable" nil format "  This %s was introduced, or its default value was changed, in\n  version %s of Emacs.\n" assoc "  This %s was introduced, or its default value was changed, in\n  version %s of the %s package" " that is part of Emacs %s" ".\n"] 15 (#$ . 27132)])
#@291 Display the full documentation of VARIABLE (a symbol).
Returns the documentation as a string, also.
If VARIABLE has a buffer-local value in BUFFER or FRAME
(default to the current buffer and current frame),
it is displayed along with the global value.

(fn VARIABLE &optional BUFFER FRAME)
(defalias 'describe-variable #[769 "\306\307!\204\np\262\310!\204\311 \2629\204\312\313!\207\212rq\210\314!)?\306\211\211\204P\311 p\315\316#\216\317\320\"\210rq\210	J\262\321\n!\262*\266\322\323		E\324\325!\"\210\306\211\223\210\326	B\327\nB\311 \330 \331
!\211\306\211r\nq\210\332\f!\210\333\f\334\"\262	\335	\203\333\335\336\337\f\340=\203\232\341\202\236\342
!\"!\210r\fq\210\343
\344\f\340=\203\264\345\202\265\334\346\257\212\347\350\351!\306\352#\210\353\354\355
$\210*\203\327\356\202\363\357\202\363r\fq\210\343
\344\345F)\203\360\360\202\363\350\361!!\210)\204\371
r\fq\210`\262\335\362!\210\363 \352\211@A\364!*9\203'
\365	!\204'
\336\366\"\202(
\211\262
\211G`\\[\\\367W\203>
\370
\261\210\202\200
\371 \210p\372\373\352\"r\211q\210\315\374\"\216\375\306!\210\376B!\210c\210\377 \210prq\210\201F
!\210)\210*\266`Sf\201GU\203\200
\201H\201I!\210
\201JN\211:\205\240
\201K1\234
\201L
@\352\"0\202\240
\210\201M\306:\203\366

\f\232\204\366

\201M=\204\366
\335\201N!\210`\262

9\203\327
\365!\204\327
\364!\336\366\"\211c\266\202\335
\201O!\210\214\211`}\210\212\377 \210*`
\201P\\W\203\366
\211S
|\210\266)\371 \210\203\223\201Q!\203\335\201R\201S\201T!\"!\210\2028\201U!\203,\335\201V!\210\2028\335\201R\201W\"!\210\201X\f!\204J\335\201Y!\210\202\220\201Z\f!r\fq\210\335\201[!\210
=\203j\335\201\\!\210\202\216\371 \210`\201O!\210\214\211`}\210\212\377 \210*`
\201P\\W\203\215\211S
|\210\210)\210\371 \210r\fq\210\201]ed\"\201GV\203\363\376B!\210b\210\201^\362!\203\274\201_\201`!\210\212\201ac\210\201b\201C!\210\201c C)\201dc\210\201e\201f\201gC\201h\352\201i\201j&\210\201kc\210)\371 \210\201l1\201m\f!0\202\n\210\201n
\201o\"\206\201n
\201o\"r\fq\210\211\206)\201pc\210)r\fq\210\201qD\"\210)r\fq\210m\204]\201r\352E\201^
!)\262
\203]\201H\354!\210\202C)\266r\fq\210\201s )\262
rq\210\201t\306\"\262)\201u\201v!\203\213\201v\"\202\214\211)\266\204*\266\204)\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output help-mode--current-data nil buffer-live-p frame-live-p selected-frame user-error "You didn't specify a variable" boundp make-closure #[0 "\302\300!\203\303\300\304\"\210\305\301!\205\301q\207" [V0 V1 frame-live-p select-frame norecord buffer-live-p] 3] select-frame norecord variable-binding-locus help-setup-xref describe-variable called-interactively-p interactive help-mode-setup help-mode-finish help-buffer temp-buffer-window-setup prin1 find-lisp-object-file-name defvar princ format-message " is a variable defined in `%s'.\n\n" C-source "C source code" help-fns-short-filename :symbol :type variable :file re-search-backward substitute-command-keys "`\\([^`']+\\)'" t help-xref-button 1 help-variable-def "It is void as a variable." "Its " " is void as a variable." "'s " "value is" line-beginning-position cl-prin1-to-string booleanp "`%s'" 68 " " terpri generate-new-buffer " *temp*" #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-mode-variables set-syntax-table pp-buffer print-circle print-quoted emacs-lisp-mode-syntax-table help-button-cache help-fns-describe-variable-functions inhibit-changing-match-data insert-buffer-substring 10 delete-char -1 standard-value (error) eval :help-eval-error "\nOriginal value was \n" cl-prin1 20 bufferp format "Local in buffer %s; " buffer-name terminal-live-p "It is a terminal-local variable; " "It is local to %S" default-boundp "globally void" default-value "global value is " "the same." count-lines looking-at replace-match "" "\n\nValue:" make-local-variable point-marker "value is shown " insert-button "below" action follow-link help-echo "mouse-2, RET: show value" ".\n" (error) indirect-variable documentation-property variable-documentation "Not documented as a variable." help-fns--run-describe-functions "\n" buffer-string temp-buffer-window-show functionp help-window-setup] 21 (#$ . 27745) (byte-code "\301 \302p\303\304\305\3069\205\"\307\310\311\"\302\303\211\n9\205&\312!&\262
\211\313\232\2034\2027\314
!)C\207" [enable-recursive-minibuffers variable-at-point t nil completing-read format-prompt "Describe variable" help--symbol-completion-table make-closure #[257 "\211\301N\206\302
!?\205\303
\300\"\207" [V0 variable-documentation keywordp buffer-local-boundp] 4 "\n\n(fn VV)"] symbol-name "" intern] 13)])
#@29 

(fn FUNCTIONS &rest ARGS)
(defalias 'help-fns--run-describe-functions #[385 "rq\210n\204\302c\210\303 \210)\304
\211\2034\211@\305!\306\"\210\305!
V\203,
	B\210
A\266\202\202\210)rq\210\303 )\207" [standard-output help-fns--activated-functions "\n" help-fns--ensure-empty-line nil buffer-size apply] 8 (#$ . 32580)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--customize-variable)
#@32 

(fn VARIABLE &optional TEXT)
(defalias 'help-fns--customize-variable #[513 "\301!\205$\302\303\206
\304P!\210rq\210\212\305\306\307\310#\210\311\312\313#\210*\314 \207" [standard-output custom-variable-p princ "  You can customize" " this variable." re-search-backward "\\(customize\\)" nil t help-xref-button 1 help-customize-variable terpri] 6 (#$ . 32998)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--customize-variable-version)
#@17 

(fn VARIABLE)
(defalias 'help-fns--customize-variable-version #[257 "\300
!\205\301
!\211\205\302
!\262
\207" [custom-variable-p describe-variable-custom-version-info princ] 4 (#$ . 33460)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-safe-local)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-safe-local #[257 "\211\300N\211\205\301\302!\210\301\303!\210\301\304!\203\305\202\306\307\"!\207" [safe-local-variable princ "  This variable is safe as a file local variable " "if its value\n  satisfies the predicate " byte-code-function-p "which is a byte-compiled expression.\n" format-message "`%s'.\n"] 6 (#$ . 33738)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-risky)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-risky #[257 "\301
!\205\302\303!\210\211\236\205\302\304\305!!\207" [safe-local-variable-values risky-local-variable-p princ "  This variable may be risky if used as a file-local variable.\n" substitute-command-keys "  However, you have added it to `safe-local-variable-values'.\n"] 4 (#$ . 34189)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-ignored-local)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-ignored-local #[257 "\211>\205	\301\302!\207" [ignored-local-variables princ "  This variable is ignored as a file-local variable.\n"] 3 (#$ . 34619)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-file-local)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-file-local #[257 "\305
!\205\243\211J

B\235\205\241

B	\235\203\234\n\205&\306\n!?\205&\307\n!\310\311\312\313!!\210
:\203H\3148\203A\315@!\262\202H
@\262\316\262

\204T\311\317!\266\202\202\241\311\320!\210\311\312\203b\321\202~:\203yA\203y\322@!\262\323\324\"\202~@\262\325!!\210r\fq\210\326\327\330\331D%\210)\311\312\332!!\266\202\202\241\311\312\333!!\262
\207" [file-local-variables-alist dir-local-variables-alist buffer-file-name dir-locals-file standard-output boundp file-remote-p dir-locals-find-file nil princ substitute-command-keys "  This variable's value is directory-local" 2 dir-locals--all-files t ".\n" ", set " "for the directory\n  `" file-name-directory format "by one of the\n  %s files in the directory\n  `" "by the file\n  `" insert-text-button type help-dir-local-var-def help-args "'.\n" "  This variable's value is file-local.\n"] 11 (#$ . 34895)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-watchpoints)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-watchpoints #[257 "\300
!\211\205\301\302!\210\301
!\210\303 \207" [get-variable-watchers princ "  Calls these functions when changed: " terpri] 4 (#$ . 35932)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-obsolete)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-obsolete #[257 "\211\300N\211@
\2059\301\302!\210\3038\203\301\304\305\3038\"!\210\301
;\203(\306P\2025
\2034\307\310@\"\2025\311!\210\312 \207" [byte-obsolete-variable princ "  This variable is obsolete" 2 format " since %s" ";\n  " format-message ";\n  use `%s' instead." "." terpri] 8 (#$ . 36216)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-alias)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-alias #[257 "\3001\301
!0\202
\210\211\211=?\205\302\303\304\"!\207" [(error) indirect-variable princ format-message "  This variable is an alias for `%s'.\n"] 6 (#$ . 36647)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-aliases)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-aliases #[257 "\301C\301C\302\303\304$\"\210
\242\2050\305\242G\306U\203%\307\310\242@\"\202/\307\311\312\313\242\314#\"!\207" [obarray nil mapatoms make-closure #[257 "\303
!\205#\302\304!\240\205#\302\242\300=\205#\302\242
=?\205#\301
\301\242B\240\207" [V0 V1 V2 boundp indirect-variable] 4 "\n\n(fn SYM)"] princ 1 format-message "  This variable has an alias: `%s'.\n" "  This variable has the following aliases: %s.\n" mapconcat #[257 "\300\301\"\207" [format "`%s'"] 4 "\n\n(fn SYM)"] ",\n    "] 10 (#$ . 36950)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-bufferlocal)
#@17 

(fn VARIABLE)
(defalias 'help-fns--var-bufferlocal #[257 "\211\300N\301!\302!\2038\303!\203(\304\305\306\"r\211q\210\307\310\"\216\302!*\262
\2038\311\312!\210
\2034\311\313!\210\311\314!\207
?\206N\315
!\203I\311\316\317!!\207\311\316\320!!\207" [permanent-local variable-binding-locus local-variable-if-set-p local-variable-p generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] princ "  Automatically becomes " "permanently " "buffer-local when set.\n" bufferp substitute-command-keys "  This variable's buffer-local value is permanent.\n" "  This variable's value is permanent if it is given a local binding.\n"] 7 (#$ . 37610)])
#@386 Display the properties of face FACE on FRAME.
Interactively, FACE defaults to the faces of the character after point
and FRAME defaults to the selected frame.

If the optional argument FRAME is given, report on face FACE in that frame.
If FRAME is t, report on the defaults for face FACE (for new frames).
If FRAME is omitted or nil, use the selected frame.

(fn FACE &optional FRAME)
(defalias 'describe-face #[513 "\306\307D\310\311!\"\210
\204\312\262
<\204
C\262\313\211\223\210\314	B\315\nB\316 \317 \320
!\211\313\211r\fq\210\211\203
\211@\211;\203G\321
!\262
\2119\203
\322\323!\261\210\324
!\204_\325c\210\202
\313\326\327\330\331#\332Qc\210\333\334!\210
\335N\313\203\244\262\336\337\340N\211\262\203\240\336\341;\203\231\342\343\"\202\232\344	#\202\241\344$c\210\345\346\347!\206\255\350!\351\261\266r\fq\210\212\352\353\313\354#\210\355\356\357#\210*\360\361\"\262
\211\204\327\362D\210\202
\362\363F\333\346\364!!\210\333\365!!\210\333\346\366!!\210\212\352\346\367!\313\354#\210\355\356\370$\210)\333\371!\210\372 \210\372 \266\372 \210\373@	#\210
A\266\202\2027\374 \262
)\262
rq\210\375\313\"\262)\376\377!\203<
\377\"\202=
\211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output help-mode--current-data help-setup-xref describe-face called-interactively-p interactive default nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup intern "Face: " symbol-name facep "   undefined face.\n" " (" propertize "sample" font-lock-face ")" princ " (customize this face)\n" face-alias format-message "\n  %s is an alias for the face `%s'.\n%s" obsolete-face "  This face is obsolete%s; use `%s' instead.\n" format " since %s" "" "\nDocumentation:\n" substitute-command-keys face-documentation "Not documented as a face." "\n\n" re-search-backward "\\(customize this face\\)" t help-xref-button 1 help-customize-face find-lisp-object-file-name defface :symbol :file "Defined in `" help-fns-short-filename "'" "`\\([^`']+\\)'" help-face-def "." terpri help-fns--run-describe-functions buffer-string temp-buffer-window-show functionp help-window-setup help-fns-describe-face-functions] 21 (#$ . 38323) (byte-code "\300\301\302\303!\206	\304\303#C\207" [read-face-name "Describe face" face-at-point t default] 4)])
(add-hook 'help-fns-describe-face-functions 'help-fns--face-custom-version-info)
#@19 

(fn FACE FRAME)
(defalias 'help-fns--face-custom-version-info #[514 "\300\301\"\211\205
\211c\210\302 \207" [describe-variable-custom-version-info face terpri] 5 (#$ . 40817)])
(add-hook 'help-fns-describe-face-functions 'help-fns--face-attributes)
#@19 

(fn FACE FRAME)
(defalias 'help-fns--face-attributes #[514 "\300\301\302\303\304\"\"
\211\203O\211@\305@#\306AGZ\307\"A\310\311\312\"\261\210
@\313=\203D\211\314=\204D\212\315\316\317\320#\210\321\322\323#\210)\324c\266
A\266\202\202	\210\325 \207" [((:family . "Family") (:foundry . "Foundry") (:width . "Width") (:height . "Height") (:weight . "Weight") (:slant . "Slant") (:foreground . "Foreground") (:distant-foreground . "DistantForeground") (:background . "Background") (:underline . "Underline") (:overline . "Overline") (:strike-through . "Strike-through") (:box . "Box") (:inverse-video . "Inverse") (:stipple . "Stipple") (:font . "Font") (:fontset . "Fontset") (:extend . "Extend") (:inherit . "Inherit")) apply max mapcar #[257 "\211AG\207" [] 2 "\n\n(fn X)"] face-attribute make-string 32 ": " format "%s" :inherit unspecified re-search-backward ": \\([^:]+\\)" nil t help-xref-button 1 help-face "\n" terpri] 13 (#$ . 41076)])
#@328 Display the full documentation of SYMBOL.
Will show the info of SYMBOL as a function, variable, and/or face.
Optional arguments BUFFER and FRAME specify for which buffer and
frame to show the information about SYMBOL; they default to the
current buffer and the selected frame, respectively.

(fn SYMBOL &optional BUFFER FRAME)
(defalias 'describe-symbol #[769 "
C
C9\204
\303\304!\210\305\242!\204
p\240\210\306
\242!\204$\211\307 \240\210r\310 q\210\311\312\211\"\210\313\312\314\315\316	$\"\"\237\211A?
A\203\202eb\210\317@@A@A\211\203x\211c\210`\320\312x\210`|\210\321\322 \323\261\210
\203x\324\n!\325\326\321\261\210)\266
A\262\202A\211\204\220\312\311\327D\312\"\210eb\266\202)\207" [describe-symbol-backends inhibit-read-only help-xref-stack-item user-error "You didn't specify a function or variable" buffer-live-p frame-live-p selected-frame help-buffer help-setup-xref nil delq mapcar make-closure #[257 "\211\242
\243\211\242
\243\211\242
\243\300!\205\304\300\301\242\302\242#B\207" [V0 V1 V2 help-xref-stack-item nil] 12 "\n\n(fn ARG0)"] t " 	\n" "\n\n" make-separator-line "\n" symbol-name " is also a " "." describe-symbol] 15 (#$ . 42044) (byte-code "\302 \211\205
\303\304\305\"\"\211\203
\202\306 
\206\211\307\310\311\312\205&\"\313\314\307\315\211\2055\316	!&\211\317\232\203E\206H\317\202H\320
!)C\207" [describe-symbol-backends enable-recursive-minibuffers symbol-at-point cl-some make-closure #[257 "\211A@\300!\207" [V0] 3 "\n\n(fn X)"] function-called-at-point t completing-read format-prompt "Describe symbol" help--symbol-completion-table #[257 "\301\302\303\"\"\207" [describe-symbol-backends cl-some make-closure #[257 "\211A@\300!\207" [V0] 3 "\n\n(fn X)"]] 5 "\n\n(fn VV)"] nil symbol-name "" intern] 13)])
#@202 Describe the syntax specifications in the syntax table of BUFFER.
The descriptions are inserted in a help buffer, which is then displayed.
BUFFER defaults to the current buffer.

(fn &optional BUFFER)
(defalias 'describe-syntax #[256 "\211\206p\262
\305\306D\307\310!\"\210\311\211\223\210\312	B\313\nB\314 \315 \316
!\211\311\211rq\210\317 )r\fq\210\320
\321\"\210\322
!\211\262\205M\323c\210\320
\321\"\210\2029)\262
\262
rq\210\324\311\"\262)\325\326!\203j\326\"\202k\211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output help-setup-xref describe-syntax called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup syntax-table describe-vector internal-describe-syntax-value char-table-parent "\nThe parent syntax table is:" temp-buffer-window-show functionp help-window-setup] 9 (#$ . 43849) nil])
#@14 

(fn VALUE)
(defalias 'help-describe-category-set #[257 "\211\204\300\202\301
!\203\302\202\3031\304
!0\202\210\305c\207" ["default" char-table-p "deeper char-table ..." (error) category-set-mnemonics "Invalid"] 3 (#$ . 44827)])
#@273 Describe the category specifications in the current category table.
The descriptions are inserted in a buffer, which is then displayed.
If BUFFER is non-nil, then describe BUFFER's category table instead.
BUFFER should be a buffer or a buffer name.

(fn &optional BUFFER)
(defalias 'describe-categories #[256 "\211\206p\262
\306\307D\310\311!\"\210\312\211\223\210\313	B\314\nB\315 \316 \317
!\211\312\211rq\210\320 )\321
\322\"\323
!\203A\211G\324U\204E\325\326!\210r\fq\210\327\305\330 \"\210\331c\210\332\333\334
\335\336\337\340&\210\341c\210`\322\312\211\322\211\324W\203|
H\203uT\262\211T\262
\202e\210S\342\245T\262\322\262
\322\211\324W\203\355
H\211\203\345\343\344\"\210\345\322\"\262
\211G\346Y\203\257\211\322\347O\350P\262
`dW\203\277\351\352\245_\336\"\210
\353\\\354\261\210`dW\203\323\355y\210\202\326\341c\210T\262\246\322U\203\345b\210\210\211T\262
\202\210\266db\210\341\356\357\261\210\360\361\"\210
`\312\223\210\362c\210\322\211\324W\2032


H\211\203*
\343\341\"\203!
\211\322\225\312O\262

\353\\\363\341\261\210\210\211T\262
\202
\210\364!\211\262\205G
\365c\210\360\361\"\210\2023
)\266\202\262
rq\210\366\312\"\262)\367\370!\203d
\370\"\202e
\211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output help-button-cache help-setup-xref describe-categories called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup category-table char-table-extra-slot 0 vectorp 95 error "Invalid first extra slot in this category table\n" set-default make-marker "Legend of category mnemonics " insert-button "(longer descriptions at the bottom)" action follow-link t help-echo "mouse-2, RET: show full legend" "\n" 4 string-match ".*" match-string 17 14 "..." move-to-column 20 32 58 1 "character(s)	category mnemonics\n" "------------	------------------" describe-vector help-describe-category-set "Legend of category mnemonics:\n" ": " char-table-parent "\nThe parent category table is:" temp-buffer-window-show functionp help-window-setup] 17 (#$ . 45076) nil])
#@153 Find the name of the variable with value KEYMAP.
Return nil if KEYMAP is not a valid keymap, or if there is no
variable with value KEYMAP.

(fn KEYMAP)
(defalias 'help-fns-find-keymap-name #[257 "\300
!\205(\3012\302\303\304\"!\210\3050\3061\307
!0\202\"\210\202%\206&\211\262
\207" [keymapp found-keymap mapatoms make-closure #[257 "\301
!\203\211J\300=\203\211\302=\204\303\304\"\210\305\207" [V0 boundp keymap throw found-keymap nil] 4 "\n\n(fn SYMB)"] nil (error) indirect-variable] 5 (#$ . 47263)])
#@384 Return the name of the most relevant active keymap.
The heuristic to determine which keymap is most likely to be
relevant to a user follows this order:

1. 'keymap' text property at point
2. 'local-map' text property at point
3. the `current-local-map'

This is used to set the default value for the interactive prompt
in `describe-keymap'.  See also `Searching the Active Keymaps'.
(defalias 'help-fns--most-relevant-active-keymap #[0 "\300\301`\302\"\206\303`\304\"\203\301`\304\"\202\305 !\207" [help-fns-find-keymap-name get-char-property keymap get-text-property local-map current-local-map] 4 (#$ . 47790)])
#@41 History for input to `describe-keymap'.
(defvar keymap-name-history nil (#$ . 48416))
#@121 Describe key bindings in KEYMAP.
When called interactively, prompt for a variable that has a
keymap value.

(fn KEYMAP)
(defalias 'describe-keymap #[257 "\306
9\203\307!\203\310J!\2049\310!\204*
9\203&\311\312\"\210\202*\311\313!\210\306\314\315!\262
\316\262\211L\210\262\3171D\320!0\202H\210\202K\206L
\262\321\322D\323\324!\"\210\325!\326\327\"\330\331\"\306\211\223\210\332	B\333\nB\334 \335 \336
!\211\306\211r\fq\210\204\314\337\340\341\"!\210\204\234\342	D\337\343!\210\202\314\337\340\344\345=\203\252\346\202\256\347!\"!\210\212\350\351\352!\306\316#\210\342	\353F\354\355\356$\210)\357\232\204\342\203\342\337\360!\210\337\340\361\"!\210\351\362\363Q!c)\262
rq\210\364\306\"\262)\365\366!\203
\366\"\210)\266*\266\211\205
\367!\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output help-mode--current-data nil boundp keymapp error "Not a keymap variable: %S" "Not a keymap" cl-gentemp "KEYMAP OBJECT (no variable) " t (error) indirect-variable help-setup-xref describe-keymap called-interactively-p interactive symbol-name documentation-property variable-documentation find-lisp-object-file-name defvar help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup princ format-message "%S is a keymap variable" :symbol ".\n\n" " defined in `%s'.\n\n" C-source "C source code" help-fns-short-filename re-search-backward substitute-command-keys "`\\([^`']+\\)'" :file help-xref-button 1 help-variable-def "" "Documentation:\n" "%s\n\n" "\\{" "}" temp-buffer-window-show functionp help-window-setup makunbound] 14 (#$ . 48509) (byte-code "\301 \302\303\304\"\305\306\307\310\311!&\211\312\232\204\313
!\262
\203(\314J!\204-\315\316\"\210
C\207" [obarray help-fns--most-relevant-active-keymap completing-read format-prompt "Keymap" #[257 "\300
!\205\n\301
J!\207" [boundp keymapp] 3 "\n\n(fn M)"] t nil keymap-name-history symbol-name "" intern keymapp user-error "Not a keymap: %s"] 10)])
#@559 Display documentation of current major mode and minor modes.
A brief summary of the minor modes comes first, followed by the
major mode description.  This is followed by detailed
descriptions of the minor modes, each on a separate page.

For this to work correctly for a minor mode, the mode's indicator
variable (listed in `minor-mode-alist') must also be a function
whose documentation describes the minor mode.

If called from Lisp with a non-nil BUFFER argument, display
documentation for the major and minor modes of that buffer.

(fn &optional BUFFER)
(defalias 'describe-mode #[256 "\211\204p\262
\306\307D\310\311!\"\210\312\211\223\210\313	B\314\nB\315 \316 \317
!\211\312\211rq\210\312
\211\203M\211@\211@\262
\211@>\204F\211@B@
A\266\202\202/\210@\211\203\231\211@\211\320N\206]\211\321!\203\221
J\203\221\322
!\203\221\323\324\325!\"\203\203\326\325!\327\211\224O!\202\204\211

\330
\236!EB\262\210\210
A\266\202\202P\210deZ\331 U\204\250\332
B\262
\333
\334\"\262
\211\2031
\335\336!\210\337\340!\210r\fq\210\211\211\203!
\211@\211@
A@\3418\212db\210\335\342!\210\343  B \344\345\346\347C\350\351&\210\335\352\353G\327U\203\367\354\202\373\352\355\"\"!\210\335\356\357!\312\360#!\210)\361\362 @\363\364\365\366&\210\367 \266
A\266\202\202\277\210\370y\210\371\312!\210\372y\210)\335\373!\210Ar\fq\210`\330\312\211$c\210\374
`\375#\266)\210\335\376!\210B\377
\312\"\211\204d
\201DDC\266\202\237
\335\201E\201F\201G!\"!\210r\fq\210\212\201H\201I\201J!\312\364#\210\201D\201KFC\201L\372\201M$\210*\266\356\357B!\312\360#r\fq\210\201Nc\210\211c\210\201O c)\262
\262
)\262
rq\210\201P\312\"\262)\201Q\201R!\203\336
\201R\"\210)\266*\312\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output minor-mode-alist help-setup-xref describe-mode called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup :minor-mode-function boundp fboundp string-match "\\(\\(-minor\\)?-mode\\)?\\'" symbol-name capitalize 0 format-mode-line buffer-size (narrow-to-region "Narrow" " Narrow") sort #[514 "
A@
A@\231\207" [] 4 "\n\n(fn A B)"] princ "Enabled minor modes:\n" make-local-variable help-button-cache 2 "\n\f\n" point-marker insert-text-button type help-function help-args button (t) format " minor mode (%s):\n" "no indicator" "indicator%s" help-split-fundoc documentation doc insert-button action follow-link t help-echo "mouse-2, RET: show full information" newline -1 fill-paragraph 1 "\n(Information about these minor modes follows the major mode info.)\n\n" add-text-properties (face bold) " mode" find-lisp-object-file-name minor-mode-list mode-name major-mode help-mode--current-data :symbol format-message " defined in `%s'" help-fns-short-filename re-search-backward substitute-command-keys "`\\([^`']+\\)'" :file help-xref-button help-function-def ":\n" help-fns--list-local-commands temp-buffer-window-show functionp help-window-setup] 19 (#$ . 50595) "@"])
(defalias 'help-fns--list-local-commands #[0 "\300C\301\302\303\"!\210\304\305\306\"r\211q\210\302\307\"\216
\242\203<
\310\242\311\"\240\210\312c\210
\242\211\203;\211@\313\314\"c\210
A\266\202\202(\210\315 *\207" [nil mapatoms make-closure #[257 "\301
!\205%\211K9?\205%\302
\303\304#?\205%\305\306\307!\"\205%\300
\300\242B\240\207" [V0 commandp where-is-internal nil t apply derived-mode-p command-modes] 5 "\n\n(fn SYM)"] generate-new-buffer " *temp*" t #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] sort string< "\n\nOther commands for this mode, not bound to any keys:\n\n" format "`%s'\n" buffer-string] 7])
#@173 A list of functions for `describe-widget' to call.
Each function should take one argument, a buffer position, and return
non-nil if it described a widget at that position.
(defvar describe-widget-functions '(button-describe widget-describe) (#$ . 54342))
#@483 Display a buffer with information about a widget.
You can use this command to describe buttons (e.g., the links in a *Help*
buffer), editable fields of the customization buffers, etc.

Interactively, click on a widget to describe it, or hit RET to describe the
widget at point.

When called from Lisp, POS may be a buffer position or a mouse position list.

Calls each function of the list `describe-widget-functions' in turn, until
one of them returns non-nil.

(fn &optional POS)
(defalias 'describe-widget #[256 "\211C\301\302\242!\203\303\242\211@\262
!\262

\304\242!\240\210r\211\206!pq\210\305\306\307\"\"?\2051\310\311!)\207" [describe-widget-functions nil posnp window-buffer posn-point cl-some make-closure #[257 "\301
!\205\n\211\300\242!\207" [V0 fboundp] 3 "\n\n(fn FUN)"] message "No widget found at that position"] 7 (#$ . 54604) (byte-code "\300\301!\211\302=\203
`\2029\303
!\203)\304
!\305=\203)\306
!\307\232\203)\310
!\2029\211\311=\2036\312\313\314\"\2029\315\316!\262
C\207" [read-key "Click on a widget, or hit RET to describe the widget at point" 13 mouse-event-p event-basic-type mouse-1 event-modifiers (click) event-end 7 signal quit nil user-error "You didn't specify a widget"] 4)])
#@82 Produce an nroff buffer containing the doc-strings from the DOC file.

(fn FILE)
(defalias 'doc-file-to-man #[257 "\301
!\204\302\303\"\210\304\305\306!!\210\307\310\311\261\210\312
!\210\313\314\315\313\316#\203bg\317U\2034`S\320 |\210\202\321\322!\210\211\203B\323c\210\202E\307\262
\324c\210g\325U\203R\326\202S\327c\210\321\330!\210\330y\210\331c\210\202\210\323c\210\313\332 \207" [buffer-undo-list file-readable-p error "Cannot read file `%s'" pop-to-buffer generate-new-buffer "*man-doc*" t ".TH \"Command Summary for GNU Emacs\"\n" ".AU Richard M. Stallman\n" insert-file-contents nil search-forward "" move 83 line-end-position delete-char -1 "\n.DE\n" "\n.SH " 70 "Function " "Variable " 1 ".DS L\n" nroff-mode] 6 (#$ . 55840) (byte-code "\302\303	\304$C\207" [doc-directory internal-doc-file-name read-file-name "Name of DOC file: " t] 5)])
#@80 Produce a texinfo buffer with sorted doc-strings from the DOC file.

(fn FILE)
(defalias 'doc-file-to-info #[257 "\301
!\204\302\303\"\210\304\305\211\211\211\306\307\310\"r\211q\210\311\312\"\216\313!\210\314\315\305\310#\2036\316u\210\317c\210\320u\210\202\"eb\210\321\322\305\310#\203tg\323U\2049\305f\262`T\324 {\262\325\326!\321\322\305\327#\203b`S\202c`{\262EB\262\316u\210\2029*\210\330\306\331!!\210\310\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\261\210\360
\361\"\262
\211\211\203\326\211@\362\363A@\364\"\203\262\365\202\263\366\367@\370\3268\371\261\210T\372\246\211\262\304U\203\317\373c\210
A\266\202\202\236\210\374\375\261\210\305\376 \207" [buffer-undo-list file-readable-p error "Cannot read file `%s'" 0 nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents re-search-forward "[@{}]" -1 "@" 1 search-forward "" 83 line-end-position line-beginning-position 2 move pop-to-buffer "*info-doc*" "\\input texinfo  @c -*-texinfo-*-\n" "@setfilename emacsdoc.info\n" "@settitle Command Summary for GNU Emacs\n" "@finalout\n" "\n@node Top\n" "@unnumbered Command Summary for GNU Emacs\n\n" "@table @asis\n\n" "@iftex\n" "@global@let@ITEM@item\n" "@def@item{@filbreak@vskip5pt@ITEM}\n" "@font@tensy cmsy10 scaled @magstephalf\n" "@font@teni cmmi10 scaled @magstephalf\n" "@def\\{{@tensy@char110}}\n" "@def|{{@tensy@char106}}\n" "@def@{{{@tensy@char102}}\n" "@def@}{{@tensy@char103}}\n" "@def<{{@teni@char62}}\n" "@def>{{@teni@char60}}\n" "@chardef@@64\n" "@catcode43=12\n" "@tableindent-0.2in\n" "@end iftex\n" sort #[514 "
@
@\230\203
A@
A@X\207
@
@\231\207" [] 4 "\n\n(fn E1 E2)"] "\n@item " char-equal 70 "Function" "Variable" " @code{" "}\n@display\n" "\n@end display\n" 100 "\n@end table\n@table @asis\n" "@end table\n" "@bye\n" texinfo-mode] 28 (#$ . 56716) (byte-code "\302\303	\304$C\207" [doc-directory internal-doc-file-name read-file-name "Name of DOC file: " t] 5)])
(provide 'help-fns)