%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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)
#@449 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.
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 (#$ . 503))
#@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 (#$ . 1019))
#@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 (#$ . 1638))
#@60 Radix-tree representation replacing `definition-prefixes'.
(defvar help-definition-prefixes nil (#$ . 1958))
#@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 (#$ . 2073)])
#@64 Try and figure out if FILE has already been loaded.
(fn FILE)
(defalias 'help--loaded-p #[257 "\302!\211\205\n \303!\262\206> \304!\305\211\203; \211@\211@;\2034 @\305\306\307#)\266\203\2034 \306\262A\266\202\202 \210\262\207" [load-history inhibit-changing-match-data intern-soft featurep load-history-regexp nil t string-match] 12 (#$ . 2470)])
#@17
(fn PREFIXES)
(defalias 'help--load-prefixes #[257 "\211\211\205D \211@\211@A\211\301\302#\211\203; \211@\303!\2044 \3041- \305\306\307#0\2023 \310\311\"\262\210A\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"] 13 (#$ . 2839)])
(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& \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] "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-autoload 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 (#$ . 3946)])
#@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 (#$ . 4425))
#@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 "\206 p\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 (#$ . 4642) (byte-code "\301 \302\303\203 \304\305\"\202 \306\307\310\302\311\211\205 \312!&\211\313\232\204, \314!\262\2035 9\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)])
#@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 \310\311\312!!Prq\210eb\210m\203* \313\314 \"!\210\3152_ \316\317\320Q\321\322#\211\204B \323\315\321\"\210\202[ \324\325!\210\326\327!\211\n\235\203W \323\315\"\210\202Z b\210\210\210\202. \211\205\223 \330\331\"\203v \332\333\322\211\327%\262\202\205 \330\334\"\203\205 \332\335\322\211$\262\330\336\"\203\222 \337P\202\223 \211\262)\207" [internal-doc-file-name doc-directory build-files get-buffer-create " *DOC*" var "V" symbol-name "F" subr-name advice--cd*r insert-file-contents-literally expand-file-name loop search-forward " " "\n" nil t throw re-search-backward " S\\(.*\\)" match-string 1 string-match "^ns.*\\(\\.o\\|obj\\)\\'" replace-match ".m" "\\.\\(o\\|obj\\)\\'" ".c" "\\.\\(c\\|m\\)\\'" "src/"] 11 (#$ . 6235)])
(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 (#$ . 7527)])
#@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\203> \211@\316\317\320!\321Q\322!\323\211\324&\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] 13 (#$ . 7868)])
#@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 (#$ . 8464)])
#@689 Guess the file that defined the Lisp object OBJECT, of type TYPE.
OBJECT should be a symbol associated with a function, variable, or face;
alternatively, it can be a function definition.
If TYPE is `defvar', search for a variable definition.
If TYPE is `defface', search for a face definition.
If TYPE is not a symbol, search for a function definition.
The return value is the absolute name of a readable file where OBJECT is
defined. If several such files exist, preference is given to a file
found via `load-path'. The return value can also be `C-source', which
means that OBJECT is a function or variable defined in C. If no
suitable file is found, return nil.
(fn OBJECT TYPE)
(defalias 'find-lisp-object-file-name #[514 "\211\211\242\301=\262\211\203 A@\206 \3029\203 \206 \303\"\203- \304\305\306$\262\202l \211;\203l \307\310\"\203l \3111F \312\313#0\202H \210\313\211A\203k r\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\250 9\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 (#$ . 9246)])
#@17
(fn FUNCTION)
(defalias 'help-fns--key-bindings #[257 "\302!\205\361 rq\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 (#$ . 11349)])
#@17
(fn FUNCTION)
(defalias 'help-fns--compiler-macro #[257 "\300\301\"\211\205K \302c\210\2119\203) \303\304\"c\210\212\305\306\307!\310\311#\210\312\313\314#\210)\202I \315N\211;\203H \303\316\"c\210\212\305\306\307!\310\311#\210\312\313\317$\210)\210\320c\207" [function-get compiler-macro " This function has a compiler macro" format-message " `%s'" re-search-backward substitute-command-keys "`\\([^`']+\\)'" nil t help-xref-button 1 help-function compiler-macro-file " in `%s'" help-function-cmacro ".\n"] 8 (#$ . 12594)])
#@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 (#$ . 13136)])
#@17
(fn FUNCTION)
(defalias 'help-fns--parent-mode #[257 "\2119\205 \211\300N\211\205) \301\302!c\210`\303\304\"c\210\305`\306\307\310C&\266\301\311!c\207" [derived-mode-parent substitute-command-keys " Parent mode: `" format "%s" make-text-button type help-function help-args "'.\n"] 10 (#$ . 14209)])
#@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 " This " macro "macro" "function" " is obsolete" 2 format " since %s" ";\n " format-message ";\n use `%s' instead." "." "\n"] 7 (#$ . 14524)])
(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 (#$ . 15013)])
#@134 Return non-nil if FUNCTION has previously been autoloaded.
FILE is the file where FUNCTION was probably defined.
(fn FUNCTION FILE)
(defalias 'help-fns--autoloaded-p #[514 "\301\302!!\303B\304\2031 \211\2041 @@;\203* \301@@!\232\203* @A\235\262A\262\202\n \207" [load-history file-name-sans-extension file-truename t nil] 8 (#$ . 15244)])
#@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 (#$ . 15602)])
(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 (#$ . 16200)])
(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 (#$ . 16529)])
#@75 Return the likely first release that defined SYMBOL, or nil.
(fn SYMBOL)
(defalias 'help-fns--first-release #[257 "\301!\302\303!\304Q\305\306\307#\310\211\311\312!r\211q\210\313\314\315\316\317!\320\"\321$\216\211\203z \211@\322 \210\323!\210eb\210\324\325!\210\326\310\306#\203s \314\224\212\327\330\310\306#\204V \331\332\333!\"\210\202n \334\335!\203e \336\"\203m D\262\211\262\210)\210\2028 A\266\202\202$ \210*\210\211\203\214 \337\310\340\341\342&\210\207" [data-directory symbol-name "\\_<" regexp-quote "\\_>" directory-files t "\\`NEWS\\.[1-9]" nil generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 erase-buffer insert-file-contents search-forward "\n*" re-search-forward re-search-backward "^\\*.* Emacs \\([0-9.]+[0-9]\\)" message "Ref found in non-versioned section in %S" file-name-nondirectory match-string 1 version< make-text-button type help-news help-args] 14 (#$ . 16701)])
(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 "\2119\205 \301!\211\205 rq\210\302\303\"c)\207" [standard-output help-fns--first-release format " Probably introduced at or before Emacs version %s.\n"] 5 (#$ . 17865)])
#@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 (#$ . 18111)])
#@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\\ \203N 9\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\217 F\207" [advice--p advice--symbol-function advice--cd*r function-documentation nil signal void-function autoload subrp subr-name symbol-name fboundp intern] 10 (#$ . 18367)])
#@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>\203R \211;\203R \307\"\203R \310\311!\205N \312P\202] \311!\203\\ \313\202] \314\315;\204i \316!\203m \317\202P9\203~ \320N\203~ \321\202P\203\212 \322\323\"\202P\324!\203\244 \325!A\326=\203\237 \327\202\240 \330P\202P\211\242\331=\262\203\330 \332\333\311!\203\273 \334\202\324 \3358\336=\203\310 \337\202\324 \3358\203\323 \340\202\324 \341\"\202P\242\342=\204\346 \343!\203\354 \340P\202P\304!\203\370 \344P\202P\345!\203\346P\202P\242\347=\203\341P\202P\242\350=\203 \351P\202P\305!\203O\352\243\211\203?\353\242!\2038\354\262\352\262\211\243\262\202'\203H\337\202I\355P\266\202\202P\356!\210\203c\357!\204c\315\360!\202\306rq\210\212\361 \362\363\364\365\366!\367\"\370$\216\371\372\373!\352\354#\203\207\374\375\376 #\210)\210*\203\301\315\322\377\201@ =\203\237\201A \202\244\201B !\"!\210rq\210\212\371\372\201C !\352\354#\210\374\375\201D $\210*\315\201E !\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 "an autoloaded " commandp "interactive " "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 "an autoloaded %s" "interactive Lisp function" 4 keymap "keymap" "Lisp macro" "Lisp function" macro macrop "compiled Lisp function" module-function-p "module 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 (#$ . 19043)])
(defalias 'help-fns--ensure-empty-line #[0 "l\204 \300c\210`S\206
`Sf\301=?\205 \300c\207" ["\n" 10] 2])
#@17
(fn FUNCTION)
(defalias 'describe-function-1 #[257 "r\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 \210\327\330\"\210\326 \210\211\206\250 \331c\266\n\332>?\205\265 \333\334!)\266\202\266\204\207" [help-enable-autoload 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 help-fns--ensure-empty-line run-hook-with-args help-fns-describe-function-functions "Not documented." (straight grave) set-buffer-file-coding-system utf-8] 22 (#$ . 21372)])
(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\2039 gz\317=\2049 gz\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 (#$ . 22659)])
#@32
(fn VARIABLE &optional TYPE)
(defalias 'describe-variable-custom-version-info #[513 "\301N\302N\206 \303\304\203 \305\306#\262\202U \203U \242\243<\203- \243@\202/ \243\236\307\"A\203S \203S \305\310\205I \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\nversion %s of Emacs.\n" assoc "This %s was introduced, or its default value was changed, in\nversion %s of the %s package" " that is part of Emacs %s" ".\n"] 15 (#$ . 23698)])
#@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\n p\262\310!\204 \311 \2629\204 \312\313!\202\201\212rq\210\314!)?\306\211\211\204[ \311 p\315\316\317\320\321\"\322\"\323$\216\324\325\"\210rq\210 J\262\326\n!\262*\266\327\330 E\331\332!\"\210\306\211\223\210\333 B\334\nB\311 \335 \336!\211 \306\211r\nq\210\337\f!\210\340\f\341\"\262 \342 \203\320 \342\343\344\f\345=\203\245 \346\202\251 \347
!\"!\210r\fq\210\212\350\351\352!\306\353#\210\354\355\356
$\210*\203\314 \357\202\334 \360\202\334 \203\331 \361\202\334 \351\362!!\210)\204\361r\fq\210`\262\342\363!\210\364 \353\211 @\365!*9\203\366 !\204\343\367\"\202\211\262\370G`[#\371W\203&\372\261\210\202v\373 \210p\374\375!r\211q\210\315\316\376\320\321!\377\"\201C $\216\201D \306!\210\201E A!\210c\210\201F \210prq\210\201G !\210)\210*\266`Sf\201H U\203v\201I \201J !\210
\201K N\211:\205\226\201L 1\222\201M @\353\"0\202\226\210\201N \306:\203\356\f\232\204\356\201N =\204\356\342\201O !\210`\2629\203\315\366!\204\315\365!\343\367\"\211c\266\202\323\201P !\210\214\211`}\210\212\201F \210*`\201Q \\W\203\356\211S|\210\266)\373 \210\203\221\201R !\203\342\201S \201T \201U !\"!\210\2024\201V !\203(\342\201S \201W !!\210\2024\342\201S \201X \"!\210\201Y \f!\204F\342\201Z !\210\202\216\201[ \f!r\fq\210\342\201\\ !\210=\203f\342\201] !\210\202\214\373 \210`\201P !\210\214\211`}\210\212\201F \210*`\201Q \\W\203\213\211S|\210\210)\210\373 \210r\fq\210\201^ ed\"\201H V\203\363\201E A!\210b\210\201_ \363!\203\274\201` \201a !\210\212\201b c\210\201c \201B !\210\201d B)\201e c\210\201f \201g \201h B\201i \353\201j \201k &\210\201l c\210)\373 \210\201m 1\201n \f!0\202\n\210 \201o
\201p \"\206 \201o \201p \"r\fq\210\201q \201r \"\210)r\fq\210\201s \210)\342\201t !\210r\fq\210\211\206I\201u c\210)\266r\fq\210\201v )\262rq\210\201w \306\"\262)\201x \201y !\203y\201y \"\202z\211)\266\204*\266\204)\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output print-circle nil buffer-live-p frame-live-p selected-frame message "You did not specify a variable" boundp 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" [buffer-name kill-buffer] print-quoted emacs-lisp-mode-syntax-table help-button-cache 2 lisp-mode-variables set-syntax-table 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 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 run-hook-with-args help-fns-describe-variable-functions help-fns--ensure-empty-line "Documentation:\n" "Not documented as a variable." buffer-string temp-buffer-window-show functionp help-window-setup] 22 (#$ . 24310) (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)])
(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\304\206 \305Q!\210rq\210\212\306\307\310Q\311\312#\210\313\314\315#\210*\316 \266\317!\211\205; \316 \210\316 \210\303!\262\207" [standard-output custom-variable-p "customize" princ " You can " " this variable." re-search-backward "\\(" "\\)" nil t help-xref-button 1 help-customize-variable terpri describe-variable-custom-version-info] 7 (#$ . 29180)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-safe-local)
#@17
(fn VARIABLE)
(defalias 'help-fns--var-safe-local #[257 "\211\300N\211\205 \301\302!\210\301\303!\210\301\304!\203 \305\202 \306\307\"!\207" [safe-local-variable princ " This variable is safe as a file local variable " "if its value\n satisfies the predicate " byte-code-function-p "which is a byte-compiled expression.\n" format-message "`%s'.\n"] 6 (#$ . 29726)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-risky)
#@17
(fn VARIABLE)
(defalias 'help-fns--var-risky #[257 "\301!\205 \302\303!\210\211\236\205 \302\304\305!!\207" [safe-local-variable-values risky-local-variable-p princ " This variable may be risky if used as a file-local variable.\n" substitute-command-keys " However, you have added it to `safe-local-variable-values'.\n"] 4 (#$ . 30177)])
(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 (#$ . 30607)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-file-local)
#@17
(fn VARIABLE)
(defalias 'help-fns--var-file-local #[257 "\305!\205\241 \211JB\235\205\237 B \235\203\232 \n\205& \306\n!?\205& \307\n!\310\311\312\313!!\210:\203H \3148\203A \315@!\262\202H @\262\316\262\204R \311\317!\202\225 \311\320!\210\311\312\203` \321\202| :\203w A\203w \322@!\262\323\324 \"\202| @\262\325!!\210r\fq\210\326\327\330\331D%\210)\311\312\332!!\266\202\202\237 \311\312\333!!\262\207" [file-local-variables-alist dir-local-variables-alist buffer-file-name dir-locals-file standard-output boundp file-remote-p dir-locals-find-file nil princ substitute-command-keys " This variable's value is directory-local" 2 dir-locals--all-files t ".\n" ", set " "for the directory\n `" file-name-directory format "by one of the\n %s files in the directory\n `" "by the file\n `" insert-text-button type help-dir-local-var-def help-args "'.\n" " This variable's value is file-local.\n"] 11 (#$ . 30883)])
(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 (#$ . 31912)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-obsolete)
#@17
(fn VARIABLE)
(defalias 'help-fns--var-obsolete #[257 "\211\300N\211@\2059 \301\302!\210\3038\203 \301\304\305\3038\"!\210\301;\203( \306P\2025 \2034 \307\310@\"\2025 \311!\210\312 \207" [byte-obsolete-variable princ " This variable is obsolete" 2 format " since %s" ";\n " format-message ";\n use `%s' instead." "." terpri] 8 (#$ . 32196)])
(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 (#$ . 32627)])
(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\305\306\307#\310\"\311\312%\"\210\242\205; \313\242G\314U\2030 \315\316\242@\"\202: \315\317\320\321\242\322#\"!\207" [obarray nil mapatoms make-byte-code 257 "\303!\205# \302\304!\240\205# \302\242\300=\205# \302\242=?\205# \301\301\242B\240\207" vconcat vector [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 "] 12 (#$ . 32930)])
(add-hook 'help-fns-describe-variable-functions 'help-fns--var-bufferlocal)
#@17
(fn VARIABLE)
(defalias 'help-fns--var-bufferlocal #[257 "\211\300N\301!\302!\203@ \303!\203. \304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216\302!*\262\203@ \315\316!\210\203: \315\317!\210\315\320!\202X ?\206X \321!\203S \315\322\323!!\202X \315\322\324!!\207" [permanent-local variable-binding-locus local-variable-if-set-p local-variable-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 princ " Automatically becomes " "permanently " "buffer-local when set.\n" bufferp substitute-command-keys " This variable's buffer-local value is permanent.\n" " This variable's value is permanent if it is given a local binding.\n"] 10 (#$ . 33625)])
#@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 "\305\306D\307\310!\"\210\204 \311\262<\204 C\262\312\211\223\210\313 B\314\nB\315 \316 \317!\211 \312\211r\fq\210\211\203\211@\211;\203G \320!\262\2119\203\321\322!\261\210\323!\204_ \324c\210\202\325\312\326\327\330\331#\332Qc\210\333\326\334Q!\210\335N\312\203\251 \262\336\337 \340N\211\262\203\245 \336\341;\203\236 \342\343\"\202\237 \344 #\202\246 \344$c\210\345\346\347!\206\262 \350!\351\261\266r\fq\210\212\352\353\354Q\312\355#\210\356\357\360#\210*\361\362\"\262\211\203\333\346\363!!\210\333\364!!\210\333\346\365!!\210\212\352\346\366!\312\355#\210\356\357\367$\210)\333\370!\210\371 \210\371 \210\266\371 \210\372\373 #\210A\266\202\2027 \374 \262)\262rq\210\375\312\"\262)\376\377!\2036\377\"\2027\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-face called-interactively-p interactive default nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup intern "Face: " symbol-name facep " undefined face.\n" "customize this face" " (" propertize "sample" font-lock-face ")" princ ")\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 "\\(" "\\)" t help-xref-button 1 help-customize-face find-lisp-object-file-name defface "Defined in `" file-name-nondirectory "'" "`\\([^`']+\\)'" help-face-def "." terpri run-hook-with-args help-fns-describe-face-functions buffer-string temp-buffer-window-show functionp help-window-setup] 22 (#$ . 34369) (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 (#$ . 36786)])
(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 (#$ . 37045)])
#@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\211 eb\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 :extend t))) "\n" symbol-name " is also a " "." describe-symbol] 16 (#$ . 38013) (byte-code "\302 \211\205 \303\304\305\306\307\310!\311\"\312\313%\"\211\203 \202 \314 \206% \211\315\316\2033 \317\320\"\2024 \321\322\323\315\324\211\205B \325 !&\211\326\232\203N \202Q \327!)C\207" [describe-symbol-backends enable-recursive-minibuffers 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: " help--symbol-completion-table #[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\206 p\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 (#$ . 40000) 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 (#$ . 40978)])
#@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\206 p\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\203x T\262\210\211T\262\202f \266S\342\245T\262\322\262\324\322\211W\203\372 \211H\211\203\361 \343\344\"\210\345\322\"\262\211G\346Y\203\270 \347\322\350#\351P\262`dW\203\311 \352\353\245_\336\"\210\354\\\355\261\210`dW\203\335 \356y\210\202\340 \341c\210T\262\246\322U\203\361 b\210\266\211T\262\202\216 \266db\210\341\357\360\261\210\361\362\"\210
`\312\223\210\363c\210\324\322\211W\203B\211H\211\2039\343\341\"\2030\347\322\225\"\262\354\\\364\341\261\210\266\211T\262\202\266\365!\211\262\205X\366c\210\361\362\"\210\202D)\266\202\262rq\210\367\312\"\262)\370\371!\203u\371\"\202v\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 substring 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] 19 (#$ . 41227) 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#\203b g\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 (#$ . 43453) (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#\203z g\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\203 A@A@X\207@@\231\207" [] 4 "\n\n(fn E1 E2)"] "\n@item " char-equal 70 "Function" "Variable" " @code{" "}\n@display\n" "\n@end display\n" 100 "\n@end table\n@table @asis\n" "@end table\n" "@bye\n" texinfo-mode] 28 (#$ . 44329) (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)
Zerion Mini Shell 1.0