[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master e51850297f: Improve error messaging when parent archive buffers a
From: |
Lars Ingebrigtsen |
Subject: |
master e51850297f: Improve error messaging when parent archive buffers are missing |
Date: |
Sun, 17 Jul 2022 05:17:11 -0400 (EDT) |
branch: master
commit e51850297fdb66e5141dd428cfd04c2005d9b80d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Improve error messaging when parent archive buffers are missing
* lisp/arc-mode.el (archive-write-file-member):
* lisp/tar-mode.el (tar-subfile-save-buffer): Give a better error
message when the parent buffer is dead (bug#56605).
---
lisp/arc-mode.el | 2 ++
lisp/tar-mode.el | 2 ++
2 files changed, 4 insertions(+)
diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index c52f2a4432..35189f1bfd 100644
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -1318,6 +1318,8 @@ NEW-NAME."
;;; Section: IO stuff
(defun archive-write-file-member ()
+ (unless (buffer-live-p archive-superior-buffer)
+ (error "The archive buffer no longer exists; can't save"))
(save-excursion
(save-restriction
(message "Updating archive...")
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el
index 7b5a869ab5..d7a0978969 100644
--- a/lisp/tar-mode.el
+++ b/lisp/tar-mode.el
@@ -1329,6 +1329,8 @@ to make your changes permanent."
(error "This buffer has no superior tar file buffer"))
(if (not (and (boundp 'tar-superior-descriptor) tar-superior-descriptor))
(error "This buffer doesn't have an index into its superior tar file!"))
+ (unless (buffer-live-p tar-superior-buffer)
+ (error "The tar buffer no longer exists; can't save"))
(let ((subfile (current-buffer))
(coding buffer-file-coding-system)
(descriptor tar-superior-descriptor)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master e51850297f: Improve error messaging when parent archive buffers are missing,
Lars Ingebrigtsen <=