ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/progmodes/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/progmodes/xref.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312\313\314\315&\210\316\317\320\321!\"\210\316\322\323\321!\"\210\316\324\322\"\210\325\324\326\313#\210\327\321\330\322#\210\331\321\310\211\332$\207" [require cl-lib eieio ring pcase 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" put 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 (#$ . 1114)])
(function-put 'xref-location 'compiler-macro 'xref-location--anon-cmacro)
(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 "\n\n(fn WHOLE &rest SLOTS)"])
(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\300\322\323\324!\"\210\300\325\326\324!\"\210\300\327\325\"\210\330\327\331\332#\210\333\324\334\325#\210\335\324\336\337\340$\210\314\341\304\342\304\343%\210\314\311\304\344\304\345%\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)"] 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" put 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)"]] 6)
#@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 (#$ . 3435)])
(function-put 'xref-file-location 'compiler-macro 'xref-file-location--anon-cmacro)
(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 "\n\n(fn WHOLE &rest SLOTS)"])
#@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 (#$ . 3936)])
(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#\210\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\306\302\307\"!\210\302\310\"u\210\311 +\207" [find-file-suppress-same-file-warnings get-file-buffer slot-value file t find-file-noselect beginning-of-line line column point-marker] 6 "\n\n(fn L)"] xref-location-group ((l xref-file-location)) #[257 "\300\301\"\207" [eieio-oref file] 4 "\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" put 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 (#$ . 5216)])
(function-put 'xref-buffer-location 'compiler-macro 'xref-buffer-location--anon-cmacro)
(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 "\n\n(fn WHOLE &rest SLOTS)"])
#@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 (#$ . 5729)])
(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#\210\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" put 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)"]] 6)
#@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 (#$ . 7300)])
(function-put 'xref-bogus-location 'compiler-macro 'xref-bogus-location--anon-cmacro)
(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 "\n\n(fn WHOLE &rest SLOTS)"])
#@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 (#$ . 7807)])
(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#\210\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" put 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)"]] 6)
#@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 (#$ . 9453)])
(function-put 'xref-item 'compiler-macro 'xref-item--anon-cmacro)
(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 "\n\n(fn WHOLE &rest SLOTS)"])
#@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 (#$ . 9901)])
(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#\210\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" put 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)"]] 6)
#@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 (#$ . 11472)])
(function-put 'xref-match-item 'compiler-macro 'xref-match-item--anon-cmacro)
(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 "\n\n(fn WHOLE &rest SLOTS)"])
#@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 (#$ . 11957)])
#@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 (#$ . 12304))
(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#\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-collect-references] 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 PATTERN.\nPATTERN is a 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. nil means no\nidentifier at 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) "Returns the completion table for identifiers.\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 (#$ . 15190)])
#@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 (#$ . 15620)])
#@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 (#$ . 15821)])
(byte-code "\300\301\302\303\304DD\305\306\307%\210\300\310\302\303\311DD\312\306\313%\210\300\314\302\303\315DD\316\306\317%\210\300\320\302\303\321DD\322\306\317%\207" [custom-declare-variable xref-marker-ring-length funcall function #[0 "\300\207" [16] 1] "Length of the xref marker ring." :type integer xref-prompt-for-identifier #[0 "\300\207" [(not xref-find-definitions xref-find-definitions-other-window xref-find-definitions-other-frame)] 1] "When 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 prompt\nanyway (the value at point, if any, will be used as the default).\n\nIf the list starts with `not', the meaning of the rest of the\nelements is negated." (choice (const :tag "always" t) (const :tag "auto" nil) (set :menu-tag "command specific" :tag "commands" :value (not) (const :tag "Except" 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."] 6)
#@48 Ring of markers to implement the marker stack.
(defvar xref--marker-ring (make-ring xref-marker-ring-length) (#$ . 17548))
#@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 (#$ . 17677)])
#@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 (#$ . 17891) 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 (#$ . 18672)])
#@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 (#$ . 18880)])
(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 "\n\n(fn POS)"])
#@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 (#$ . 19242)])
#@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 (#$ . 19459)])
#@39 The name of the buffer to show xrefs.
(defconst xref-buffer-name "*xref*" (#$ . 20243))
(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 "\n\n(fn &rest BODY)"]))
(defalias 'xref--show-pos-in-buf #[771 "p\302\303\304!\305!\306\307\310\311\312\"\313\"\314$\216\203! \315\316\"\210\317!)\266\202!r\306\307\320\311\312!\321\"\322$\216\323@\324\"\210\325!\210\326\327!\210p\330 \262rq\210\331\301!\210\211)\210*\210\205_ \323!\207" [xref-buffer-name other-window-scroll-buffer nil internal--before-with-selected-window 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 display-buffer "\301\300!\207" [internal--after-with-selected-window] 2 select-window norecord xref--goto-char run-hooks xref-after-jump-hook selected-window make-local-variable] 15 "\n\n(fn POS BUF SELECT)"])
(defalias 'xref--show-location #[513 "\3001 \301!\302!\303#\266\2020\207\304\305!!\207" [(user-error) xref-location-marker marker-buffer xref--show-pos-in-buf message error-message-string] 8 "\n\n(fn LOCATION &optional SELECT)"])
#@56 The original window this xref buffer was created from.
(defvar xref--window nil (#$ . 21669))
(make-variable-buffer-local 'xref--window)
#@72 Display the source of xref at point in the appropriate window, if any.
(defalias 'xref-show-location-at-point #[0 "\302 \211\211\2054 \303 !\203/ \304 !r\305\306\307\310\311!\312\"\313$\216\314@\315\"\210\316\317!!*\262\2024 \316\317!!)\207" [xref--current-item xref--window xref--item-at-point window-live-p internal--before-with-selected-window make-byte-code 0 "\301\300!\207" vconcat vector [internal--after-with-selected-window] 2 select-window norecord xref--show-location xref-item-location] 8 (#$ . 21812) 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 (#$ . 22344) 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 (#$ . 22560) nil])
(defalias 'xref--item-at-point #[0 "\212\300 \210\301`\302\")\207" [back-to-indentation get-text-property xref-item] 3])
#@61 Jump to the xref on the current line and select its window.
(defalias 'xref-goto-xref #[0 "\300 \206 \301\302!\303\304!\305\"\207" [xref--item-at-point user-error "No reference at point" xref--show-location xref-item-location t] 4 (#$ . 22908) 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 (#$ . 23167) (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)])
(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\261 \300\242\204 \303\242\205\324 \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\211\326=\203\323 \306\242\211\205\322 \211@\211@\310\211\223\210\211A\310\211\223\210A\266\202\202\271 \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 buffer-substring-no-properties line-beginning-position line-end-position message "Search result out of date, skipping" t :cleanup] 10 "\n\n(fn ACTION)"] 20 "\n\n(fn XREFS)"])
(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 "\n\n(fn ITEM LINE-TEXT)"])
(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 "\n\n(fn FROM TO ITER)"])
(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\303#\210\301\315\305#\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-show-location-at-point "." ","] 5))
#@161 Hook run after entering XREF mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar xref--xref-buffer-mode-hook nil (#$ . 26826))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp xref--xref-buffer-mode-map put definition-name xref--xref-buffer-mode] 4)
(defvar xref--xref-buffer-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [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] 5)
(defvar xref--xref-buffer-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [xref--xref-buffer-mode-syntax-table variable-documentation put purecopy "Syntax table for `xref--xref-buffer-mode'." xref--xref-buffer-mode-abbrev-table definition-name xref--xref-buffer-mode] 5)
(defvar xref--xref-buffer-mode-abbrev-table (progn (define-abbrev-table 'xref--xref-buffer-mode-abbrev-table nil) xref--xref-buffer-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [xref--xref-buffer-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `xref--xref-buffer-mode'." xref--xref-buffer-mode derived-mode-parent special-mode] 5)
#@239 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 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!\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 run-mode-hooks xref--xref-buffer-mode-hook local-abbrev-table buffer-read-only next-error-function next-error-last-buffer] 5 (#$ . 28277) nil])
(defalias 'xref--next-error-function #[514 "\211\203 eb\210\300W\301!\302\300\211W\203& \211\303\304\"\262\210\211T\262\202 \266\211\2035 \305\306!\307\"\202A \310\311\203? \312\202@ \313\"\207" [0 abs nil xref--search-property xref-item xref--show-location xref-item-location t error "No %s xref" "previous" "next"] 11 "\n\n(fn N RESET\\=\\?)"])
(defvar xref--button-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\211\207" [make-sparse-keymap define-key [(control 109)] xref-goto-xref [mouse-1] [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!\210\304 \207" [mouse-set-point 0 xref--search-property xref-item xref-show-location-at-point] 3 (#$ . 29973) "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 compilation-info) "\n" slot-value propertize face compilation-line-number " " xref-item mouse-face highlight keymap help-echo "mouse-2: display in another window, RET or mouse-1: follow reference" summary] 22 (#$ . 30223)])
#@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 (#$ . 31292)])
(defalias 'xref--show-xref-buffer #[514 "\304!r\305!q\210\306\307\211\310 \210\311!\210\312 \210\313p!\210eb\210\314\315\"p+\207" [xref-buffer-name buffer-undo-list inhibit-read-only xref--window xref--analyze get-buffer-create nil t erase-buffer xref--insert-xrefs xref--xref-buffer-mode pop-to-buffer assoc-default window] 6 "\n\n(fn XREFS ALIST)"])
#@38 Function to display a list of xrefs.
(defvar xref-show-xrefs-function 'xref--show-xref-buffer (#$ . 31934))
(defvar xref--read-identifier-history nil)
(defvar xref--read-pattern-history nil)
(defalias 'xref--show-xrefs #[770 "A\204 \211\204 \301 \210\302@\"\207\301 \210\303\304 BC\"\207" [xref-show-xrefs-function xref-push-marker-stack xref--pop-to-location window selected-window] 7 "\n\n(fn XREFS DISPLAY-ACTION &optional ALWAYS-SHOW-LIST)"])
(defalias 'xref--prompt-p #[257 "\301=\206 @\302=\203 \211A>?\207\211>\207" [xref-prompt-for-identifier t not] 3 "\n\n(fn COMMAND)"])
#@77 Return the identifier at point or read it from the minibuffer.
(fn PROMPT)
(defalias 'xref--read-identifier #[257 "\302 \303!\204 \211\203 \304 !\2036 \305\203' \306\307\310\311\312 \"O#\202( \313!\314\211\211\315&\2027 \211\207" [current-prefix-arg this-command xref-find-backend xref-backend-identifier-at-point xref--prompt-p completing-read format "%s (default %s): " 0 string-match "[ :]+\\'" xref-backend-identifier-completion-table nil xref--read-identifier-history] 11 (#$ . 32534)])
(defalias 'xref--find-xrefs #[1028 "\300\301\302\"!\303 \"\211\204 \304\305\306!#\210\307\"\207" [intern format "xref-backend-%s" xref-find-backend user-error "No %s found for: %s" symbol-name xref--show-xrefs] 9 "\n\n(fn INPUT KIND ARG DISPLAY-ACTION)"])
(defalias 'xref--find-definitions #[514 "\300\301$\207" [xref--find-xrefs definitions] 7 "\n\n(fn ID DISPLAY-ACTION)"])
#@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 (#$ . 33435) (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 (#$ . 33997) (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 (#$ . 34279) (byte-code "\300\301!C\207" [xref--read-identifier "Find definitions of: "] 2)])
#@111 Find references to the identifier at point.
With prefix argument, prompt for the identifier.
(fn IDENTIFIER)
(defalias 'xref-find-references #[257 "\300\301\302$\207" [xref--find-xrefs references nil] 6 (#$ . 34559) (byte-code "\300\301!C\207" [xref--read-identifier "Find references of: "] 2)])
#@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 (#$ . 34865) (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 (#$ . 35422))
(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 (#$ . 35615) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
#@180 Hook run after entering or leaving `xref-etags-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar xref-etags-mode-hook nil (#$ . 36514))
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [xref-etags-mode-map add-minor-mode xref-etags-mode "" boundp nil] 6)
#@193 Collect references to SYMBOL inside DIR.
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-collect-references #[514 "\211\211G\305\306V\203 SH\262\211\307U\206 \310>\205 \211\311U\266\203\204( \312\313!\210\314\315!\210\316\211\317\316 \320\321\322\323\324\325\326\327&\330\331!\332\333\334!\"\",\207" [system-type ede-minor-mode default-directory semantic-symref-tool case-fold-search 46 0 47 (windows-nt ms-dos) 92 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 (#$ . 36873)])
#@174 Collect matches for REGEXP inside FILES in DIR.
FILES is a string with glob patterns separated by spaces.
IGNORES is a list of glob patterns.
(fn REGEXP FILES DIR IGNORES)
(defalias 'xref-collect-matches #[1028 "\303\304!\210\305 \210\306\307\310\311\211%\312\313\314!\315!$\316\317!\n@@\312rq\210\320 \210\321\312\311#\210eb\210\322\312\311#\203O \323\324\325!!\324\326!\327`\330 \"EB\262\2022 )\331\237 \"*\207" [grep-find-template grep-highlight-matches grep-regexp-alist require semantic/fw grep-compute-defaults replace-regexp-in-string "-e " "-E " t nil xref--rgrep-command xref--regexp-to-extended expand-file-name get-buffer-create " *xref-grep*" erase-buffer call-process-shell-command re-search-forward string-to-number match-string 2 1 buffer-substring-no-properties line-end-position xref--convert-hits] 13 (#$ . 37716)])
(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 "\n\n(fn REGEXP FILES DIR IGNORES)"])
#@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\2054 \307\310!\311\312\313\314\315\316\317!\320\"\321\322%\323#\324\307\325!\326\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 (#$ . 39086)])
(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 "\n\n(fn STR)"])
(defvar xref--last-visiting-buffer nil)
(defvar xref--temp-buffer-file-name nil)
(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-visiting-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 "\n\n(fn HITS REGEXP)"])
(defalias 'xref--collect-matches #[771 "@A\211@A\211@A\305!\211\2031 r\211q\210\212eb\210Sy\210\306\f\307 \310 %*\202{ r\nq\210\311 \210\232\204l \312\313\314\315$\210\316\313\3171W \320\316!0\202[ \210\202\\ \210+\321\300!\210\321\304!\210\316\311 \210c\210eb\210\306\f`d%)\262\266\203\207" [xref--temp-buffer-file-name message-log-max inhibit-message buffer-file-name inhibit-read-only xref--find-buffer-visiting 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] 19 "\n\n(fn HIT REGEXP TMP-BUFFER)"])
(defalias 'xref--collect-matches-1 #[1285 "\300\301!\210\211\203 `V\203A \302\303#\203A \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 highlight xref-make-match] 16 "\n\n(fn REGEXP FILE LINE LINE-BEG LINE-END)"])
(defalias 'xref--find-buffer-visiting #[257 "@\232\204
\211\301!BA\207" [xref--last-visiting-buffer find-buffer-visiting] 4 "\n\n(fn FILE)"])
(provide 'xref)
Kontol Shell Bypass