;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\207" [require cl-lib seq 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 (#$ . 195))#@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 (#$ . 718))#@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 (#$ . 1335))#@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 (#$ . 1655))#@60 Radix-tree representation replacing `definition-prefixes'. (defvar help-definition-prefixes nil (#$ . 1933))#@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 (#$ . 2047)])#@64 Try and figure out if FILE has already been loaded. (fn FILE) (defalias 'help--loaded-p #[257 "\301!\211\205\n\302!\262\206<\303!\304\211\2039\211@\211@;\2032@\304\305\306$\266\203\2032\306\262A\266\202\202\210\262\207" [load-history intern-soft featurep load-history-regexp nil string-match t] 13 (#$ . 2443)])#@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\"\266A\266\202\202\266A\266\202\202\207" [help-definition-prefixes radix-tree-insert nil help--loaded-p (debug error) load noerror nomessage message "while loading: %S"] 11 (#$ . 2781)]) (byte-code "\300\301\302\303#\210\304\211\203(\211@\301N\203!\302N\204!\305\302\301N#\210A\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& \210\310\327\311\312\330DD\331\315\316\317\320\321\332& \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-variable-value-editing #[0 "\300\207" [nil] 1 #1#] "If non-nil, allow editing values in *Help* buffers.\n\nTo edit the value of a variable, use \\[describe-variable] to\ndisplay a \"*Help*\" buffer, move point after the text\n\"Its value is\" and type \\`e'.\n\nValues that aren't readable by the Emacs Lisp reader can't be\nedited even if this option is enabled." "29.1" 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=\2037A\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 (#$ . 4518)])#@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 (#$ . 5219)])#@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 "\301!\206 \211\300>\207" [V0 V1] 3 "\n\n(fn SYM)"]] 12 (#$ . 5652)])#@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 (#$ . 6268))#@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\"\313\314\211\205.\315 !&\211\316\232\204;\317!\262\203D9\204P\320\203M\321\202N\322!\210\323!\204i\324N\204i\320\203e\325\202f\326\"\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)"] confirm 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 (#$ . 6484)])#@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\302\303\304E\305\306!\"\210\212\307\310 \311\312\"\"+\207" [describe-function-orig-buffer help-buffer-under-preparation t help-setup-xref describe-function--helper called-interactively-p interactive help--window-setup help-buffer make-closure #[0 "\300\302N\203 \303\300!\210\202\304\300!\210\303\305!\210\306\300!\210r q\210\307 )\207" [V0 standard-output reader-construct princ prin1 " is " describe-function-1 buffer-string] 2]] 6 (#$ . 7528) (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 (#$ . 8310) (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!!Prq\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\2029b\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\337P\202\237\211)\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 (#$ . 8618)]) (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 (#$ . 9926)])#@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&\262A\266\202\202)\210\207" [emacs-lisp-mode-syntax-table syntax-table make-closure #[0 "r\300q\210\302\301!)\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 (#$ . 10266)])#@29 (fn USAGE DOC &rest ARGS) (defalias 'help-highlight-arguments #[642 "\203\204\301\302\"\203\204\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\266B\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 (#$ . 10828)])#@895 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, but it's currently unknown where. If no suitable file is found, return nil. If ALSO-C-SOURCE is non-nil, instead of returning `C-source', this function will attempt to locate the definition of OBJECT in the C sources, too. (fn OBJECT TYPE &optional ALSO-C-SOURCE) (defalias 'find-lisp-object-file-name #[770 "\211\242\301=\262\211\203A@\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\223\323!\203\223\324!\204\223\325\326!\204\214\203\221\327\326!\203\221\330\331\"\207\332\207\211\204\3009\203\300\333=\203\300\334N\250\203\300\325\326!\204\271\203\276\327\326!\203\276\330\335\"\207\332\207\211;\204\307\313\207\313\307\336\337!\"\205\351\340!\341\342\343!!\230\205\351\344\317!\211\262!\205\351\211\262\206J\307\345\"\203\375\346\347\350#\202\376\211\344!\203\211\206\344\351P!\205\211\262\206J\337!\304\352#\232\2036\307\345\"\2032\346\347\350#\2027\211\2027\353\316\313\306$\211\205H\344!\205H\211\266\203\207" [load-path autoload symbol-file defun locate-file (".el" ".elc") readable string-match "[.]*loaddefs.elc?\\'" (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 subr-native-elisp-p get-buffer " *DOC*" get-buffer-create 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] 12 (#$ . 11576)])#@17 (fn FUNCTION) (defalias 'help-fns--key-bindings #[257 "\303!\205#rq\210`)\304!\211\305>?\205!r \206pq\210\306\206$\n\307\211$)\310\311\"\307\236A\312\236A\307\313=\203S\314\242!\203S@\315H:\203S\316\317!\210\202\363\211\203p\211@\320\315H!\321\235\203i\211B\262A\266\202\202T\210\203\217\316\322!\210\3169\203\210\323\324\"\202\211\325!\210\316\326!\210\203\340\316\203\235\327\202\236\330!\210\211G\331W\203\263rq\210\332!)\210\202\340\211\211\203\310\211@\333\"\262A\266\202\202\264\210\203\334rq\210\332!\210\334c)\210\202\340\316\335!\210\204\354\204\354\211\203\363\316\336!\210\337 \210rq\210\340`\"\210n\204\341c\210\203`\342\343\205\344\345Q\"\210\340`\"\266\346 )\266\205\266\202\207" [standard-output describe-function-orig-buffer overriding-local-map commandp command-remapping (ignore undefined) where-is-internal nil seq-group-by #[257 "\300!\205 \211\301\234\302=\207" [vectorp 0 menu-bar] 3 "\n\n(fn KEY)"] t 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 help-fns--insert-bindings delq ", and many ordinary text characters" "many ordinary text characters." "." terpri fill-region-as-paragraph "\n" help-fns--insert-menu-bindings "It can " "also " "be invoked from the menu: " ensure-empty-lines] 14 (#$ . 13996)])#@13 (fn KEYS) (defalias 'help-fns--insert-bindings #[257 "\300\301\302\"\"\207" [seq-do-indexed make-closure #[514 "\211\301U\203\n\302\202\211\300GSU\203\303\202\304c\210\305!c\207" [V0 0 "" " and " ", " help--key-description-fontified] 4 "\n\n(fn KEY I)"]] 5 (#$ . 15531)])#@22 (fn MENUS HEADING) (defalias 'help-fns--insert-menu-bindings #[514 "\301\211\203B\211@\302\303\304\"\"C\301C\305\306!\203\307\202\310\311\312\313$\314\315\"A\"\210\242\2039\242B\262\266A\266\202\202\210\211\205U\203Nc\210\311\312\316\"\"\207" [global-map nil lookup-key seq-take 1 char-displayable-p 8594 " → " " => " seq-do-indexed make-closure #[514 "\302\2429\203\f\302\211\242K\240\210\302\242A\236\211\205Q\303V\203\"\301\300\301\242B\240\210\211A@\304=\203?\301\305\3068\307\310#\301\242B\240\210\302AAA@\240\207\301\305A@\307\310#\301\242B\240\210\302AA\240\207" [V0 V1 V2 0 menu-item propertize 2 face help-key-binding] 8 "\n\n(fn ENTRY LEVEL)"] seq-into list #[514 "\211\301U\203\n\302\202\211\300GSU\203\303\202\304\237\305\306\307#\266\202\261\207" [V0 0 "" " and " ", " nil mapconcat identity] 9 "\n\n(fn STRING I)"]] 14 (#$ . 15820)])#@17 (fn FUNCTION) (defalias 'help-fns--compiler-macro #[257 "\301\302\303\"B\304\305!\302\306\"B\307\302\310\"BE\211\203|\211@\211\242\243\211\203sn\203-\311c\210\2020\312c\210c\210\2119\203R\313\314\"c\210\212\315\304\316!\317\320#\210\321\322\323#)\266\202u\324N\211;\203r\313\325\"c\210\212\315\304\316!\317\320#\210\321\322\326$)\210\210\266A\266\202\202\210n?\205\235\327\330\331\332\"\333\261\210\214\334\335\336!`}\210\337ed\")\210db)\207" [fill-prefix "compiler macro" function-get compiler-macro substitute-command-keys "`byte-compile' property" byte-compile "byte-code optimizer" byte-optimizer " This function has a " " and a " format-message " `%s'" re-search-backward "`\\([^`']+\\)'" nil t help-xref-button 1 help-function compiler-macro-file " in `%s'" help-function-cmacro ". See " buttonize "the manual" #[257 "\300\301!\207" [info "(elisp)Advice and Byte Code"] 3 "\n\n(fn _)"] " for details.\n" " " line-beginning-position -1 fill-region] 11 (#$ . 16728)])#@114 Insert usage at point and return docstring. With highlighting. (fn FUNCTION DOC REAL-DEF REAL-FUNCTION BUFFER) (defalias 'help-fns--signature #[1285 "\300!\203\207\301!\211<\203\211\202\302!\303\"\211\203%\211A\262\211\2033<\2043\211@\202\210<\203@\304\"\202\210;\203I\202\210\2119\203d\211K\211\262\203d\303\305!\n\"\211\262\203J\262\203o\211@\202\210;\204{\306!\203\207\307\310\311\312 !!\"\202\210\313\314\315\316\317$\203\256\320\211rq\210\321!\262\321 !)\262\322\"\266\202\202\262\211 B`@A 9\203\304 \323N\204\311\324\261\210\325`\"\210\207" [keymapp get-advertised-calling-convention 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" t nil substitute-command-keys help-highlight-arguments reader-construct "\n" fill-region] 17 (#$ . 17740)])#@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-quotes " Parent mode: `" format "%s" make-text-button type help-function help-args "'.\n"] 10 (#$ . 18763)])#@17 (fn FUNCTION) (defalias 'help-fns--obsolete #[257 "\2119\205\211\300N\211@`\205Q\301K\242\302=\203\303\202\304\305\261\210\3068\203/\307\310\3068\"c\210;\203:\311P\202F\203E\312\313\"\202F\314\315\261\210\316`\"\210\317 \207" [byte-obsolete-info "This " macro "macro" "function" " is obsolete" 2 format " since %s" "; " format-message "; use `%s' instead." "." "\n" fill-region-as-paragraph ensure-empty-lines] 8 (#$ . 19071)]) (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 (#$ . 19611)])#@75 Return non-nil if FUNCTION has previously been autoloaded. (fn FUNCTION) (defalias 'help-fns--autoloaded-p #[257 "\300\301\302N\"\207" [seq-some autoloadp function-history] 5 (#$ . 19840)])#@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 (#$ . 20037)]) (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 (#$ . 20634)]) (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 (#$ . 20962)])#@15 (fn SYMBOL) (defalias 'help-fns--first-release-regexp #[257 "\300!\301!\302\303\304\305\306\260 \207" [symbol-name regexp-quote "'" "'\\|M-x[ \n]+" "\\_>\\|(" ")\\|^\\(?: \\| \\)[ ]*(\\(.*[( ']\\)?" "\\_>"] 12 (#$ . 21133)])#@75 Return the likely first release that defined SYMBOL, or nil. (fn SYMBOL) (defalias 'help-fns--first-release #[257 "\302!\303\304\305#\306\211\306\307\310\304\"r\211q\210\311\312\"\216\211\203v\211@\313 \210\314!\210eb\210\315\316\306\304#\203o\317\306\304#\203o\320\224\212\321\322\306\304#\204R\323\324\n\325!#\210\202j\326\327!\203a\330\"\203iD\262\211\262\210)\210\2022A\266\202\202*\266\211\205\207\331\306\332\333\334&)\207" [data-directory case-fold-search help-fns--first-release-regexp 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 to %S found in non-versioned section in %S" file-name-nondirectory match-string 1 version< make-text-button type help-news help-args] 15 (#$ . 21375)]) (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 (#$ . 22540)]) (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 "\300\242\303V\203\300\242\301GSU\203\304\202\305c\210\300\211\242T\240\210\306\307!\310\311\312\302#\313\314\315\316&\207" [V0 V1 V2 0 " and " ", " insert-text-button symbol-name action make-closure #[257 "\303\300\301\n#\207" [V0 V1 help-window-keep-selected shortdoc-display-group] 5 "\n\n(fn _)"] follow-link t help-echo "mouse-1, RET: show documentation group"] 9 "\n\n(fn GROUP)"] 1 " group.\n" " groups.\n" fill-region-as-paragraph] 10 (#$ . 22954)])#@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\210A\266\202\202\210\207" [load-path abbreviate-file-name file-relative-name] 8 (#$ . 23790)])#@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\203N9\203N\211\242\310=?\206a\311!\205a9\205a\312!\313!\230?\211\203w\311!\204w\314\315\"@\206\206\202\206\311!\203\205\316\312!!\202\206\203\254\211\211\242\310=\262\203\254\3178\204\254\3201\246\321!0\210\202\254\322\323\"\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 function-alias-p t intern 2 (error) autoload-do-load message "Error while autoloading: %S"] 10 (#$ . 24045)])#@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=\203R\211;\203R\311\f!\203R\312\313 !\205N\314P\202^\313!\203]\315\202^\316\317 ;\204l\320\n!\203p\321\202j 9\203\201 \322N\203\201\323\202j\203\216\324\325\"\202j\326\n!\203\233\327P\202j\330\n!\203\266\331 !A\332=\203\261\333\202\262\334P\202j \211\242\335=\262\203\353\336\337\313\f!\203\316\340\202\347\341\f8\342=\203\333\343\202\347\341\f8\203\346\344\202\347\345\"\202j \242\310=\204\372\346!\203\344P\202j\347\n!\203 \350P\202j\351\n!\203\352P\202j \242\353=\203(\345P\202j \242\354=\2036\355P\202j\307\n!\203i\303\n\243\211\203Y\356\242!\203R\357\262\303\262\211\243\262\202A\203b\343\202c\360P\266\202\202j\361!\210\203{\362!\204{\317\363!\207rq\210\212\364 \365\366\"\216\367\370\371!\303\357#\203\230\372\373\374#\210+\210\204\253rq\210\375 D)\202\345\317\324\376\377=\203\272\201@\202\277\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 functionp keymapp macro 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" macrop byte-code-function-p "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 t] 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 (#$ . 24896)]) (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 "rq\210`)\306!\210rq\210\307\310\212b\210\311y\210`)`\312\307$\210\313 *\266\314!\210\315!\211\242\243\211\242\243\211\242\243\211\242\243\312\3161I\317 \307\"0\202K\210\312\211\242\320=\262\203h\211\203h\n\203h\321\322\"\203h\323!\210\324\f!\210rq\210\3251\221\326\f\327 !\203\207\330!\202\211 %0\202\223\210\211\331 \210\211\206\233\332c\210\333\f\"\266 \334>?\205\256\335\336!)\207" [standard-output inhibit-read-only help-enable-autoload describe-function-orig-buffer help-fns-describe-function-functions text-quoting-style help-fns-function-description-header t fill-region-as-paragraph 0 nil ensure-empty-lines help-fns--obsolete help-fns--analyze-function (invalid-function void-function) documentation 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] 18 (#$ . 27331)]) (byte-code "\300\301\302\"\210\300\301\303\"\210\300\301\304\305#\207" [add-hook help-fns-describe-function-functions help-fns--interactive-only help-fns--parent-mode help-fns--compiler-macro 100] 4)#@17 (fn FUNCTION) (defalias 'help-fns--generalized-variable #[257 "\2119\205\211\300N\205\211\301N?\205\302\303\"\304\305\306\"\307\261\207" [gv-expander byte-obsolete-generalized-variable format-message " `%s' is also a " buttonize "generalized variable" #[257 "\300\301!\207" [info "(elisp)Generalized Variables"] 3 "\n\n(fn _)"] ".\n"] 5 (#$ . 28669)]) (add-hook 'help-fns-describe-function-functions 'help-fns--generalized-variable)#@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)\2620\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\300q\210\302\301!)\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 t] 3] string-match "\\`\\W*\\(.*?\\)\\W*\\'" match-string 1] 10 (#$ . 29119)])#@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 (#$ . 30111)])#@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 "C\301C\302\303\242!\204p\240\210\304!\204\305 \2629\204&\306\307!\202\204\212r\242q\210\310!)?\301C\301C\301C\204_\305 p\311\312#\216\313 \314\"\210r\242q\210 J\240\210\315\f!\240*\266\316\317\n\242E\320\321!\"\210\322\323 \311\324\n\f&\"\266\204))\207" [help-buffer-under-preparation nil t buffer-live-p frame-live-p selected-frame user-error "You didn't specify a variable" boundp make-closure #[0 "\302\301!\203 \303\301\304\"\210\305\300!\205\300q\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--window-setup help-buffer #[0 "r\305\242q\210\307\306!\210\304\310\306\311\"\240\210\312\304\242\203d\312\313\314\304\242\315=\203$\316\202(\317\304\242!\"!\210r@q\210\320\306\321\304\242\315=\203>\322\202?\311\323\304\242\257A\212\324\325\326!\327\330#\210\331\332\333\306\304\242$*\210\303\203`\334\202|\335\202|r@q\210\320\306\321\322FA)\303\203y\336\202|\325\337!!)\210\303\204}r@q\210\301`\240\210\312\340!\210\341 \330\211BC\342\302\242!*\302\2429\203\261\343\302\242!\204\261\313\344\"\202\262\211\262`G`\\[\\\345W\203\311\346\261\210\202\347 \210p\350\351\330\"r\211q\210\352\353\"\216\354 \210\355D!\210c\210\356 \210\357 \210prq\210\360!+\266`Sf\361U\203\362\363!\210\364`\306\302\242\305\242%\210\306\365N\211:\205#\3661!\367@\330\"0\202#\210\370\327:\203z\302\242\232\204z\370=\204z\312\371!\210`\2629\203V\343!\204V\342!\313\344\"\211c\266\202Z\372!\210\214\211`}\210\212\356 *\210\364`\306\305\242%\210`\373\\W\203z\211S|\210)\266\347 \210\300\242\203\374\300\242!\203\231\312\375\376\377\305\242!\"!\210\202\265\201G\300\242!\203\253\312\201H!\210\202\265\312\375\201I\300\242\"!\210\201J\306!\204\306\312\201K!\210\202\201L\306!r@q\210\312\201M!\210\302\242=\203\346\312\201N!\210\202\347 \210`\372!\210\214\211`}\210\212\356 *\210`\373\\W\203\211S|\210\364`\306\305\242%\266)\210\347 \210r@q\210\201Oed\"\361V\203t\355D!\210\301\242b\210\201P\340!\203=\201Q\201R!\210\212\201Sc\210\201T\201E!\210\201U E)\201Vc\210\201W\201X\201YE\201Z\330\201[\201\\&\210\201]c\210)\347 \210\201^1\207\201_\306!0\202\211\210\306\201`\306\201a\"\206\234\201`\201a\"r@q\210\201b\306!\210\211\206\256\201cc)\210r\305\242q\210\201dF\306\")\210r@q\210m\204\335\201e\201P\330\"\262\203\335\362\332!\210\202\310)\266r@q\210\201f )\207" [V0 V1 V2 V3 V4 V5 V6 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 "`\\([^`']+\\)'" nil 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*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] lisp-data-mode set-syntax-table pp-buffer font-lock-ensure insert-buffer-substring 10 delete-char -1 help-fns--editable-variable standard-value (error) eval :help-eval-error "\nOriginal value was \n" cl-prin1 20 bufferp format "Local in buffer %s; " buffer-name standard-output help-mode--current-data print-circle print-quoted emacs-lisp-mode-syntax-table help-button-cache help-fns-describe-variable-functions 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 help-fns--var-obsolete "Not documented as a variable." help-fns--run-describe-functions "\n" buffer-string] 12]] 20 (#$ . 30723) (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)])#@40 (fn START END VARIABLE VALUE BUFFER) (defalias 'help-fns--editable-variable #[1285 "\302!\205\"\205\"\303\304\305\306pF\307\310\311 \312\313$\257#\207" [help-enable-variable-value-editing button-map readablep add-text-properties help-echo "`e' to edit the value" help-fns--edit-variable keymap define-keymap :parent "e" help-fns-edit-variable] 18 (#$ . 35569)]) (put 'help-fns-edit-variable 'disabled t)#@32 Edit the variable under point. (defalias 'help-fns-edit-variable #[0 "\301`\300\"\211\204\f\302\303!\210\304\305\306@\"!\210\307A@p\"\210\310 \210eb\210\311 \210\305\312@\"\313\314!\261\210\315\300!\210\211\211\207" [help-fns--edit-variable get-text-property error "No variable under point" pop-to-buffer-same-window format "*edit %s*" prin1 pp-buffer help-fns--edit-value-mode ";; Edit the `%s' variable.\n" substitute-command-keys ";; `\\[help-fns-edit-mode-done]' to update the value and exit; `\\[help-fns-edit-mode-cancel]' to cancel.\n\n" make-local-variable] 5 (#$ . 35993) nil]) (byte-code "\300\301\302\303#\300\207" [function-put help-fns-edit-variable completion-predicate ignore] 4) (defvar help-fns--edit-value-mode-map (define-keymap "C-c C-c" 'help-fns-edit-mode-done "C-c C-k" 'help-fns-edit-mode-cancel)) (defvar help-fns--edit-value-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [help-fns--edit-value-mode-hook variable-documentation put "Hook run after entering Elisp mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp help-fns--edit-value-mode-map definition-name help-fns--edit-value-mode] 4) (defvar help-fns--edit-value-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\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [help-fns--edit-value-mode-abbrev-table help-fns--edit-value-mode-map variable-documentation put purecopy "Keymap for `help-fns--edit-value-mode'." boundp help-fns--edit-value-mode-syntax-table definition-name help-fns--edit-value-mode defvar-1 nil make-syntax-table "Syntax table for `help-fns--edit-value-mode'." define-abbrev-table "Abbrev table for `help-fns--edit-value-mode'." derived-mode-parent emacs-lisp-mode] 5)#@563 Major mode derived from `emacs-lisp-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `help-fns--edit-value-mode-map', `help-fns--edit-value-mode-abbrev-table' and `help-fns--edit-value-mode-syntax-table' which more-or-less shadow emacs-lisp-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `help-fns--edit-value-mode-hook', as the final or penultimate step during initialization. \{help-fns--edit-value-mode-map} (defalias 'help-fns--edit-value-mode #[0 "\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\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 )\331\332!\207" [delay-mode-hooks major-mode mode-name help-fns--edit-value-mode-map help-fns--edit-value-mode-syntax-table help-fns--edit-value-mode-abbrev-table make-local-variable t emacs-lisp-mode help-fns--edit-value-mode "Elisp" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks help-fns--edit-value-mode-hook local-abbrev-table] 5 (#$ . 38088)])#@174 Update the value of the variable being edited and kill the edit buffer. If KILL (the prefix), don't update the value, but just kill the current buffer. (fn &optional KILL) (defalias 'help-fns-edit-mode-done #[256 "\204\301\302!\210eb\210\211G\303U\203\211A\262\242\202#\304\305\306GD\"\211A\262\210\307\211A\262\242\242\310!\204<\301\311!\210\204M\312p!rq\210L)\266\313p!\210\310!\205^r\211q\210\314 )\207" [help-fns--edit-variable error "Invalid buffer" 4 signal wrong-number-of-arguments (variable _ buffer help-buffer) nil buffer-live-p "Original buffer is gone; can't update" read kill-buffer revert-buffer] 9 (#$ . 39458) ["P" (help-fns--edit-value-mode)]])#@110 Kill the edit buffer and cancel editing of the value. This cancels value editing without updating the value. (defalias 'help-fns-edit-mode-cancel #[0 "\300\301!\207" [help-fns-edit-mode-done t] 2 (#$ . 40153) [nil (help-fns--edit-value-mode)]])#@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\210A\266\202\202)\210rq\210\303 )\207" [standard-output help-fns--activated-functions "\n" help-fns--ensure-empty-line nil buffer-size apply] 8 (#$ . 40403)]) (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 (#$ . 40820)]) (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 (#$ . 41281)]) (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 " compiled-function-p "which is a compiled expression.\n" format-message "`%s'.\n"] 6 (#$ . 41558)]) (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-quotes " However, you have added it to `safe-local-variable-values'.\n"] 4 (#$ . 42002)]) (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 (#$ . 42425)]) (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\211JB\235\205\241B \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\332\333!!\266\202\202\241\311\332\334!!\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 substitute-quotes "'.\n" " This variable's value is file-local.\n"] 11 (#$ . 42700)]) (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 (#$ . 43754)])#@17 (fn VARIABLE) (defalias 'help-fns--var-obsolete #[257 "\211\300N\211@`\205>\301c\210\3028\203\303\304\3028\"c\210;\203&\305P\2023\2032\306\307@\"\2023\310\311\261\210\312`\"\210\313 \207" [byte-obsolete-variable "This variable is obsolete" 2 format " since %s" "; " format-message "; use `%s' instead." "." "\n" fill-region-as-paragraph ensure-empty-lines] 8 (#$ . 43964)]) (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 (#$ . 44431)]) (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\2051\305\242G\306U\203&\307\310\242@\"\2020\307\311\312\313\242\314#\"!\207" [obarray nil mapatoms make-closure #[257 "\303!\205#\300\304!\240\205#\300\242\302=\205#\300\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 (#$ . 44733)]) (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-quotes " This variable's buffer-local value is permanent.\n" " This variable's value is permanent if it is given a local binding.\n"] 7 (#$ . 45393)])#@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 "C\301\302\303\242D\304\305!\"\210\211\242\204\211\306\240\210\211\242<\204#\211\242C\240\210\307\310 \311\312#\")\207" [help-buffer-under-preparation t help-setup-xref describe-face called-interactively-p interactive default help--window-setup help-buffer make-closure #[0 "r\nq\210\301\242\211\203\352\211@\211;\203\305!\262\2119\203\343\306\307!\261\210\310!\204.\311c\210\202\332\312\313\314\315\316#\317Qc\210\320\321!\210\322N\312\203s\262\323\324\325N\211\262\203o\323\326;\203h\327\330\"\202i\331 #\202p\331$c\210\332\333\334!\206|\335!\336\261\266r\nq\210\212\337\340\312\341#\210\342\343\344#*\210\345\346\"\262\211\204\246\347D\210\202\332\347\350F\320\351\352!!\210\320\353!!\210\320\351\354!!\210\212\337\333\355!\312\341#\210\342\343\356$)\210\320\357!\210\360 \210\360 \266\360 \210\361\f\300#\210A\266\202\202\362 )\207" [V0 V1 standard-output help-mode--current-data help-fns-describe-face-functions intern "Face: " symbol-name facep " undefined face.\n" nil " (" 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 substitute-quotes "Defined in `" help-fns-short-filename "'" "`\\([^`']+\\)'" help-face-def "." terpri help-fns--run-describe-functions buffer-string] 15]] 9 (#$ . 46099) (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 (#$ . 48395)]) (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\266A\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 (#$ . 48653)])#@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 "CC\3049\204\305\306!\210\307\242!\204p\240\210\310\242!\204&\211\311 \240\210r\312 q\210\313\314\211\"\210\315\314\316\317\320 $ \"\"\237\211A?A\203\203eb\210\304@@A@A\211\203y\211c\210`\321\314x\210`|\210\322\323 \324\261\210\203y\325\n!\326\327\322\261\210)\266A\262\202B\211\204\221\314\313\330D\314\"\210db\210\331 \210eb\266\202*\207" [help-buffer-under-preparation describe-symbol-backends inhibit-read-only help-xref-stack-item t 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\302!\205%\306\211\306\302\301\242\300\242#*\210\307 B\207" [V0 V1 V2 help-xref-stack-item help-xref-forward-stack help-xref-stack nil buffer-string] 12 "\n\n(fn ARG0)"] " \n" "\n\n" make-separator-line "\n" symbol-name " is also a " "." describe-symbol help-xref--navigation-buttons] 15 (#$ . 49620) (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 "\211C\211\242\206 p\240\210\301\302\303\242D\304\305!\"\210\306\307 \310\311\"\")\207" [help-buffer-under-preparation t help-setup-xref describe-syntax called-interactively-p interactive help--window-setup help-buffer make-closure #[0 "r\300\242q\210\302 )r q\210\303\304\"\210\305!\211\262\205%\306c\210\303\304\"\210\202)\207" [V0 standard-output syntax-table describe-vector internal-describe-syntax-value char-table-parent "\nThe parent syntax table is:"] 4]] 7 (#$ . 51577) 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 (#$ . 52314)])#@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 "\211C\301\211\242\206 p\240\210\302\303\242D\304\305!\"\210\306\307 \310\311\"\")\207" [help-buffer-under-preparation t help-setup-xref describe-categories called-interactively-p interactive help--window-setup help-buffer make-closure #[0 "r\300\242q\210\303 )\304\305\"\306!\203\211G\307U\204\310\311!\210r q\210\312\302\313 \"\210\314c\210\315\316\317\n\320\321\322\323&\210\324c\210`\305\325\211\305\211\307W\203TH\203MT\262\211T\262\202=\210S\326\245T\262\305\262\305\211\307W\203\305H\211\203\275\327\330\"\210\331\305\"\262\211G\332Y\203\207\211\305\333O\334P\262`dW\203\227\335\336\245_\321\"\210\337\\\340\261\210`dW\203\253\341y\210\202\256\324c\210T\262\246\305U\203\275b\210\210\211T\262\202`\266db\210\324\342\343\261\210\344\345\"\210\n`\325\223\210\346c\210\305\211\307W\203\nH\211\203\327\324\"\203\371\211\305\225\325O\262\337\\\347\324\261\210\210\211T\262\202\336\210\350!\211\262\205\351c\210\344\345\"\210\202 )\207" [V0 standard-output help-button-cache 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" nil 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:"] 12]] 7 (#$ . 52562) 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 (#$ . 54515)])#@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 (#$ . 55041)])#@41 History for input to `describe-keymap'. (defvar keymap-name-history nil (#$ . 55666))#@121 Describe key bindings in KEYMAP. When called interactively, prompt for a variable that has a keymap value. (fn KEYMAP) (defalias 'describe-keymap #[257 "\211C\301C\302\2429\203\303\242!\203\304\242J!\204I\304\242!\2045\2429\2031\305\306\242\"\210\2025\305\307!\210\301\310\311!\262\302\240\210\211\242L\210\240\266\3121V\313\242!0\202Z\210\202]\206_\242\240\210\314\315\242D\316\317!\"\210\320\242!\321\242\322\"\323\242\324\"\325\326 \327\330\n\f&\"\266\211\242\205\225\331\242!)\207" [help-buffer-under-preparation nil t boundp keymapp error "Not a keymap variable: %S" "Not a keymap" cl-gentemp "KEYMAP OBJECT (no variable) " (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--window-setup help-buffer make-closure #[0 "r q\210\303\242\204O\306\307\310\304\242\"!\210\300\204\"\311\304\242D\306\312!\210\202O\306\307\313\300\314=\203/\315\2022\316\300!\"!\210\212\317\320\321!\322\323#\210\311\304\242\324\300F\325\326\327\304\242\300$)\210\301\330\232\204d\301\203d\306\331!\210\306\307\332\301\"!\210\320\333\302\334Q!c)\207" [V0 V1 V2 V3 V4 standard-output 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 "`\\([^`']+\\)'" nil t :file help-xref-button 1 help-variable-def "" "Documentation:\n" "%s\n\n" "\\{" "}" help-mode--current-data] 5] makunbound] 15 (#$ . 55758) (byte-code "\301 \302\3031 J0\202\210\304!\203\211\206\305 \306\307\310\"\311\312\304\313\314!&\211\315\232\2044\316!\262\203?\302J!\204D\317\320\"\210C\207" [obarray symbol-at-point keymapp (error) nil help-fns--most-relevant-active-keymap completing-read format-prompt "Keymap" #[257 "\300!\205\n\301J!\207" [boundp keymapp] 3 "\n\n(fn M)"] t keymap-name-history symbol-name "" intern user-error "Not a keymap: %s"] 11)])#@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 "\211C\211\242\204 \211p\240\210\301\302\303\242\"\304\305\242D\306\307!\"\210\310\311 \312\313#\")\207" [help-buffer-under-preparation t buffer-local-value local-minor-modes help-setup-xref describe-mode called-interactively-p interactive help--window-setup help-buffer make-closure #[0 "r\303 q\210\300\203\304\305\306\300\307\"\203\310\202\311\"c\210\312\300!\210\313\314\301\242\"\315\316\317\320\313\321\301\242\"\322\211\301\242$\323\324#\325\326\"\"\261\210\327c\210\330\322\"\211\203X\304\331\316\332!\325\333#\"\"c\210\210\334\335!\322\336#r\301\242q\210\337 )\261\210\340\307!\210\n\203\225\304\341\306\n\307\"\203\200\310\202\201\311\"c\210\312\n!\210\342\343!\203\225\344 \210\340\307!\210)\322\207" [V0 V1 global-minor-modes help-buffer format "Minor mode%s enabled in this buffer:" length> 1 "s" "" describe-mode--minor-modes buffer-local-value major-mode "The major mode is " buttonize propertize format-mode-line mode-name nil face bold make-closure #[257 "\301\300!\207" [V0 describe-function] 3 "\n\n(fn _)"] " mode" find-lisp-object-file-name " defined in %s:\n\n" help-fns-short-filename #[257 "\302\301\300\"\207" [V0 V1 help-function-def--button-function] 4 "\n\n(fn _)"] help-split-fundoc documentation doc help-fns--list-local-commands ensure-empty-lines "Global minor mode%s enabled:" re-search-forward "^\f" beginning-of-line] 10]] 10 (#$ . 57813) "@"])#@14 (fn MODES) (defalias 'describe-mode--minor-modes #[257 "\301\302\"\211\203^\211@\303\304\305\306\307!#!\310\311\312#\261\210\212db\210\313c\210\311\314\315#\316#c\210\317\236!\320\321G\322U\203@\323\202D\320\324\"\"c\266\325\326!\327\330#\206S\331c)\266A\266\202\202\210\332y\210\333\327!\210\334\335!\210\336\335!\207" [minor-mode-alist seq-sort string< capitalize replace-regexp-in-string "\\(\\(-minor\\)?-mode\\)?\\'" "" symbol-name " " buttonize #[257 "eb\210\300\301\302#\210\303 \207" [text-property-search-forward help-minor-mode t beginning-of-line] 5 "\n\n(fn MODE)"] "\n\n\f\n" propertize help-minor-mode describe-function format-mode-line format " minor mode (%s):\n" 0 "no indicator" "indicator%s" help-split-fundoc documentation nil doc "No docstring" -1 fill-paragraph forward-paragraph 1 ensure-empty-lines] 10 (#$ . 59816)]) (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\210A\266\202\202(\210\315 *\207" [nil mapatoms make-closure #[257 "\301!\205,\211K9?\205,\211\302N?\205,\303\304\305#?\205,\306\307\310!\"\205,\300\300\242B\240\207" [V0 commandp byte-obsolete-info 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) (#$ . 61373))#@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\302\303\304\242!\203\305\242\211@\262!\262\306\242!\240\210r\211\206#pq\210\307\310\311\" \"?\2053\312\313!*\207" [help-buffer-under-preparation describe-widget-functions nil t 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 (#$ . 61634) (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!\262C\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 (#$ . 62906) (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\210A\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\203A@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 (#$ . 63781) (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)