%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/emacs-lisp/ |
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&