| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/help-fns.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:20 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/help-fns.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@71 Display the full documentation of FUNCTION (a symbol).
(fn FUNCTION)
(defalias 'describe-function #[257 "\211\204 \306\307!\207\310\311D\312\313!\"\210\212\314\211\223\210\314C\315\316\317\320\321!\322\"\323\324% B\nr\325\326 !q\210p\327 \210\314\211\330\211\330 # $\331 \210\332\333!\210+\211 %\334!\210\335\336!\210\337!\210r%q\210\340 )\341!\210)\266\202\342@!\210)\262)\207" [help-window-point-marker temp-buffer-show-hook default-directory buffer-read-only buffer-file-name buffer-undo-list message "You didn't specify a function" help-setup-xref describe-function called-interactively-p interactive nil make-byte-code 0 "\300\301 \240\207" vconcat vector [selected-window] 2 "\n\n(fn)" get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook prin1 princ " is " describe-function-1 buffer-string internal-temp-output-buffer-show help-window-setup inhibit-modification-hooks inhibit-read-only standard-output] 9 (#$ . 551) (byte-code "\302 \303\304\304\262\305\203 \306\307\"\202 \310 \311\303\304\211 \205$ \312\n!&\262\211\313\232\2032 \2025 \314!)C\207" [enable-recursive-minibuffers obarray function-called-at-point t nil completing-read format "Describe function (default %s): " "Describe function: " fboundp symbol-name "" intern] 12)])
#@316 Split a function DOCSTRING into the actual doc and the usage info.
Return (USAGE . DOC) or nil if there's no usage info, where USAGE info
is a string describing the argument list of DEF, such as
"(apply FUNCTION &rest ARGUMENTS)".
DEF is the function whose usage we're looking for in DOCSTRING.
(fn DOCSTRING DEF)
(defalias 'help-split-fundoc #[514 "\205+ \300\301\"\205+ \302\303:\203 \304\202 \305\306\"#\307\310\224!?\205* \310\211\224OB\207" [string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" format "(%s%s" "anonymous" match-string 1 zerop 0] 8 (#$ . 1882)])
#@258 Add the usage info to DOCSTRING.
If DOCSTRING already has a usage info, then just return it unchanged.
The usage info is built from ARGLIST. DOCSTRING can be nil.
ARGLIST can also be t or a string of the form "(FUN ARG1 ARG2 ...)".
(fn DOCSTRING ARGLIST)
(defalias 'help-add-fundoc-usage #[514 ";\204 \300\262\301\302\"\204 \211\303=\203 \207\301\304\"\2031 \305\225\305\224Z\306W\203- \307\2022 \300\2022 \310;\203H \301\311\"\203H \312\313\314\"\315Q\202P \316\317\320\321\"\"Q\207" ["" string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" t "\n?\n\\'" 0 2 "\n" "\n\n" "\\`([^ ]+\\(.*\\))\\'" "(fn" match-string 1 ")" format "%S" help-make-usage fn] 9 (#$ . 2456)])
#@219 Return a formal argument list for the function DEF.
IF PRESERVE-NAMES is non-nil, return a formal arglist that uses
the same names as used in the original source code, when possible.
(fn DEF &optional PRESERVE-NAMES)
(defalias 'help-function-arglist #[513 "C\211@9\203 \302@!\203 \211\303@!\240\210\211@\242\304=\203$ \211@A\240\210\305@!\203: \211@\306H<\203: \211@\306H\202\223\211@\242\307=\203I \211@A@\202\223\211@\242\310=\203X \311@8\202\223\305@!\203g \211@\306H\250\204n \312@!\203z\203\335 \313\314\315\306\316\317\320!\321\"\311\322%D\323\314\324\313EDC\217\211\205\223 \325\326\"@\211\205\240 \327\227!\211@A)\330\211\203\322 \211@\2119\203\310 \331!\211\306H\332=\203\276 \333>\202\303 \334\335\"?\262\204\313 \326\262A\266\202\202\242 \210\211\205\330 \266\204\206\223\312@!\204\353 \211@\306H\202\336@!\337@A\247\203 \340A\341\"\202\340\342\343\"\"\262\340\344\"\345\346\"\345\347\"\326\306\211W\2031\211\350\351\352T!P!B\262\210\211T\262\202\266V\203c\353B\262Z\306\211W\203a\211\350\351\352\354\342 #!P!B\262\210\211T\262\202B\266\355!\204s\356B\262\357B\262\211\237\266\205\202\223\211@\211\242)\360=\203\222\361@8\362=\204\222\363\202\223\330\207" [x object fboundp indirect-function macro byte-code-function-p 0 lambda closure 2 subrp #1=#:err funcall make-byte-code "\301\300@!\207" vconcat vector [documentation] "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] help-split-fundoc nil read-from-string t symbol-name 38 (&rest &optional) string-match "\\." subr-arity logior lsh 8 1 7 -8 logand 127 128 intern "arg" number-to-string &optional + zerop &rest rest autoload 4 keymap "[Arg list not available until function definition is loaded.]"] 19 (#$ . 3137)])
(defalias 'help-make-usage #[514 "9\203 \202\n \300\301\302\"B\207" [anonymous mapcar #[257 "\2119\204 \207\300!\301\302\"\203 \202) \301\303\"\203% \304\305\306O\226!\202) \304\226!\207" [symbol-name string-match "\\`&" "\\`_" intern 1 nil] 6 "\n\n(fn ARG)"]] 6 "\n\n(fn FUNCTION ARGLIST)"])
#@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 "\302\303!\304=\203 \305\306!P\202 \307\310!Prq\210eb\210m\203( \311\312 \"!\210\313\314\315\316\317\320\321!\322\"\323\324%D\215\325\326\"\203L \327\330\331\211\332%\262\202[ \325\333\"\203[ \327\334\331\211$\262\325\335\"\203h \336P\202i \211\262)\207" [internal-doc-file-name doc-directory get-buffer-create " *DOC*" var "V" symbol-name "F" subr-name insert-file-contents-literally expand-file-name loop funcall make-byte-code 0 "\302\303\300\304Q!\305\306!\210\307\310!\211 \235\203 \311\312\"\210\202 b\210\266\202 " vconcat vector [build-files search-forward " " "\n" re-search-backward " S\\(.*\\)" match-string 1 throw loop] 5 "\n\n(fn)" string-match "^ns.*\\(\\.o\\|obj\\)\\'" replace-match ".m" t 1 "\\.\\(o\\|obj\\)\\'" ".c" "\\.\\(c\\|m\\)\\'" "src/"] 12 (#$ . 5226)])
(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 "\n\n(fn)"] "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 (#$ . 6499)])
(defalias 'help-do-arg-highlight #[514 "\301 p\302\303\304\305\306\307\"\310\"\311\312%DC\216\313\314!!\210\315\316\317\"\210\211\203I \211@\320\321\322\323\324!\325\326\327\330\331\260 \332!\333\211\334&\262A\266\202\202\" \210)\207" [emacs-lisp-mode-syntax-table syntax-table funcall make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 "\n\n(fn)" 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 "\n\n(fn DOC ARGS)"])
(defalias 'help-highlight-arguments #[642 "\203\224 \301\302\"\203\224 \303\304!r\211q\210\305\306\307\310\311\312!\313\"\314\315%DC\216c\210eb\210\316\2061 \317\320!?\316\316\262\321\316w\210\203{ \211\204M \317\322!\203M \323\262\324\325\316\323#\204[ \316\262\202< \326\314!B\262\211\203< \326\327!\330\230\203< \331\330!\210\332`\327\"b\210\202< \333\334 \"\262\205\215 \333\"\262)\266*\210B\207" [case-fold-search string-match "^(" generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" nil looking-at "\\[" "^ " " &" t re-search-forward " \\([\\[(]*\\)\\([^] &).]+\\)" match-string 1 "(" search-backward scan-sexps help-do-arg-highlight buffer-string] 11 "\n\n(fn USAGE DOC &rest ARGS)"])
#@739 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 the value returned by `symbol-function' for a function 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)\302=\211\203 A@\206! \303\304\305D>\203 \202 \306\"C\2033 \211\307@ \310\311$\240\210\202\200 \211@;\203\200 \312\313@\"\203\200 \314\315\316\317\320\321\322\n\"\323\"\324\325%D\326\315\327\314EDC\217\211A\203 r\211@q\210\211Ab\210\330\331\332\333#\203~ \307\334\335\336!! \337\311$\240\210)\210\211@\204\234 \340!\203\234 \341\342!\203\230 \343\344\"\202\213\345\202\213\211@\204\276 9\203\276 \346N\250\203\276 \341\342!\203\272 \343\347\"\202\213\345\202\213\211@;\204\310 \332\202\213\332@\350\351\352\"\230\205\340 \353\350\354\352\"\211\262!\205\340 \211\262\206\213\312\355@\"\203\366 \356@\317\357#\202\370 \211@\353!\203\211\206 \353\360P!\205 \211\262\206\213\361@!@\307 \362#\232\2032\312\355\"\203.\356\317\357#\2024\211\2024@\307\312\363\"\203A\364\202B\365P \332\311$\211\205o\366\367!r\211q\210\315\316\317\370\321\322!\371\"\372\325%DC\216\373\332\317\374$\210\375 *\262\211\205~\312\376\"\205~\377\336\"\211\205\211\353!\205\211\211\266\205\207" [object load-path autoload symbol-file defvar defface defun locate-file (".el" ".elc") readable string-match "[.]*loaddefs.el\\'" #1=#:err funcall make-byte-code 0 "\302\300\303\301@#\207" vconcat vector [find-function-search-for-symbol nil] 4 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] re-search-backward "^;;; Generated autoloads from \\(.*\\)" nil 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 expand-file-name ".emacs.elc" "~" file-readable-p ".emacs" "[.]elc\\'" substring-no-properties -1 ".gz" file-name-nondirectory ("") "\\.el\\'" "c" ".elc" generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [buffer-name kill-buffer] 2 insert-file-contents-literally 256 buffer-string ";;; from file \\(.*\\.el\\)" match-string] 15 (#$ . 8302)])
(defalias 'help-fns--key-bindings #[257 "\302!\205\360 rq\210`)\303!\211\304>\204\333 \305\206 \306\211$\306\307=\203< \310\242!\203< @\311H:\203< \312\313!\210\202\331 \211\203Y \211@\314\311H!\315\235\203R \211B\262A\266\202\202= \210\203x \312\316!\210\3129\203q \317\320!\321Q\202r \322!\210\312\323!\210\203\306 \312\203\205 \324\202\206 \325!\210\211G\326W\203\232 \312\327\330\331#!\210\202\306 \211\211\203\256 \211@\332\"\262A\266\202\202\233 \210\203\302 \312\327\330\331#!\210\312\333!\210\202\306 \312\334!\210\204\322 \204\322 \211\203\331 \312\335!\210\336 \210\266rq\210\337`\"\210\340\341!?\205\355 \336 )\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 " "`" symbol-name "'" "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"] 10 "\n\n(fn FUNCTION)"])
(defalias 'help-fns--compiler-macro #[257 "\300\301\"\211\205+ \302c\210\303N\211;\203( \304\305\"c\210\212\306\307\310\311#\210\312\313\314$\210)\210\315c\207" [function-get compiler-macro "\nThis function has a compiler macro" compiler-macro-file format " in `%s'" re-search-backward "`\\([^`']+\\)'" nil t help-xref-button 1 help-function-cmacro ".\n"] 8 "\n\n(fn FUNCTION)"])
(defalias 'help-fns--signature #[1028 "\301!?\205\240 \302\303#\211<\203 \211\202 \304!\305\"\211\203% \211A\262\211\2033 <\2043 \211@\202\210 <\203C \306\307\310 \"\"\202\210 ;\203L \202\210 \2119\203g \211K\211\262\203g \305\311! \"\211\262\203M \262\203r \211@\202\210 ;\204} \312!\203\207 \306\313\314!\"\202\210 \315\316\"`@\317\261\210\320`\"\266\211A\266\202\266\203\207" [advertised-signature-table keymapp gethash t help-function-arglist help-split-fundoc format "%S" help-make-usage documentation vectorp "\nMacro: %s" format-kbd-macro "[Missing arglist. Please make a bug report.]" help-highlight-arguments "\n" fill-region] 13 "\n\n(fn FUNCTION DOC REAL-DEF REAL-FUNCTION)"])
(defalias 'help-fns--parent-mode #[257 "\2119\205 \211\300N\211\205% \301c\210`\302\303\"c\210\304`\305\306\307C&\266\310c\207" [derived-mode-parent "\nParent mode: `" format "%s" make-text-button type help-function help-args "'.\n"] 10 "\n\n(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 \307\312\"\202E \313\314\261\207" [byte-obsolete-info "\nThis " macro "macro" "function" " is obsolete" 2 format " since %s" ";\n" ";\nuse `%s' instead." "." "\n"] 7 "\n\n(fn FUNCTION)"])
#@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 "\302\303!!\304B\305\2039 \211\2049 \211@@)\2032 \302\211@@)!\232\2032 \211@A)\235\262A\262\202\n \207" [load-history x file-name-sans-extension file-truename t nil] 9 (#$ . 13983)])
(defalias 'describe-function-1 #[257 "\2119\205 \304\305!\205 \306!\211\203\" \307\236A\310!\205 \211\262\206# \2119\203- \211K\202. \2119\211\203N \310!\203H \211K9\203H \211K\262\2025 \211\262\202O \311\"r\312 q\210`)\313!\204n \314!\204n \242\315>\203\210 \203\210 \316\"\203\210 \317!\203\204 \320\202\223 \321\202\223 \317!\203\222 \322\202\223 \323\324;\204\241 \325!\203\245 \326\202o\327!\203\302 \330!A\331=\203\274 \332P\202o\333P\202o\313!\203\317 \334P\202o\203\333 \335\336\"\202o\242\337=\203\351 \340P\202o\242\341=\203\367 \342P\202o\242\343=\203\344P\202o\211\242)\345=\203;\335\346\317 !\203 \347\202 \350\351\n8\352=\203+\353\2027\351\n8\2036\342\2027\340#\202o\314!\203n\354\243\211\203^\355\242!\203W\356\262\354\262\211\243\262\202F\203g\353\202h\357P\266\202\202o\360!\210\203\201\310!\204\201\324\361!\202\202r q\210\212\362 \363\364\365\366\367\370!\371\"\372\373%DC\216\374\375\354\356#\203\252\376\377\201@ #\210)\210*\203\354\324\201A !\210\324\201B =\203\306\201C \202\313\201D !!\210\324\201E !\210r q\210\212\374\201F \354\356#\210\376\377\201G $\210*\324\201H !\210r\312 q\210\201I \212b\210\365y\210`)`\"\210)\201J \210\201J \210\201K \356\"\211\242)\345=\203A\211\203A\n\203A\201L \201M \"\203A\201N \211A@)\356\"\210\201O !\201P !\210r q\210\201Q \f$\262\201R !\210\201S !\210\201T !\210\201U \206}\201V \261)\266\202\207" [object standard-output help-enable-auto-load x featurep advice ad-get-advice-info origname fboundp find-lisp-object-file-name help-buffer 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" subrp subr-arity unevalled "special form" "built-in function" "compiled Lisp function" format "an alias for `%s'" lambda "Lisp function" macro "Lisp macro" closure "Lisp closure" autoload "%s autoloaded %s" "an interactive" "an" 4 keymap "keymap" nil char-table-p t "sparse keymap" "" ",\nwhich is not defined. Please make a bug report." match-data funcall make-byte-code 0 "\301\300\302\"\207" vconcat vector [set-match-data evaporate] 3 "\n\n(fn)" re-search-backward "alias for `\\([^`']+\\)'" help-xref-button 1 help-function " in `" C-source "C source code" file-name-nondirectory "'" "`\\([^`']+\\)'" help-function-def "." fill-region-as-paragraph terpri documentation string-match "\\([^\\]=\\|[^=]\\|\\`\\)\\\\[[{<]" load substitute-command-keys help-fns--key-bindings help-fns--signature help-fns--compiler-macro help-fns--parent-mode help-fns--obsolete "\n" "Not documented."] 18 "\n\n(fn FUNCTION)"])
#@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\"\311\312%DC\216\313!\210\314\302\315D\316\302\317\314EDC\217\206~ \320 \211\2052 \321!\211\203D \204@ \322!\203D \211\202x \323 \302\303\304\324\306\307!\325\"\326\312%DC\216\205u \327\330\"\205u \321\331\332\"!\262\204t \322!\205u )\262\266\202\206~ \304)\207" [emacs-lisp-mode-syntax-table syntax-table funcall make-byte-code 0 "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 "\n\n(fn)" set-syntax-table #1=#:err #[0 "\212\300\301w\210\302\303\304!!\203 gz\305=\204 gz\306=\204 \307\310!\210\300\301w\210\311p!\2119\2052 \312!\2052 \211\262)\207" ["'" nil zerop skip-syntax-backward "_w" 119 95 forward-sexp -1 read boundp] 3 "\n\n(fn)"] error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] find-tag-default intern-soft boundp match-data "\301\300\302\"\207" [set-match-data evaporate] 3 string-match "\\`\\W*\\(.*?\\)\\W*\\'" match-string 1] 13 (#$ . 17101)])
(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 "\n\n(fn VARIABLE)"])
#@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\215\212rq\210\314!)?\315N\306\211\211\204b \311 p\316\317\320\321\322\323\"\324\"\325\326%DC\216\327 \330\"\210r q\210\nJ\262\331 !\262*\266\332\333\n\nE\334\335!\"\210\306\211\223\210\306C\317\320\336\322\323!\337\"\340\326% B\nr\341\342 !q\210p\343 \210\306\211\344\211\344 @ A\345 \210\346\347!\210+\211 Br\nq\210\350\f!\210\351\f\352\"\262 \203\353\354!\210\353 \355=\203\317 \356\202\323 \357\n!!\210\353\360!\210rBq\210\212\361\362\306\344#\210\363\364\365\f$\210*\203\373 \353\366!\210\202\353\367!\210\202\203\353\370!\210\202\353\371!\210)\204\306rBq\210`\262\353\372!\210`\373 \344 C\374!)\375G`[#\376W\203A\211c\210\202b\377 \210\201K !\210`\376\373\320!\\W\203]\211T|\210\202bS|\210\201L N\211:\205\221\201M \316\317\320\201N \322\323!\201O \"\340\326%D\201P \316\201Q \201M EDC\217:\203\303\211 \232\204\303\211\201R \232\204\303\353\201S !\210`\262\201K !\210`\201T \\W\203\303S|\210\266)\377 \210\203n\201U !\203\346\353\201V \201W \201X \"!\210\202 \201Y !\203\373\353\201V \201Z !!\210\202 \201[ !\203\353\201V \201\\ !!\210\202 \353\201V \201] \"!\210\201^ \f!\204.\353\201_ !\210\202k\201` \f!rBq\210\353\201a !\210=\203O\353\201b !\210\202i\377 \210`\201K !\210`\201T \\W\203h\211S|\210\210)\210\377 \210rBq\210\201c ed\"\201d V\203\323\201e D!\210b\210\201f \201g !\203\234\201h \201i !\210\212\201j c\210\201k \201E !\210\201l E)\201m c\210\201n \201o \201p E\201q \344\201r \201s &\210\201t c\210)\377 \210\201u \316\317\320\201v \322\323!\201w \"\340\326%D\201P \316\317\201x \201y \322\323!\201z \"\340\201{ %\201u EDC\217\f\201| N\211@\201} N\201~ \201 \"\206/\201~ \201 \"\306\201\200 !\203\213\201\201 !\203n\201\202 \201\203 !r\211q\210\316\317\320\201\204 \322\323!\201\205 \"\340\326%DC\216\201\200 !*\262\203\213\344\262\353\201\206 !\210\f\203\202\353\201\207 !\210\353\201\210 !\210\202\250\f\203\250\201U \n!\203\242\353\201\211 !\210\202\250\353\201\212 !\210=\204\276\344\262\353\201V \201\213 \"!\210\203\344\262\353\201\214 !\210\3408\203\337\353\201V \201\215 \3408\"!\210\353;\203\355\201\216 P\202\203\376\201V \201\217 @\"\202\201\220 !\210\377 \210\fBF\235\203\242\344\262\fBG\235\203\234\304 \2054\201\221 \304 !?\2054\201\222 \304 !\344\353\201\223 !\210\204H\353\201t !\210\202\227\353\201\224 !\210:\203i\3408\203f\201\225 H@\"\262\202i\306\262\353\203t\201\226 \202w\201\227 !\210rBq\210\201\230 \201\231 \201\232 \201\233 D%\210)\353\360!\210\266\202\242\353\201\234 !\210I>\203\263\344\262\353\201\235 !\210\201\236 !\203\323\344\262\353\201\237 !\210J\236\203\323\353\201\240 !\210\203\377\344\262\353\201\241 !\210\353\201\242 !\210\353\201\243 !\203\365\201\244 \202\375\201V \201\245 \"!\210\211\203\377 \210\353\201\246 !\210rBq\210\206\201\247 c\210)\266\201\250 \f!\203m\201\251 \377 \210\377 \210\353\201\252 \201\253 Q!\210rBq\210\212\361\201\254 \201\255 Q\306\344#\210\363\364\201\256 #\210*\210\201\257 \f!\211\203l\377 \210\377 \210\353!\210\210rBq\210\201\260 )\201\261 !\210)\266\202\201\262 @!\210)\262\266\205)\207" [help-window-point-marker temp-buffer-show-hook default-directory buffer-read-only buffer-file-name buffer-undo-list nil buffer-live-p frame-live-p selected-frame message "You did not specify a variable" boundp permanent-local funcall 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 "\n\n(fn)" select-frame norecord variable-binding-locus help-setup-xref describe-variable called-interactively-p interactive "\300\301 \240\207" [selected-window] 2 get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook prin1 find-lisp-object-file-name defvar princ " is a variable defined in `" C-source "C source code" file-name-nondirectory "'.\n" re-search-backward "`\\([^`']+\\)'" 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 prin1-to-string + 68 terpri inhibit-modification-hooks inhibit-read-only standard-output 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 pp standard-value #1=#:err "\301\300@!\207" [eval] error #[257 "\300\207" [:help-eval-error] 2 "\n\n(fn IGNORED)"] :help-eval-error "\nOriginal value was \n" 20 bufferp format "Local in buffer %s; " buffer-name framep "It is a frame-local variable; " 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 10 set-syntax-table looking-at "value is" 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" #2=#:err "\301\300!\207" [indirect-variable] 257 "\300\207" [] "\n\n(fn IGNORED)" byte-obsolete-variable safe-local-variable documentation-property variable-documentation local-variable-if-set-p local-variable-p generate-new-buffer " *temp*" "\301\300!\205 \302\300!\207" [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." "." file-remote-p dir-locals-find-file " This variable's value is directory-local" ", set " expand-file-name "by the file\n `" "for the directory\n `" insert-text-button type help-dir-local-var-def help-args " 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 internal-temp-output-buffer-show help-window-setup] 28 (#$ . 18835) (byte-code "\302 \303\304\304\262\3059\203 \306\307\"\202 \310 \311\303\304\211 9\205& \312\n!&\262\211\313\232\2034 \2027 \314!)C\207" [enable-recursive-minibuffers obarray variable-at-point t nil completing-read format "Describe variable (default %s): " "Describe variable: " #[257 "\211\300N\206 \301!\205 \302!?\207" [variable-documentation boundp keywordp] 3 "\n\n(fn VV)"] symbol-name "" intern] 12)])
#@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\306\307D\310\311!\"\210\312\211\223\210\312C\313\314\315\316\317!\320\"\321\322% B\nr\323\324 !q\210p\325 \210\312\211\326\211\326 ! \"\327 \210\330\331!\210+\211 #rq\210\332 )r#q\210\333\334\"\210\335!\211\262\205p \336c\210\333\334\"\210\202\\ )\262\337!\210)\266\202\340@!\210)\207" [help-window-point-marker temp-buffer-show-hook default-directory buffer-read-only buffer-file-name buffer-undo-list help-setup-xref describe-syntax called-interactively-p interactive nil make-byte-code 0 "\300\301 \240\207" vconcat vector [selected-window] 2 "\n\n(fn)" get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook syntax-table describe-vector internal-describe-syntax-value char-table-parent "\nThe parent syntax table is:" internal-temp-output-buffer-show help-window-setup inhibit-modification-hooks inhibit-read-only standard-output] 9 (#$ . 26261) nil])
(defalias 'help-describe-category-set #[257 "\211\204 \300\202* \301!\203 \302\202* \303\304\305\306\307\310\311!\312\"\313\314%D\315\304\316\303EDC\217c\207" ["default" char-table-p "deeper char-table ..." #1=#:err funcall make-byte-code 0 "\301\300!\207" vconcat vector [category-set-mnemonics] 2 "\n\n(fn)" error #[257 "\300\207" ["invalid"] 2 "invalid\n\n(fn IGNORED)"]] 9 "\n\n(fn VALUE)"])
#@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\312C\313\314\315\316\317!\320\"\321\322% B\nr\323\324 !q\210p\325 \210\312\211\326\211\326 8 9\327 \210\330\331!\210+\211 :rq\210\332 )\333\314\"\334!\203c \211G\335U\204g \336\337!\210r:q\210\340c\210`\314\312\211\335\314\211W\203\217 \211H\203\207 T\262\210\211T\262\202u \266S\341\245T\262\314\262\335\314\211W\203\211H\211\203\376 \342\343\"\210\344\314\"\262\211G\345Y\203\306 \211\314\346O\347P\262`dW\203\326 \350\245\351_\326\"\210\352\\\353\261\210`dW\203\352 \354y\210\202\355 \355c\210T\262\246\314U\203\376 b\210\266\211T\262\202\235 \266db\210\355\356\357\261\210\360\361\"\210\362c\210\335\314\211W\203J\211H\211\203A\342\355\"\2038\211\314\225\312O\262\352\\\363\355\261\210\266\211T\262\202 \266\364!\211\262\205`\365c\210\360\361\"\210\202L)\266\202\366!\210)\266\202\367@!\210)\207" [help-window-point-marker temp-buffer-show-hook default-directory buffer-read-only buffer-file-name buffer-undo-list help-setup-xref describe-categories called-interactively-p interactive nil make-byte-code 0 "\300\301 \240\207" vconcat vector [selected-window] 2 "\n\n(fn)" get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook category-table char-table-extra-slot vectorp 95 error "Invalid first extra slot in this category table\n" "Legend of category mnemonics (see the tail for the longer description)\n" 4 string-match ".*" match-string 17 14 "..." move-to-column 20 32 58 1 "\n" "character(s) category mnemonics\n" "------------ ------------------" describe-vector help-describe-category-set "Legend of category mnemonics:\n" ": " char-table-parent "\nThe parent category table is:" internal-temp-output-buffer-show help-window-setup inhibit-modification-hooks inhibit-read-only standard-output] 18 (#$ . 27843) 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 \317\320!\2034 `S\321 |\210\202 \322\323!\210\211\203B \324c\210\202E \307\262\325c\210\317\326!\203R \327\202S \330c\210\322\331!\210\331y\210\332c\210\202 \210\324c\210\313\333 \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 looking-at "S" line-end-position delete-char -1 "\n.DE\n" "\n.SH " "F" "Function " "Variable " 1 ".DS L\n" nroff-mode] 6 (#$ . 30065) (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 "\302!\204 \303\304\"\210\305\306\211\211\211\307\310!r\211q\210\311\312\305\313\314\315!\316\"\317\320%DC\216\321!\210\322\323\306\324#\203A \325u\210\326c\210\327u\210\202- eb\210\330\331\306\324#\203 \332\333!\204D \306f\262`T\334 {\262\335\317!\330\331\306\336#\203m `S\202n `{\262EB\262\325u\210\202D *\210\337\307\340!!\210\324\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\261\210\367\370\"\262\211\211\203\354 \211@\371\372\211A@)\373\"\203\300 \374\202\301 \375\376@\377\3178\201@ \261\210\201A T\201B \246\211\262 !\203\345 \201C c\210A\266\202\202\251 \210\201D \201E \261\210\306\201F \207" [buffer-undo-list x file-readable-p error "Cannot read file `%s'" 0 nil generate-new-buffer " *temp*" funcall make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" insert-file-contents re-search-forward "[@{}]" t -1 "@" 1 search-forward " " looking-at "S" 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 \211A@)\211A@)X\207@@\231\207" [x] 5 "\n\n(fn E1 E2)"] "\n@item " char-equal 70 "Function" "Variable" " @code{" "}\n@display\n" "\n@end display\n" zerop 100 "\n@end table\n@table @asis\n" "@end table\n" "@bye\n" texinfo-mode] 29 (#$ . 30960) (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)