1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00

Widen buffer before going to point found by xref-find-definitions (bug#44294)

* lisp/progmodes/elisp-mode.el (xref-location-marker): Widen before going
to the found position.

* lisp/progmodes/etags.el (etags-goto-tag-location): Rerun after removing
narrowing.

* lisp/simple.el (goto-line-read-args): Use buffer-narrowed-p.
This commit is contained in:
Juri Linkov 2020-10-29 11:09:20 +02:00
parent bb3d13ac35
commit 46b3db5579
3 changed files with 15 additions and 8 deletions

View file

@ -897,8 +897,10 @@ non-nil result supersedes the xrefs produced by
(let ((buffer-point (find-function-search-for-symbol symbol type file)))
(with-current-buffer (car buffer-point)
(save-excursion
(goto-char (or (cdr buffer-point) (point-min)))
(point-marker))))))
(save-restriction
(widen)
(goto-char (or (cdr buffer-point) (point-min)))
(point-marker)))))))
(cl-defmethod xref-location-group ((l xref-elisp-location))
(xref-elisp-location-file l))