Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix rare breakage of 'revert-buffer' in 'archive-mode'

Browse source 
* lisp/arc-mode.el (archive--mode-revert): Avoid deletion of
some region of the reverted buffer by 'archive-desummarize'.
(Bug#79574)
This commit is contained in:
Eli Zaretskii 2025-10-05 18:32:16 +03:00
parent a142cc262e
commit 129119aef1
1 changed files with 6 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/arc-mode.el
View file

@ -1648,6 +1648,12 @@ as a relative change like \"g+rw\" as for chmod(2)."
(defun archive--mode-revert (orig-fun &rest args)
(let ((no (archive-get-lineno)))
(setq archive-files nil)
;; 'orig-fun' will indirectly call 'archive-desummarize', which will
;; delete the region between point-min and
;; 'archive-proper-file-start'. But the latter will be invalidated
;; by 'orig-fun' (which actually reverts the buffer), so by setting
;; it to 1 we prevent the damage from that deletion.
(setq archive-proper-file-start 1)
(let ((coding-system-for-read 'no-conversion))
(apply orig-fun t t (cddr args)))
(archive-mode)