%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/emacs-lisp/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/find-func.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(custom-declare-group 'find-function nil "Finds the definition of the Emacs Lisp symbol near point." :group 'lisp)
(defconst find-function-space-re "\\(?:\\s-\\|\n\\|;.*\n\\)+")
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\307\310\311\312\313&	\210\300\317\302\303\320DD\321\306\307\310\311\312\322&	\210\300\323\302\303\324DD\325\306\307\310\326\312\327&	\210\300\330\302\303\331DD\332\306\307\310\326\312\327&	\207" [custom-declare-variable find-function-regexp funcall function #[0 "\301\302Q\207" [find-function-space-re "^\\s-*(\\(def\\(ine-skeleton\\|ine-generic-mode\\|ine-derived-mode\\|ine\\(?:-global\\)?-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|foo\\|\\(?:[^icfgv]\\|g[^r]\\)\\(\\w\\|\\s_\\)+\\*?\\)\\|easy-mmode-define-[a-z-]+\\|easy-menu-define\\|menu-bar-make-toggle\\)" "\\('\\|(quote \\)?%s\\(\\s-\\|$\\|[()]\\)"] 3] "The regexp used by `find-function' to search for a function definition.\nNote it must contain a `%s' at the place where `format'\nshould insert the function name.  The default value avoids `defconst',\n`defgroup', `defvar', `defface'.\n\nPlease send improvements and fixes to the maintainer." :type regexp :group find-function :version "21.1" find-variable-regexp #[0 "\301\302Q\207" [find-function-space-re "^\\s-*(\\(def[^fumag]\\(\\w\\|\\s_\\)+\\*?\\|easy-mmode-def\\(map\\|syntax\\)\\|easy-menu-define\\)" "%s\\(\\s-\\|$\\)"] 3] "The regexp used by `find-variable' to search for a variable definition.\nNote it must contain a `%s' at the place where `format'\nshould insert the variable name.  The default value\navoids `defun', `defmacro', `defalias', `defadvice', `defgroup', `defface'.\n\nPlease send improvements and fixes to the maintainer." find-face-regexp #[0 "\301\302Q\207" [find-function-space-re "^\\s-*(defface" "%s\\(\\s-\\|$\\)"] 3] "The regexp used by `find-face' to search for a face definition.\nNote it must contain a `%s' at the place where `format'\nshould insert the face name.\n\nPlease send improvements and fixes to the maintainer." "22.1" find-feature-regexp #[0 "\300\207" [";;; Code:"] 1] "The regexp used by `xref-find-definitions' when searching for a feature definition.\nNote it may contain up to one `%s' at the place where `format'\nshould insert the feature name." xref "25.1" find-alias-regexp #[0 "\300\207" [#1="(defalias +'%s"] 1 #1#] "The regexp used by `xref-find-definitions' to search for an alias definition.\nNote it must contain a `%s' at the place where `format'\nshould insert the feature name."] 10)
#@370 Alist mapping definition types into regexp variables.
Each regexp variable's value should actually be a format string
to be used to substitute the desired symbol name into the regexp.
Instead of regexp variable, types can be mapped to functions as well,
in which case the function is called with one argument (the object
we're looking for) and it should search for it.
(defvar find-function-regexp-alist '((nil . find-function-regexp) (defvar . find-variable-regexp) (defface . find-face-regexp) (feature . find-feature-regexp) (defalias . find-alias-regexp)) (#$ . 2962))
(byte-code "\300\301\302\303#\210\304\305\306\307\310DD\311\312\313\314\315&\210\304\316\306\307\317DD\320\312\321\314\315\322\323&	\210\304\324\306\307\325DD\326\312\327\314\315\322\323&	\207" [put find-function-regexp-alist risky-local-variable t custom-declare-variable find-function-source-path funcall function #[0 "\300\207" [nil] 1] "The default list of directories where `find-function' searches.\n\nIf this variable is nil then `find-function' searches `load-path' by\ndefault." :type (repeat directory) :group find-function find-function-recenter-line #[0 "\300\207" [1] 1] "The window line-number from which to start displaying a symbol definition.\nA value of nil implies center the beginning of the definition.\nSee `find-function' and `find-variable'." (choice (const :tag "Center" nil) integer) :version "20.3" find-function-after-hook #[0 "\300\207" [nil] 1] "Hook run after finding symbol definition.\n\nSee the functions `find-function' and `find-variable'." hook] 10)
(defalias 'find-library-suffixes #[0 "\300\301 \211\203\211@\302\303\"\204\211B\262A\266\202\202\237\262\207" [nil get-load-suffixes string-match "elc"] 6])
#@16 

(fn LIBRARY)
(defalias 'find-library--load-name #[257 "\211\211\203&\211@\301\"\302\303\"\204\211GGW\203\211\262\210A\266\202\202\210\211\232?\205/\211\207" [load-path file-relative-name string-match "\\`\\.\\./"] 8 (#$ . 4698)])
#@136 Return the absolute file name of the Emacs Lisp source of LIBRARY.
LIBRARY should be a string (the name of the library).

(fn LIBRARY)
(defalias 'find-library-name #[257 "\303\304\"\203\305\306\307\211$\262\310\206	\311 #\206Z\310\206#	\n#\206Z\312!\203P\313!\211\205K\310\206<	\311 #\206K\310\206I	\n#\262\206Z\314!\206Z\315\316\"\207" [find-function-source-path load-path load-file-rep-suffixes string-match "\\.el\\(c\\(\\..*\\)?\\)\\'" replace-match "" t locate-file find-library-suffixes file-name-absolute-p find-library--load-name find-library--from-load-history error "Can't find library %s"] 6 (#$ . 4953)])
#@16 

(fn LIBRARY)
(defalias 'find-library--from-load-history #[257 "\301\302\303!!\304\305\306 !\307\260\310\211\311\310:\203V@\262\211A\262\242\262;\205E\312\"\205E\313\314\315\224#\316\315\"\317C\320 #\266\202\211\262?\211\262\203VA\262\202\266\204\207" [load-history "\\(" regexp-quote file-name-sans-extension "\\)" regexp-opt get-load-suffixes "\\'" nil t string-match substring 0 1 match-string locate-file find-library-suffixes] 13 (#$ . 5606)])
#@143 Directory where the C source files of Emacs can be found.
If nil, do not try to find the source code of functions and variables
defined in C.
(defvar find-function-C-source-directory (byte-code "\301\302\"\303!\205\211\207" [source-directory expand-file-name "src" file-accessible-directory-p] 3) (#$ . 6091))
#@186 Return the original function definition of an advised function FUNC.
If FUNC is not a symbol, return it.  Else, if it's not advised,
return the symbol's function definition.

(fn FUNC)
(defalias 'find-function-advised-original #[257 "\2119\203 \300\301!\203 \302!\303!\203\304!\202\211\262\206!\211\207" [featurep nadvice advice--symbol-function advice--p advice--cd*r] 4 (#$ . 6412)])
#@161 Find the source location where FUN-OR-VAR is defined in FILE.
TYPE should be nil to find a function, or `defvar' to find a variable.

(fn FUN-OR-VAR FILE TYPE)
(defalias 'find-function-C-source #[771 "\206\n\301\302\303\211\304$\305\"\262\306!\203\204&\211\202&\307\310\311!\"\210\210\211\2044\312\313\312!!!\262r\314!q\210eb\210\315\203N\316\317\320!!\321Q\202Y\322\317\323\324!!!\321Q\303\304#\204d\307\325\"\210p\326\224)B\207" [find-function-C-source-directory read-directory-name "Emacs C source dir: " nil t expand-file-name file-readable-p error "The C source file %s is not available" file-name-nondirectory find-function-advised-original indirect-function find-file-noselect re-search-forward "DEFVAR[A-Z_]*[ 	\n]*([ 	\n]*\"" regexp-quote symbol-name "\"" "DEFUN[ 	\n]*([ 	\n]*\"" subr-name advice--cd*r "Can't find source for %s" 0] 9 (#$ . 6816)])
#@121 Find the Emacs Lisp source of LIBRARY.

Interactively, prompt for LIBRARY using the one at or near point.

(fn LIBRARY)
(defalias 'find-library #[257 "\300\301\302!!!\303\304!\210\207" [switch-to-buffer find-file-noselect find-library-name run-hooks find-function-after-hook] 5 (#$ . 7708) (byte-code "\300 C\207" [read-library-name] 1)])
#@211 Read and return a library name, defaulting to the one near point.

A library name is the filename of an Emacs Lisp library located
in a directory under `load-path' (or `find-function-source-path',
if non-nil).
(defalias 'read-library-name #[0 "\302\303\304 \305#\206	\306\211:\203>@\262\307!\2037\310\311\312\313\314\315\316\n!\317\"\320\321%\322\306	#\"!\244\262A\262\202
\211\237\266\203\323 \324=\203e\3251`\212\326 \210\306u\210\327\330!\210\331\332!)0\202h\210\306\202h\331\332!\211\203v\333\"\204v\306\262\334\203\202\335\336\"\202\203\337\306\211\211\211&\207" [find-function-source-path load-path mapconcat #[257 "\300!\301P\207" [regexp-quote "\\'"] 3 "\n\n(fn SUFFIX)"] find-library-suffixes "\\|" nil file-readable-p reverse mapcar make-byte-code 257 "\301\300\302#\207" vconcat vector [replace-regexp-in-string ""] 5 "\n\n(fn FILE)" directory-files function-called-at-point require (error) backward-up-list forward-sexp 2 thing-at-point symbol test-completion completing-read format "Library name (default %s): " "Library name: "] 12 (#$ . 8055)])
#@110 Find the Emacs Lisp source of LIBRARY in another window.

See `find-library' for more details.

(fn LIBRARY)
(defalias 'find-library-other-window #[257 "\300\301\302!!!\303\304!\210\207" [switch-to-buffer-other-window find-file-noselect find-library-name run-hooks find-function-after-hook] 5 (#$ . 9158) (byte-code "\300 C\207" [read-library-name] 1)])
#@109 Find the Emacs Lisp source of LIBRARY in another frame.

See `find-library' for more details.

(fn LIBRARY)
(defalias 'find-library-other-frame #[257 "\300\301\302!!!\303\304!\210\207" [switch-to-buffer-other-frame find-file-noselect find-library-name run-hooks find-function-after-hook] 5 (#$ . 9520) (byte-code "\300 C\207" [read-library-name] 1)])
#@436 Search for SYMBOL's definition of type TYPE in LIBRARY.
Visit the library in a buffer, and return a cons cell (BUFFER . POSITION),
or just (BUFFER . nil) if the definition can't be found in the file.

If TYPE is nil, look for a function definition.
Otherwise, TYPE specifies the kind of definition,
and it is interpreted via `find-function-regexp-alist'.
The search is done in the source for library LIBRARY.

(fn SYMBOL TYPE LIBRARY)
(defalias 'find-function-search-for-symbol #[771 "\211\204	\304\305\"\2109\203\306N\203\306N\262\202	\307\310\"\203,\311\312\313\"#\207\307\314\"\203;\315\316\313\224#\262\307\317\"\203J\315\316\313\224#\262\320!\236Ar\321!q\210\322!\203a\211\202m\323J\324\325\326	!!P\"\327\214~\210\330 p\331\316\332\333\334\"\335\"\336$\216\337\n!\210eb\210\322!\203\230!\202\260\340\327\341#\204\263\340\342\343\325\326
!!\344\260\327\341#\203\274\345 \210p`B\202\277p\327B)\266\202*\262)\207" [find-function-regexp-alist case-fold-search emacs-lisp-mode-syntax-table find-function-space-re error "Don't know where `%s' is defined" definition-name string-match "\\`src/\\(.*\\.\\(c\\|m\\)\\)\\'" find-function-C-source match-string 1 "\\.el\\(c\\)\\'" substring 0 "\\.emacs\\(.el\\)" find-library-name find-file-noselect functionp format "\\\\?" regexp-quote symbol-name nil syntax-table make-byte-code "r\301q\210\302\300!)\207" vconcat vector [set-syntax-table] 2 set-syntax-table re-search-forward t "^([^ ]+" "['(]?" "\\_>" beginning-of-line] 15 (#$ . 9879)])
#@496 Return the pair (ORIG-FUNCTION . LIBRARY) for FUNCTION.

ORIG-FUNCTION is the original name, after removing all advice and
resolving aliases.  LIBRARY is an absolute file name, a relative
file name inside the C sources directory, or a name of an
autoloaded feature.

If ORIG-FUNCTION is a built-in function and LISP-ONLY is non-nil,
signal an error.

If VERBOSE is non-nil, and FUNCTION is an alias, display a
message about the whole chain of aliases.

(fn FUNCTION &optional LISP-ONLY VERBOSE)
(defalias 'find-function-library #[769 "9\205\300!\204\301\302C\"\210\303!\304\203N9\203N=\204A\203A\211\2037\211\305\306\307!\"P\202?\305\310\307!#\262\303!\262\303!\262\202\211\203W\311\312\"\210\211\242\313=\262\203hA@\202\204\314!\203\203x\315\316\"\210\317\320\"\202\204\321\322\"B\207" [fboundp signal void-function find-function-advised-original nil format-message ", which is an alias for `%s'" symbol-name "`%s' is an alias for `%s'" message "%s" autoload subrp error "%s is a built-in function" help-C-file-name subr symbol-file defun] 10 (#$ . 11424)])
#@627 Return a pair (BUFFER . POINT) pointing to the definition of FUNCTION.

Finds the source file containing the definition of FUNCTION
in a buffer and the point of the definition.  The buffer is
not selected.  If the function definition can't be found in
the buffer, returns (BUFFER).

If FUNCTION is a built-in function, this function normally
attempts to find it in the Emacs C sources; however, if LISP-ONLY
is non-nil, signal an error instead.

If the file where FUNCTION is defined is not known, then it is
searched for in `find-function-source-path' if non-nil, otherwise
in `load-path'.

(fn FUNCTION &optional LISP-ONLY)
(defalias 'find-function-noselect #[513 "\204\300\301!\210\302\303#\304@\305A#\207" [error "You didn't specify a function" find-function-library t find-function-search-for-symbol nil] 7 (#$ . 12539)])
#@299 Read and return an interned symbol, defaulting to the one near point.

If TYPE is nil, insist on a symbol with a function definition.
Otherwise TYPE should be `defvar' or `defface'.
If TYPE is nil, defaults using `function-called-at-point',
otherwise uses `variable-at-point'.

(fn &optional TYPE)
(defalias 'find-function-read #[256 "\211\204	\302 \202\211\303\267\202\304 \202\305\306!\202\304\306!\211\307=?\205%\211\310\236A\311\236A\312\2058\313\314\"\315R\306\316\317	\306\320\211\205N\321\f!&!)C\207" [enable-recursive-minibuffers obarray function-called-at-point #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (defvar 15 defface 20)) variable-at-point face-at-point t 0 ((nil . fboundp) (defvar . boundp) (defface . facep)) ((nil . "function") (defvar . "variable") (defface . "face")) "Find " format " (default %s)" ": " intern completing-read nil symbol-name] 16 (#$ . 13380)])
#@404 Find Emacs Lisp SYMBOL in a buffer and display it.
TYPE is nil to search for a function definition,
or else `defvar' or `defface'.

The variable `find-function-recenter-line' controls how
to recenter the display.  SWITCH-FN is the function to call
to display and select the buffer.
See also `find-function-after-hook'.

Set mark before moving, if the buffer already existed.

(fn SYMBOL TYPE SWITCH-FN)
(defalias 'find-function-do-it #[771 "`\301 \212\302\")\211@A\205->\203\303!\210!\210\211\203&\211b\210\304!\210\305\306!\207" [find-function-recenter-line buffer-list find-definition-noselect push-mark recenter run-hooks find-function-after-hook] 10 (#$ . 14339)])
#@484 Find the definition of the FUNCTION near point.

Finds the source file containing the definition of the function
near point (selected by `function-called-at-point') in a buffer and
places point before the definition.
Set mark before moving, if the buffer already existed.

The library where FUNCTION is defined is searched for in
`find-function-source-path', if non-nil, otherwise in `load-path'.
See also `find-function-recenter-line' and `find-function-after-hook'.

(fn FUNCTION)
(defalias 'find-function #[257 "\300\301\302#\207" [find-function-do-it nil switch-to-buffer] 5 (#$ . 15029) (find-function-read)])
#@119 Find, in another window, the definition of FUNCTION near point.

See `find-function' for more details.

(fn FUNCTION)
(defalias 'find-function-other-window #[257 "\300\301\302#\207" [find-function-do-it nil switch-to-buffer-other-window] 5 (#$ . 15652) (find-function-read)])
#@118 Find, in another frame, the definition of FUNCTION near point.

See `find-function' for more details.

(fn FUNCTION)
(defalias 'find-function-other-frame #[257 "\300\301\302#\207" [find-function-do-it nil switch-to-buffer-other-frame] 5 (#$ . 15936) (find-function-read)])
#@444 Return a pair `(BUFFER . POINT)' pointing to the definition of VARIABLE.

Finds the library containing the definition of VARIABLE in a buffer and
the point of the definition.  The buffer is not selected.
If the variable's definition can't be found in the buffer, return (BUFFER).

The library where VARIABLE is defined is searched for in FILE or
`find-function-source-path', if non-nil, otherwise in `load-path'.

(fn VARIABLE &optional FILE)
(defalias 'find-variable-noselect #[513 "\204\300\301!\207\211\206\302\303\"\206\304\305\"\306\303#\207" [error "You didn't specify a variable" symbol-file defvar help-C-file-name var find-function-search-for-symbol] 7 (#$ . 16217)])
#@482 Find the definition of the VARIABLE at or before point.

Finds the library containing the definition of the variable
near point (selected by `variable-at-point') in a buffer and
places point before the definition.

Set mark before moving, if the buffer already existed.

The library where VARIABLE is defined is searched for in
`find-function-source-path', if non-nil, otherwise in `load-path'.
See also `find-function-recenter-line' and `find-function-after-hook'.

(fn VARIABLE)
(defalias 'find-variable #[257 "\300\301\302#\207" [find-function-do-it defvar switch-to-buffer] 5 (#$ . 16912) (byte-code "\300\301!\207" [find-function-read defvar] 2)])
#@119 Find, in another window, the definition of VARIABLE near point.

See `find-variable' for more details.

(fn VARIABLE)
(defalias 'find-variable-other-window #[257 "\300\301\302#\207" [find-function-do-it defvar switch-to-buffer-other-window] 5 (#$ . 17573) (byte-code "\300\301!\207" [find-function-read defvar] 2)])
#@118 Find, in another frame, the definition of VARIABLE near point.

See `find-variable' for more details.

(fn VARIABLE)
(defalias 'find-variable-other-frame #[257 "\300\301\302#\207" [find-function-do-it defvar switch-to-buffer-other-frame] 5 (#$ . 17897) (byte-code "\300\301!\207" [find-function-read defvar] 2)])
#@464 Return a pair `(BUFFER . POINT)' pointing to the definition of SYMBOL.
If the definition can't be found in the buffer, return (BUFFER).
TYPE says what type of definition: nil for a function, `defvar' for a
variable, `defface' for a face.  This function does not switch to the
buffer nor display it.

The library where SYMBOL is defined is searched for in FILE or
`find-function-source-path', if non-nil, otherwise in `load-path'.

(fn SYMBOL TYPE &optional FILE)
(defalias 'find-definition-noselect #[770 "\204\300\301!\207\204\302!\207\303=\203\304\"\207\211\206#\305\"\306#\207" [error "You didn't specify a symbol" find-function-noselect defvar find-variable-noselect symbol-file find-function-search-for-symbol] 8 (#$ . 18218)])
#@493 Find the definition of FACE.  FACE defaults to the name near point.

Finds the Emacs Lisp library containing the definition of the face
near point (selected by `variable-at-point') in a buffer and
places point before the definition.

Set mark before moving, if the buffer already existed.

The library where FACE is defined is searched for in
`find-function-source-path', if non-nil, otherwise in `load-path'.
See also `find-function-recenter-line' and `find-function-after-hook'.

(fn FACE)
(defalias 'find-face-definition #[257 "\300\301\302#\207" [find-function-do-it defface switch-to-buffer] 5 (#$ . 18976) (byte-code "\300\301!\207" [find-function-read defface] 2)])
#@190 Find the function that KEY invokes.  KEY is a string.
Set mark before moving, if the buffer already existed.

FIND-FN is the function to call to navigate to the function.

(fn KEY FIND-FN)
(defalias 'find-function-on-key-do-it #[514 "\300\212\301!\205\302H\303!\304!\305>\204#\306>\204#\307>\205(\211@\262\310!\2038\311!q\210\312!b\210\313!\266\205)\314!\203K\250\203R\315\316\"\202d:\203a\315\317\320!#\202d!\262\207" [nil eventp 0 event-start event-modifiers click down drag windowp window-buffer posn-point key-binding key-description message "%s is unbound" "%s runs %s" prin1-to-string] 9 (#$ . 19657)])
#@120 Find the function that KEY invokes.  KEY is a string.
Set mark before moving, if the buffer already existed.

(fn KEY)
(defalias 'find-function-on-key #[257 "\300\301\"\207" [find-function-on-key-do-it find-function] 4 (#$ . 20308) "kFind function on key: "])
#@97 Find, in the other window, the function that KEY invokes.
See `find-function-on-key'.

(fn KEY)
(defalias 'find-function-on-key-other-window #[257 "\300\301\"\207" [find-function-on-key-do-it find-function-other-window] 4 (#$ . 20575) "kFind function on key: "])
#@96 Find, in the other frame, the function that KEY invokes.
See `find-function-on-key'.

(fn KEY)
(defalias 'find-function-on-key-other-frame #[257 "\300\301\"\207" [find-function-on-key-do-it find-function-other-frame] 4 (#$ . 20845) "kFind function on key: "])
#@58 Find directly the function at point in the other window.
(defalias 'find-function-at-point #[0 "\300 \211\205	\301!\207" [function-called-at-point find-function-other-window] 3 (#$ . 21112) nil])
#@58 Find directly the variable at point in the other window.
(defalias 'find-variable-at-point #[0 "\300 \211\205\211\301\232?\205\302!\207" [variable-at-point 0 find-variable-other-window] 3 (#$ . 21316) nil])
#@69 Define some key bindings for the find-function family of functions.
(defalias 'find-function-setup-keys #[0 "\303\304\305#\210\303	\304\306#\210\303\n\304\307#\210\303\310\311#\210\303	\310\312#\210\303\n\310\313#\210\303\314\315#\210\303	\314\316#\210\303\n\314\317#\207" [ctl-x-map ctl-x-4-map ctl-x-5-map define-key "F" find-function find-function-other-window find-function-other-frame "K" find-function-on-key find-function-on-key-other-window find-function-on-key-other-frame "V" find-variable find-variable-other-window find-variable-other-frame] 4 (#$ . 21534)])
(provide 'find-func)

Zerion Mini Shell 1.0