masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-04 11:23:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

* lisp/progmodes/xref.el (xref-revert-buffer-restore-point): New function.

Browse source 
(xref--xref-buffer-mode): Add xref-revert-buffer-restore-point
to revert-buffer-restore-functions (bug#71466).
This commit is contained in:
Juri Linkov 2024-06-27 09:42:34 +03:00
parent 82125b1a66
commit d6afb017de
1 changed files with 22 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

23
lisp/progmodes/xref.el
View file

@ -1017,7 +1017,9 @@ point."
(lambda (&optional bound move backward looking-at) (lambda (&optional bound move backward looking-at)
(outline-search-text-property (outline-search-text-property
'xref-group nil bound move backward looking-at))) 'xref-group nil bound move backward looking-at)))
(setq-local outline-level (lambda () 1))) (setq-local outline-level (lambda () 1))
(add-hook 'revert-buffer-restore-functions
#'xref-revert-buffer-restore-point nil t))
(defvar xref--transient-buffer-mode-map (defvar xref--transient-buffer-mode-map
(let ((map (make-sparse-keymap))) (let ((map (make-sparse-keymap)))
@ -1293,6 +1295,25 @@ Return an alist of the form ((GROUP . (XREF ...)) ...)."
;;; FIXME: Make this alias obsolete in future release. ;;; FIXME: Make this alias obsolete in future release.
(defalias 'xref-revert-buffer #'revert-buffer) (defalias 'xref-revert-buffer #'revert-buffer)
(defun xref-revert-buffer-restore-point ()
"Restore point on a previous item or group after reverting."
(let* ((item
(when (xref--item-at-point)
(buffer-substring-no-properties (pos-bol) (pos-eol))))
(group
(save-excursion
(when (or (get-text-property (point) 'xref-group)
(and item (xref--search-property 'xref-group t)
(get-text-property (point) 'xref-group)))
(buffer-substring-no-properties (pos-bol) (pos-eol))))))
(when (or item group)
(lambda ()
(goto-char (point-min))
(when (and group (search-forward (concat "\n" group "\n") nil t))
(goto-char (pos-bol 0)))
(when (and item (search-forward (concat "\n" item "\n") nil t))
(goto-char (pos-bol 0)))))))
(defun xref--auto-jump-first (buf value) (defun xref--auto-jump-first (buf value)
(when value (when value
(select-window (get-buffer-window buf)) (select-window (get-buffer-window buf))