diff options
Diffstat (limited to 'lisp/progmodes/elisp-mode.el')
| -rw-r--r-- | lisp/progmodes/elisp-mode.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/progmodes/elisp-mode.el b/lisp/progmodes/elisp-mode.el index 1c728484ab5..2ad22ddd0ff 100644 --- a/lisp/progmodes/elisp-mode.el +++ b/lisp/progmodes/elisp-mode.el | |||
| @@ -823,8 +823,9 @@ non-nil result supercedes the xrefs produced by | |||
| 823 | (pcase-let (((cl-struct xref-elisp-location symbol type file) l)) | 823 | (pcase-let (((cl-struct xref-elisp-location symbol type file) l)) |
| 824 | (let ((buffer-point (find-function-search-for-symbol symbol type file))) | 824 | (let ((buffer-point (find-function-search-for-symbol symbol type file))) |
| 825 | (with-current-buffer (car buffer-point) | 825 | (with-current-buffer (car buffer-point) |
| 826 | (goto-char (or (cdr buffer-point) (point-min))) | 826 | (save-excursion |
| 827 | (point-marker))))) | 827 | (goto-char (or (cdr buffer-point) (point-min))) |
| 828 | (point-marker)))))) | ||
| 828 | 829 | ||
| 829 | (cl-defmethod xref-location-group ((l xref-elisp-location)) | 830 | (cl-defmethod xref-location-group ((l xref-elisp-location)) |
| 830 | (xref-elisp-location-file l)) | 831 | (xref-elisp-location-file l)) |