procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Set next-error-* in xref--xref-buffer-mode

Browse source 
* xref.el (xref--xref-buffer-mode): Set `next-error-function' and
`next-error-last-buffer'.
(xref--next-error-function): New function.
(http://lists.gnu.org/archive/html/emacs-devel/2015-04/msg01311.html)
This commit is contained in:
Helmut Eller 2015-04-30 03:41:34 +03:00 • committed by Dmitry Gutov
parent 8b7e2c495a
commit fa175b4495
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/progmodes/xref.el
View file

@ -444,7 +444,22 @@ Used for temporary buffers.")
(define-derived-mode xref--xref-buffer-mode special-mode "XREF"
"Mode for displaying cross-references."
(setq buffer-read-only t))
(setq buffer-read-only t)
(setq next-error-function #'xref--next-error-function)
(setq next-error-last-buffer (current-buffer)))
(defun xref--next-error-function (n reset?)
(when reset?
(goto-char (point-min)))
(let ((backward (< n 0))
(n (abs n))
(loc nil))
(dotimes (_ n)
(setq loc (xref--search-property 'xref-location backward)))
(cond (loc
(xref--pop-to-location loc))
(t
(error "No %s xref" (if backward "previous" "next"))))))
(defun xref-quit (&optional kill)
"Bury temporarily displayed buffers, then quit the current window.