;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\300\303!\207" [require cl-lib help-mode radix-tree] 2) #@252 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 will be inserted. The functions will receive the function name as argument. (defvar help-fns-describe-function-functions nil (#$ . 503)) #@60 Radix-tree representation replacing `definition-prefixes'. (defvar help-definition-prefixes nil (#$ . 821)) #@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 (#$ . 935)]) #@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@\2033@\305\306\307#)\266\203\2033\306\262A\266\202\202\210\262\207" [load-history inhibit-changing-match-data intern-soft featurep load-history-regexp nil t string-match] 12 (#$ . 1331)]) #@17 (fn PREFIXES) (defalias 'help--load-prefixes #[257 "\211\211\2056\211@\211@A\211\301\302#\211\203-\211@\303!\204&\304\305\306#\210A\266\202\202\266A\266\202\202\207" [help-definition-prefixes radix-tree-insert nil help--loaded-p load noerror nomessage] 13 (#$ . 1699)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable help-enable-completion-auto-load funcall function #[0 "\300\207" [t] 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"] 10) #@27 (fn STRING PRED ACTION) (defalias 'help--symbol-completion-table #[771 "\203\303\304 \"\305!\266\205\306\307\310 \"\"\311\n\2052\312\313\314\315\316 \n\"\317\"\320\321%$\207" [help-enable-completion-auto-load definition-prefixes obarray radix-tree-prefixes help-definition-prefixes help--load-prefixes mapcar intern all-completions complete-with-action make-byte-code 257 "\300!\206 \211\301>\207" vconcat vector [] 3 "\n\n(fn SYM)"] 15 (#$ . 2490)]) #@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 (#$ . 2970)) #@134 Display the full documentation of FUNCTION (a symbol). When called from lisp, FUNCTION may also be a function object. (fn FUNCTION) (defalias 'describe-function #[257 "\206p\306\307E\310\311!\"\210\212 \312\211\223\210\313\nB\314 B\315 \316 \317!\211\312\211\320N\2037\321!\210\202;\322!\210\321\323!\210\324!\210r q\210\325 )\262rq\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 #[514 "\301!\205\211\302!)\207" [describe-function-orig-buffer buffer-live-p describe-function] 4 "\n\n(fn FUNCTION BUFFER)"] 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 (#$ . 3187) (byte-code "\301 \302\303\203\304\305\"\202\306\307\310\302\311\211\205\312!&\211\313\232\204,\314!\262\20359\2049\315\316!\210\317!\204J\320N\204J\315\321\"\210)C\207" [enable-recursive-minibuffers function-called-at-point t completing-read format "Describe function (default %s): " "Describe function: " help--symbol-completion-table #[257 "\300!\206 \211\301N\207" [fboundp function-documentation] 3 "\n\n(fn F)"] nil symbol-name "" intern user-error "You didn't specify a function symbol" fboundp function-documentation "Symbol's function definition is void: %s"] 10)]) #@148 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. (fn SUBR-OR-VAR KIND) (defalias 'help-C-file-name #[514 "\303\304!\305=\203\306\307!P\202\310\311\312!!Prq\210eb\210m\203*\313\314 \"!\210\3152Q\316\317\320Q!\321\322!\210\323\324!\211\n\235\203I\325\315\"\210\202Lb\210\266\202.\326\327\"\203d\330\331\332\211\324%\262\202s\326\333\"\203s\330\334\332\211$\262\326\335\"\203\200\336P\202\201\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" re-search-backward "S\\(.*\\)" match-string 1 throw string-match "^ns.*\\(\\.o\\|obj\\)\\'" replace-match ".m" t "\\.\\(o\\|obj\\)\\'" ".c" "\\.\\(c\\|m\\)\\'" "src/"] 11 (#$ . 4780)]) (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 (#$ . 5955)]) #@17 (fn DOC ARGS) (defalias 'help-do-arg-highlight #[514 "\301 p\302\303\304\305\306\"\307\"\310$\216\311\312!!\210\313\314\315\"\210\211\203E\211@\316\317\320\321\322!\323\324\325\326\327\260 \330!\331\211\332&\262A\266\202\202\210)\207" [emacs-lisp-mode-syntax-table syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [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] 16 (#$ . 6296)]) #@29 (fn USAGE DOC &rest ARGS) (defalias 'help-highlight-arguments #[642 "\203\214\301\302\"\203\214\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216c\210eb\210\314\206,\315\316!?\314\317\314w\210\203s\211\204E\315\320!\203E\321\262\322\323\314\321#\204S\314\262\2024\324\313!B\262\211\2034\324\325!\326\230\2034\327\326!\210\330`\325\"b\210\2024\331\332 \"\262\205\205\331\"\262)\266*\210B\207" [case-fold-search string-match "^(" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil looking-at "\\[" "^ " " &" t re-search-forward " \\([\\[(]*\\)\\([^] &).]+\\)" match-string 1 "(" search-backward scan-sexps help-do-arg-highlight buffer-string] 11 (#$ . 6938)]) #@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\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\207\323!\203\207\324\325!\203\203\326\327\"\2024\330\2024\211\204\2509\203\250\331N\250\203\250\324\325!\203\244\326\332\"\2024\330\2024\211;\204\261\313\2024\313\307\333\334!\"\205\323\335!\336\337\340!!\230\205\323\341\317!\211\262!\205\323\211\262\2064\307\342\"\203\347\343\344\345#\202\350\211\341!\203\362\211\206\373\341\346P!\205\373\211\262\2064\334!\304\347#\232\203 \307\342\"\203\343\344\345#\202!\211\202!\350\316\313\306$\211\2052\341!\2052\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 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 (#$ . 7720)]) #@17 (fn FUNCTION) (defalias 'help-fns--key-bindings #[257 "\302!\205\361rq\210`)\303!\211\304>\204\331\305\206 \306\211$\306\307=\203<\310\242!\203<@\311H:\203<\312\313!\210\202\327\211\203Y\211@\314\311H!\315\235\203R\211B\262A\266\202\202=\210\203v\312\316!\210\3129\203o\317\320\"\202p\321!\210\312\322!\210\203\304\312\203\203\323\202\204\324!\210\211G\325W\203\230\312\326\327\330#!\210\202\304\211\211\203\254\211@\331\"\262A\266\202\202\231\210\203\300\312\326\327\330#!\210\312\332!\210\202\304\312\333!\210\204\320\204\320\211\203\327\312\334!\210\335 \210\266rq\210\336`\"\210\337\340`\341Z\"?\205\356\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 key-description ", " delq ", and many ordinary text characters" "many ordinary text characters" "." terpri fill-region-as-paragraph looking-back "\n\n" 2] 10 (#$ . 9823)]) #@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 "\nThis 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 (#$ . 11067)]) #@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\266\202\266\203\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. Please make a bug report.]" replace-regexp-in-string "\\`(\\\\=\\\\\\\\=` \\([^\n ]*\\))\\'" "\\\\=`\\1" nil substitute-command-keys help-highlight-arguments reader-construct "\n" fill-region] 17 (#$ . 11609)]) #@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 "\nParent mode: `" format "%s" make-text-button type help-function help-args "'.\n"] 10 (#$ . 12682)]) #@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\311P\202E\211\203D\312\313\"\202E\314\315\261\207" [byte-obsolete-info "\nThis " macro "macro" "function" " is obsolete" 2 format " since %s" ";\n" format-message ";\nuse `%s' instead." "." "\n"] 7 (#$ . 12997)]) #@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\2030\211\2040@@\203)\301@@!\232\203)@A\235\262A\262\202\n\207" [load-history file-name-sans-extension file-truename t nil] 8 (#$ . 13401)]) #@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 "\nThis function is for interactive use only" format ";\nin Lisp code %s" t format-message ";\nin Lisp code use `%s' instead." "." "\n"] 6 (#$ . 13758)]) #@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 (#$ . 14279)]) #@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\300\301!!\211\203\302\301!!\206\2119\2033\211K\2064\211\303N\203+\304\2024\305\306C\"\2024\211\211\205\\\2119\206\\\203N9\203N\211\242\307=?\206\\\310!\205\\\311!\312!\230?\211\203\200\310!\204\200\313!\203z\211K9\203z\211K\262\202g\211\262\202\217\310!\203\216\314\311!!\202\217F\207" [advice--p advice--symbol-function advice--cd*r function-documentation nil signal void-function autoload subrp subr-name symbol-name fboundp intern] 10 (#$ . 14535)]) #@71 Print a line describing FUNCTION to `standard-output'. (fn FUNCTION) (defalias 'help-fns-function-description-header #[257 "\301!\211@A\211@A\211@A\211@A\n\302\203$\303\202%\"\304!\2049\305!\2049\242\306>\203T\211;\203T\307\"\203T\310!\203P\311\202_\312\202_\310!\203^\313\202_\314\315;\204k\316!\203o\317\202H9\203\200\320N\203\200\321\202H\203\214\322\323\"\202H\324!\203\247\325!A\326=\203\241\327P\202H\330P\202H\211\242\331=\262\203\334\332\333\310!\203\276\334\202\277\335\3368\337=\203\314\340\202\330\3368\203\327\341\202\330\342#\202H\242\343=\204\352\344!\203\360\341P\202H\304!\203\374\345P\202H\242\346=\203 \342P\202H\242\347=\203\350P\202H\305!\203G\351\243\211\2037\352\242!\2030\353\262\351\262\211\243\262\202\203@\340\202A\354P\266\202\202H\355!\210\203[\356!\204[\315\357!\202\274rq\210\212\360 \361\362\363\364\365!\366\"\367$\216\370\371\372!\351\353#\203\373\374\375 #\210)\210*\203\267\315\322\376\377=\203\225\201@\202\232\201A!\"!\210rq\210\212\370\371\201B!\351\353#\210\373\374\201C$\210*\315\201D!\266\202\266\204\207" [standard-output help-fns--analyze-function find-lisp-object-file-name defun byte-code-function-p keymapp (macro lambda closure) help-fns--autoloaded-p commandp "an interactive autoloaded " "an autoloaded " "an interactive " "a " princ vectorp "a keyboard macro" reader-construct "a reader construct" format-message "an alias for `%s'" subrp subr-arity unevalled "special form" "built-in function" autoload format "%s autoloaded %s" "an interactive" "an" 4 keymap "keymap" "Lisp macro" "Lisp function" macro macrop "compiled Lisp function" lambda closure "Lisp closure" nil char-table-p t "sparse keymap" "" fboundp ",\nwhich is not defined. Please make a bug report." match-data make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 re-search-backward substitute-command-keys "alias for `\\([^`']+\\)'" help-xref-button 1 help-function " in `%s'" C-source "C source code" help-fns-short-filename "`\\([^`']+\\)'" help-function-def "."] 23 (#$ . 15211)]) #@17 (fn FUNCTION) (defalias 'describe-function-1 #[257 "r\303 q\210`)\304!\210r\303 q\210\305\212b\210\306y\210`)`\"\210)\210\307 \210\307 \210\310!\211@A\211@A\211@A\211@A\n\3111K\312\313\"0\202M\210\314p\211\242\315=\262\203l\203l\203l\316\317\"\203l\320!\210\321!\210r q\210\3221\225\323\324!\203\213\325 !\202\215%0\202\227\210\326\327\"\210\330\206\243\331\261\266\n\332>?\205\261\333\334!)\266\202\266\204\207" [help-enable-auto-load standard-output text-quoting-style help-buffer help-fns-function-description-header fill-region-as-paragraph 0 terpri help-fns--analyze-function (invalid-function void-function) documentation t nil autoload string-match "\\([^\\]=\\|[^=]\\|\\`\\)\\\\[[{<]" autoload-do-load help-fns--key-bindings (invalid-function void-function) help-fns--signature subrp indirect-function run-hook-with-args help-fns-describe-function-functions "\n" "Not documented." (straight grave) set-buffer-file-coding-system utf-8] 22 (#$ . 17386)]) (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\304\305\306\"\307\"\310$\216\311!\210\3121S\212\313\314w\210\315\316!\303U\2039gz\317=\2049gz\320=\2049\321\322!\210\313\314w\210\323p!\2119\205L\324!\205L\211\262)0\202W\210\202Z\206\252\325 \211\205c\326!\211\203u\204q\324!\203u\211\202\244\327 \302\303\330\305\306!\331\"\332$\216\205\241\333\334\"\205\241\326\335\336\"!\262\204\240\324!\205\241)\262\266\202\206\252\303)\207" [emacs-lisp-mode-syntax-table syntax-table make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table (error) "'" nil skip-syntax-backward "_w" 119 95 forward-sexp -1 read boundp find-tag-default intern-soft match-data "\301\300\302\"\207" [set-match-data evaporate] 3 string-match "\\`\\W*\\(.*?\\)\\W*\\'" match-string 1] 12 (#$ . 18638)]) #@17 (fn VARIABLE) (defalias 'describe-variable-custom-version-info #[257 "\211\301N\302N\303\203\304\305\"\262\202L\203L\242\243<\203&\243@\202(\243\236\306\"A\203J\203J\304\307\205B\304\310\"\311Q#\262\266\207" [customize-package-emacs-version-alist custom-version custom-package-version nil format "This variable was introduced, or its default value was changed, in\nversion %s of Emacs.\n" assoc "This variable was introduced, or its default value was changed, in\nversion %s of the %s package" " that is part of Emacs %s" ".\n"] 13 (#$ . 19677)]) #@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!\202\346\212rq\210\314!)?\315N\306\211\211\204^\311 p\316\317\320\321\322\"\323\"\324$\216\325 \326\"\210r q\210\nJ\262\327 !\262*\266\330\331\n\nE\332\333!\"\210\306\211\223\210\334 B\335\nB\311 \336 \337!\211\306\211r q\210\340 !\210\341 \342\"\262\n \203\330\343\344\345\f\346=\203\247\347\202\253\350 !\"!\210r\fq\210\212\351\352\353!\306\354#\210\355\356\357 $\210*\203\321\343\360!\210\202\352\343\361!\210\202\352\203\344\343\362!\210\202\352\343\352\363!!\210)\204\330r\fq\210`\262\343\364!\210\365 \354\211@\366!*9\203\367 !\204\344\370\"\202\211\262\371G`[#\372W\2032\373\261\210\202w\374 \210p\375\376!r\211q\210\316\317\377\321\322!\201H\"\201I$\216c\210\201J \210prq\210\201K!\210)\210*\266`Sf\201LU\203w\201M\201N!\210\201ON\211:\205\226\201P1\222\201Q@!0\202\226\210\201R\306:\203\325\f\232\204\325\201R\232\204\325\343\201S!\210`\262\201T!\210\214\211`}\210\212\201J \210*`\201U\\W\203\325\211S|\210\266)\374 \210\203x\201V!\203\372\343\201W\201X\201Y!\"!\210\202\201Z!\203\343\201W\201[!!\210\202\343\201W\201\\\"!\210\201] !\204-\343\201^!\210\202u\201_ !r\fq\210\343\201`!\210=\203M\343\201a!\210\202s\374 \210`\201T!\210\214\211`}\210\212\201J \210*`\201U\\W\203r\211S|\210\210)\210\374 \210r\fq\210\201bed\"\201LV\203\332\201cA!\210b\210\201d\364!\203\243\201e\201f!\210\212\201gc\210\201h\201B!\210\201i B)\201jc\210\201k\201l\201mB\201n\354\201o\201p&\210\201qc\210)\374 \210\201r1\356\201s !0\202\361\210\f \201tN\201u!@\201vN\201w\201x\"\206\201w\201x\"\306\201y!\203l\201z!\203O\375\376!r\211q\210\316\317\377\321\322!\201{\"\201I$\216\201y!*\262\203l\354\262\343\201|!\210\203c\343\201}!\210\343\201~!\210\202\223\203\223\201V\f!\203\210\354\262\343\352\201!!\210\202\223\354\262\343\352\201\200!!\210=\204\250\354\262\343\344\201\201 \"!\210\203\363\354\262\343\201\202!\210\201I8\203\316\343\201W\201\203\201I 8\"!\210\343;\203\334\201\204P\202\356\203\353\344\201\205@\"\202\356\201\206!\210\374 \210\203\354\262\343\201\207!\210\343!\210\374 \210Brq\210C)\235\203\352\354\262Brq\210D)\235\203\342\201\210!\205M\201\211\201\210!!?\205M\201\212\201\210!!\306\343\352\201\213!!\210:\203u\201I8\203n\201\214@!\262\202u@\262\354\262\204\202\343\201q!\210\202\335\343\201\215!\210\343\352\203\224\201\216\202\271:\203\262A\203\262\201\217@!\262\201W\201\220E\"\202\271@\262\201\221!!\210r\fq\210\201\222\201\223\201\224\201\225D%\210)\343\352\201\226!!\210\266\202\352\343\352\201\227!!\210F>\203\373\354\262\343\201\230!\210\201\231!\203\354\262\343\201\232!\210G\236\203\343\352\201\233!!\210\203G\354\262\343\201\234!\210\343\201\235!\210\343\201\236!\203?\201\237\202E\344\201\240\"!\210\211\203N\374 \210\343\201\241!\210r\fq\210\206_\201\242c\210)\266\201\243 !\203\263\201\244\374 \210\374 \210\343\201\245\201\246Q!\210r\fq\210\212\351\201\247\201\250Q\306\354#\210\355\356\201\251#\210*\210\201\252 !\211\203\262\374 \210\374 \210\343!\210\210r\fq\210\201\253 )\262rq\210\201\254\306\"\262)\201\255\201\256!\203\336\201\256\"\202\337\211)\266\204*\266\205)\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output print-circle nil buffer-live-p frame-live-p selected-frame message "You did not specify a variable" boundp permanent-local make-byte-code 0 "\302\300!\203 \303\300\304\"\210\305\301!\205\301q\207" vconcat vector [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" C-source "C source code" file-name-nondirectory 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*" "\301\300!\205 \302\300!\207" print-quoted emacs-lisp-mode-syntax-table help-button-cache file-local-variables-alist dir-local-variables-alist dir-locals-file ignored-local-variables safe-local-variable-values [buffer-name kill-buffer] 2 pp-buffer 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 set-syntax-table 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 byte-obsolete-variable get-variable-watchers safe-local-variable documentation-property variable-documentation local-variable-if-set-p local-variable-p [buffer-name kill-buffer] " Automatically becomes " "permanently " "buffer-local when set.\n" " This variable's buffer-local value is permanent.\n" " This variable's value is permanent if it is given a local binding.\n" " This variable is an alias for `%s'.\n" " This variable is obsolete" " since %s" ";\n " ";\n use `%s' instead." "." " Calls these functions when changed: " buffer-file-name file-remote-p dir-locals-find-file " This variable's value is directory-local" dir-locals--all-files ", set " "for the directory\n `" file-name-directory "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" " This variable is ignored as a file-local variable.\n" risky-local-variable-p " This variable may be risky if used as a file-local variable.\n" " However, you have added it to `safe-local-variable-values'.\n" " 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" "`%s'.\n" "Documentation:\n" "Not documented as a variable." custom-variable-p "customize" "You can " " this variable." "\\(" "\\)" help-customize-variable describe-variable-custom-version-info buffer-string temp-buffer-window-show functionp help-window-setup] 29 (#$ . 20264) (byte-code "\301 \302p\303\3049\203\305\306\"\202\307\310\311\312\313\314\315 !\316\"\317\320%\302\303\211\n9\2051\321 !&\262\211\322\232\203?\202B\323!)C\207" [enable-recursive-minibuffers variable-at-point t nil completing-read format "Describe variable (default %s): " "Describe variable: " help--symbol-completion-table make-byte-code 257 "r\300q\210\211\301N\206\302!\205\303!?)\207" vconcat vector [variable-documentation boundp keywordp] 3 "\n\n(fn VV)" symbol-name "" intern] 13)]) #@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 "\211CC9\204 \303\304!\210\305\242!\204\211p\240\210\306\242!\204$\307 \240\210r\310 q\210\311\312\211\"\210\313\312\314\315\316\317\320\321\f  #\322\"\323\324%\"\"\237\211A?A\203\211eb\210\325@@A@A\211\203\211c\210`\326\312x\210`|\210\327\330\331\261\210\203\332\n!\333\334\327\261\210)\266A\262\202I\211\204\227\312\311\335D\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-byte-code 257 "\211@A\211@A\211@A\300!\205!\304\211\300\301\242\302\242#B\266\203\207" vconcat vector [help-xref-stack-item nil] 15 "\n\n(fn ARG0)" t " \n" "\n\n" #("\n" 0 1 (face (:height 0.1 :inverse-video t))) "\n" symbol-name " is also a " "." describe-symbol] 16 (#$ . 27934) (byte-code "\303 \211\205\304\305\306\307\310\311!\312\"\313\314%\"\211\203\202 \315 \206%\211\316\317\2033\320\321\"\2024\322\n\323\316\324\211\205B\325 !&\211\326\232\203N\202Q\327!)C\207" [describe-symbol-backends enable-recursive-minibuffers obarray symbol-at-point cl-some make-byte-code 257 "\211A@\300!\207" vconcat vector #1=[] 3 "\n\n(fn X)" function-called-at-point t completing-read format "Describe symbol (default %s): " "Describe symbol: " #[257 "\301\302\303\304\305\306!\307\"\310\311%\"\207" [describe-symbol-backends cl-some make-byte-code 257 "\211A@\300!\207" vconcat vector #1# 3 "\n\n(fn X)"] 8 "\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\262rq\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 (#$ . 29887) 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 (#$ . 30865)]) #@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\324\322\211W\203\200\211H\203xT\262\210\211T\262\202f\266S\342\245T\262\322\262\324\322\211W\203\370\211H\211\203\357\343\344\"\210\345\322\"\262\211G\346Y\203\267\211\322\347O\350P\262`dW\203\307\351\245\352_\336\"\210\353\\\354\261\210`dW\203\333\355y\210\202\336\341c\210T\262\246\322U\203\357b\210\266\211T\262\202\216\266db\210\341\356\357\261\210\360\361\"\210 `\312\223\210\362c\210\324\322\211W\203@\211H\211\2037\343\341\"\203.\211\322\225\312O\262\353\\\363\341\261\210\266\211T\262\202\266\364!\211\262\205V\365c\210\360\361\"\210\202B)\266\202\262rq\210\366\312\"\262)\367\370!\203s\370\"\202t\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] 18 (#$ . 31114) nil]) #@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 (#$ . 33330) (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!r\211q\210\310\304\311\312\313!\314\"\315$\216\316!\210\317\320\305\321#\203<\322u\210\323c\210\324u\210\202(eb\210\325\326\305\321#\203zg\327U\204?\305f\262`T\330 {\262\331\315!\325\326\305\332#\203h`S\202i`{\262EB\262\322u\210\202?*\210\333\306\334!!\210\321\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\261\210\363\364\"\262\211\211\203\334\211@\365\366A@\367\"\203\270\370\202\271\371\372@\373\3158\374\261\210T\375\246\211\262\304U\203\325\376c\210A\266\202\202\244\210\377\201@\261\210\305\201A \207" [buffer-undo-list file-readable-p error "Cannot read file `%s'" 0 nil generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents re-search-forward "[@{}]" t -1 "@" 1 search-forward "" 83 line-end-position line-beginning-position 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 (#$ . 34206) (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)