Commit 4f479aeb authored by Dmitry Gutov's avatar Dmitry Gutov

Rename xref--pop-to-location to xref-pop-to-location

* lisp/progmodes/xref.el (xref-pop-to-location):
Rename from xref-pop-to-location.  So that third-party
xref-show-definitions-function implementations can use it safely
(bug#36144).  Update all callers.
parent ec563971
Pipeline #1949 failed with stage
in 7 seconds
......@@ -423,7 +423,7 @@ value."
(set-buffer (marker-buffer marker))
(xref--goto-char marker)))
(defun xref--pop-to-location (item &optional action)
(defun xref-pop-to-location (item &optional action)
"Go to the location of ITEM and display the buffer.
ACTION controls how the buffer is displayed:
nil -- switch-to-buffer
......@@ -835,8 +835,8 @@ Return an alist of the form ((FILENAME . (XREF ...)) ...)."
(let ((xrefs (funcall fetcher)))
(cond
((not (cdr xrefs))
(xref--pop-to-location (car xrefs)
(assoc-default 'display-action alist)))
(xref-pop-to-location (car xrefs)
(assoc-default 'display-action alist)))
(t
(xref--show-xref-buffer fetcher
(cons (cons 'fetched-xrefs xrefs)
......@@ -850,8 +850,8 @@ local keymap that binds `RET' to `xref-quit-and-goto-xref'."
(let ((xrefs (funcall fetcher)))
(cond
((not (cdr xrefs))
(xref--pop-to-location (car xrefs)
(assoc-default 'display-action alist)))
(xref-pop-to-location (car xrefs)
(assoc-default 'display-action alist)))
(t
(with-current-buffer (get-buffer-create xref-buffer-name)
(xref--show-common-initialize (xref--analyze xrefs) fetcher alist)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment