mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-14 10:00:25 -08:00
Code Issues Projects Releases Wiki Activity

Preserve current line when updating in igc-stats

Browse source
This commit is contained in:
Gerd Möllmann 2024-07-01 15:12:33 +02:00
parent 03dccff201
commit 71c6787cc0
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/igc.el
View file

@ -114,7 +114,8 @@ the changes to snapshot A. See the modes's help."
(with-current-buffer (get-buffer-create "*igc*")
(igc-stats-mode)
(setq buffer-read-only t buffer-file-name nil)
(let ((info (igc--info-to-display))
(let ((old-line (line-number-at-pos))
(info (igc--info-to-display))
(inhibit-read-only t)
(inhibit-modification-hooks t)
(standard-output (current-buffer)))
@ -129,7 +130,7 @@ the changes to snapshot A. See the modes's help."
0
(abs (/ bytes n)))))))
(sort-lines nil (point-min) (point-max)))
(goto-char (point-min))))
(goto-line old-line)))
(display-buffer "*igc*"))
(defun igc--roots-diff (i1 i2)