Current File : //usr/local/share/emacs/27.2/lisp/progmodes/xref.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\312\313\314&\210\315\316\317\320!\"\210\315\321\322\320!\"\210\315\323\321\"\210\324\323\325\312#\210\326\320\327\321#\330\320\307\211\331$\207" [require cl-lib eieio ring project custom-declare-group xref nil "Cross-referencing commands" :version "25.1" :group tools defalias xref-location-p eieio-make-class-predicate xref-location xref-location--eieio-childp eieio-make-child-predicate xref-location-child-p make-obsolete "use (cl-typep ... \\='xref-location) instead" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (:documentation "A location represents a position in a file or buffer.")] 8)
#@70 Create a new object of class type `xref-location'.
(fn &rest SLOTS)
(defalias 'xref-location #[128 "\300\301\302#\207" [apply make-instance xref-location] 5 (#$ . 1107)])
(byte-code "\300\301\302\303#\300\207" [function-put xref-location compiler-macro xref-location--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'xref-location--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 1399)])
(byte-code "\300\301\302\301\303\304#\305#\210\300\306\302\306\307\304#\310#\210\300\311\302\311\312\304#\313#\210\314\311\304\312\304\315%\210\300\316\302\316\317\304#\320#\210\314\316\304\317\304\321%\210\322\323\324\325\326DD\327\330\331\332\333&\210\300\334\335\336!\"\210\300\337\340\336!\"\210\300\341\337\"\210\342\341\343\344#\210\345\336\346\337#\347\336\350\351\352$\210\314\353\304\354\304\355%\210\314\311\304\356\304\357%\207" [defalias xref-location-marker cl-generic-define (location) nil "Return the marker for LOCATION.\n\n(fn LOCATION)" xref-location-group (location) "Return a string used to group a set of locations.\nThis is typically the filename.\n\n(fn LOCATION)" xref-location-line (_location) "Return the line number corresponding to the location.\n\n(fn LOCATION)" cl-generic-define-method #[257 "\300\207" [nil] 2 "\n\n(fn LOCATION)"] xref-match-length (_item) "Return the length of the match.\n\n(fn ITEM)" #[257 "\300\207" [nil] 2 "\n\n(fn ITEM)"] custom-declare-variable xref-file-name-display funcall function #[0 "\300\207" [abs] 1] "Style of file name display in *xref* buffers.\nIf the value is the symbol `abs', the default, show the file names\nin their full absolute form.\nIf `nondirectory', show only the nondirectory (a.k.a. \"base name\")\npart of the file name." :type (choice (const :tag "absolute file name" abs) (const :tag "nondirectory file name" nondirectory)) :version "27.1" xref-file-location-p eieio-make-class-predicate xref-file-location xref-file-location--eieio-childp eieio-make-child-predicate xref-file-location-child-p make-obsolete "use (cl-typep ... \\='xref-file-location) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (xref-location) ((file :type string :initarg :file) (line :type fixnum :initarg :line :reader xref-location-line) (column :type fixnum :initarg :column :reader xref-file-location-column)) (:documentation "A file location is a file/line/column triple.\nLine numbers start from 1 and columns from 0.") xref-file-location-column ((this xref-file-location)) #[257 "\300\301\"\207" [slot-value column] 4 "Access the slot `column' from object of class `xref-file-location'.\n\n(fn THIS)"] ((this xref-file-location)) #[257 "\300\301\"\207" [slot-value line] 4 "Access the slot `line' from object of class `xref-file-location'.\n\n(fn THIS)"]] 8)
#@75 Create a new object of class type `xref-file-location'.
(fn &rest SLOTS)
(defalias 'xref-file-location #[128 "\300\301\302#\207" [apply make-instance xref-file-location] 5 (#$ . 3991)])
(byte-code "\300\301\302\303#\300\207" [function-put xref-file-location compiler-macro xref-file-location--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'xref-file-location--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 4308)])
#@70 Create and return a new `xref-file-location'.
(fn FILE LINE COLUMN)
(defalias 'xref-make-file-location #[771 "\300\301\302\303\304&\207" [make-instance xref-file-location :file :line :column] 11 (#$ . 4545)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\326\302$\207" [cl-generic-define-method xref-location-marker nil ((l xref-file-location)) #[257 "\211r\301\302\303\"!\206 \304\305\302\303\"!)q\210\214~\210\212eb\210\30611 \307\302\310\"!\210\302\311\"u0\2025 \210\2026 \210\312 +\207" [find-file-suppress-same-file-warnings get-file-buffer slot-value file t find-file-noselect (error) beginning-of-line line column point-marker] 6 "\n\n(fn L)"] xref-location-group ((l xref-file-location)) #[257 "\301\267\202 \302\303\"\207\304\302\303\"!\207\305\306\307#\205 \310\207" [xref-file-name-display #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (abs 6 nondirectory 11)) eieio-oref file file-name-nondirectory error "cl-ecase failed: %s, %s" (abs nondirectory) nil] 5 "\n\n(fn L)"] defalias xref-buffer-location-p eieio-make-class-predicate xref-buffer-location xref-buffer-location--eieio-childp eieio-make-child-predicate xref-buffer-location-child-p make-obsolete "use (cl-typep ... \\='xref-buffer-location) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (xref-location) ((buffer :type buffer :initarg :buffer) (position :type fixnum :initarg :position))] 6)
#@77 Create a new object of class type `xref-buffer-location'.
(fn &rest SLOTS)
(defalias 'xref-buffer-location #[128 "\300\301\302#\207" [apply make-instance xref-buffer-location] 5 (#$ . 6145)])
(byte-code "\300\301\302\303#\300\207" [function-put xref-buffer-location compiler-macro xref-buffer-location--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'xref-buffer-location--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 6472)])
#@71 Create and return a new `xref-buffer-location'.
(fn BUFFER POSITION)
(defalias 'xref-make-buffer-location #[514 "\300\301\302\303%\207" [make-instance xref-buffer-location :buffer :position] 8 (#$ . 6711)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\325\326\327$\210\300\330\302\331\302\332%\207" [cl-generic-define-method xref-location-marker nil ((l xref-buffer-location)) #[257 "\211\300 \211\301\302\"\301\303\"\223\262\207" [make-marker slot-value position buffer] 8 "\n\n(fn L)"] xref-location-group ((l xref-buffer-location)) #[257 "\211\300\301\302\"!\206 \303\304\305\301\302\"!\"\207" [buffer-file-name slot-value buffer format "(buffer %s)" buffer-name] 8 "\n\n(fn L)"] defalias xref-bogus-location-p eieio-make-class-predicate xref-bogus-location xref-bogus-location--eieio-childp eieio-make-child-predicate xref-bogus-location-child-p make-obsolete "use (cl-typep ... \\='xref-bogus-location) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal (xref-location) ((message :type string :initarg :message :reader xref-bogus-location-message)) (:documentation "Bogus locations are sometimes useful to\nindicate errors, e.g. when we know that a function exists but the\nactual location is not known.") xref-bogus-location-message ((this xref-bogus-location)) #[257 "\300\301\"\207" [slot-value message] 4 "Access the slot `message' from object of class `xref-bogus-location'.\n\n(fn THIS)"]] 7)
#@76 Create a new object of class type `xref-bogus-location'.
(fn &rest SLOTS)
(defalias 'xref-bogus-location #[128 "\300\301\302#\207" [apply make-instance xref-bogus-location] 5 (#$ . 8296)])
(byte-code "\300\301\302\303#\300\207" [function-put xref-bogus-location compiler-macro xref-bogus-location--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'xref-bogus-location--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 8618)])
#@62 Create and return a new `xref-bogus-location'.
(fn MESSAGE)
(defalias 'xref-make-bogus-location #[257 "\300\301\302#\207" [make-instance xref-bogus-location :message] 5 (#$ . 8856)])
(byte-code "\300\301\302\303\302\304%\210\300\305\302\306\302\307%\210\310\311\312\313!\"\210\310\314\315\313!\"\210\310\316\314\"\210\317\316\320\321#\210\322\313\323\314#\324\313\302\325\326$\210\300\327\302\330\302\331%\210\300\332\302\333\302\334%\207" [cl-generic-define-method xref-location-marker nil ((l xref-bogus-location)) #[257 "\300\301\302\303\"\"\207" [user-error "%s" eieio-oref message] 6 "\n\n(fn L)"] xref-location-group ((_ xref-bogus-location)) #[257 "\300\207" ["(No location)"] 2 "\n\n(fn _)"] defalias xref-item-p eieio-make-class-predicate xref-item xref-item--eieio-childp eieio-make-child-predicate xref-item-child-p make-obsolete "use (cl-typep ... \\='xref-item) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal ((summary :type string :initarg :summary :reader xref-item-summary :documentation "One line which will be displayed for\nthis item in the output buffer.") (location :initarg :location :reader xref-item-location :documentation "An object describing how to navigate\nto the reference's target.")) (:comment "An xref item describes a reference to a location\nsomewhere.") xref-item-location ((this xref-item)) #[257 "\300\301\"\207" [slot-value location] 4 "Access the slot `location' from object of class `xref-item'.\n\n(fn THIS)"] xref-item-summary ((this xref-item)) #[257 "\300\301\"\207" [slot-value summary] 4 "Access the slot `summary' from object of class `xref-item'.\n\n(fn THIS)"]] 7)
#@66 Create a new object of class type `xref-item'.
(fn &rest SLOTS)
(defalias 'xref-item #[128 "\300\301\302#\207" [apply make-instance xref-item] 5 (#$ . 10516)])
(byte-code "\300\301\302\303#\300\207" [function-put xref-item compiler-macro xref-item--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'xref-item--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 10789)])
#@141 Create and return a new `xref-item'.
SUMMARY is a short string to describe the xref.
LOCATION is an `xref-location'.
(fn SUMMARY LOCATION)
(defalias 'xref-make #[514 "\300\301\302\303%\207" [make-instance xref-item :summary :location] 8 (#$ . 11019)])
(byte-code "\300\301\302\303!\"\210\300\304\305\303!\"\210\300\306\304\"\210\307\306\310\311#\210\312\303\313\304#\314\303\315\316\317$\210\320\321\315\322\315\323%\210\320\324\315\325\315\326%\210\320\327\315\330\315\331%\207" [defalias xref-match-item-p eieio-make-class-predicate xref-match-item xref-match-item--eieio-childp eieio-make-child-predicate xref-match-item-child-p make-obsolete "use (cl-typep ... \\='xref-match-item) instead" "25.1" define-symbol-prop cl-deftype-satisfies eieio-defclass-internal nil ((summary :type string :initarg :summary :reader xref-item-summary) (location :initarg :location :type xref-file-location :reader xref-item-location) (length :initarg :length :reader xref-match-length)) (:comment "A match xref item describes a search result.") cl-generic-define-method xref-match-length ((this xref-match-item)) #[257 "\300\301\"\207" [slot-value length] 4 "Access the slot `length' from object of class `xref-match-item'.\n\n(fn THIS)"] xref-item-location ((this xref-match-item)) #[257 "\300\301\"\207" [slot-value location] 4 "Access the slot `location' from object of class `xref-match-item'.\n\n(fn THIS)"] xref-item-summary ((this xref-match-item)) #[257 "\300\301\"\207" [slot-value summary] 4 "Access the slot `summary' from object of class `xref-match-item'.\n\n(fn THIS)"]] 7)
#@72 Create a new object of class type `xref-match-item'.
(fn &rest SLOTS)
(defalias 'xref-match-item #[128 "\300\301\302#\207" [apply make-instance xref-match-item] 5 (#$ . 12605)])
(byte-code "\300\301\302\303#\300\207" [function-put xref-match-item compiler-macro xref-match-item--anon-cmacro] 4)
#@26
(fn WHOLE &rest SLOTS)
(defalias 'xref-match-item--anon-cmacro #[385 "\211@;\204 \207\300\301\302@@#@\303@DABB\"\207" [macroexp--warn-and-return format "Obsolete name arg %S to constructor %S" identity] 7 (#$ . 12908)])
#@197 Create and return a new `xref-match-item'.
SUMMARY is a short string to describe the xref.
LOCATION is an `xref-location'.
LENGTH is the match length, in characters.
(fn SUMMARY LOCATION LENGTH)
(defalias 'xref-make-match #[771 "\300\301\302\303\304&\207" [make-instance xref-match-item :summary :location :length] 11 (#$ . 13144)])
#@275 Special hook to find the xref backend for the current context.
Each function on this hook is called in turn with no arguments,
and should return either nil to mean that it is not applicable,
or an xref backend, which is a value to be used to dispatch the
generic functions.
(defvar xref-backend-functions nil (#$ . 13491))
(add-hook 'xref-backend-functions 'etags--xref-backend t)
(defalias 'xref-find-backend #[0 "\300\301!\207" [run-hook-with-args-until-success xref-backend-functions] 2])
(byte-code "\300\301\302\301\303\304#\305#\210\300\306\302\306\307\304#\310#\210\311\306\304\307\304\312%\210\300\313\302\313\314\304#\315#\210\300\316\302\316\317\304#\320#\210\311\316\304\317\304\321%\210\300\322\302\322\323\304#\324#\210\300\325\302\325\326\304#\327#\210\311\325\304\326\304\330%\207" [defalias xref-backend-definitions cl-generic-define (backend identifier) nil "Find definitions of IDENTIFIER.\n\nThe result must be a list of xref objects. If IDENTIFIER\ncontains sufficient information to determine a unique definition,\nreturn only that definition. If there are multiple possible\ndefinitions, return all of them. If no definitions can be found,\nreturn nil.\n\nIDENTIFIER can be any string returned by\n`xref-backend-identifier-at-point', or from the table returned by\n`xref-backend-identifier-completion-table'.\n\nTo create an xref object, call `xref-make'.\n\n(fn BACKEND IDENTIFIER)" xref-backend-references (_backend identifier) "Find references of IDENTIFIER.\nThe result must be a list of xref objects. If no references can\nbe found, return nil.\n\nThe default implementation uses `semantic-symref-tool-alist' to\nfind a search tool; by default, this uses \"find | grep\" in the\n`project-current' roots.\n\n(fn BACKEND IDENTIFIER)" cl-generic-define-method #[514 "\300\301\302\303\304\305!\306\"\307\310%\311\312!\313\314!\315!\"\262\"\207" [cl-mapcan make-byte-code 257 "\301\300\"\207" vconcat vector [xref-references-in-directory] 4 "\n\n(fn DIR)" project-current t append project-roots project-external-roots] 9 "\n\n(fn BACKEND IDENTIFIER)"] xref-backend-apropos (backend pattern) "Find all symbols that match regexp PATTERN.\n\n(fn BACKEND PATTERN)" xref-backend-identifier-at-point (_backend) "Return the relevant identifier at point.\n\nThe return value must be a string, or nil meaning no identifier\nat point found.\n\nIf it's hard to determine the identifier precisely (e.g., because\nit's a method call on unknown type), the implementation can\nreturn a simple string (such as symbol at point) marked with a\nspecial text property which e.g. `xref-backend-definitions' would\nrecognize and then delegate the work to an external process.\n\n(fn BACKEND)" #[257 "\300\301!\211\205\n \302!\207" [thing-at-point symbol substring-no-properties] 4 "\n\n(fn BACKEND)"] xref-backend-identifier-completion-table (backend) "Return the completion table for identifiers.\n\n(fn BACKEND)" xref-backend-identifier-completion-ignore-case (_backend) "Return t if case is not significant in identifier completion.\n\n(fn BACKEND)" #[257 "\207" [completion-ignore-case] 2 "\n\n(fn BACKEND)"]] 6)
#@138 Partition the elements of LIST into an alist.
KEY extracts the key from an element and TEST is used to compare
keys.
(fn LIST KEY TEST)
(defalias 'xref--alistify #[771 "\300\211\2031 \211@!\301\302$\211\203 \211AB\241\210\202( CBB\262\266A\266\202\202 \210\303!\300\211\211:\203Y @\262\211A\262\242\262\303!BB\262A\262\2028 \211\237\266\204\207" [nil cl-assoc :test reverse] 12 (#$ . 16626)])
#@70 Insert STRINGS with text properties PROPS.
(fn PROPS &rest STRINGS)
(defalias 'xref--insert-propertized #[385 "`\300\301\"\210\302`#\207" [apply insert add-text-properties] 7 (#$ . 17056)])
#@175 Search the next text range where text property PROPERTY is non-nil.
Return the value of PROPERTY. If BACKWARD is non-nil, search
backward.
(fn PROPERTY &optional BACKWARD)
(defalias 'xref--search-property #[513 "\211\203 \300\202 \301`\302`\"b\210\303`\"\211\262\204% m\204% o\203 \211\206- b\210\302\207" [previous-single-char-property-change next-single-char-property-change nil get-text-property] 8 (#$ . 17257)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317%\210\300\320\302\303\321DD\322\306\323%\210\300\324\302\303\325DD\326\306\323%\207" [custom-declare-variable xref-marker-ring-length funcall function #[0 "\300\207" [16] 1] "Length of the xref marker ring.\nIf this variable is not set through Customize, you must call\n`xref-set-marker-ring-length' for changes to take effect." :type integer :initialize custom-initialize-default :set xref-set-marker-ring-length xref-prompt-for-identifier #[0 "\300\207" [(not xref-find-definitions xref-find-definitions-other-window xref-find-definitions-other-frame)] 1] "If non-nil, prompt for the identifier to find.\n\nWhen t, always prompt for the identifier name.\n\nWhen nil, prompt only when there's no value at point we can use,\nor when the command has been called with the prefix argument.\n\nOtherwise, it's a list of xref commands which will always prompt,\nwith the identifier at point, if any, used as the default.\nIf the list starts with `not', the meaning of the rest of the\nelements is negated: these commands will NOT prompt." (choice (const :tag "Always prompt for identifier" t) (const :tag "Prompt if no identifier at point" nil) (set :menu-tag "Prompt according to command" :tag "Prompt according to command" :value (not) (const :tag "Except for commands listed below" not) (repeat :inline t (symbol :tag "command")))) xref-after-jump-hook #[0 "\300\207" [(recenter xref-pulse-momentarily)] 1] "Functions called after jumping to an xref." hook xref-after-return-hook #[0 "\300\207" [(xref-pulse-momentarily)] 1] "Functions called after returning to a pre-jump location."] 10)
#@48 Ring of markers to implement the marker stack.
(defvar xref--marker-ring (make-ring xref-marker-ring-length) (#$ . 19381))
#@116 Set `xref-marker-ring-length'.
VAR is the symbol `xref-marker-ring-length' and VAL is the new
value.
(fn VAR VAL)
(defalias 'xref-set-marker-ring-length #[514 "\301\"\210\302!\205 \303\"\207" [xref--marker-ring set-default ring-p ring-resize] 5 (#$ . 19511)])
#@81 Add point M (defaults to `point-marker') to the marker stack.
(fn &optional M)
(defalias 'xref-push-marker-stack #[256 "\301\206 \302 \"\207" [xref--marker-ring ring-insert point-marker] 4 (#$ . 19784)])
#@62 Pop back to where \[xref-find-definitions] was last invoked.
(defalias 'xref-pop-marker-stack #[0 "\301!\203 \302\303!\210\304\305\"\306\307!\206 \302\310!!\210\311!b\210\211\312\211\223\210\313\314!\262\207" [xref--marker-ring ring-empty-p user-error "Marker stack is empty" ring-remove 0 switch-to-buffer marker-buffer "The marked buffer has been deleted" marker-position nil run-hooks xref-after-return-hook] 5 (#$ . 19998) nil])
(defvar xref--current-item nil)
(defalias 'xref-pulse-momentarily #[0 "\212\301!\211\205
``\\B\262\206' \302 \206' l\203# \303 `TB\202' `\304 B)\211@A\211\305\306#\266\202\207" [xref--current-item xref-match-length back-to-indentation line-beginning-position line-end-position pulse-momentary-highlight-region next-error] 9])
#@44 Discard all markers from the marker stack.
(defalias 'xref-clear-marker-stack #[0 "\301!?\205 \302!\211\303\211\223\266\202 \207" [xref--marker-ring ring-empty-p ring-remove nil] 5 (#$ . 20779)])
#@55 Return t if the marker stack is empty; nil otherwise.
(defalias 'xref-marker-stack-empty-p #[0 "\301!\207" [xref--marker-ring ring-empty-p] 2 (#$ . 20987)])
#@12
(fn POS)
(defalias 'xref--goto-char #[257 "eX\203\f \211dX\204 \203 ~\210\202 \301\302!\210\211b\207" [widen-automatically user-error "Position is outside accessible part of buffer"] 3 (#$ . 21151)])
#@74 Set buffer and point according to xref-location LOCATION.
(fn LOCATION)
(defalias 'xref--goto-location #[257 "\300!\301!q\210\302!\207" [xref-location-marker marker-buffer xref--goto-char] 4 (#$ . 21364)])
#@289 Go to the location of ITEM and display the buffer.
ACTION controls how the buffer is displayed:
nil -- switch-to-buffer
`window' -- pop-to-buffer (other window)
`frame' -- pop-to-buffer (other frame)
If SELECT is non-nil, select the target window.
(fn ITEM &optional ACTION)
(defalias 'xref-pop-to-location #[513 "\212\302\303!!)\304!\305=\203 \306!\210\2026 \307\267\2020 \310\311\"\210\2026 \311\310\311\"\210)\2026 \312\313\314#\210\315!\266\316\317!)\207" [pop-up-frames xref--current-item xref-location-marker xref-item-location marker-buffer nil switch-to-buffer #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (window 29 frame 37)) pop-to-buffer t error "cl-ecase failed: %s, %s" (nil window frame) xref--goto-char run-hooks xref-after-jump-hook] 8 (#$ . 21581)])
#@39 The name of the buffer to show xrefs.
(defconst xref-buffer-name "*xref*" (#$ . 22422))
(byte-code "\300\301\302\303\304\305%\210\300\306\307\310\304\305%\210\300\311\312\313\304\305%\207" [custom-declare-face xref-file-header ((t :inherit compilation-info)) "Face used to highlight file header in the xref buffer." :version "27.1" xref-line-number ((t :inherit compilation-line-number)) "Face for displaying line numbers in the xref buffer." xref-match ((t :inherit highlight)) "Face used to highlight matches in the xref buffer."] 6)
#@19
(fn &rest BODY)
(defalias 'xref--with-dedicated-window '(macro . #[128 "\300\301\302\303\304BB\305BBE\207" [let* ((xref-w (get-buffer-window xref-buffer-name)) (xref-w-dedicated (window-dedicated-p xref-w))) unwind-protect progn (when xref-w (set-window-dedicated-p xref-w 'soft)) ((when xref-w (set-window-dedicated-p xref-w xref-w-dedicated)))] 7 (#$ . 22964)]))
#@63 Original window-switching intent before xref buffer creation.
(defvar xref--original-window-intent nil (#$ . 23338))
(make-variable-buffer-local 'xref--original-window-intent)
#@56 The original window this xref buffer was created from.
(defvar xref--original-window nil (#$ . 23520))
(make-variable-buffer-local 'xref--original-window)
#@59 The original function to call to fetch the list of xrefs.
(defvar xref--fetcher nil (#$ . 23681))
(make-variable-buffer-local 'xref--fetcher)
#@168 Goto and display position POS of buffer BUF in a window.
Honor `xref--original-window-intent', run `xref-after-jump-hook'
and finally return the window.
(fn POS BUF)
(defalias 'xref--show-pos-in-buf #[514 "p\304=\206 \305\267\202 \306\2024 \307\310\nBD\2024 \311\n!\2054 \312\n!\203/ \313\n!=\2054 \314\310\nBD\315\316\"!r\317\320\321\322\323!\324\"\325$\216\326@\327\"\210\330!\210\331\332!\210prq\210\333\303!\210\211)\210\334 *\262)\207" [xref--original-window-intent pop-up-frames xref--original-window other-window-scroll-buffer frame #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (frame 15 window 19)) t (xref--display-buffer-in-other-window) window window-live-p window-dedicated-p window-buffer (xref--display-buffer-in-window) internal--before-with-selected-window display-buffer make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord xref--goto-char run-hooks xref-after-jump-hook make-local-variable selected-window] 11 (#$ . 23830)])
#@21
(fn BUFFER ALIST)
(defalias 'xref--display-buffer-in-other-window #[514 "\301\302\"\211\204\f \303\302!\210\304!\305!\306\307\310\311\312\"\313\"\314$\216\203* \315\316\"\210\317!r\306\307\320\311\312!\321\"\322$\216\323@\324\"\210\325\326\"*\262)\266\202\207" [xref-buffer-name assoc-default window cl--assertion-failed get-buffer-window window-dedicated-p make-byte-code 0 "\300\205 \302\300\301\"\207" vconcat vector [set-window-dedicated-p] 3 set-window-dedicated-p soft internal--before-with-selected-window "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord display-buffer t] 12 (#$ . 24894)])
#@21
(fn BUFFER ALIST)
(defalias 'xref--display-buffer-in-window #[514 "\300\301\"\211\204\f \302\301!\210\303!r\304\305\306\307\310!\311\"\312$\216\313@\314\"\210\315\316\"*\262\207" [assoc-default window cl--assertion-failed internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord display-buffer (display-buffer-same-window)] 10 (#$ . 25547)])
#@200 Help `xref-show-xref' and `xref-goto-xref' do their job.
Go to LOCATION and if SELECT is non-nil select its window. If
SELECT is `quit', also quit the *xref* window.
(fn LOCATION &optional SELECT)
(defalias 'xref--show-location #[513 "\3011e \302!\303!p\203( \304=\203 \305\306\211\"\210\307rq\210\310\")!\202a \311 r\312\313\314\315\316!\317\"\320$\216\321!\322!\312\313\323\315\316\"\324\"\325$\216\203U \326\327\"\210\310\")\266\202*\262\266\2030\207\330\331!!\207" [xref-buffer-name (user-error) xref-location-marker marker-buffer quit quit-window nil select-window xref--show-pos-in-buf internal--before-save-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-save-selected-window] 2 get-buffer-window window-dedicated-p "\300\205 \302\300\301\"\207" [set-window-dedicated-p] 3 set-window-dedicated-p soft message error-message-string] 15 (#$ . 25997)])
#@72 Display the source of xref at point in the appropriate window, if any.
(defalias 'xref-show-location-at-point #[0 "\301 \211\211\205
\302\303!!)\207" [xref--current-item xref--item-at-point xref--show-location xref-item-location] 4 (#$ . 26918) nil])
#@73 Move to the next xref and display its source in the appropriate window.
(defalias 'xref-next-line #[0 "\300\301!\210\302 \207" [xref--search-property xref-item xref-show-location-at-point] 2 (#$ . 27178) nil])
#@77 Move to the previous xref and display its source in the appropriate window.
(defalias 'xref-prev-line #[0 "\300\301\302\"\210\303 \207" [xref--search-property xref-item t xref-show-location-at-point] 3 (#$ . 27394) nil])
(defalias 'xref--item-at-point #[0 "\212\300 \210\301`\302\")\207" [back-to-indentation get-text-property xref-item] 3])
#@153 Jump to the xref on the current line and select its window.
Non-interactively, non-nil QUIT means to first quit the *xref*
buffer.
(fn &optional QUIT)
(defalias 'xref-goto-xref #[256 "p\301 \206 \302\303!\211\304\305!\203 \306\202 \307\"\210\310p\")\207" [xref--current-item xref--item-at-point user-error "No reference at point" xref--show-location xref-item-location quit t next-error-found] 6 (#$ . 27743) nil])
#@56 Quit *xref* buffer, then jump to xref on current line.
(defalias 'xref-quit-and-goto-xref #[0 "\300\301!\207" [xref-goto-xref t] 2 (#$ . 28172) nil])
#@208 Perform interactive replacement of FROM with TO in all displayed xrefs.
This command interactively replaces FROM with TO in the names of the
references displayed in the current *xref* buffer.
(fn FROM TO)
(defalias 'xref-query-replace-in-results #[514 "\300\211\211C\212\301\302!\211\262\203 \303!\203 B\262\202 )\304\305\306\307\310!\311\"\312$\216eb\210\211\313\237!\240\210\314\242#)\207" [nil xref--search-property xref-item xref-match-length make-byte-code 0 "\300\242\301!\207" vconcat vector [:cleanup] 2 xref--buf-pairs-iterator xref--query-replace-1] 11 (#$ . 28329) (byte-code "\300\301\302\"\211\300\303\304\"!D\207" [read-regexp "Xref query-replace (regexp)" ".*" format "Xref query-replace (regexp) %s with: "] 6)])
#@14
(fn XREFS)
(defalias 'xref--buf-pairs-iterator #[257 "\211C\300C\300C\300C\300C\300C\300C\301\302\303\304\305 &\306\"\307\310%\266\206\207" [nil make-byte-code 257 "\211\307\267\202\315 \300\242\204 \303\242\205\316 \301\310\240\210\303\242\203+ \304\311\303\242@!\240\210\305\303\242C\240\210\303\310\240\210\301\242\204\252 \302\300\242\300\211\242A\240\210\242\240\203\252 \212\312\302\242!\313!\314 \315\302\242!\\\311!\223B\306\306\242B\240\210\316!\210\317\302\242\320\321 \322 \"\"\203t \323\324!\210\202\244 \304\242\204\211 \304\311!\240\210\305\305\242B\240\210\202\244 \304\242\311!\232\203\234 \305\305\242B\240\210\202\244 \301\325\240\210\303\240\210\266)\202+ \304\242\305\242\237B\207\306\242\211\205\314 \211@\211@\310\211\223\210\211A\310\211\223\210A\266\202\202\263 \207\310\207" vconcat vector [#s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:next 6 :cleanup 177)) nil marker-buffer xref-item-location xref-location-marker make-marker xref-match-length xref--goto-location xref--outdated-p buffer-substring-no-properties line-beginning-position line-end-position message "Search result out of date, skipping" t] 10 "\n\n(fn ACTION)"] 20 (#$ . 29080)])
#@23
(fn ITEM LINE-TEXT)
(defalias 'xref--outdated-p #[514 "\300!\301\211!!\232?\207" [xref-item-summary #[257 "\300\301\"\203
\302\303\304#\207\207" [string-match "
\\'" substring-no-properties 0 -1] 5 "\n\n(fn S)"]] 7 (#$ . 30329)])
#@21
(fn FROM TO ITER)
(defalias 'xref--query-replace-1 #[771 "\305\306\305\211\211C\305C\305C\307\310\311\312\313\"\314\"\315\316%\307\317\320\312\313#\321\"\322\323%\203\207 \324!\211\262\203\207 \203G \325@!\210\202q \326 !\327!\307\330\331\312\313\"\332\"\333$\216\203e \334\335\"\210\336@!\210)\266\306\262A\240\210\337 \306\211\305\211\f&\262\202- \204\217 \340\341!\210\205\233 ?\205\233 \342\343!+\207" [query-replace-lazy-highlight isearch-filter-predicate replace-re-search-function xref-buffer-name multi-query-replace-map nil t make-byte-code 514 "\300\242\205 \300\242Y\205 \211\301\242X\207" vconcat vector [] 4 "\n\n(fn BEG END)" 769 "\303\211\2043 \300\242\2033 \300\242\300\211\242A\240\210\242\262\301@\240\210\302A\240\210\301\242b\210\304\302\242#\203 \305\262\202 \207" [nil re-search-forward t] 9 "\n\n(fn FROM &optional BOUND NOERROR)" :next switch-to-buffer get-buffer-window window-dedicated-p 0 "\300\205 \302\300\301\"\207" [set-window-dedicated-p] 3 set-window-dedicated-p soft pop-to-buffer perform-replace user-error "No suitable matches here" message "All results processed"] 18 (#$ . 30574)])
(defvar xref--xref-buffer-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\210\301\316\303#\210\301\317\305#\210\301\320\321#\210\211\207" [make-sparse-keymap define-key "n" xref-next-line "p" xref-prev-line "r" xref-query-replace-in-results "
" xref-goto-xref " " xref-quit-and-goto-xref "" xref-show-location-at-point "." "," "g" xref-revert-buffer] 5))
(defvar xref--xref-buffer-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [xref--xref-buffer-mode-hook variable-documentation put "Hook run after entering XREF mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp xref--xref-buffer-mode-map definition-name xref--xref-buffer-mode] 4)
(defvar xref--xref-buffer-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [xref--xref-buffer-mode-abbrev-table xref--xref-buffer-mode-map variable-documentation put purecopy "Keymap for `xref--xref-buffer-mode'." boundp xref--xref-buffer-mode-syntax-table definition-name xref--xref-buffer-mode (lambda (#1=#:def-tmp-var) (defvar xref--xref-buffer-mode-syntax-table #1#)) make-syntax-table "Syntax table for `xref--xref-buffer-mode'." (lambda (#1#) (defvar xref--xref-buffer-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `xref--xref-buffer-mode'." derived-mode-parent special-mode] 5)
#@254 Mode for displaying cross-references.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `xref--xref-buffer-mode-hook', as the final or penultimate step
during initialization.
\{xref--xref-buffer-mode-map}
(defalias 'xref--xref-buffer-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325 C#\210\327 !\210\330\f!\210
\307 \331 p!\332\"\333#)\334\335!\207" [delay-mode-hooks major-mode mode-name xref--xref-buffer-mode-map xref--xref-buffer-mode-syntax-table xref--xref-buffer-mode-abbrev-table make-local-variable t special-mode xref--xref-buffer-mode "XREF" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table xref--next-error-function xref--imenu-prev-index-position xref--imenu-extract-index-name run-mode-hooks xref--xref-buffer-mode-hook local-abbrev-table buffer-read-only next-error-function next-error-last-buffer imenu-prev-index-position-function imenu-extract-index-name-function] 5 (#$ . 33492) nil])
(defvar xref--transient-buffer-mode-map (byte-code "\301 \302\303\304#\210\305\"\210\211\207" [xref--xref-buffer-mode-map make-sparse-keymap define-key "
" xref-quit-and-goto-xref set-keymap-parent] 5))
(defvar xref--transient-buffer-mode-hook nil)
(byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [xref--transient-buffer-mode-hook variable-documentation put "Hook run after entering XREF Transient mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp xref--transient-buffer-mode-map definition-name xref--transient-buffer-mode] 4)
(defvar xref--transient-buffer-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204 \303\301\302\304\305!#\210\306\307!\204 \303\307\310\311#\210\312\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\207" [xref--transient-buffer-mode-abbrev-table xref--transient-buffer-mode-map variable-documentation put purecopy "Keymap for `xref--transient-buffer-mode'." boundp xref--transient-buffer-mode-syntax-table definition-name xref--transient-buffer-mode (lambda (#1=#:def-tmp-var) (defvar xref--transient-buffer-mode-syntax-table #1#)) make-syntax-table "Syntax table for `xref--transient-buffer-mode'." (lambda (#1#) (defvar xref--transient-buffer-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `xref--transient-buffer-mode'." derived-mode-parent xref--xref-buffer-mode] 5)
#@587 Major mode derived from `xref--xref-buffer-mode' by `define-derived-mode'.
It inherits all of the parent's attributes, but has its own keymap,
abbrev table and syntax table:
`xref--transient-buffer-mode-map', `xref--transient-buffer-mode-abbrev-table' and `xref--transient-buffer-mode-syntax-table'
which more-or-less shadow xref--xref-buffer-mode's corresponding tables.
In addition to any hooks its parent mode might have run,
this mode runs the hook `xref--transient-buffer-mode-hook', as the final or penultimate step
during initialization.
\{xref--transient-buffer-mode-map}
(defalias 'xref--transient-buffer-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name xref--transient-buffer-mode-map xref--transient-buffer-mode-syntax-table xref--transient-buffer-mode-abbrev-table make-local-variable t xref--xref-buffer-mode xref--transient-buffer-mode "XREF Transient" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table run-mode-hooks xref--transient-buffer-mode-hook local-abbrev-table] 5 (#$ . 36371) nil])
#@122 Move point to previous line in `xref' buffer.
This function is used as a value for
`imenu-prev-index-position-function'.
(defalias 'xref--imenu-prev-index-position #[0 "o?\205 \300\301\302\"\207" [xref--search-property xref-group t] 3 (#$ . 37798)])
#@159 Return imenu name for line at point.
This function is used as a value for
`imenu-extract-index-name-function'. Point should be at the
beginning of the line.
(defalias 'xref--imenu-extract-index-name #[0 "\300\301 \302 \"\207" [buffer-substring-no-properties line-beginning-position line-end-position] 3 (#$ . 38056)])
#@20
(fn N RESET\=\?)
(defalias 'xref--next-error-function #[514 "\211\203 eb\210\300W\301!\302\300U\203 \303`\304\"\262\2027 \300\211W\2035 \211\305\304\"\262\210\211T\262\202 \266\211\203Q \306p!\211\203G \307`\"\210\210\310\311!\312\"\202] \313\314\203[ \315\202\\ \316\"\207" [0 abs nil get-text-property xref-item xref--search-property get-buffer-window set-window-point xref--show-location xref-item-location t error "No %s xref" "previous" "next"] 11 (#$ . 38381)])
(defvar xref--button-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key [mouse-1] xref-goto-xref [mouse-2] xref--mouse-2] 5))
#@68 Move point to the button and show the xref definition.
(fn EVENT)
(defalias 'xref--mouse-2 #[257 "\300!\210\301y\210\302`\303\"\204 \304\303!\210\305 \207" [mouse-set-point 0 get-text-property xref-item xref--search-property xref-show-location-at-point] 4 (#$ . 39047) "e"])
#@196 Insert XREF-ALIST in the current-buffer.
XREF-ALIST is of the form ((GROUP . (XREF ...)) ...), where
GROUP is a string for decoration purposes and XREF is an
`xref-item' object.
(fn XREF-ALIST)
(defalias 'xref--insert-xrefs #[257 "\301\302!\210\211\303\211\211\211\211:\203\271 \262\211A\262\242\262\211A\262\242\262\303\211:\203S @\262\304\305\306\"!\211\205< \307\310\"G\262\203I ]\202J \211\266\202A\262\202% \266\202\262\205_ \307\311\"\262\312\313\314#\210\303\211:\203\260 \262\211A\262\242\262\211\304\315\306\"!\211\203\221 \316\307\"\317\320#\202\222 \321\312\322\323\324\325\326\327\257\315\330\"#\266\314c\210A\262\202j \266A\262\202\n \303\207" [xref--button-map require compile nil xref-location-line eieio-oref location format "%d" "%%%dd: " xref--insert-propertized (face xref-file-header xref-group t) "\n" slot-value propertize face xref-line-number " " xref-item mouse-face highlight keymap help-echo "mouse-2: display in another window, RET or mouse-1: follow reference" summary] 22 (#$ . 39332)])
#@104 Find common filenames in XREFS.
Return an alist of the form ((FILENAME . (XREF ...)) ...).
(fn XREFS)
(defalias 'xref--analyze #[257 "\300\301\302#\207" [xref--alistify #[257 "\300\301!!\207" [xref-location-group xref-item-location] 4 "\n\n(fn X)"] equal] 5 (#$ . 40407)])
#@22
(fn FETCHER ALIST)
(defalias 'xref--show-xref-buffer #[514 "\302!\204\n \303\304!\210\305\306\"\206 \307!r\310 !q\210\211\311 \210\312#\210\313p!\210p)\207" [default-directory xref-buffer-name functionp cl--assertion-failed (functionp fetcher) assoc-default fetched-xrefs xref--analyze get-buffer-create xref--xref-buffer-mode xref--show-common-initialize pop-to-buffer] 9 (#$ . 40689)])
#@33
(fn XREF-ALIST FETCHER ALIST)
(defalias 'xref--show-common-initialize #[771 "\305\306\211\307 \210\310!\210eb\210\311\312\"\311\313\"\211*\207" [buffer-undo-list inhibit-read-only xref--original-window xref--original-window-intent xref--fetcher nil t erase-buffer xref--insert-xrefs assoc-default window display-action] 6 (#$ . 41098)])
#@51 Refresh the search results in the current buffer.
(defalias 'xref-revert-buffer #[0 "\303\211\212\3041 \305\n !\306 \210\307!\2620\202& \306 \210\310\311!\312\313#c\262+\207" [buffer-undo-list inhibit-read-only xref--fetcher t (user-error) xref--analyze erase-buffer xref--insert-xrefs propertize error-message-string face error] 5 (#$ . 41453) nil])
#@22
(fn FETCHER ALIST)
(defalias 'xref--show-defs-buffer #[514 " \211A\204 \300@\301\302\"\"\202 \303\304BB\"\207" [xref-pop-to-location assoc-default display-action xref--show-xref-buffer fetched-xrefs] 8 (#$ . 41817)])
#@258 Show definitions list in a window at the bottom.
When there is more than one definition, split the selected window
and show the list in a small window at the bottom. And use a
local keymap that binds `RET' to `xref-quit-and-goto-xref'.
(fn FETCHER ALIST)
(defalias 'xref--show-defs-buffer-at-bottom #[514 " A\204 \302@\303\304\"\"\202. r\305 !q\210\211\306 \210\307\310!#\210\311p\312\"\210p)\207" [default-directory xref-buffer-name xref-pop-to-location assoc-default display-action get-buffer-create xref--transient-buffer-mode xref--show-common-initialize xref--analyze pop-to-buffer (display-buffer-in-direction (direction . below))] 9 (#$ . 42051)])
(byte-code "\300\301\302\303\304DD\305\306\303%\210\300\307\302\303\310DD\311\306\303%\207" [custom-declare-variable xref-show-xrefs-function funcall function #[0 "\300\207" [xref--show-xref-buffer] 1] "Function to display a list of search results.\n\nIt should accept two arguments: FETCHER and ALIST.\n\nFETCHER is a function of no arguments that returns a list of xref\nvalues. It must not depend on the current buffer or selected\nwindow.\n\nALIST can include, but limited to, the following keys:\n\nWINDOW for the window that was selected before the current\ncommand was called.\n\nDISPLAY-ACTION indicates where the target location should be\ndisplayed. The possible values are nil, `window' meaning the\nother window, or `frame' meaning the other frame." :type xref-show-definitions-function #[0 "\300\207" [xref--show-defs-buffer] 1] "Function to display a list of definitions.\n\nAccepts the same arguments as `xref-show-xrefs-function'."] 6)
(defvar xref--read-identifier-history nil)
(defvar xref--read-pattern-history nil)
#@31
(fn FETCHER DISPLAY-ACTION)
(defalias 'xref--show-xrefs #[514 "\301 \210\302\303 B\304BD\"\207" [xref-show-xrefs-function xref--push-markers window selected-window display-action] 7 (#$ . 43762)])
#@29
(fn XREFS DISPLAY-ACTION)
(defalias 'xref--show-defs #[514 "\301 \210\302\303 B\304BD\"\207" [xref-show-definitions-function xref--push-markers window selected-window display-action] 7 (#$ . 43970)])
(defalias 'xref--push-markers #[0 "\300 \204\n \301\302\303\"\210\304 \207" [region-active-p push-mark nil t xref-push-marker-stack] 3])
#@16
(fn COMMAND)
(defalias 'xref--prompt-p #[257 "\301=\206 @\302=\203 \211A>?\207\211>\207" [xref-prompt-for-identifier t not] 3 (#$ . 44318)])
#@77 Return the identifier at point or read it from the minibuffer.
(fn PROMPT)
(defalias 'xref--read-identifier #[257 "\303 \304!\305! \204 \211\203 \306\n!\203O \307\203- \310\311\312\313\314\315\n\"##\202. \316!\317\211\211\320&\211\321\232\203I \206J \322\323!\202J \211\262\202P \211)\207" [completion-ignore-case current-prefix-arg this-command xref-find-backend xref-backend-identifier-at-point xref-backend-identifier-completion-ignore-case xref--prompt-p completing-read format "%s (default %s): " substring 0 string-match "[ :]+\\'" xref-backend-identifier-completion-table nil xref--read-identifier-history "" user-error "There is no default identifier"] 12 (#$ . 44473)])
#@38
(fn INPUT KIND ARG DISPLAY-ACTION)
(defalias 'xref--find-xrefs #[1028 "\300\301#\"\207" [xref--show-xrefs xref--create-fetcher] 9 (#$ . 45176)])
#@26
(fn ID DISPLAY-ACTION)
(defalias 'xref--find-definitions #[514 "\300\301\302#\"\207" [xref--show-defs xref--create-fetcher definitions] 7 (#$ . 45333)])
#@191 Return an xref list fetcher function.
It revisits the saved position and delegates the finding logic to
the xref backend method indicated by KIND and passes ARG to it.
(fn INPUT KIND ARG)
(defalias 'xref--create-fetcher #[771 "p`\300 \301\302\303\"!\304\305\306\307\310 &\311\"\312$\207" [xref-find-backend intern format "xref-backend-%s" make-byte-code 0 "\212\307\303!\203 \303q\210\3101 \304b0\202 \210\202 \210\306\305\302\"\211\204& \311\301\300\"\210\211\262)\207" vconcat vector [buffer-live-p (error) xref--not-found-error] 4] 19 (#$ . 45498)])
#@19
(fn KIND INPUT)
(defalias 'xref--not-found-error #[514 "\300\301\302!#\207" [user-error "No %s found for: %s" symbol-name] 6 (#$ . 46080)])
#@375 Find the definition of the identifier at point.
With prefix argument or when there's no identifier at point,
prompt for it.
If sufficient information is available to determine a unique
definition for IDENTIFIER, display it in the selected window.
Otherwise, display the list of the possible definitions in a
buffer where the user can select from the list.
(fn IDENTIFIER)
(defalias 'xref-find-definitions #[257 "\300\301\"\207" [xref--find-definitions nil] 4 (#$ . 46231) (byte-code "\300\301!C\207" [xref--read-identifier "Find definitions of: "] 2)])
#@79 Like `xref-find-definitions' but switch to the other window.
(fn IDENTIFIER)
(defalias 'xref-find-definitions-other-window #[257 "\300\301\"\207" [xref--find-definitions window] 4 (#$ . 46793) (byte-code "\300\301!C\207" [xref--read-identifier "Find definitions of: "] 2)])
#@78 Like `xref-find-definitions' but switch to the other frame.
(fn IDENTIFIER)
(defalias 'xref-find-definitions-other-frame #[257 "\300\301\"\207" [xref--find-definitions frame] 4 (#$ . 47075) (byte-code "\300\301!C\207" [xref--read-identifier "Find definitions of: "] 2)])
#@359 Find references to the identifier at point.
This command might prompt for the identifier as needed, perhaps
offering the symbol at point as the default.
With prefix argument, or if `xref-prompt-for-identifier' is t,
always prompt for the identifier. If `xref-prompt-for-identifier'
is nil, prompt only if there's no usable symbol at point.
(fn IDENTIFIER)
(defalias 'xref-find-references #[257 "\300\301\302$\207" [xref--find-xrefs references nil] 6 (#$ . 47355) (byte-code "\300\301!C\207" [xref--read-identifier "Find references of: "] 2)])
#@128 Find the definition of identifier at or around mouse click.
This command is intended to be bound to a mouse event.
(fn EVENT)
(defalias 'xref-find-definitions-at-mouse #[257 "\212\300!\210\301\302 !)\211\203 \303!\202 \304\305!\207" [mouse-set-point xref-backend-identifier-at-point xref-find-backend xref-find-definitions user-error "No identifier here"] 4 (#$ . 47909) "e"])
#@114 Find all meaningful symbols that match PATTERN.
The argument has the same meaning as in `apropos'.
(fn PATTERN)
(defalias 'xref-find-apropos #[257 "\300\301!\210\302\301\303\304!\230\203 \305\306\307#\206 \310\311!\202 !\312$\207" [require apropos xref--find-xrefs apropos-parse-pattern regexp-quote split-string "[ ]+" t user-error "No word list given" nil] 9 (#$ . 48298) (byte-code "\300\301\302\303#C\207" [read-string "Search for pattern (word list or regexp): " nil xref--read-pattern-history] 4)])
(defvar xref-etags-mode--saved nil)
#@99 Non-nil if Xref-Etags mode is enabled.
Use the command `xref-etags-mode' to change this variable.
(defvar xref-etags-mode nil (#$ . 48855))
(make-variable-buffer-local 'xref-etags-mode)
#@452 Minor mode to make xref use etags again.
If called interactively, enable Xref-Etags mode if ARG is positive,
and disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
Certain major modes install their own mechanisms for listing
identifiers and navigation. Turn this on to undo those settings
and just use etags.
(fn &optional ARG)
(defalias 'xref-etags-mode #[256 "\303 \304=\203
?\202 \305!\306V\211\203 \307\301!\210\202& \310\301!\210\n\311\312\2030 \313\2021 \314\"\210\315\316!\203U \303 \203E \211\303 \232\203U \317\320\321\203P \322\202Q \323#\266\210\324 \210\207" [xref-etags-mode xref-backend-functions xref-etags-mode--saved current-message toggle prefix-numeric-value 0 kill-local-variable make-local-variable run-hooks xref-etags-mode-hook xref-etags-mode-on-hook xref-etags-mode-off-hook called-interactively-p any " in current buffer" message "Xref-Etags mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 49048) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar xref-etags-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [xref-etags-mode-map xref-etags-mode-hook variable-documentation put "Hook run after entering or leaving `xref-etags-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode xref-etags-mode "" boundp nil] 6)
#@231 Find all references to SYMBOL in directory DIR.
Return a list of xref values.
This function uses the Semantic Symbol Reference API, see
`semantic-symref-tool-alist' for details on which tools are used,
and when.
(fn SYMBOL DIR)
(defalias 'xref-references-in-directory #[514 "\304!\204\n \305\306!\210\307\310!\210\311\211\312\311\313\314\315\316\317\320\321\322&\323\324!\325\326\327!\"\",\207" [ede-minor-mode default-directory semantic-symref-tool case-fold-search directory-name-p cl--assertion-failed (directory-name-p dir) require semantic/symref nil detect semantic-symref-instantiate :searchfor :searchtype symbol :searchscope subdirs :resulttype line-and-text xref--convert-hits semantic-symref-perform-search format "\\_<%s\\_>" regexp-quote] 11 (#$ . 50617)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias xref-collect-references xref-references-in-directory nil make-obsolete "27.1"] 4)
#@290 Find all matches for REGEXP in directory DIR.
Return a list of xref values.
Only files matching some of FILES and none of IGNORES are searched.
FILES is a string with glob patterns separated by spaces.
IGNORES is a list of glob patterns for files to ignore.
(fn REGEXP FILES DIR IGNORES)
(defalias 'xref-matches-in-directory #[1028 "\304 \210\305\306\307\310\211%\311\312\313!\314\315!!$\n\316\317! @\211@A\211@A\211@\211\311\211r q\210\320 \210\f\321\311\310#\262eb\210edU\204Y \322!\204Y \323\324\325 #\210\326\311\310#\203w \327\330!!\330!\331`\332 \"EB\262\202Y )\333\237\"\266\202\266\203*\207" [grep-find-template grep-highlight-matches default-directory grep-regexp-alist grep-compute-defaults replace-regexp-in-string "<C>" "<C> -E" t nil xref--rgrep-command xref--regexp-to-extended file-local-name expand-file-name get-buffer-create " *xref-grep*" erase-buffer process-file-shell-command looking-at user-error "Search failed with status %d: %s" buffer-string re-search-forward string-to-number match-string buffer-substring-no-properties line-end-position xref--convert-hits] 23 (#$ . 51554)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias xref-collect-matches xref-matches-in-directory nil make-obsolete "27.1"] 4)
#@133 Find all matches for REGEXP in FILES.
Return a list of xref values.
FILES must be a list of absolute file names.
(fn REGEXP FILES)
(defalias 'xref-matches-in-files #[514 "\211:\204 \305\306!\210\307\310!@\211@A\211@A\211@\211\311\211\312
@!\313!\314\315 \2038 \316\317\"\2038 \320\2029 \321\322\323!!#\203Y \324\325!\210\326\327!\203S \330\202T \331\"\262rq\210\332 \210\333\334!r\211q\210\335\336\337\340\341!\342\"\343$\216\344\345\346#c\210\347ed \311\f&\262*\210eb\210edU\204\256 \350!\204\256 \350\351!\204\256 \352\353e\354 {#\210\355\311\317#\203\316 \356\357 !!\357!\360`\354 \"EB\262\202\256 )\361\237\"\266\205\266\203\207" [grep-regexp-alist case-fold-search default-directory shell-file-name shell-command-switch cl--assertion-failed (consp files) get-buffer-create " *project grep output*" nil file-name-directory file-remote-p format "xargs -0 grep %s -snHE -e %s" isearch-no-upper-case-p t "-i" "" shell-quote-argument xref--regexp-to-extended require tramp mapcar tramp-tramp-file-p tramp-file-local-name file-local-name erase-buffer generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 mapconcat identity " " project--process-file-region looking-at "Binary file .* matches" user-error "Search failed with status %d: %s" line-end-position re-search-forward string-to-number match-string buffer-substring-no-properties xref--convert-hits] 26 (#$ . 52838)])
#@33
(fn REGEXP FILES DIR IGNORES)
(defalias 'xref--rgrep-command #[1028 "\303\304!\210\305\306\307\310#)\266\203\203 \311\312!\210\313 \314\315!\316\n\316\317\314\320\f!\321\n\316Q#\316\314\322!\260\314!\323\"%\207" [inhibit-changing-match-data grep-find-template find-name-arg require find-dired #1="\\`~" nil t string-match cl--assertion-failed (not (string-match-p #1# dir)) grep-expand-template shell-quote-argument "(" " " mapconcat split-string " -o " ")" xref--find-ignores-arguments] 17 (#$ . 54330)])
#@183 Convert IGNORES and DIR to a list of arguments for 'find'.
IGNORES is a list of glob patterns. DIR is an absolute
directory, used as the root of the ignore globs.
(fn IGNORES DIR)
(defalias 'xref--find-ignores-arguments #[514 "\301\302\303\304#)\266\203\203 \305\306!\210\204 \307\207\310\311!\312\313\314\315\316\317\320!\321\"\322\323%\324#\325\310\326!\327\260\207" [inhibit-changing-match-data #1="\\`~" nil t string-match cl--assertion-failed (not (string-match-p #1# dir)) "" shell-quote-argument "(" " -path " mapconcat make-byte-code 257 "\302\303\304\305#)\266\203\203 \211\306P\262\305\307\"\203' \310\300\304\211$\262\2023 \311\306\"\2043 \312P\262\313!\207" vconcat vector [inhibit-changing-match-data "/\\'" nil t string-match "*" "\\`\\./" replace-match string-prefix-p "*/" shell-quote-argument] 8 "\n\n(fn IGNORE)" " -o -path " " " ")" " -prune -o "] 11 (#$ . 54860)])
#@12
(fn STR)
(defalias 'xref--regexp-to-extended #[257 "\300\301\302\303\211%\207" [replace-regexp-in-string "\\(?:\\\\\\\\\\)*\\(?:\\\\[][]\\)?\\(?:\\[.+?\\]\\|\\(\\\\?[(){}|]\\)\\)" #[257 "\300\224\204 \207\301\300\"G\302=\203 \303\304\300\224#\303\301\300\"\300\302#P\207\303\304\300\224#\305\301\300\"Q\207" [1 match-string 2 substring 0 "\\"] 6 "\n\n(fn STR)"] t] 7 (#$ . 55779)])
#@135 Return non-nil when STR depends on the buffer's syntax.
Such as the current syntax table and the applied syntax properties.
(fn STR)
(defalias 'xref--regexp-syntax-dependent-p #[257 "\302\303\302\304\305#)\266\203)\207" [case-fold-search inhibit-changing-match-data nil "\\(?:\\`\\|[^\\]\\)\\\\\\{2\\}*\\\\[<>BSW_bsw]" t string-match] 8 (#$ . 56178)])
(defvar xref--last-file-buffer nil)
(defvar xref--temp-buffer-file-name nil)
#@20
(fn HITS REGEXP)
(defalias 'xref--convert-hits #[514 "\301\302\303!\304\305\306\307\310!\311\"\312$\216\313\304\314\315\307\310\"\316\"\317\320%\"*\207" [xref--last-file-buffer nil generate-new-buffer " *xref-temp*" make-byte-code 0 "\301\300!\207" vconcat vector [kill-buffer] 2 cl-mapcan 257 "\302\300\301#\207" [xref--collect-matches] 5 "\n\n(fn HIT)"] 12 (#$ . 56620)])
#@30
(fn HIT REGEXP TMP-BUFFER)
(defalias 'xref--collect-matches #[771 "@A\211@A\211@A\306!\205 \211P\307!\310!\203C rq\210\212eb\210Sy\210\311\312 \313 &*\202\226 r
q\210\314 \210\211\203\202 \232\204\202 \315\316\317\320$\210\321\316 \3221m \323\321!0\202q \210\202r \210+\324\301!\210\324\305!\210\321\314 \210c\210eb\210\311`d&)\266\204\266\203\207" [default-directory xref--temp-buffer-file-name message-log-max inhibit-message buffer-file-name inhibit-read-only file-remote-p xref--find-file-buffer xref--regexp-syntax-dependent-p xref--collect-matches-1 line-beginning-position line-end-position erase-buffer insert-file-contents nil 0 200 t (error) set-auto-mode make-local-variable] 23 (#$ . 57011)])
#@57
(fn REGEXP FILE LINE LINE-BEG LINE-END SYNTAX-NEEDED)
(defalias 'xref--collect-matches-1 #[1542 "\300\203 \301!\210\211\203 `V\203G \302\303#\203G \304\224Z\304\225Z\305#{\306\307\303%\210\310Z#B\266\205\202 \211\237\207" [nil syntax-propertize re-search-forward t 0 xref-make-file-location add-face-text-property xref-match xref-make-match] 17 (#$ . 57770)])
#@13
(fn FILE)
(defalias 'xref--find-file-buffer #[257 "@\232\204
\211\301!BA\207" [xref--last-file-buffer get-file-buffer] 4 (#$ . 58167)])
(provide 'xref)
Mini Shell