;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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" [project-relative] 1] "Style of file name display in *xref* buffers.\n\nIf the value is the symbol `abs', the default, show the file names\nin their full absolute form.\n\nIf `nondirectory', show only the nondirectory (a.k.a. \"base name\")\npart of the file name.\n\nIf `project-relative', show only the file name relative to the\ncurrent project root. If there is no current project, or if the\nfile resides outside of its root, show that particular file name\nin its full absolute form." :type (choice (const :tag "absolute file name" abs) (const :tag "nondirectory file name" nondirectory) (const :tag "relative to project root" project-relative)) :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 (#$ . 4291)]) (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 (#$ . 4608)]) #@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 (#$ . 4845)]) (cl-generic-define-method 'xref-location-marker nil '((l xref-file-location)) nil #[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)"]) #@60 Cons mapping `default-directory' value to the search root. (defvar xref--project-root-memo nil (#$ . 5462)) (byte-code "\300\301\302\303\302\304%\210\305\306\307\310!\"\210\305\311\312\310!\"\210\305\313\311\"\210\314\313\315\316#\210\317\310\320\311#\321\310\322\323\302$\207" [cl-generic-define-method xref-location-group nil ((l xref-file-location)) #[257 "\303\304\"\203\f\305\306\"\207\303\307\"\203\310\305\306\"!\207\303\311\"\203^ \203, @\n\232\204C\n\312 \211\2056\313!\262\211\205?\314!\262B\305\306\" A\211\203\\\315\"\203\\G\316O\202]\207\317\320\321#\205g\316\207" [xref-file-name-display xref--project-root-memo default-directory eql abs eieio-oref file nondirectory file-name-nondirectory project-relative project-current xref--project-root expand-file-name string-prefix-p nil error "cl-ecase failed: %s, %s" (abs nondirectory project-relative)] 6 "\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 (#$ . 6789)]) (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 (#$ . 7116)]) #@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 (#$ . 7355)]) (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 (#$ . 8940)]) (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 (#$ . 9262)]) #@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 (#$ . 9500)]) (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 (#$ . 11160)]) (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 (#$ . 11433)]) #@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 (#$ . 11663)]) (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 (#$ . 13249)]) (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 (#$ . 13552)]) #@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 (#$ . 13788)]) #@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 (#$ . 14135)) (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\ncurrent project's main and external roots.\n\n(fn BACKEND IDENTIFIER)" cl-generic-define-method #[514 "\300\301\302\303\304\305!\306\"\307\310%\311\312!\313!\314!B\262\"\207" [mapcan make-byte-code 257 "\301\300\"\207" vconcat vector [xref-references-in-directory] 4 "\n\n(fn DIR)" project-current t xref--project-root project-external-roots] 9 "\n\n(fn BACKEND IDENTIFIER)"] xref-backend-apropos (backend pattern) "Find all symbols that match PATTERN string.\nThe second argument has the same meaning as in `apropos'.\n\nIf BACKEND is implemented in Lisp, it can use\n`xref-apropos-regexp' to convert the pattern to regexp.\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 (#$ . 17443)]) #@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 (#$ . 17873)]) #@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 (#$ . 18074)]) (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%\210\300\327\302\303\330DD\331\306\323\332\333\334\335& \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." xref-after-update-hook #[0 "\300\207" [nil] 1] "Functions called after the xref buffer is updated." :version "28.1" :package-version (xref . "1.0.4")] 10) #@48 Ring of markers to implement the marker stack. (defvar xref--marker-ring (make-ring xref-marker-ring-length) (#$ . 20404)) #@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 (#$ . 20534)]) #@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 (#$ . 20807)]) #@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 (#$ . 21021) 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 (#$ . 21802)]) #@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 (#$ . 22010)]) #@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 (#$ . 22174)]) #@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 (#$ . 22387)]) #@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\306\"\203\307!\210\202?\310\311\"\203'\312\313\"\210\202?\310\314\"\2039\313\312\313\"\210)\202?\315\316\317#\210\320!\266\321\322!)\207" [pop-up-frames xref--current-item xref-location-marker xref-item-location marker-buffer memql (nil) switch-to-buffer eql window pop-to-buffer t frame error "cl-ecase failed: %s, %s" (nil window frame) xref--goto-char run-hooks xref-after-jump-hook] 8 (#$ . 22604)]) #@39 The name of the buffer to show xrefs. (defconst xref-buffer-name "*xref*" (#$ . 23387)) (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 match)) "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 (#$ . 23925)])) #@63 Original window-switching intent before xref buffer creation. (defvar xref--original-window-intent nil (#$ . 24299)) (make-variable-buffer-local 'xref--original-window-intent) #@56 The original window this xref buffer was created from. (defvar xref--original-window nil (#$ . 24481)) (make-variable-buffer-local 'xref--original-window) #@59 The original function to call to fetch the list of xrefs. (defvar xref--fetcher nil (#$ . 24642)) (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 "\303=\206 \303=\203\304\2029\305=\203 \306\305\nBD\2029\307\n!\2059\310\n!\2034\311\n!=\2059\312\305\nBD\313\314\"!r\315\316\317\320\321!\322\"\323$\216\324@\325\"\210\326!\210\327\330!\210\331 *\262)\207" [xref--original-window-intent pop-up-frames xref--original-window frame t window (xref--display-buffer-in-other-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 selected-window] 10 (#$ . 24791)]) #@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 (#$ . 25678)]) #@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 (#$ . 26331)]) #@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 (#$ . 26781)]) #@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 (#$ . 27702) nil]) #@53 Move to the next xref but don't display its source. (defalias 'xref-next-line-no-show #[0 "\300\301!\207" [xref--search-property xref-item] 2 (#$ . 27962) nil]) #@73 Move to the next xref and display its source in the appropriate window. (defalias 'xref-next-line #[0 "\300 \210\301 \207" [xref-next-line-no-show xref-show-location-at-point] 1 (#$ . 28129) nil]) #@57 Move to the previous xref but don't display its source. (defalias 'xref-prev-line-no-show #[0 "\300\301\302\"\207" [xref--search-property xref-item t] 3 (#$ . 28332) nil]) #@77 Move to the previous xref and display its source in the appropriate window. (defalias 'xref-prev-line #[0 "\300 \210\301 \207" [xref-prev-line-no-show xref-show-location-at-point] 1 (#$ . 28510) nil]) #@71 Move to the first item of the next xref group and display its source. (defalias 'xref-next-group #[0 "\300\301!\210\300\302!\210\303 \207" [xref--search-property xref-group xref-item xref-show-location-at-point] 2 (#$ . 28717) nil]) #@75 Move to the first item of the previous xref group and display its source. (defalias 'xref-prev-group #[0 "\300\301`!\302\"\204\303\302\304\"\210\303\302\304\"\210\303\305!\210\306 \207" [plist-member text-properties-at xref-group xref--search-property t xref-item xref-show-location-at-point] 3 (#$ . 28956) nil]) (defalias 'xref--item-at-point #[0 "\300l\203\n`S\202 `\301\"\207" [get-text-property xref-item] 3]) #@169 Jump to the xref on the current line and select its window. If QUIT is non-nil (interactively, with prefix argument), also quit the *xref* buffer. (fn &optional QUIT) (defalias 'xref-goto-xref #[256 "p\302 \206 \303\304!\211\305\306!\203\307\202\310\"\210\311\312!\203'\312p\"\202*\211)\207" [xref--current-item next-error-last-buffer xref--item-at-point user-error "No reference at point" xref--show-location xref-item-location quit t fboundp next-error-found] 6 (#$ . 29382) "P"]) #@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 (#$ . 29885) nil]) #@53 Quit *xref* buffer, then pop the xref marker stack. (defalias 'xref-quit-and-pop-marker-stack #[0 "\300 \210\301 \207" [quit-window xref-pop-marker-stack] 1 (#$ . 30041) 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!\203B\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 (#$ . 30224) (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=\203\253\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\244\302\300\242\300\211\242A\240\210\242\240\203\244\212\312\302\242!\313!\314 \315\302\242!\\\311!\223B\306\306\242B\240\210\316!\210\317\302\242!\203n\320\321!\210\202\236\304\242\204\203\304\311!\240\210\305\305\242B\240\210\202\236\304\242\311!\232\203\226\305\305\242B\240\210\202\236\301\322\240\210\303\240\210\266)\202+\304\242\305\242\237B\207\211\323=\203\315\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 [:next nil marker-buffer xref-item-location xref-location-marker make-marker xref-match-length xref--goto-location xref--outdated-p message "Search result out of date, skipping" t :cleanup] 8 "\n\n(fn ACTION)"] 20 (#$ . 30975)]) #@106 Check that the match location at current position is up-to-date. ITEMS is an xref item which (fn ITEM) (defalias 'xref--outdated-p #[257 "\300!\301\211!\302 \303\211\"\206$`\304 G\\W\205$\212\305y\210\211\")?\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)"] line-end-position #[514 "`G\\Y\205\300`\"\232\207" [buffer-substring-no-properties] 7 "\n\n(fn STRIPPED-SUMMARY LENDPOS)"] line-beginning-position 0] 9 (#$ . 32055)]) #@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 (#$ . 32594)]) (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\317#\210\301\320\321#\210\301\322\303#\210\301\323\305#\210\301\324\325#\210\301\326\327#\210\211\207" [make-sparse-keymap define-key "n" xref-next-line "p" xref-prev-line "N" xref-next-group "P" xref-prev-group "r" xref-query-replace-in-results " " xref-goto-xref " " xref-quit-and-goto-xref "" xref-show-location-at-point "." "," "g" xref-revert-buffer [134217772] xref-quit-and-pop-marker-stack] 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 \325C#\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 (#$ . 35649) 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 (#$ . 38528) 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 (#$ . 39955)]) #@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 (#$ . 40213)]) #@20 (fn N RESET\=\?) (defalias 'xref--next-error-function #[514 "\211\203eb\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 (#$ . 40538)]) (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 (#$ . 41204) "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\211\211:\203\345\262\211A\262\242\262\211A\262\242\262\303\211:\203X@\262\304\305\306\"!\211\205A\307\310\"G\262\203N]\202O\211\266\202A\262\202*\266\202\262\205d\307\311\"\262\312\313\314#\210\303\211:\203\330\262\211A\262\242\262\211\304\315\306\"!\211\204\217\316\202\243\211\232\203\232\317\202\243\320\307 \"\321\322# \232\203\265\232\204\265\314c\210\312\323\324\325\326\327\330\257\315\331\"#\210\262\n\262\266A\262\202p\266\314c\210A\262\202\f\266\332\333!\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 run-hooks xref-after-update-hook] 24 (#$ . 41489)]) #@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 (#$ . 42715)]) #@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 (#$ . 42997)]) #@16 (fn PROJECT) (defalias 'xref--project-root #[257 "\300\301!\203\n\301!\207\302!@\207" [fboundp project-root project-roots] 3 (#$ . 43406)]) #@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 (#$ . 43557)]) #@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 (#$ . 43912) nil]) #@132 Show the definitions list in a regular window. When only one definition found, jump to it right away instead. (fn FETCHER ALIST) (defalias 'xref-show-definitions-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 (#$ . 44277)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias xref--show-defs-buffer xref-show-definitions-buffer nil make-obsolete "28.1"] 4) #@263 Show the 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-definitions-buffer-at-bottom #[514 " \302 \303\245\304\305\306\307\310!\311\"\312\313%A\204$\314@\315\316\"\"\202Er\317 !q\210\320 \210\321\322!#\210\323p\324\325\302BE\"\210p)\207" [default-directory xref-buffer-name window-height 2 make-byte-code 257 "\301\300\"\207" vconcat vector [fit-window-to-buffer] 4 "\n\n(fn WINDOW)" 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)] 12 (#$ . 44774)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias xref--show-defs-buffer-at-bottom xref-show-definitions-buffer-at-bottom nil make-obsolete "28.1"] 4) #@199 Let the user choose the target definition with completion. When there is more than one definition, let the user choose between them by typing in the minibuffer with completion. (fn FETCHER ALIST) (defalias 'xref-show-definitions-completing-read #[514 " \300!\301\211\302\303\"\211G\304V\203\305!G\202\304\262\301\211\211:\203\215\262\211A\262\242\262\211A\262\242\262\301\211:\203\204\262\211A\262\242\262\211\306\307\310\"!\211\203]\311\312\"\202^\303\313\f\301O\314\315#\311\316\307\317\"$\211BB\262\266A\262\202;\266A\262\202 \266A\204\231@\202\274\320!\321\322\323\324\325!\326\"\327\330%@@\331\332\333\301\334\301\211&\"A\266\203\262\335\336\337 \"\"\207" [xref--analyze nil try-completion "" 0 file-name-directory xref-location-line slot-value location format #("%d:" 0 2 (face xref-line-number)) propertize face xref-file-header "%s:%s%s" summary reverse make-byte-code 771 "\211\301=\203\302\207\303\300$\207" vconcat vector [metadata (metadata (category . xref-location)) complete-with-action] 8 "\n\n(fn STRING PRED ACTION)" assoc completing-read "Choose definition: " t xref-pop-to-location assoc-default display-action] 25 (#$ . 45797)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\311\312DD\313\314\311%\210\306\315\310\311\316DD\317\314\320%\207" [defalias xref--show-defs-minibuffer xref-show-definitions-completing-read nil make-obsolete "28.1" 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-definitions-buffer] 1] "Function to handle the definition search results.\n\nAccepts the same arguments as `xref-show-xrefs-function'.\n\nGenerally, it is expected to jump to the definition if there's\nonly one, and otherwise provide some way to choose among the\ndefinitions." (choice (const :tag "Show a regular list of locations" xref-show-definitions-buffer) (const :tag "Show a \"transient\" list at the bottom of the window" xref-show-definitions-buffer-at-bottom) (const :tag "Choose the definition with completion" xref-show-definitions-completing-read) (function :tag "Custom function"))] 6) (defvar xref--read-identifier-history nil) (defvar xref--read-pattern-history nil) #@58 (fn FETCHER DISPLAY-ACTION &optional ALWAYS-SHOW-LIST) (defalias 'xref--show-xrefs #[770 "\301 \210\302!\204C\303\304\305\306\307!\310\"\311$\262\210\312\313 B\314BD\"\207" [xref-show-xrefs-function xref--push-markers functionp make-byte-code 0 "\300\242\301=\203 \302\303!\207\300\242\300\301\240\210\207" vconcat vector [called-already user-error "Refresh is not supported"] 3 window selected-window display-action] 10 (#$ . 48680)]) #@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 (#$ . 49134)]) (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 (#$ . 49482)]) #@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!\203M\307\203+\310\311\312\313\314 \"O#\202,\315!\316\211\211\317&\211\320\232\203G\206H\321\322!\202H\211\262\202N\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): " 0 string-match "[ :]+\\'" xref-backend-identifier-completion-table nil xref--read-identifier-history "" user-error "There is no default identifier"] 11 (#$ . 49637)]) #@38 (fn INPUT KIND ARG DISPLAY-ACTION) (defalias 'xref--find-xrefs #[1028 "\300\301#\"\207" [xref--show-xrefs xref--create-fetcher] 9 (#$ . 50324)]) #@26 (fn ID DISPLAY-ACTION) (defalias 'xref--find-definitions #[514 "\300\301\302#\"\207" [xref--show-defs xref--create-fetcher definitions] 7 (#$ . 50481)]) #@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 (#$ . 50646)]) #@19 (fn KIND INPUT) (defalias 'xref--not-found-error #[514 "\300\301\302!#\207" [user-error "No %s found for: %s" symbol-name] 6 (#$ . 51228)]) #@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 (#$ . 51379) (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 (#$ . 51941) (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 (#$ . 52223) (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 (#$ . 52503) (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 (#$ . 53057) "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 "\301\302!\210\303\304\"\203\305 \306>\203\307!\202\211\310\302\311$\207" [emacs-version require apropos version< "28.0.50" xref-find-backend (elisp etags) xref-apropos-regexp xref--find-xrefs nil] 7 (#$ . 53446) (byte-code "\300\301\302\303#C\207" [read-string "Search for pattern (word list or regexp): " nil xref--read-pattern-history] 4)]) #@73 Return an Emacs regexp from PATTERN similar to `apropos'. (fn PATTERN) (defalias 'xref-apropos-regexp #[257 "\300\301!\230\203\302\303\304#\206\305\306!\202!\207" [apropos-parse-pattern regexp-quote split-string "[ ]+" t user-error "No word list given"] 6 (#$ . 53954)]) (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 (#$ . 54279)) (make-variable-buffer-local 'xref-etags-mode) #@209 Minor mode to make xref use etags again. 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 (#$ . 54472) (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 (#$ . 55798)]) (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\316!!\315!\211\317\320\315!\"\262\2039\211G\321U\2033\322\2027\211\321\311O\262\323!P\266\202!$\n\324\325! @\211@A\211@A\211@\211\311\211r q\210\326 \210\f\327\311\310#\262eb\210edU\204\202\330!\204\202\331\332\333 #\210\334\311\310#\203\240\335\336!!\336!\337`\340 \"EB\262\202\202)\341\237\"\266\202\266\203*\207" [grep-find-template grep-highlight-matches default-directory grep-regexp-alist grep-compute-defaults replace-regexp-in-string "" " -E" t nil xref--rgrep-command xref--regexp-to-extended file-name-as-directory file-local-name expand-file-name string-prefix-p "/:" 2 "/" file-remote-p 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 (#$ . 56735)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307\310\311\312DD\313\314\315\316\317\320\321& \210\306\322\310\311\323DD\324\314\325\316\317\320\326& \207" [defalias xref-collect-matches xref-matches-in-directory nil make-obsolete "27.1" custom-declare-variable xref-search-program-alist funcall function #[0 "\300\207" [((grep . "xargs -0 grep -snHE -e ") (ripgrep . "xargs -0 rg -nH --no-messages -g '!*/' -e | sort -t: -k1,1 -k2n,2"))] 1] "Associative list mapping program identifiers to command templates.\n\nProgram identifier should be a symbol, named after the search program.\n\nThe command template must be a shell command (or usually a\npipeline) that will search the files based on the list of file\nnames that is piped from stdin, separated by null characters.\nThe template should have the following fields:\n\n for extra arguments such as -i and --color\n for the regexp itself (in Extended format)" :type (repeat (cons (symbol :tag "Program identifier") (string :tag "Command template"))) :version "28.1" :package-version (xref . "1.0.4") xref-search-program #[0 "\300\207" [grep] 1] "The program to use for regexp search inside files.\n\nThis must reference a corresponding entry in `xref-search-program-alist'." (choice (const :tag "Use Grep" grep) (const :tag "Use ripgrep" ripgrep) (symbol :tag "User defined")) (xref . "1.0.4")] 10) #@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 \306\307!\210\310\311!\210\312\313!@\211@A\211@A\211@\211\314\211\315 @!\316!\314\317\320\n \"\2068\321\322\n\"A\323!\"\203W\310\324!\210\325\326!\203Q\327\202R\330\"\262@\331\332\330!\"\262\203l\325\333\"\262rq\210\334 \210\335\336!r\211q\210\337\340\341\342\343!\344\"\345$\216\346\347\350#c\210\351ed \3144&\262*\210eb\210edU\204\302\352!\204\302\352\353!\204\302\321\354e\355 {#\210\356\314\357#\203\342\360\361 !!\361!\362`\355 \"EB\262\202\302)\363\237\")\266\205\266\203\207" [grep-regexp-alist grep-highlight-matches xref-search-program xref-search-program-alist default-directory shell-file-name cl--assertion-failed (consp files) require grep get-buffer-create " *project grep output*" nil file-name-directory file-remote-p grep-expand-template assoc user-error "Unknown search program `%s'" xref--regexp-to-extended tramp mapcar tramp-tramp-file-p tramp-file-local-name file-local-name string-prefix-p "/:" file-name-unquote 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 "" xref--process-file-region looking-at "Binary file .* matches" "Search failed with status %d: %s" line-end-position re-search-forward t string-to-number match-string buffer-substring-no-properties xref--convert-hits shell-command-switch] 26 (#$ . 59445)]) #@62 (fn START END PROGRAM &optional BUFFER DISPLAY &rest ARGS) (defalias 'xref--process-file-region #[1411 "\301!\204\302\303\304&\207\305\306!\307\310\311\312\313!\314\"\315$\216\316\304\317%\210\302\320&)\207" [default-directory file-remote-p apply call-process-region nil make-temp-file "ppfr" make-byte-code 0 "\301\300!\207" vconcat vector [delete-file] 2 write-region silent process-file] 15 (#$ . 61043)]) #@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 (#$ . 61492)]) #@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\307\305\310\"\203&\311\300\304\211$\2024\312\306\"\2031\2024\313P!\207" vconcat vector [inhibit-changing-match-data "/\\'" nil t string-match "*" shell-quote-argument "\\`\\./" replace-match string-prefix-p "*/"] 8 "\n\n(fn IGNORE)" " -o -path " " " ")" " -prune -o "] 11 (#$ . 62022)]) #@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\211\303\300\224O\301\300\"\300\302OP\207\211\303\300\224O\304\301\300\"Q\207" [1 match-string 2 0 "\\"] 6 "\n\n(fn STR)"] t] 7 (#$ . 62937)]) #@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 (#$ . 63320)]) (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 mapcan 257 "\302\300\301#\207" [xref--collect-matches] 5 "\n\n(fn HIT)"] 12 (#$ . 63762)]) #@30 (fn HIT REGEXP TMP-BUFFER) (defalias 'xref--collect-matches #[771 "@A\211@A\211@A\306!\205\211P\307!\310!\203Crq\210\212eb\210Sy\210\311\312 \313 &*\202\226r 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 (#$ . 64150)]) #@57 (fn REGEXP FILE LINE LINE-BEG LINE-END SYNTAX-NEEDED) (defalias 'xref--collect-matches-1 #[1542 "\300\211\203\n\301!\210\203`V\203)\302\303#\203)\304\224\304\225BB\262\202\n\237\262\203\220\211A\262\242\211@ZAZ\305\n\n#\203Q@\202S\203_@@\202a{\203x@ ZZ\262@ ZZ\262\306\307\303%\210\310Z#B\266\206\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] 19 (#$ . 64909)]) #@13 (fn FILE) (defalias 'xref--find-file-buffer #[257 "@\232\204 \211\301!BA\207" [xref--last-file-buffer get-file-buffer] 4 (#$ . 65434)]) (provide 'xref)